DLPHI代码解释(添加.查询.修改.删除)

小弟不才,哪位兄台帮忙在后面加上中文解释(论文代码需要会的.帮忙):谢谢!!!

procedure TForm1.SeSkinButton1Click(Sender: TObject);
var
  RecordId:Integer;
  GroupId:Integer;
begin
if seskinbutton1.caption='添加' then
 begin
LastSelNode:=TreeView1.Selected;
  li.Text:='';
  lj.text:='';
  lf.Text:='';
  lh.Text:='';
  lg.Text:='13*********';
  la.text:='';
  lb.text:='';
  lc.text:='';
  ld.text:='';
  le.text:='';
  la.Enabled:=true;
  lb.Enabled:=true;
  lc.Enabled:=true;
  ld.Enabled:=true;
  le.Enabled:=true;
  lf.Enabled:=true;
  lg.Enabled:=true;
  lh.Enabled:=true;
  li.Enabled:=true;
  lj.Enabled:=true;
  ActiveControl:=li;
  seskinbutton1.caption:='保存';
  seskinbutton4.Enabled:=true;
  //ActionCode:=1;//是添加动作
 end
 else
 // if(ActionCode=1)then
//begin
  //if(CheckValid=False)then
//begin
    //ShowMessage('输入的数据有错误，因此不能进行添加操作！');
      //ActiveControl:=txtName;
   //end
   //else
    begin
      {将新记录插入到TXL_RECORD表内}
      with tblRecord do
      begin
        Open;
        Insert;
        FieldValues['RECORD_NAME']:=li.Text;
        FieldValues['record_gzdw']:=lj.text;
        FieldValues['RECORD_TEL']:=lh.Text;
        FieldValues['RECORD_MOBILE']:=lg.Text;
        FieldValues['RECORD_OICQ']:=lf.Text;
        fieldvalues['record_fax']:=la.text;//传真号码
        fieldvalues['record_companytel']:=lb.text;//公司电话
        fieldvalues['record_email']:=lc.text;//电子邮箱
        fieldvalues['record_meno']:=ld.text;//个人备注
        fieldvalues['record_address']:=le.text;
        if li.text='' then
        showmessage('没有输入姓名')
        else
        begin
        Post;
        showmessage('记录添加成功');
        end;
        la.Enabled:=False;
    lb.Enabled:=False;
    lc.Enabled:=False;
    ld.Enabled:=False;
    le.Enabled:=False;
    lf.Enabled:=False;
    lg.Enabled:=False;
    lh.Enabled:=False;
    li.Enabled:=False;
    lj.Enabled:=False;
        Close;
      end;
      {获得TXL_RECORD表内RECORD_ID字段的最大值}
      with tblRecord do
      begin
        Open;
        Last;
        RecordId:=FieldByName('RECORD_ID').AsInteger;
        Close;
      end;
      {将一条新的映射关系插入到TXL_MAP表中}

      //GroupId:=(PMyData(TreeView1.Selected.Parent.Data))^.Id;

      GroupId:=(PMyData(TreeView1.Selected.Data))^.Id;

      with tblMap do
      begin
        Open;
        Insert;
        FieldValues['MAP_RECORD_ID']:=RecordId;
        FieldValues['MAP_GROUP_ID']:=GroupId;
        Post;
        Close;
        seskinbutton1.caption:='添加';
        seskinbutton1.Enabled:=false;
        TreeView1.Items.Clear;
        LoadDataForTreeView;
      end;
    end;

end;

procedure TForm1.SeSkinButton2Click(Sender: TObject);
var
  RecordId:Integer;
  GroupId:Integer;
begin
if (MessageDlg('确实要删除此记录吗？', mtConfirmation,
      [mbYes, mbNo],0))=mrYes then
begin
LastSelNode:=TreeView1.Selected;
  li.Text:='';
  lj.text:='';
  lf.Text:='';
  lh.Text:='';
  lg.Text:='';
  la.text:='';
  lb.text:='';
  lc.text:='';
  ld.text:='';
  le.text:='';
 
  seskinbutton2.enabled:=false;
 // ActionCode:=2;//是删除动作
//end
//else
//else if(ActionCode=2)then
 // begin
    {删除TXL_RECORD表中对应记录}
    RecordId:=(PMyData(TreeView1.Selected.Data))^.Id;
    with tblRecord do
    begin
      Open;
      while not Eof do
      begin
        if(FieldByName('RECORD_ID').AsInteger=RecordId)then
          Delete;
        next;
      end;
      Close;
    end;
    {删除TXL_MAP表中对应的映射关系}
    with tblMap do
    begin
      Open;
      while not Eof do
      begin
        if(FieldByName('MAP_RECORD_ID').AsInteger=RecordId)then
          Delete;
        next;
      end;
      Close;
    end;

 

  //ActionCode:=0;
  TreeView1.Items.Clear;
  LoadDataForTreeView;
end;
end;

procedure TForm1.SeSkinButton3Click(Sender: TObject);
var
  RecordId:Integer;
  GroupId:Integer;
begin
if seskinbutton3.caption='修改' then
begin
  LastSelNode:=TreeView1.Selected;
  la.Enabled:=true;
  lb.Enabled:=true;
  lc.Enabled:=true;
  ld.Enabled:=true;
  le.Enabled:=true;
  lf.Enabled:=true;
  lg.Enabled:=true;
  lh.Enabled:=true;
  li.Enabled:=true;
  lj.Enabled:=true;
  ActiveControl:=li;
  li.SelectAll;
  seskinbutton3.Caption:='保存';
  seskinbutton4.Enabled:=true;
