unit5.pas

用delphi和SQLServer开发的人力资源管理信息系统

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, ADODB, Menus;

type
  TForm5 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N7: TMenuItem;
    ADOTable1: TADOTable;
    ADOTable1DSDesigner: TStringField;
    ADOTable1DSDesigner2: TStringField;
    ADOTable1DSDesigner3: TStringField;
    ADOTable1StringField: TStringField;
    ADOTable1DSDesigner4: TStringField;
    ADOTable1DSDesigner5: TStringField;
    ADOTable1DSDesigner6: TStringField;
    ADOTable1DSDesigner7: TStringField;
    ADOTable1DSDesigner8: TStringField;
    ADOTable1DSDesigner9: TStringField;
    ADOTable1DSDesigner10: TStringField;
    ADOTable1DSDesigner11: TStringField;
    ADOTable1DSDesigner12: TStringField;
    ADOTable1DSDesigner13: TStringField;
    ADOTable1DSDesigner14: TStringField;
    ADOTable1DSDesigner15: TStringField;
    ADOTable1DSDesigner16: TStringField;
    ADOTable1DSDesigner17: TStringField;
    ADOTable1DSDesigner18: TStringField;
    ADOTable1DSDesigner19: TStringField;
    ADOTable1DSDesigner20: TStringField;
    ADOTable1DSDesigner21: TStringField;
    ADOTable1DSDesigner22: TStringField;
    ADOTable1DSDesigner23: TStringField;
    ADOTable1DSDesigner24: TStringField;
    ADOTable1DSDesigner26: TStringField;
    ADOTable2: TADOTable;
    ADOTable2DSDesigner: TStringField;
    ADOTable2DSDesigner2: TStringField;
    ADOTable2DSDesigner3: TStringField;
    ADOTable2DSDesigner4: TStringField;
    ADOTable2DSDesigner5: TStringField;
    ADOTable2DSDesigner6: TIntegerField;
    ADOTable2DSDesigner7: TIntegerField;
    ADOTable2DSDesigner8: TIntegerField;
    ADOTable2DSDesigner9: TIntegerField;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    Label14: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    procedure FormActivate(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
  private
     procedure setstate(s:integer);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.FormActivate(Sender: TObject);
begin
   setstate(0);
   adotable1.Open;
end;

procedure TForm5.N7Click(Sender: TObject);
begin
   adotable1.Close;
   form5.Close;
end;

procedure TForm5.N1Click(Sender: TObject);
begin
   adotable1.Append;
   setstate(1);
end;

procedure TForm5.N2Click(Sender: TObject);
begin
   adotable1.Post;
   setstate(0);
end;

procedure TForm5.N3Click(Sender: TObject);
begin
   adotable1.Cancel;
   setstate(0);
end;

procedure TForm5.N4Click(Sender: TObject);
begin
   adotable1.Delete;
   setstate(0);
end;

procedure TForm5.N5Click(Sender: TObject);
begin
   adotable1.Edit;
   setstate(1);
end;

procedure Tform5.setstate(s:integer);
begin
   if s=0 then
     begin
         N1.Enabled:=true;
         N2.Enabled:=false;
         N3.Enabled:=false;
         N4.Enabled:=true;
         N5.Enabled:=true;
         N6.Enabled:=true;
         N8.Enabled:=true;
         N7.Enabled:=true;
     end
   else
     begin
         N1.Enabled:=false;
         N2.Enabled:=true;
         N3.Enabled:=true;
         N4.Enabled:=false;
         N5.Enabled:=false;
         N6.Enabled:=false;
         N8.Enabled:=false;
         N7.Enabled:=false;
     end;
end;

procedure TForm5.N6Click(Sender: TObject);
var s:string;
begin
   s:='';
   if edit1.Text<>'' then s:=s+'员工号='''+edit1.Text+''' and ';
   if edit2.Text<>'' then s:=s+'姓名='''+edit2.Text+''''+' and ';
   if edit3.Text<>'' then s:=s+'部门='''+edit3.Text+''''+' and ';
   if edit4.Text<>'' then s:=s+'最高学历='''+edit4.Text+''''+' and ';
   if combobox3.Text<>'' then s:=s+'职位='''+combobox3.Text+''' and ';
   if combobox1.Text<>'' then s:=s+'工作状态='''+combobox1.Text+''' and ';
   if combobox2.Text<>'' then s:=s+'用工形式='''+combobox2.Text+''' and ';
   s:=copy(s,1,length(s)-5);
   adotable1.Filtered:=false;
   adotable1.Filter:=s;
   adotable1.Filtered:=true;
   edit1.Text:='';
   edit2.Text:='';
   edit3.Text:='';
   edit4.Text:='';
   combobox3.Text:='';
   combobox1.Text:='';
   combobox2.Text:='';
end;

procedure TForm5.N8Click(Sender: TObject);
begin
   adotable1.Filtered:=false;
end;

end.