unit1.pas

很好地delphi书籍源码

unit Unit1;

interface

implementation

end.

procedure TFrmPhone.AddTButtonClick(Sender: TObject);
begin
  AddGB.Visible:=true;
  ModGB.Visible:=false ;
end;

procedure TFrmPhone.ModTButtonClick(Sender: TObject);
begin
  ModGB.Visible:=true;
  AddGB.Visible:=false;
  with Table1 do
  begin
    Edit1.Text:=Fields[1].AsString   ;
    Edit2.Text:=Fields[2].AsString;
    Edit3.Text:=Fields[3].AsString;
    Edit4.Text:=Fields[4].AsString;
    CB1.Text:= Fields[5].AsString;
    Edit5.Text:= Fields[6].AsString;
  end;
end;
procedure TFrmPhone.DelTButtonClick(Sender: TObject);
begin
   if Application.MessageBox('确实需要删除记录吗!',
       '提示',MB_YesNo+MB_IconExclamation+MB_SystemModal)=IDYES then
     Table1.Delete;
end;

procedure TFrmPhone.ToolButton7Click(Sender: TObject);
begin
  Table1.First;
end;

procedure TFrmPhone.ToolButton3Click(Sender: TObject);
begin
  Table1.Prior;
end;

procedure TFrmPhone.ToolButton5Click(Sender: TObject);
begin
  Table1.Next;
end;

procedure TFrmPhone.ToolButton6Click(Sender: TObject);
begin
  Table1.Last;
end;