procedure TForm1.Button1Click(Sender: TObject);
var
picture2:tpicture;
begin
if openpicturedialog2.FileName='' then
begin
showmessage('请选择照片');
exit;
end;
if snedit1.Text='' then
begin
showmessage('请输入用户名!');
exit;
end;
picture2:=tpicture.create;
picture2.LoadFromFile(extractfilename(openpicturedialog2.FileName));
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('select*from base_data');
adoquery2.Open;
adoquery2.Insert;
adoquery2.FieldByName('worker_id').AsString:=snedit1.Text;
adoquery2.FieldByName('photo').Assign(picture2);
adoquery2.Post;
showmessage('图片已保存完毕');
end;
我对以上几个函数不太清楚！
1、extractfilename？
2、Assign？
3、post?
谢！

extractfilename:是去掉文件的扩展名!

adoquery.post是一个虚方法,应该是将记录写到数据库

Assign 是复制一个类的属性到另一个类里的,而且怎么做是有类自己实现的
extractfilename 是获取当前文件的路径
post 是把数据存在数据库中的表中