unit4.pas

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

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    DataSource1: TDataSource;
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N7: TMenuItem;
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBNavigator1: TDBNavigator;
    GroupBox2: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label16: TLabel;
    Label18: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    procedure setstate(s:integer);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure Tform4.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 TForm4.N2Click(Sender: TObject);
begin
   adotable1.Post;
   setstate(0);
end;

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

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

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

procedure TForm4.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 edit5.Text<>'' then s:=s+'现有主管人数>'+edit5.Text+' and ';
   if edit6.Text<>'' then s:=s+'现有主管人数<'+edit6.Text+' and ';
   if edit7.Text<>'' then s:=s+'现有职员数>'+edit7.Text+' and ';
   if edit8.Text<>'' then s:=s+'现有职员数<'+edit8.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:='';
   edit5.Text:='';
   edit6.Text:='';
   edit7.Text:='';
   edit8.Text:='';
end;

procedure TForm4.N8Click(Sender: TObject);
begin
   adotable1.Filtered:=false;
   setstate(0);
end;

procedure TForm4.N7Click(Sender: TObject);
begin
   adotable1.Close;
   form4.Close;
end;

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

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

end.