end
  //ActionCode:=3;//是修改动作
  else
  //if(ActionCode=3)then
  begin
    //if(CheckValid=False)then
    //begin
      //ShowMessage('输入的数据有错误，因此不能进行修改操作！');
      //ActiveControl:=txtName;
    //end
    //else
    //begin
      {修改TXL_RECORD表中相应记录}
      with tblRecord do
      begin
        Open;
      while not Eof do
       //while tblrecord.recordcount<>0  do
        begin
          if(FieldByName('RECORD_ID').AsInteger=(PMyData(LastSelNode.Data))^.Id) then
          begin
            Update;
            tblrecord.Edit;
            FieldValues['RECORD_NAME']:=li.Text;
            FieldValues['RECORD_gzdw']:=lj.text;
            FieldValues['RECORD_TEL']:=lh.Text;
            FieldValues['RECORD_MOBILE']:=lg.Text;
            FieldValues['RECORD_OICQ']:=lf.Text;
            fieldvalues['record_fax']:=la.text;//传真号码
            fieldvalues['record_companytel']:=lb.text;//公司电话
            fieldvalues['record_email']:=lc.text;//电子邮箱
            fieldvalues['record_meno']:=ld.text;//个人备注
            fieldvalues['record_address']:=le.text;
            Post;
            seskinbutton3.Caption:='修改';
            seskinbutton3.enabled:=false;
            seskinbutton2.enabled:=false;
            seskinbutton4.Enabled:=false;
            la.Enabled:=False;
    lb.Enabled:=False;
    lc.Enabled:=False;
    ld.Enabled:=False;
    le.Enabled:=False;
    lf.Enabled:=False;
    lg.Enabled:=False;
    lh.Enabled:=False;
    li.Enabled:=False;
    lj.Enabled:=False;
    showmessage('修改成功');
            TreeView1.Items.Clear;
            LoadDataForTreeView;
          end;
          next;
        end;
        Close;
      //end;
    end;
  end;
  //ActionCode:=0;

end;

procedure TForm1.SeSkinButton4Click(Sender: TObject);
begin
ActiveControl:=TreeView1;
    TreeView1Change(TreeView1,LastSelNode);
    seskinbutton4.enabled:=false;
    seskinbutton3.Enabled:=false;
    seskinbutton1.Enabled:=false;
    seskinbutton1.Caption:='添加';
    seskinbutton3.Caption:='修改';
end;

procedure TForm1.SeSkinButton6Click(Sender: TObject);
begin
  FrmAbout:=TFrmAbout.Create(self);
  FrmAbout.ShowModal;
  //ShellExecute(handle, 'Open', 'http://qdxy.ouc.edu.cn', '', '', SW_SHOW);
end;

 

procedure TForm1.txtNameKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then lh.setfocus;
end;

procedure TForm1.rb1Click(Sender: TObject);
begin
lab1.caption:='请输入姓名';
edit1.Text:='';
edit1.SetFocus;
edit1.ReadOnly:=false;
end;

procedure TForm1.rb2Click(Sender: TObject);
begin
lab1.caption:='请输入手机号';
edit1.Text:='';
edit1.SetFocus;
edit1.ReadOnly:=false;

end;

procedure TForm1.SeSkinButton7Click(Sender: TObject);
begin
if edit1.text='' then
showmessage('请选择好查询方式后再输入要进行查询的内容')
else
begin

adoquery2.Close;
adoquery2.SQL.Clear;
if  rb1.checked=true then
begin
adoquery2.SQL.Add('select txl_group.group_name,txl_record.* from txl_record,txl_group,txl_map where txl_record.record_name like''%'+edit1.text+'%'' and txl_record.record_id=txl_map.map_record_id and txl_map.map_group_id=txl_group.group_id');
adoquery2.Open;
   if adoquery2.recordcount=0 then
   ShowMessage('没有找到姓名为：'+''+edit1.text+''+' 的记录');
   //else
   //fchaoxun.show;
end;
if rb2.checked=true then
begin
adoquery2.SQL.Add('select txl_record.*,txl_group.group_name from txl_record,txl_group,txl_map where txl_record.record_mobile like''%'+edit1.text+'%'' and txl_record.record_id=txl_map.map_record_id and txl_map.map_group_id=txl_group.group_id');
adoquery2.Open;
   if adoquery2.recordcount=0 then
   ShowMessage('没有找到手机号为：'+''+edit1.text+''+' 的记录')
   //else
   //fchaoxun.show;
end;

if rb3.checked=true then
begin
adoquery2.SQL.Add('select txl_record.*,txl_group.group_name from txl_record,txl_group,txl_map where txl_record.record_oicq like''%'+edit1.text+'%'' and txl_record.record_id=txl_map.map_record_id and txl_map.map_group_id=txl_group.group_id');
adoquery2.Open;
   if adoquery2.recordcount=0 then
   ShowMessage('没有找到QQ号为：'+''+edit1.text+''+' 的记录')
   //else
   //fchaoxun.show;
end;

  //if strtointdef(edit1.text,0)=0 then
    //adoquery1.SQL.add('select * from 库存信息表 where 仓库名称 like''%'+edit1.text+'%''')
//else
//adoquery1.SQL.add('select * from 库存信息表 where 仓库名称 like''%'+edit1.text+'%'' or 仓库编号=cast('+edit1.text+' as integer)');
  //adoquery1.Open;
  //if adoquery1.recordcount=0 then

   //showmessage('没有查询到记录');
  //showmessage('select * from 库存信息表 where 仓库名称 like''%'+edit1.text+'%''');
  //showmessage('''%'+edit1.text+'%''');

  //else
 //adoquery1.Open;
edit1.text:='';

end;
end;