Question

那位热心的delphi高手帮我解释一下这些代码吧，我是个菜鸟，帮我解释详细点，谢谢了啊

procedure Tf_person.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Edit;
DBEdit2.SetFocus;
end;

procedure Tf_person.BitBtn2Click(Sender: TObject);
begin
b:=true;
ADOQuery1.Active:=false;
ADOQuery1.Active:=true;
ADOQuery1.Edit;
ADOQuery1.Append;
DBEdit2.SetFocus;
end;

procedure Tf_person.BitBtn3Click(Sender: TObject);
var
s:string;
begin
if b then
begin
ADOQuery1.FieldByName('照片').AsString :='image\2.jpg' ;

ADOQuery1.Post;
ADOQuery1.Refresh;
ShowMessage('添加成功!!!');
b:=false;
end
else
begin
ADOQuery1.Post;
ADOQuery1.Refresh;
ShowMessage('修改完成!!!');
end

end;

procedure Tf_person.BitBtn4Click(Sender: TObject);
var t:integer;
begin
t:=MessageDlg('确定要删除记录吗??',mtInformation,mbYesNoCancel,HelpContext);
if t=6 then
begin
ADOQuery1.Edit;
ADOQuery1.Delete;
end

end;

procedure Tf_person.BitBtn8Click(Sender: TObject);
begin
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 人员表');
ADOQuery1.Active:=true;
end;

procedure Tf_person.BitBtn7Click(Sender: TObject);

var
s:String;
begin
s:=InputBox('社区处来人员信息查询框','请输入人员姓名:','');
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 人员表 where 姓名='''+s+'''');
ADOQuery1.Active:=true;
end;

end.

Answer 1

你也太懒了，这个看到相关的书是肯定会明白的。多去看看数据库操作有关的delphi书。
procedure Tf_person.BitBtn1Click(Sender: TObject);
begin
ADOQuery1.Edit; //调用adoquery控件的编辑功能
DBEdit2.SetFocus; //dbedit控件处于焦点
end;

procedure Tf_person.BitBtn2Click(Sender: TObject);
begin
b:=true; //用来判断的逻辑变量
ADOQuery1.Active:=false; //先关闭adoquery控件的Active属性防止它对应的表处于开的状态
ADOQuery1.Active:=true; //打开其对应的表
ADOQuery1.Edit; //调用编辑功能
ADOQuery1.Append; //调用追加功能
DBEdit2.SetFocus; //焦点状态
end;

procedure Tf_person.BitBtn3Click(Sender: TObject);
var
s:string;
begin
if b then //如果是true
begin
ADOQuery1.FieldByName('照片').AsString :='image\2.jpg' ;//表对应的“照片”变量上传一张 'image\2.jpg'

ADOQuery1.Post; //保存
ADOQuery1.Refresh; //更新
ShowMessage('添加成功!!!'); //显示添加成功
b:=false; //设置逻辑变量为faslse
end
else //如果false
begin
ADOQuery1.Post; //保存
ADOQuery1.Refresh; //更新
ShowMessage('修改完成!!!'); //提示
end

end;

procedure Tf_person.BitBtn4Click(Sender: TObject);
var t:integer;
begin
t:=MessageDlg('确定要删除记录吗??',mtInformation,mbYesNoCancel,HelpContext); //用t来取MessageDlg得返回值
if t=6 then //如果是yes则删除
begin
ADOQuery1.Edit;
ADOQuery1.Delete;
end

end;

procedure Tf_person.BitBtn8Click(Sender: TObject);
begin //这个是对人员表显示的功能
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 人员表');
ADOQuery1.Active:=true;
end;

procedure Tf_person.BitBtn7Click(Sender: TObject);

var
s:String; //这个是查询功能
begin
s:=InputBox('社区处来人员信息查询框','请输入人员姓名:',''); //用s来得返回的值
ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 人员表 where 姓名='''+s+'''');
ADOQuery1.Active:=true;
end;

end.