tiaoxing.pas

pasa人力资源考勤管理系统

procedure TFormtiaoxing.Button1Click(Sender: TObject);
 var
  i,ygbhcd,id,count:integer;
  hanGh:string;
 fmat1:string;
begin
  if fmat='/' then
    fmat1:='    /  /  ';
  if fmat='-' then
    fmat1:='    -  -  ';

  begin
//  adoquery1.close;
//  adoquery1.sql.clear;
//  adoquery1.sql.text:='delete per27012 where id='''+datamod.adormoneyid.asstring+''' ';
//  adoquery1.execsql;
 datamod.adopublic.Close;
 datamod.adopublic.open;
 ygbhcd:=datamod.adopublicworknolength.AsInteger;
 if Listbox2.Items.Count<=0 then Exit;
  for i:=0 to Listbox2.Items.Count-1 do
  begin
      hanGh:=Copy(Listbox2.Items[i],1,ygbhcd );
    try
      datamod.query1.close;
      datamod.query1.sql.clear;
      //调薪後的值
      datamod.query1.sql.add('insert into per27012([id],workno,cbasepay,cprofpay,pdeptpay,cdeptpay,cpclass,pbasepay,prof2 ) '+
                             'values('''+edit2.text+''','''+hangh+''', '''+edit4.text+''','''+edit5.text+''','''+edit9.text+''','''+edit10.Text+''','''+edit11.Text+''','''+edit13.text+''','''+edit6.text+''' ) ') ;
      datamod.Query1.sql.add('update per27012 set pdate='''+maskedit2.text+''',checkman='''+edit8.text+''',checkdate='''+edit12.text+''',pwho='''+edit3.text+''' ');

      //更新人事基本资料
      datamod.query1.sql.add('update per27012 set cardno=a.cardno,name=a.name,deptno=a.deptno,prof=a.prof,dept=a.dept from per24010 a  where a.workno=per27012.workno ');

      datamod.Query1.SQL.SaveToFile('c:\my.sql');
      datamod.Query1.ExecSQL;

    except
      application.messagebox(pchar('开立工号为:'+trim(copy(listbox2.items[i],1,10))+'调薪单出错'),'温馨提示！',mb_ok+mb_iconwarning);
    end;
 end;
  end;
  formraisepay.AdoRmoney1.Close;
  formraisepay.AdoRmoney1.CommandText:='select * from per27012';
  formraisepay.AdoRmoney1.Open;
  datamod.adopublic.close;
  Listbox2.Items.Clear;
  if messagedlg('多人调薪完成,继续新增吗？',mtinformation,[mbyes,mbno],0)=mrno then
    close
  else
  begin
    edit2.text:='';
    edit4.text:='0';
    edit5.text:='0';
    edit9.text:='0';
    edit10.text:='0';
    edit11.text:='0';
    edit13.text:='0';
    edit6.text:='0';
    maskedit2.text:=fmat1;
    edit3.text:='';
    edit8.text:='';
    edit12.Text:=fmat1;
    formcreate(sender);
  end;
  end;
procedure TFormtiaoxing.FormCreate(Sender: TObject);
begin


  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select distinct  gno from per11010 where  gno is not null ');
  adoquery1.Open;
  adoquery1.First;
  adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select distinct  prof1 from profmoney   where  prof1 is not null ');
  adoquery1.Open;
  adoquery1.first;

  Edit12.Text:=formatdatetime('yyyy'+dateseparator+'mm'+dateseparator+'dd',now);
  formchangelan;
  edit2.SetFocus;
end;
procedure TFormtiaoxing.formchangelan;
var i,j:integer;
begin
  if language='Chinese_GB' then
  begin
       Caption:=BIG5toGB(Caption);
       Font.Charset:=GB2312_CHARSET;
       for i:=0 to ComponentCount-1 do
       begin
          if components[i].ClassType=TToolBar then
          begin
             TToolBar(components[i]).Font.Charset:=GB2312_CHARSET;
             for j:=0 to TToolBar(components[i]).ButtonCount-1 do
             begin
                TToolBar(components[i]).Buttons[j].Caption:=BIG5toGB(TToolBar(components[i]).Buttons[j].Caption);
                TToolBar(components[i]).Buttons[j].Hint:=BIG5toGB(TToolBar(components[i]).Buttons[j].Hint);
             end;
          end;
          if components[i].ClassType=TTabSheet then
          begin
             TTabSheet(components[i]).Font.Charset:=GB2312_CHARSET;
             TTabSheet(components[i]).Caption:=BIG5toGB(TTabSheet(components[i]).Caption);
             TTabSheet(components[i]).Hint:=BIG5toGB(TTabSheet(components[i]).Hint);
          end;
          if components[i].ClassType=TButton then
          begin
             TButton(components[i]).Font.Charset:=GB2312_CHARSET;
             TButton(Components[i]).Caption:=BIG5toGB(TButton(Components[i]).Caption);
             TButton(Components[i]).Hint:=BIG5toGB(TButton(Components[i]).Hint);
          end;
          if components[i].ClassType=TSpeedButton then
          begin
             TSpeedButton(components[i]).Font.Charset:=GB2312_CHARSET;
             TSpeedButton(components[i]).Caption:=BIG5toGB(TSpeedButton(Components[i]).Caption);
             TSpeedButton(components[i]).Hint:=BIG5toGB(TSpeedButton(components[i]).Hint);
          end;
          if components[i].ClassType=TBitBtn then
          begin
             TBitBtn(components[i]).Font.Charset:=GB2312_CHARSET;
             TBitBtn(components[i]).Caption:=BIG5toGB(TBitBtn(Components[i]).Caption);
             TBitBtn(components[i]).Hint:=BIG5toGB(TBitBtn(Components[i]).Hint);
          end;
          if components[i].ClassType=TRadioButton then
          begin
             TRadioButton(components[i]).Font.Charset:=GB2312_CHARSET;
             TRadioButton(components[i]).Caption:=BIG5toGB(TRadioButton(Components[i]).Caption);
             TRadioButton(components[i]).Hint:=BIG5toGB(TRadioButton(Components[i]).Hint);
          end;
          if components[i].ClassType=TLabel then
          begin
             TLabel(components[i]).Font.Charset:=GB2312_CHARSET;
             TLabel(components[i]).Caption:=BIG5toGB(TLabel(Components[i]).Caption);
             TLabel(components[i]).Hint:=BIG5toGB(TLabel(Components[i]).Hint);
          end;
          if components[i].ClassType=TStaticText then
          begin
             TStaticText(components[i]).Font.Charset:=GB2312_CHARSET;
             TStaticText(Components[i]).Caption:=BIG5toGB(TStaticText(components[i]).Caption);
             TStaticText(Components[i]).Hint:=BIG5toGB(TStaticText(components[i]).Hint);
          end;
          if components[i].ClassType=TGroupBox then
          begin
             TGroupBox(components[i]).Font.Charset:=GB2312_CHARSET;
             TGroupBox(components[i]).Caption:=BIG5toGB(TGroupBox(Components[i]).Caption);
             TGroupBox(components[i]).Hint:=BIG5toGB(TGroupBox(Components[i]).Hint);
          end;
          if components[i].ClassType=TRadioGroup then
          begin
             TRadioGroup(components[i]).Font.Charset:=GB2312_CHARSET;
             TRadioGroup(components[i]).Caption:=BIG5toGB(TRadioGroup(components[i]).Caption);
             TRadioGroup(components[i]).Hint:=BIG5toGB(TRadioGroup(components[i]).Hint);
             for j:=0 to TRadioGroup(components[i]).Items.Count-1 do
                TRadioGroup(components[i]).Items.Strings[j]:=BIG5toGB(TRadioGroup(components[i]).Items.Strings[j]);
          end;
          if components[i].ClassType=TRxDBLookupcombo then
          begin
             TRxDBLookupcombo(components[i]).Font.Charset:=GB2312_CHARSET;
             TRxDBLookupcombo(components[i]).DisplayEmpty:=BIG5toGB(TRxDBLookupcombo(components[i]).DisplayEmpty);
             TRxDBLookupcombo(components[i]).Hint:=BIG5toGB(TRxDBLookupcombo(components[i]).Hint);
          end;
          if components[i].ClassType=TCheckBox then
          begin
             TCheckBox(components[i]).Font.Charset:=GB2312_CHARSET;
             TCheckBox(components[i]).Caption:=BIG5toGB(TCheckBox(Components[i]).Caption);
             TCheckBox(components[i]).Hint:=BIG5toGB(TCheckBox(Components[i]).Hint);
          end;
          if components[i].ClassType=TCombobox then
          begin
             TCombobox(components[i]).Font.Charset:=GB2312_CHARSET;
             TCombobox(components[i]).Hint:=BIG5toGB(TCombobox(components[i]).Hint);
             for j:=0 to TCombobox(components[i]).Items.Count-1 do
                 TCombobox(components[i]).Items.Strings[j]:=BIG5toGB(TCombobox(components[i]).Items.Strings[j]);
          end;
          if components[i].ClassType=TPanel then
          begin
             TPanel(components[i]).Font.Charset:=GB2312_CHARSET;
             TPanel(components[i]).Caption:=BIG5toGB(TPanel(components[i]).Caption);
             TPanel(components[i]).Hint:=BIG5toGB(TPanel(components[i]).Hint);
          end;
       end; //for
  end;  //if
end;

procedure TFormtiaoxing.datetimepicker12Change(Sender: TObject);
begin
      edit12.text:=formatdatetime('yyyy'+dateseparator+'mm'+dateseparator+'dd',datetimepicker12.date)
end;

procedure TFormtiaoxing.FormActivate(Sender: TObject);
begin
    Qry1.close;
    Qry1.sql.text:='Select * from pub05010 ';
    Qry1.open;
    combobox1.items.clear;
    While not Qry1.eof do
    begin
       Combobox1.Items.add(Qry1.fieldbyname('dno').asstring+copychar(' ',Qry1.fieldbyname('dno').size-length(Qry1.fieldbyname('dno').asstring))+'   '+Qry1.fieldbyname('dept').asstring);
       Qry1.next;
    end;
end;

procedure TFormtiaoxing.ComboBox3Exit(Sender: TObject);
begin
//  else
//    application.MessageBox('对不起指定的等级没有底薪!!!','系统提示',32);
end;
procedure TFormtiaoxing.FormKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
    begin
      key:=#0;
      selectnext(activecontrol,true,true);
    end;
end;

procedure TFormtiaoxing.Edit12KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    selectnext(activecontrol,true,true);
  end;
end;
procedure TFormtiaoxing.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    selectnext(activecontrol,true,true);
  end;
end;
procedure TFormtiaoxing.ComboBox3KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    selectnext(activecontrol,true,true);
  end;
end;

procedure TFormtiaoxing.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    selectnext(activecontrol,true,true);
  end;
end;

procedure TFormtiaoxing.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    selectnext(activecontrol,true,true);
  end;
end;

procedure TFormtiaoxing.Edit6KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    selectnext(activecontrol,true,true);
  end;
end;

procedure TFormtiaoxing.Edit7KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    selectnext(activecontrol,true,true);
  end;
end;

procedure TFormtiaoxing.Edit8KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    selectnext(activecontrol,true,true);
  end;
end;

end.