formzonghe.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 599 行 · 第 1/2 页

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

interface

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

type
  Tformallkind = class(TForm)
    PopupMenu1: TPopupMenu;
    N4: TMenuItem;
    ImageList1: TImageList;
    Dsprov: TDataSource;
    Dsdegree: TDataSource;
    Dscourse: TDataSource;
    Dsvisa: TDataSource;
    Dspeople: TDataSource;
    Dsforeign: TDataSource;
    Adoprov: TADODataSet;
    Adodegree: TADODataSet;
    Adocourse: TADODataSet;
    Adovisa: TADODataSet;
    ADOpeople: TADODataSet;
    Adoforeign: TADODataSet;
    Adoprovprovno: TStringField;
    Adoprovprovname: TStringField;
    Adodegreedegreeno: TStringField;
    Adodegreedegreename: TStringField;
    Adocoursecourseno: TStringField;
    Adocoursecoursename: TStringField;
    Adovisavisano: TStringField;
    Adovisavisaname: TStringField;
    ADOpeoplepeopleno: TStringField;
    ADOpeoplepeoplename: TStringField;
    Adoforeignforeignno: TStringField;
    Adoforeignforeignname: TStringField;
    PopupMenu2: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    n0: TMenuItem;
    N3: TMenuItem;
    Adoemploy2: TADODataSet;
    Adoemploy2source: TStringField;
    Dsemploy2: TDataSource;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    ToolButton7: TToolButton;
    ToolButton4: TToolButton;
    DBNavigator1: TDBNavigator;
    Dsgrade: TDataSource;
    ADOgrade: TADODataSet;
    ADOgradeGno: TStringField;
    ADOgradeBmoney1: TBCDField;
    ADOgradeBmoney2: TBCDField;
    ADOgradeTmoney1: TBCDField;
    ADOgradeTmoney2: TBCDField;
    ADOgradeoperator: TStringField;
    ADOgradecdate: TDateTimeField;
    ADOspec: TADODataSet;
    Dsspec: TDataSource;
    ADOspecspecno: TStringField;
    ADOspecspecname: TStringField;
    Adoemploy2id: TStringField;
    ADOgradeJno: TStringField;
    ADOgradeQmoney: TBCDField;
    ADOgradeTmoney3: TBCDField;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    ADODataSet1prof1: TStringField;
    ADODataSet1prof2: TStringField;
    ADODataSet1operator: TStringField;
    ADODataSet1cdate: TStringField;
    ADODataSet1prof: TStringField;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    TabSheet3: TTabSheet;
    DBGrid3: TDBGrid;
    TabSheet4: TTabSheet;
    DBGrid4: TDBGrid;
    TabSheet5: TTabSheet;
    DBGrid5: TDBGrid;
    TabSheet6: TTabSheet;
    DBGrid6: TDBGrid;
    TabSheet7: TTabSheet;
    DBGrid7: TDBGrid;
    TabSheet8: TTabSheet;
    DBGrid8: TDBGrid;
    TabSheet10: TTabSheet;
    DBGrid10: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure ToolButton4Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure tbnfindClick(Sender: TObject);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure ADOgradeBeforePost(DataSet: TDataSet);
    procedure ADOgradeBeforeEdit(DataSet: TDataSet);
    procedure ADOgradeBeforeDelete(DataSet: TDataSet);
    procedure DBGrid10KeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid10KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid2KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid3KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid4KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid5KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid6KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid7KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid8KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid9KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure ADODataSet1BeforePost(DataSet: TDataSet);
  private
    { Private declarations }
    findex:array[1..5] of integer;
    fsort:array[1..5] of string;
    fcount:0..5;
    f:string;
  public
    { Public declarations }
  end;

var
  formallkind,formallkind1,formallkind2,formallkind3,formallkind4,formallkind5,formallkind6,formallkind7,formallkind8,formallkind9,formallkind10:tformallkind;

implementation

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

procedure Tformallkind.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  case pagecontrol1.ActivePageIndex of
  0:setdbgridwidth(dbgrid1,'p'+'allkind');
 // 1:setdbgridwidth(dbgrid2,'p'+'allkind');
  2:setdbgridwidth(dbgrid3,'p'+'allkind');
  3:setdbgridwidth(dbgrid4,'p'+'allkind');
  4:setdbgridwidth(dbgrid5,'p'+'allkind');
  5:setdbgridwidth(dbgrid6,'p'+'allkind');
  6:setdbgridwidth(dbgrid7,'p'+'allkind');
  7:setdbgridwidth(dbgrid8,'p'+'allkind');
  9:setdbgridwidth(dbgrid10,'p'+'allkind');
  end;
  datamod.adoprof.Close;
  adograde.Close;
  adoprov.Close;
  adodegree.Close;
  adocourse.Close ;
  adovisa.Close;
  adopeople.Close;
  adoforeign.Close;
  adospec.close;
  if assigned(formallkind1) then
     formallkind1:=nil
  else if assigned(formallkind2) then
     formallkind2:=nil
  else if assigned(formallkind3) then
     formallkind3:=nil
  else if assigned(formallkind4) then
     formallkind4:=nil
  else if assigned(formallkind5) then
     formallkind5:=nil
  else if assigned(formallkind6) then
     formallkind6:=nil
  else if assigned(formallkind7) then
     formallkind7:=nil
  else if assigned(formallkind8) then
     formallkind8:=nil
  else if assigned(formallkind9) then
     formallkind9:=nil
  else if assigned(formallkind10) then
     formallkind10:=nil;
  action:=cafree;
  formallkind:=nil;
end;

procedure Tformallkind.FormActivate(Sender: TObject);
begin

   getdbgridwidth(dbgrid1,'p'+'allkind');
 //  getdbgridwidth(dbgrid2,'p'+'allkind');
   getdbgridwidth(dbgrid3,'p'+'allkind');
   getdbgridwidth(dbgrid4,'p'+'allkind');
   getdbgridwidth(dbgrid5,'p'+'allkind');
   getdbgridwidth(dbgrid6,'p'+'allkind');
   getdbgridwidth(dbgrid7,'p'+'allkind');
   getdbgridwidth(dbgrid8,'p'+'allkind');
   getdbgridwidth(dbgrid10,'p'+'allkind');
   datamod.adoprof.Open;      //职称
   adograde.open;     //级别
   adoprov.Open;      //籍贯
   adodegree.open;    //学历
   adocourse.Open ;   //科系
   adovisa.open;      //证件类别
   adopeople.Open;    //民族
   adoforeign.Open;   //外语语种
   adoemploy2.Open;   //招聘来源
   adospec.open;           //员工专长
end;

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

procedure Tformallkind.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  dbgrid_keypress(sender,key);
end;

{procedure Tformallkind.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,1)) 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
         //formmain.personal_province.click;
          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:='民族';