unit7.pas

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

unit Unit7;

interface

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

type
  TForm7 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    ADOTable1DSDesigner: TIntegerField;
    ADOTable1DSDesigner2: TStringField;
    ADOTable1DSDesigner3: 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: TIntegerField;
    ADOTable1DSDesigner20: TIntegerField;
    ADOTable1DSDesigner21: TStringField;
    ADOTable1DSDesigner22: TStringField;
    ADOTable1DSDesigner23: TStringField;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N7: TMenuItem;
    ADOTable2: TADOTable;
    ADOTable2DSDesigner: TIntegerField;
    ADOTable2DSDesigner2: TStringField;
    ADOTable2DSDesigner3: TStringField;
    ADOTable2DSDesigner4: TIntegerField;
    ADOTable2DSDesigner5: TStringField;
    ADOTable2DSDesigner6: TStringField;
    ADOTable2DSDesigner7: TStringField;
    ADOTable2DSDesigner8: TIntegerField;
    ADOTable2DSDesigner9: TStringField;
    ADOTable2DSDesigner10: TStringField;
    ADOTable2DSDesigner11: TStringField;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DBNavigator1: TDBNavigator;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    procedure FormActivate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
  private
    procedure setstate(s:integer);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.FormActivate(Sender: TObject);
begin
   setstate(0);
   adotable1.Open;
   adotable2.Open;
   adotable2.Filtered:=false;
   adotable2.Filter:='招聘结束标记=NULL';
   adotable2.Filtered:=true;
end;

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

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

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

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

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

procedure Tform7.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
   if s=1 then
     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 TForm7.N7Click(Sender: TObject);
begin
   adotable1.Close;
   adotable2.Close;
   form7.Close;
end;

procedure TForm7.N6Click(Sender: TObject);
var s:string;
    m:string;
    n:integer;
    p:integer;
begin
   s:='';
   m:=dbedit4.Text;
   n:=pos('内部人员',m);
   p:=pos('外部人员',m) ;
   s:=s+'应聘部门='''+dbedit1.Text+''' and ';
   s:=s+'应聘岗位='''+dbedit2.Text+''' and ';
   if n=1 then s:=s+'内部人员标志=''是'''+' and ';
   if p=1 then s:=s+'内部人员标志=NULL'+' and ';
   s:=s+'专业='''+dbedit5.Text+''''+' and ';
   s:=s+'最高学历='''+dbedit6.Text+''''+' and ';
   s:=copy(s,1,length(s)-5);
   adotable1.Filtered:=false;
   adotable1.Filter:=s;
   adotable1.Filtered:=true;
end;

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

end.