formzonghe.pas

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

          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;
     end;

    end;
end;

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

procedure Tformallkind.DBGrid1TitleClick(Column: TColumn);
begin
   if f='DESC' then
     f:='ASC'
   else
     f:='DESC';
   case pagecontrol1.ActivePageIndex of
   0:datamod.ADOprof.Sort :=column.FieldName+' '+f;
   1:ADOgrade.Sort :=column.FieldName+' '+f;
   2:ADOprov.Sort :=column.FieldName+' '+f;
   3:ADOdegree.Sort :=column.FieldName+' '+f;
   4:ADOcourse.Sort :=column.FieldName+' '+f;
   5:ADOvisa.Sort :=column.FieldName+' '+f;
   6:ADOpeople.Sort :=column.FieldName+' '+f;
   7:ADOforeign.Sort :=column.FieldName+' '+f;
   8:adoemploy2.Sort :=column.Fieldname+' '+f;
   9:adospec.Sort :=column.Fieldname+' '+f;
   end;
   adodataset1.sort:=column.FieldName+' '+f;
end;
procedure Tformallkind.ToolButton4Click(Sender: TObject);
begin
  close;
end;

procedure Tformallkind.PageControl1Change(Sender: TObject);
begin
  (sender as Tpagecontrol).activepage.Highlighted :=true;
  case pagecontrol1.ActivePageIndex of
  0:begin
     formallkind.Caption :='职称';
     dbnavigator1.DataSource :=datamod.dsprof;
     tbnsort.Enabled :=false;
    end;
  1:begin
     formallkind.Caption :='级别';
     dbnavigator1.DataSource :=dsgrade;
     tbnsort.Enabled :=true;
    end;
  2:begin
     formallkind.Caption :='籍贯';
     dbnavigator1.DataSource :=dsprov;
     tbnsort.Enabled :=false;
    end;
  3:begin
     formallkind.Caption :='学历';
     dbnavigator1.DataSource :=dsdegree;
     tbnsort.Enabled :=false;
    end;
  4:begin
     formallkind.Caption :='科系';
     dbnavigator1.DataSource :=dscourse;
     tbnsort.Enabled :=false;
    end;
  5:begin
     formallkind.Caption :='证件';
     dbnavigator1.DataSource :=dsvisa;
     tbnsort.Enabled :=false;
    end;
  6:begin
     formallkind.Caption :='名族';
     dbnavigator1.DataSource :=dspeople;
     tbnsort.Enabled :=false;
    end;
  7:begin
     formallkind.Caption :='外语语种';
     dbnavigator1.DataSource :=dsforeign;
     tbnsort.Enabled :=false;
    end;
  8:begin
     formallkind.Caption :='招聘来源';
     dbnavigator1.DataSource :=dsemploy2;
     tbnsort.Enabled :=false;
    end;
  9:begin
     formallkind.Caption :='员工专长';
     dbnavigator1.DataSource :=dsspec;
     tbnsort.Enabled :=false;
    end;
  10:begin
      formallkind.Caption:='职务等级';
      dbnavigator1.DataSource:=datasource1;
      tbnsort.enabled:=false;
     end;
  end;
end;
procedure Tformallkind.tbnfindClick(Sender: TObject);
begin
   case pagecontrol1.ActivePageIndex of
  0:findrecorder(datamod.adoprof,'Adoprof','per01010');
  1:findrecorder(Adograde,'Adograde','per11010');
  2:findrecorder(Adoprov,'Adoprov','per03010');
  3:findrecorder(Adodegree,'Adodegree','per04010');
  4:findrecorder(Adocourse,'Adocourse','per05010');
  5:findrecorder(Adovisa,'Adovisa','per07010');
  6:findrecorder(Adopeople,'Adopeople','per08010');
  7:findrecorder(Adoforeign,'Adoforeign','per09010');
  8:findrecorder(Adoemploy2,'Adoemploy2','emp02010');
  9:findrecorder(Adospec,'Adospec','per06010');
  end;
end;
procedure Tformallkind.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  (sender as Tpagecontrol).activepage.Highlighted :=false;
end;

procedure Tformallkind.ADOgradeBeforePost(DataSet: TDataSet);
begin
  adogradeoperator.asstring:=pubworkname;
  adogradecdate.asstring:=datetostr(date);
end;

procedure Tformallkind.ADOgradeBeforeEdit(DataSet: TDataSet);
begin
     writerecorder(adograde,false);
end;

procedure Tformallkind.ADOgradeBeforeDelete(DataSet: TDataSet);
begin
   writerecorder(adograde,true);
end;

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

procedure Tformallkind.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0051');
    end;
end;

procedure Tformallkind.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0051');
    end;
end;

procedure Tformallkind.DBGrid10KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0051');
    end;
end;

procedure Tformallkind.DBGrid2KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0051');
    end;
end;

procedure Tformallkind.DBGrid3KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0051');
    end;
end;

procedure Tformallkind.DBGrid4KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0051');
    end;
end;

procedure Tformallkind.DBGrid5KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0051');
    end;
end;

procedure Tformallkind.DBGrid6KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0051');
    end;
end;

procedure Tformallkind.DBGrid7KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0051');
    end;
end;

procedure Tformallkind.DBGrid8KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0051');
    end;
end;

procedure Tformallkind.DBGrid9KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_F1 then
      begin
        //showmessage('ok!')
     //MessageDlg(Key + ' has been pressed', mtInformation, [mbOK], 0);
      Application.HelpFile :=Extractfilepath(application.ExeName)+ 'help\pasahelp.hlp';
      application.HelpJump('SHM_CONTENTS0051');
    end;
end;

procedure Tformallkind.FormCreate(Sender: TObject);
begin
  adodataset1.open;
end;

procedure Tformallkind.ADODataSet1BeforePost(DataSet: TDataSet);
begin
  adodataset1.edit;
  adodataset1.FieldByName('operator').asstring:=pubworkname;
  adodataset1.FieldByName('cdate').asstring:=formatdatetime('yyyy/mm/dd',now);
end;

end.