?? bm_zhiyuanu.pas

?? DELPHI 編寫的人事管理系統(tǒng),根據(jù)職工查詢各種信息
?? PAS
?? 第 1 頁 / 共 4 頁
字號:
上一頁 1 2 34
  diqu.Text :=FieldByName('地區(qū)補貼').AsString ;
  gongling.Text :=FieldByName('工齡補貼').AsString ;
  shijian.Text :=FieldByName('變更日期').AsString ;
  qita.Text :=FieldByName('其他').AsString ;
  count;
  end;

end;

procedure TBM_ZHIYUANF.Label55Click(Sender: TObject);
begin
//Label55.Caption :=inttostr(DBGrid2.Fields[0].asinteger);
end;

procedure TBM_ZHIYUANF.readgongzi;
var sname:string;
begin
 with aq1 do
 begin

  close;
  SQL.Clear ;
  sname:='select id,id2,變更日期,基本工資,崗位工資,加班工資,住房補貼,效益工資,地區(qū)補貼,工齡補貼 from 工資 where id2=';
  sname:=sname+DM.zhiyuan2.FieldByName('id').Text+' order by 變更日期 desc' ;
  sql.Add(sname);
  open;

  if RecordCount =0 then
  begin
  speedbutton16.Enabled :=false; //編輯
  speedbutton8.Enabled :=false;   //del
  speedbutton18.Enabled :=true;    //add
  speedbutton21.Enabled :=false;    //save
  speedbutton22.Enabled :=false;     //hui

  end
  else
  begin
  speedbutton16.Enabled :=true;
  speedbutton8.Enabled :=true;
  speedbutton18.Enabled :=true;
  speedbutton21.Enabled :=false;
  speedbutton22.Enabled :=false;
  end;



  jichu.Text :=FieldByName('基本工資').AsString ;
  gangwei.Text :=FieldByName('崗位工資').AsString ;
  jiaban.Text :=FieldByName('加班工資').AsString ;
  zhufang.Text :=FieldByName('住房補貼').AsString ;
  xiaoyi.Text :=FieldByName('效益工資').AsString ;
  diqu.Text :=FieldByName('地區(qū)補貼').AsString ;
  gongling.Text :=FieldByName('工齡補貼').AsString ;
  //s2:=inttostr(DBGrid2.Fields[0].asinteger);
  s2:=FieldByName('id').AsString ;
 // count;
  end;
end;

procedure TBM_ZHIYUANF.qitaKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [chr(8),chr(13),'0','1','2','3','4','5','6','7','8','9']) then key:=#0;
IF KEY=#13 THEN
begin

if qita.Text ='' then qita.Text :='0';
 shijian.SetFocus ;
 count;
end;
end;

procedure TBM_ZHIYUANF.BitBtn1Click(Sender: TObject);
var i: integer;
begin

 end;
procedure TBM_ZHIYUANF.SpeedButton12Click(Sender: TObject);
 //var
 //  i:integer;
 // str:array [0..27] of string;
