unit6.~pas

数据库编程 人事档案管理

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, DB, DBTables;

type
  TForm6 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    DBbh: TDBEdit;
    DBxm: TDBEdit;
    DBxb: TDBComboBox;
    DBnation: TDBLookupComboBox;
    Dbparty: TDBLookupComboBox;
    DBbirthday: TDBEdit;
    DBind: TDBEdit;
    Table1: TTable;
    Table2: TTable;
    Table3: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;
  str:string;
implementation
  uses dm;
{$R *.dfm}

procedure TForm6.FormCreate(Sender: TObject);
begin
table1.Open ;
table2.Open ;
table3.Open ;
end;

procedure TForm6.Button1Click(Sender: TObject);
begin
table1.First ;

end;

procedure TForm6.Button4Click(Sender: TObject);
begin
table1.Last  ;
end;

procedure TForm6.Button2Click(Sender: TObject);
begin
if table1.Bof then
    showmessage('已经是第一条记录')
    else
     table1.Prior  ;

end;

procedure TForm6.Button3Click(Sender: TObject);
begin
if table1.eof then
    showmessage('已经是最后一条记录')
    else
  table1.Prior  ;
   end;

procedure TForm6.Button5Click(Sender: TObject);
var
temp:integer;
begin
 if  button5.Caption ='提交' then
 begin
 str:=dbxb.Text ;
 table1.FieldByName('id').AsString :=dbbh.Text ;
 table1.FieldByName('name').AsString :=dbxm.Text ;
 table1.FieldByName('sex').Value :=str;
 table1.FieldByName('nation').AsString :=dbnation.Text ;
 table1.FieldByName('party').AsString :=dbparty.Text ;
 table1.FieldByName('birthday').AsString :=dbbirthday.Text ;
 table1.Fields[6].AsString :=dbind.Text ;

 table1.Post ;
 button5.Caption :='新增';
 end
 else
 begin
 temp:=table1.RecordCount+1;

  table1.Insert ;
 dbbh.Text :=inttostr(temp);
  button5.Caption :='提交';
  end;

end;

procedure TForm6.Button6Click(Sender: TObject);
begin
if  button6.Caption ='提交' then
 begin
 str:=dbxb.Text ;
 table1.FieldByName('id').AsString :=dbbh.Text ;
 table1.FieldByName('name').AsString :=dbxm.Text ;

 table1.FieldByName('nation').AsString :=dbnation.Text ;
 table1.FieldByName('party').AsString :=dbparty.Text ;
 table1.FieldByName('birthday').AsString :=dbbirthday.Text ;
 table1.Fields[6].AsString :=dbind.Text ;
 table1.Post ;
 button6.Caption :='修改';
 end
 else
 begin
table1.Edit  ;
  button6.Caption :='提交';
  end;
end;

procedure TForm6.Button7Click(Sender: TObject);
begin
if messagedlg('你确信你所做的操作吗？',mtinformation,[mbyes,mbno],0)=mryes then
table1.Delete ;
end;

procedure TForm6.Button8Click(Sender: TObject);
begin
close;
end;

end.