unit5.~pas

一个小型的职工管理系统希望大家多多指教!基本功能已经实现

unit Unit5;

interface

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, StdCtrls, Grids, DBGrids, ComCtrls, ExtCtrls,
  DBCtrls, Mask, ADODB;
type
  TForm5 = class(TForm)
    Button1: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    ADOTable1: TADOTable;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    DataSource4: TDataSource;
    ADOTable2: TADOTable;


    ADOTable3: TADOTable;

    ADOTable4: TADOTable;

    Label2: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit16: TDBEdit;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Button11: TButton;
    Panel1: TPanel;
    Label18: TLabel;
    DBEdit18: TDBEdit;
    DBEdit1: TDBEdit;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBComboBox2: TDBComboBox;
    DBComboBox3: TDBComboBox;
    DBComboBox4: TDBComboBox;
    DBComboBox5: TDBComboBox;
    StatusBar1: TStatusBar;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    
    procedure Button11Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
begin
form5.close;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
adotable1.first;
adotable2.first;
adotable3.first;
adotable4.first;


end;

procedure TForm5.Button4Click(Sender: TObject);
begin
 adotable1.next;
 adotable2.next;
 adotable3.next;
 adotable4.next;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
adotable1.prior;
adotable2.prior;
adotable3.prior;
adotable4.prior;
end;

procedure TForm5.Button5Click(Sender: TObject);
begin
adotable1.last;
adotable2.last;
adotable3.last;
adotable4.last;
end;

procedure TForm5.Button6Click(Sender: TObject);
begin

DBEdit1.Text:=DBEdit18.Text;
DBEdit19.Text:=DBEdit18.Text;
DBEdit20.Text:=DBEdit18.Text;

adotable1.fieldbyname('jnum').Value:=DBEdit18.Text;
adotable1.fieldbyname('jname').Value:=DBEdit2.Text;
adotable1.fieldbyname('jsex').Value:=DBComboBox1.Text;
adotable1.fieldbyname('jbron').Value:=DBEdit4.Text;
adotable1.fieldbyname('jadr').Value:=DBEdit5.Text;
adotable1.fieldbyname('jnation').Value:=DBEdit6.Text;
adotable1.fieldbyname('jshen').Value:=DBEdit7.Text;
adotable1.Append;
adotable2.fieldbyname('jnum').Value:=DBEdit1.Text;
adotable2.fieldbyname('jxue').Value:=DBComboBox2.Text;
adotable2.fieldbyname('jscho').Value:=DBEdit9.Text;
adotable2.fieldbyname('jzh').Value:=DBEdit10.Text;
adotable2.fieldbyname('jdate').Value:=DBEdit11.Text;
adotable2.Append;
adotable3.fieldbyname('jnum').Value:=DBEdit19.Text;
adotable3.fieldbyname('jzhic').Value:=DBComboBox3.Text;
adotable3.fieldbyname('jgongz').Value:=DBEdit13.Text;
adotable3.fieldbyname('jcri').Value:=DBEdit14.Text;
adotable3.Append;
adotable4.fieldbyname('jnum').Value:=DBEdit20.Text;
adotable4.fieldbyname('jma').Value:=DBComboBox4.Text;
adotable4.fieldbyname('jpa').Value:=DBEdit16.Text;
adotable4.fieldbyname('jsd').Value:=DBComboBox5.Text;
adotable4.Append;

end;

procedure TForm5.Button7Click(Sender: TObject);
begin
//adotable1.co
adotable1.Delete;
adotable2.Delete;
adotable3.Delete;
adotable4.Delete;
end;

procedure TForm5.Button8Click(Sender: TObject);
begin
adotable1.Edit;

adotable2.Edit;

adotable3.Edit;

adotable4.Edit;
end;



procedure TForm5.Button11Click(Sender: TObject);
begin

//adotable1.Active :=false;
//adotable2.Active :=false;
//adotable3.Active :=false;
//adotable4.Active :=false;
DBEdit18.text:='';
DBEdit2.text:='';
DBComboBox1.text:='';
DBEdit4.text:='';
DBEdit5.text:='';
DBEdit6.text:='';
DBEdit7.text:='';
DBComboBox2.text:='';
DBEdit9.text:='';
DBEdit10.text:='';
DBEdit11.text:='';
DBComboBox3.text:='';
DBEdit13.text:='';
DBEdit14.text:='';
DBComboBox4.text:='';
DBEdit16.text:='';
DBComboBox5.text:='';

end;

procedure TForm5.FormActivate(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
//adotable1.Close ;
//adotable1.Open ;
//DBComboBox6.Clear ;
//while not  adotable1.Eof  do
//begin

//DBComboBox6.Items.Add (adotable1.fieldbyname('jnum').AsString );
//adotable1.Next ;
//end
end;

end.