begin
{for i:=0 to ck1.Items.Count-1  do
begin
   if ck1.Checked[i]=true then
      str[i]:='T'
     else str[i]:='F';
 end;
ck1.Checked[0]:=true;


with dm.qryRun do
  begin
    Close;
    SQL.Text := ' update 打印設置 set '
        + '姓名="'     +str[0] +'",'
        + '性別="'     +str[1] +'",'
        + '出生年月="' +str[2] +'",'
        + '籍貫="'     +str[3] +'",'
        + '學歷="'     +str[4] +'",'
        + '職稱="'     +str[5] +'",'
        + '職務="'     +str[6] +'",'
        + '身份="'     +str[7] +'",'
        + '辦公電話="'     +str[9] +'",'
        + '住宅電話="'     +str[10] +'",'
        + '手機號碼="'     +str[11] +'",'
        + 'email="'        +str[12] +'",'
        + '基本工資="'     +str[13] +'",'
        + '地區(qū)補貼="'     +str[14] +'",'
        + '崗位工資="'     +str[15] +'",'
        + '工齡補貼="'     +str[16] +'",'
        + '工資其他="'     +str[17] +'",'
        + '加班工資="'     +str[18] +'",'
        + '效益工資="'     +str[19] +'",'
        + '住房補貼="'     +str[20] +'",'
        + '工資合計="'     +str[21] +'",'
        + '工資變更時間="' +str[22] +'",'
        + '調(diào)動時間="'     +str[23] +'",'
        + '調(diào)動公司="'     +str[24] +'",'
        + '調(diào)動部門="'     +str[25] +'",'
        + '調(diào)動職稱="'     +str[26] +'",'
        + '調(diào)動原因="'     +str[27] +'"';
    Prepared := True;
    ExecSQL;
end;


ck2.Items.Clear ;
 for i:=0 to ck1.Items.Count-1  do
    begin
       if  ck1.Checked[i]  then
           begin
              ck2.Items.Add(ck1.Items.Strings[i]);
              //CheckListBox3.Checked[i]:=true;
           end;
    end;

}

printf:=Tprintf.Create(application);
printf.QuickRep1.Preview ;
end;
procedure TBM_ZHIYUANF.TabbedNotebook1Change(Sender: TObject;
  NewTab: Integer; var AllowChange: Boolean);
  var i:integer;
begin

case TabbedNotebook1.PageIndex of
0: begin
    if SpeedButton22.Enabled then SpeedButton22Click(Sender);
    if SpeedButton24.Enabled then SpeedButton24Click(Sender);
   end;
1: begin
      if hui1.Enabled then hui1Click(Sender);
      if SpeedButton24.Enabled then SpeedButton24Click(Sender);
   end;
2: begin
      if hui1.Enabled then hui1Click(Sender);
      if SpeedButton22.Enabled then SpeedButton22Click(Sender);
   end;

 end;

end;

