2008-06-23 08:55 167人阅读 (0)
用到的控件有adoconnection,adoqury,edit,image,opendialog.
还需要在工程存储的文件夹下有一个photo的文件夹,用来挑选图片和保存图片.
procedure TForm1.Image1Click(Sender: TObject);
var
workpath:string;
photopath:string;
begin
workpath:=ExtractFilePath(application.exename);
if opendialog1.execute then
image1.picture.loadfromfile(opendialog1.filename);
photopath:='photo/'+edit1.text+'.jpg';
a doquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('insert into 学生信息(学生证号,照片) values ('''+edit1.text+''','''+photopaht+''')');
adoquery1.execsql;
image1.picture.savetofile(workpath+photopath);
end;