bm_zhiyuanu.pas

Delphi办公管理系统

  diqu.Text :=FieldByName('地区补贴').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,变更日期,基本工资,岗位工资,加班工资,住房补贴,效益工资,地区补贴,工龄补贴 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('地区补贴').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] +'",'
        + '地区补贴="'     +str[14] +'",'
        + '岗位工资="'     +str[15] +'",'
        + '工龄补贴="'     +str[16] +'",'
        + '工资其他="'     +str[17] +'",'
        + '加班工资="'     +str[18] +'",'
        + '效益工资="'     +str[19] +'",'
        + '住房补贴="'     +str[20] +'",'
        + '工资合计="'     +str[21] +'",'
        + '工资变更时间="' +str[22] +'",'
        + '调动时间="'     +str[23] +'",'
        + '调动公司="'     +str[24] +'",'
        + '调动部门="'     +str[25] +'",'
        + '调动职称="'     +str[26] +'",'
        + '调动原因="'     +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('无法创建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('请输入调动的公司名称！');
dg.SetFocus ;
exit;
end;
if AORE=false then
begin

      with dm.qryRun do
        begin
          Close;
          SQL.Text := ' update 调动 set 调动时间 = "' + ds.Text + '",'
              + '调动公司="' +dg.Text +'",'
              + '调动单位="' +dd.Text +'",'
              + '调动职务="' +dz.Text +'",'
              + '调动原因="' +dme.Text +'",'
              + '调动部门="' +db.Text +'"'
              + ' where id='+s2 +' and id2='+inttostr(fid) ;
         Prepared := True;
         ExecSQL;
        end;

  end
  else
  begin
  WITH DM.qryRun do
   begin
     SqlTmp:='INSERT INTO 调动(id2,调动时间,调动公司,调动单位,调动部门,调动职务,调动原因)';
     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 调动 where id2=';
        SqlTmp:=SqlTmp+inttostr(fid)+' order by 调动时间 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 调动 where id2=';
        SqlTmp:=SqlTmp+inttostr(fid)+' order by 调动时间 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('调动时间').AsString ;
 dg.Text :=fieldbyname('调动公司').AsString ;
 dd.Text :=fieldbyname('调动单位').AsString ;
 db.Text :=fieldbyname('调动部门').AsString ;
 dz.Text :=fieldbyname('调动职务').AsString ;
 dme.Text :=fieldbyname('调动原因').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 调动 ';
  sname:=sname +'where id='+s2 ;
  sname:=sname +' order by 调动时间 desc' ;
  sql.Add(sname);
  open;
  ds.Text :=fieldbyname('调动时间').AsString ;
 dg.Text :=fieldbyname('调动公司').AsString ;
 dd.Text :=fieldbyname('调动单位').AsString ;
 db.Text :=fieldbyname('调动部门').AsString ;
 dz.Text :=fieldbyname('调动职务').AsString ;
 dme.Text :=fieldbyname('调动原因').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.