procedure TBM_ZHIYUANF.SpeedButton9Click(Sender: TObject);
//var i,j:integer;
//Excelid,xl: Variant;
begin
{    try
    Excelid:=CreateOleObject( 'Excel.Application' );
  except
    on Exception do raise exception.Create('無法創(chuàng)建Xls文件，請確認是否安裝EXCEL')
  end;

  Excelid.Visible := True;
  Excelid.WorkBooks.Add;
  Excelid.Caption :='北明人事管理信息檔案';
  Excelid.worksheets[1].range['A1:J1'].Merge(True);
  Excelid.WorkSheets[1].Cells[1,1].Value :='北明人事管理信息檔案';
  Excelid.worksheets[1].range['A2:J2'].Merge(True);
  Excelid.WorkSheets[1].Cells[2,1].Value :='';

  Excelid.worksheets[1].range['A1:J1'].HorizontalAlignment := $FFFFEFF4;
  Excelid.worksheets[1].range['A1:J1'].VerticalAlignment := $FFFFEFF4;
  Excelid.worksheets[1].Columns[1].ColumnWidth := 5;
  Excelid.worksheets[1].Columns[2].ColumnWidth := 8;
  Excelid.worksheets[1].Columns[3].ColumnWidth := 8;
  Excelid.worksheets[1].Columns[4].ColumnWidth := 6;
  Excelid.worksheets[1].Columns[5].ColumnWidth := 6;
  Excelid.worksheets[1].Columns[6].ColumnWidth := 9;
  Excelid.worksheets[1].Columns[7].ColumnWidth := 8;
  Excelid.worksheets[1].Columns[8].ColumnWidth := 8;
  Excelid.worksheets[1].Columns[9].ColumnWidth := 8;
  Excelid.worksheets[1].Columns[10].ColumnWidth := 8;
 // Excelid.worksheets[1].Columns[11].ColumnWidth := 8;
 
  ////////////////////////
  Excelid.WorkSheets[1].Cells[3,1].Value :='編號';
  Excelid.WorkSheets[1].Cells[3,2].Value :='公司名稱';
  Excelid.WorkSheets[1].Cells[3,3].Value :='姓名';
   j:=4;
  for i:=1 to ck1.Items.Count  do
  begin
   if ck1.Checked[i]=true then Excelid.WorkSheets[1].Cells[3,j].Value :=ck1.Items.Strings[i];
   inc(j);
   if j>10 then exit;
  end;




  Excelid.worksheets[1].Range['A1:I7'].Font.Name := '宋體';
  Excelid.worksheets[1].Range['A1:I1'].Font.Size := 14;
  Excelid.worksheets[1].range['A1:I2'].font.bold:=true;
  Excelid.worksheets[1].Range['A2:I2'].Font.Size := 10;


  ///////////////////////////

{ i:=4;

 dm.qzhiyuan.First;
 while not dm.qzhiyuan.Eof do
   begin
      Excelid.WorkSheets[1].Cells[i,1].Value := i-3;
      Excelid.WorkSheets[1].Cells[i,2].Value :=dm.qzhiyuan.Fields[0].AsString;
       Excelid.WorkSheets[1].Cells[i,3].Value :=dm.qzhiyuan.Fields[2].AsString;
        for j:=1 to ck1.Items.Count do
           begin
             if ck1.Checked[j]=true then
               begin
               Excelid.WorkSheets[1].Cells[i,j+3].Value :=dm.qzhiyuan.Fields[j+2].AsString ;
               end;
              //if ck2.Items.Strings[i-3]='籍貫'then Excelid.WorkSheets[1].Cells[i,i].Value :=dm.qzhiyuan.FieldByName('jiguan').AsString ;
            end;
       Inc(i);
       dm.qzhiyuan.Next;

 end;
}


printf:=Tprintf.Create(application);
printf.QuickRep1.Preview ;

end;

procedure TBM_ZHIYUANF.FormCreate(Sender: TObject);
//var i:integer;
begin
{with dm.adoquery1 do
          begin
          close;
          sql.Clear ;
          sql.add('select * from 打印設置 ');
          open;

          for i:=0 to FieldCount-1  do
          begin
                    if Fields[i].AsString='T' then
                      begin
                      ck1.Checked[i]:=true;
                      end
                      else  ck1.Checked[i]:=false;
          end;
        ck1.Checked[0]:=true;


   ck2.Items.Clear ;
   for i:=0 to ck1.Items.Count-1  do
    begin
       if  ck1.Checked[i]  then
           begin
              ck2.Items.Add(ck1.Items.Strings[i]);
              //CheckListBox3.Checked[i]:=true;
           end;
    end;



  end;  }
end;

procedure TBM_ZHIYUANF.SpeedButton20Click(Sender: TObject);
begin
AORE:=true;
  
    ds.Enabled :=true;
    dg.Enabled :=true;
    dd.Enabled :=true;
    db.Enabled :=true;
    dz.Enabled :=true;
    dme.Enabled :=true;

    ////
    ds.Text :=datetostr(date);
    dg.Text :='';
    dd.Text :='';
    db.Text :='';
    dz.Text :='';
    dme.Text :='';
    ds.SetFocus ;
    ///
    SpeedButton20.Enabled :=false;
    SpeedButton19.Enabled :=false;
    SpeedButton23.Enabled :=true;
    SpeedButton24.Enabled :=true;
    SpeedButton17.Enabled :=false;
end;

procedure TBM_ZHIYUANF.SpeedButton19Click(Sender: TObject);
begin
AORE:=false;

    ds.Enabled :=true;
    dg.Enabled :=true;
    dd.Enabled :=true;
    db.Enabled :=true;
    dz.Enabled :=true;
    dme.Enabled :=true;

    ////
    ds.Text :=datetostr(date);
    dg.Text :='';
    dd.Text :='';
    db.Text :='';
    dz.Text :='';
    dme.Text :='';
    ds.SetFocus ;
    ///
    SpeedButton20.Enabled :=false;
    SpeedButton19.Enabled :=false;
    SpeedButton23.Enabled :=true;
    SpeedButton24.Enabled :=true;
    SpeedButton17.Enabled :=false;
end;

procedure TBM_ZHIYUANF.SpeedButton24Click(Sender: TObject);
begin


    ds.Enabled :=false;
    dg.Enabled :=false;
    dd.Enabled :=false;
    db.Enabled :=false;
    dz.Enabled :=false;
    dme.Enabled :=false;

    ////

    SpeedButton20.Enabled :=true;
    SpeedButton19.Enabled :=true;
    SpeedButton23.Enabled :=false;
    SpeedButton24.Enabled :=false;
    SpeedButton17.Enabled :=true;
end;

procedure TBM_ZHIYUANF.SpeedButton23Click(Sender: TObject);
var SqlTmp:string;
begin
s2:=aq2.FieldByName('id').AsString ;
if dg.Text ='' then
begin
showmessage('請輸入調(diào)動的公司名稱！');
dg.SetFocus ;
exit;
end;
if AORE=false then
begin

      with dm.qryRun do
        begin
          Close;
          SQL.Text := ' update 調(diào)動 set 調(diào)動時間 = "' + ds.Text + '",'
              + '調(diào)動公司="' +dg.Text +'",'
              + '調(diào)動單位="' +dd.Text +'",'
              + '調(diào)動職務="' +dz.Text +'",'
              + '調(diào)動原因="' +dme.Text +'",'
              + '調(diào)動部門="' +db.Text +'"'
              + ' where id='+s2 +' and id2='+inttostr(fid) ;
         Prepared := True;
         ExecSQL;
        end;

  end
  else
  begin
  WITH DM.qryRun do
   begin
     SqlTmp:='INSERT INTO 調(diào)動(id2,調(diào)動時間,調(diào)動公司,調(diào)動單位,調(diào)動部門,調(diào)動職務,調(diào)動原因)';
     SqlTmp:=SqlTmp+' VALUES (' + inttostr(fid)+',"';
     SqlTmp:=SqlTmp+ds.Text+'","';
     SqlTmp:=SqlTmp+dg.Text+'","';
     SqlTmp:=SqlTmp+dd.Text+'","';
     SqlTmp:=SqlTmp+db.Text+'","';
     SqlTmp:=SqlTmp+dz.Text+'","';
     SqlTmp:=SqlTmp+dme.Text+'")';

     close;
    sql.Clear ;
    sql.Add(SqlTmp);
    ExecSQL ;
     end;
     end;
  ////////////
   with aq2 do
         begin

        close;
        SQL.Clear ;
        SqlTmp:='select * from 調(diào)動 where id2=';
        SqlTmp:=SqlTmp+inttostr(fid)+' order by 調(diào)動時間 desc';
        sql.Add(SqlTmp);
        open;
 end;
   readdiaodong;


    ds.Enabled :=false;
    dg.Enabled :=false;
    dd.Enabled :=false;
    db.Enabled :=false;
    dz.Enabled :=false;
    dme.Enabled :=false;

   SpeedButton20.Enabled :=true;
    SpeedButton19.Enabled :=true;
    SpeedButton23.Enabled :=false;
    SpeedButton24.Enabled :=false;
    SpeedButton17.Enabled :=true;







end;

procedure TBM_ZHIYUANF.readdiaodong;
 var SqlTmp:string;
begin
     with aq2 do
         begin

        close;
        SQL.Clear ;
        SqlTmp:='select * from 調(diào)動 where id2=';
        SqlTmp:=SqlTmp+inttostr(fid)+' order by 調(diào)動時間 desc';
        sql.Add(SqlTmp);
        open;
  if RecordCount =0 then
  begin
  speedbutton19.Enabled :=false; //編輯
  speedbutton17.Enabled :=false;   //del
  speedbutton20.Enabled :=true;    //add
  speedbutton23.Enabled :=false;    //save
  speedbutton24.Enabled :=false;     //hui

  end
  else
  begin
  speedbutton19.Enabled :=true;
  speedbutton17.Enabled :=true;
  speedbutton20.Enabled :=true;
  speedbutton23.Enabled :=false;
  speedbutton24.Enabled :=false;
  end;
 ds.Text :=fieldbyname('調(diào)動時間').AsString ;
 dg.Text :=fieldbyname('調(diào)動公司').AsString ;
 dd.Text :=fieldbyname('調(diào)動單位').AsString ;
 db.Text :=fieldbyname('調(diào)動部門').AsString ;
 dz.Text :=fieldbyname('調(diào)動職務').AsString ;
 dme.Text :=fieldbyname('調(diào)動原因').AsString ;


  end;

end;

procedure TBM_ZHIYUANF.DBGrid3DblClick(Sender: TObject);
var sname:string;
begin
s2:=aq2.FieldByName('id').AsString ;
with cha2 do
 begin
 close;
  SQL.Clear ;
  sname:='select * from 調(diào)動 ';
  sname:=sname +'where id='+s2 ;
  sname:=sname +' order by 調(diào)動時間 desc' ;
  sql.Add(sname);
  open;
  ds.Text :=fieldbyname('調(diào)動時間').AsString ;
 dg.Text :=fieldbyname('調(diào)動公司').AsString ;
 dd.Text :=fieldbyname('調(diào)動單位').AsString ;
 db.Text :=fieldbyname('調(diào)動部門').AsString ;
 dz.Text :=fieldbyname('調(diào)動職務').AsString ;
 dme.Text :=fieldbyname('調(diào)動原因').AsString ;

  end;
end;

procedure TBM_ZHIYUANF.xmKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN
begin
 SpeedButton10click(sender);
end;
end;

procedure TBM_ZHIYUANF.SpeedButton13Click(Sender: TObject);
var str:string;
i:integer;
begin

//dm.qzhiyuan.First ;
//for i:=0 to (dm.qzhiyuan.RecordCount -1) do
// begin
    {   with liebiao do
          begin
           close;
           sql.Clear ;
           str:='select 基本工資,住房補貼 from 工資 where id2=';
           str:=str+dm.qzhiyuan.fieldbyname('bian').AsString;
           sql.Add(str);
           open;
          end;

 //end;
       }
       liebiao.Open ;
 printg:=Tprintg.Create(application);
printg.QuickRep1.Preview ;

end;

procedure TBM_ZHIYUANF.SpeedButton14Click(Sender: TObject);
begin
  diao.Open ;
 printdd:=Tprintdd.Create(application);
printdd.QuickRep1.Preview ;
end;

procedure TBM_ZHIYUANF.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
   canclose:=true;
end;

procedure TBM_ZHIYUANF.dgKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN
begin
//dg.Text :=datetostr(date);
dd.SetFocus ;
end;
end;

procedure TBM_ZHIYUANF.ddKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN
begin
//dg.Text :=datetostr(date);
db.SetFocus ;
end;
end;

procedure TBM_ZHIYUANF.dbKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN
begin
//dg.Text :=datetostr(date);
dz.SetFocus ;
end;
end;

procedure TBM_ZHIYUANF.dzKeyPress(Sender: TObject; var Key: Char);
begin
IF KEY=#13 THEN
begin
//dg.Text :=datetostr(date);
dme.SetFocus ;
end;
end;

end.
上一頁 1 2 34
?? 文件大小 6486 K
?? 上傳用戶 ybsscauc
?? 所屬分類企業(yè)管理
??? 相關(guān)標簽

#DELPHI #編寫 #管理系統(tǒng) #查詢
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? bm_zhiyuanu.pas

?? 快捷鍵說明
