jiben.pas

pasa人力资源考勤管理系统

// 职称  籍贯  学历  科系  专长  证件 民族 外语  这几个菜单的其用窗体
//但每次只有一项可以显示
unit jiben;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, DBCtrls, Buttons, Grids, DBGrids, Db, DBTables, ADODB,
  Menus, ComCtrls, ToolWin;

type
  Tformjiben = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ControlBar1: TControlBar;
    HeaderControl1: THeaderControl;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    DBNavigator1: TDBNavigator;
    ComboBox1: TComboBox;
    ToolButton2: TToolButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Change(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure ToolButton2Click(Sender: TObject);
  private
    { Private declarations }
    f:string;
  public
    { Public declarations }
  end;

var
  formjiben,formjiben1,formjiben2,formjiben3,formjiben4,formjiben5,formjiben6,formjiben7,formjiben8,formjiben9,formjiben10:tformjiben;

implementation

uses datamol, main;
{$R *.DFM}

procedure Tformjiben.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   adotable1.Close;
   action:=cafree;
   formjiben:=nil;
   if assigned(formjiben1) then
     formjiben1:=nil
   else if assigned(formjiben2) then
     formjiben2:=nil
   else if assigned(formjiben3) then
     formjiben3:=nil
   else if assigned(formjiben4) then
     formjiben4:=nil
   else if assigned(formjiben5) then
     formjiben5:=nil
   else if assigned(formjiben6) then
     formjiben6:=nil
   else if assigned(formjiben7) then
     formjiben7:=nil
   else if assigned(formjiben8) then
     formjiben8:=nil
   else if assigned(formjiben9) then
     formjiben9:=nil;
end;

procedure Tformjiben.FormActivate(Sender: TObject);
begin
   //adotable1.open;
   combobox1.Clear;
   combobox1.Items.Add('01--职称代码');
   combobox1.Items.Add('02--级别代码');
   combobox1.Items.Add('03--籍贯代码');
   combobox1.Items.Add('04--学历代码');
   combobox1.Items.Add('05--科系代码');
   combobox1.Items.Add('06--专长代码');
   combobox1.Items.Add('07--证件代码');
   combobox1.Items.Add('08--民族代码');
   combobox1.Items.Add('09--外语代码');
   combobox1.Items.Add('10--应聘来源');
end;

procedure Tformjiben.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tformjiben.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    begin
      key:=#0;
      with sender as twincontrol do
        postmessage(handle,wm_keydown,vk_tab,0);
    end;
end;

procedure Tformjiben.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) and (length(combobox1.text)>0)then
    begin
     key:=#0;
     adotable1.Close;
     case strtoint(copy(combobox1.text,1,2)) of
     1:begin
         //formmain.personal_prof.click;
          adotable1.TableName :='per01010';
          adotable1.open;
          ADOTable1.Fields[0].DisplayLabel :='职称代码';
          ADOTable1.Fields[1].DisplayLabel :='职称名称';
          caption:='职称';
        end;
     2: begin
          adotable1.TableName :='per11010';
          adotable1.open;
          ADOTable1.Fields[0].DisplayLabel :='职等职级编码';
          ADOTable1.Fields[1].DisplayLabel :='底薪(最多)';
          ADOTable1.Fields[2].DisplayLabel :='底薪(最少)';
          ADOTable1.Fields[3].DisplayLabel :='职务津贴(最多)';
          ADOTable1.Fields[4].DisplayLabel :='职务津贴(最少)';
          ADOTable1.Fields[5].DisplayLabel :='技术津贴(最多)';
          ADOTable1.Fields[6].DisplayLabel :='技术津贴(最少)';
          Caption:='职等职级设定';
        end;
     3:begin
          caption:='籍贯';
          adotable1.tablename:='per03010';
          adotable1.open;
          ADOTable1.Fields[0].DisplayLabel :='籍贯代码';
          ADOTable1.Fields[1].DisplayLabel :='籍贯名称';

       end;
     4:begin
          caption:='学历';
          adotable1.TableName:='per04010';
          adotable1.open;
          ADOTable1.Fields[0].DisplayLabel :='学历代码';
          ADOTable1.Fields[1].DisplayLabel :='学历名称';

       end;
     5:begin
          caption:='科系';
          adotable1.TableName:='per05010';
          adotable1.open;
          ADOTable1.Fields[0].DisplayLabel :='科系代码';
          ADOTable1.Fields[1].DisplayLabel :='科系名称';

       end;
     6:begin
          caption:='专长';
          adotable1.TableName:='per06010';
          adotable1.open;
          ADOTable1.Fields[0].DisplayLabel :='专长代码';
          ADOTable1.Fields[1].DisplayLabel :='专长名称';
       end;
     7:begin
          caption:='证件';
          adotable1.TableName:='per07010';
          adotable1.open;
          ADOTable1.Fields[0].DisplayLabel :='证件代码';
          ADOTable1.Fields[1].DisplayLabel :='证件名称';
       end;
     8:begin
          caption:='民族';
          adotable1.TableName:='per08010';
          adotable1.open;
          ADOTable1.Fields[0].DisplayLabel :='民族代码';
          ADOTable1.Fields[1].DisplayLabel :='民族名称';
       end;
     9:begin
          caption:='外语';
          adotable1.TableName:='per09010';
          adotable1.open;
          ADOTable1.Fields[0].DisplayLabel :='外语代码';
          ADOTable1.Fields[1].DisplayLabel :='外语名称'
       end;
    10:begin
         caption:='应聘来源';
         adotable1.TableName :='emp02010';
         adotable1.Open;
         adotable1.Fields[0].DisplayLabel :='招聘来源代码';
         adotable1.Fields[1].DisplayLabel :='招聘来源';

       end;
    end;
   end;
end;

procedure Tformjiben.ComboBox1Change(Sender: TObject);
var
   key:char;
begin
  key:=#13;
  combobox1.OnKeyPress(sender,key);
end;

procedure Tformjiben.DBGrid1TitleClick(Column: TColumn);
begin
   if f='DESC' then
     f:='ASC'
   else
     f:='DESC';
   ADOtable1.Sort :=column.FieldName+' '+f;
end;

procedure Tformjiben.ToolButton2Click(Sender: TObject);
begin
  close;
end;

end.