📄 findfrm.pas

📁 简单的人事工资管理系统.... 我是想下载源码菜拿来换的...呵呵~~ 版主给点面子哦~~
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
     try
        Excelid := CreateOLEObject('Excel.Application');
    except
        Application.MessageBox('Excel没有安装！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
        Exit;
    end;
       try
        DM.qryYuanGongKaoQin.Close;
        DM.qryYuanGongKaoQin.SQL.Clear;
        DM.qryYuanGongKaoQin.SQL.Add('select * from KaoQin');
        DM.qryYuanGongKaoQin.Open;
        k:=DM.qryYuanGongKaoQin.RecordCount;
         Excelid.Visible := True;
         Excelid.WorkBooks.Add;
         Excelid.worksheets[1].range['A1:f1'].Merge(True);
         Excelid.WorkSheets[1].Cells[1,1].Value :='考勤信息输出表' ;
         Excelid.worksheets[1].Range['a1:a1'].HorizontalAlignment := $FFFFEFF4;
         Excelid.worksheets[1].Range['a1:a1'].VerticalAlignment := $FFFFEFF4;
         Excelid.WorkSheets[1].Cells[2,1].Value := '编号';
         Excelid.WorkSheets[1].Cells[2,2].Value := '出勤天数';
         Excelid.WorkSheets[1].Cells[2,3].Value := '迟到天数';
         Excelid.WorkSheets[1].Cells[2,4].Value := '加班时间';
         Excelid.WorkSheets[1].Cells[2,5].Value := '出差天数';
         Excelid.WorkSheets[1].Cells[2,6].Value := '员工编号';
         Excelid.worksheets[1].Range['A1:f1'].Font.Name := '宋体';
         Excelid.worksheets[1].Range['A1:f1'].Font.Size := 14;
         Excelid.worksheets[1].range['A1:f2'].font.bold:=true;
         Excelid.worksheets[1].Range['A2:f2'].Font.Size := 10;
         Excelid.worksheets[1].Range['A2:f2'].HorizontalAlignment := $FFFFEFF4;
         Excelid.worksheets[1].Range['A2:f2'].VerticalAlignment := $FFFFEFF4;
         h:=3;
         DM.qryYuanGongKaoQin.First;
        while not DM.qryYuanGongKaoQin.Eof do
         begin
           Excelid.WorkSheets[1].Cells[h,1].Value := DM.qryYuanGongKaoQin.FieldByName('编号').AsString;
           Excelid.WorkSheets[1].Cells[h,2].Value := DM.qryYuanGongKaoQin.FieldByName('出勤天数').AsString;
           Excelid.WorkSheets[1].Cells[h,3].Value := DM.qryYuanGongKaoQin.FieldByName('迟到天数').AsString;
           Excelid.WorkSheets[1].Cells[h,4].Value := DM.qryYuanGongKaoQin.FieldByName('加班时间').AsString;
           Excelid.WorkSheets[1].Cells[h,5].Value := DM.qryYuanGongKaoQin.FieldByName('出差天数').AsString;
           Excelid.WorkSheets[1].Cells[h,6].Value := DM.qryYuanGongKaoQin.FieldByName('员工编号').AsString;
           Inc(h);
            DM.qryYuanGongKaoQin.Next;
         end;
         s := 'A2:f'+ IntToStr(k+2);
         Excelid.worksheets[1].Range[s].Font.Name := '宋体';
         Excelid.worksheets[1].Range[s].Borders.LineStyle := 1;
         Excelid.Quit;
          except
        Application.MessageBox('导入数据出错！请检查文件的格式是否正确！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
    end;
   MessageBox(GetActiveWindow(), '数据导出成功!', '警告', MB_OK +
        MB_ICONWARNING);
end;

procedure TFind.RzBitBtn8Click(Sender: TObject);
var  h,k:integer;
     Excelid: OleVariant;
     s: string;
begin
     try
        Excelid := CreateOLEObject('Excel.Application');
    except
        Application.MessageBox('Excel没有安装！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
        Exit;
    end;
       try
        DM.qryYuanGongChenJiang.Close;
        DM.qryYuanGongChenJiang.SQL.Clear;
        DM.qryYuanGongChenJiang.SQL.Add('select * from JiangChen');
        DM.qryYuanGongChenJiang.Open;
        k:=DM.qryYuanGongChenJiang.RecordCount;
         Excelid.Visible := True;
         Excelid.WorkBooks.Add;
         Excelid.worksheets[1].range['A1:f1'].Merge(True);
         Excelid.WorkSheets[1].Cells[1,1].Value :='奖惩信息输出表' ;
         Excelid.worksheets[1].Range['a1:a1'].HorizontalAlignment := $FFFFEFF4;
         Excelid.worksheets[1].Range['a1:a1'].VerticalAlignment := $FFFFEFF4;
         Excelid.WorkSheets[1].Cells[2,1].Value := '编号';
         Excelid.WorkSheets[1].Cells[2,2].Value := '员工编号';
         Excelid.WorkSheets[1].Cells[2,3].Value := '履历编号';
         Excelid.WorkSheets[1].Cells[2,4].Value := '职称编号';
         Excelid.WorkSheets[1].Cells[2,5].Value := '考勤编号';
         Excelid.WorkSheets[1].Cells[2,6].Value := '奖惩';
         Excelid.worksheets[1].Range['A1:f1'].Font.Name := '宋体';
         Excelid.worksheets[1].Range['A1:f1'].Font.Size := 14;
         Excelid.worksheets[1].range['A1:f2'].font.bold:=true;
         Excelid.worksheets[1].Range['A2:f2'].Font.Size := 10;
         Excelid.worksheets[1].Range['A2:f2'].HorizontalAlignment := $FFFFEFF4;
         Excelid.worksheets[1].Range['A2:f2'].VerticalAlignment := $FFFFEFF4;
         h:=3;
         DM.qryYuanGongChenJiang.First;
        while not DM.qryYuanGongChenJiang.Eof do
         begin
           Excelid.WorkSheets[1].Cells[h,1].Value := DM.qryYuanGongChenJiang.FieldByName('编号').AsString;
           Excelid.WorkSheets[1].Cells[h,2].Value := DM.qryYuanGongChenJiang.FieldByName('员工编号').AsString;
           Excelid.WorkSheets[1].Cells[h,3].Value := DM.qryYuanGongChenJiang.FieldByName('履历编号').AsString;
           Excelid.WorkSheets[1].Cells[h,4].Value := DM.qryYuanGongChenJiang.FieldByName('职称编号').AsString;
           Excelid.WorkSheets[1].Cells[h,5].Value := DM.qryYuanGongChenJiang.FieldByName('考勤编号').AsString;
           Excelid.WorkSheets[1].Cells[h,6].Value := DM.qryYuanGongChenJiang.FieldByName('奖惩').AsString;
           Inc(h);
            DM.qryYuanGongChenJiang.Next;
         end;
         s := 'A2:f'+ IntToStr(k+2);
         Excelid.worksheets[1].Range[s].Font.Name := '宋体';
         Excelid.worksheets[1].Range[s].Borders.LineStyle := 1;
         Excelid.Quit;
          except
        Application.MessageBox('导入数据出错！请检查文件的格式是否正确！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
    end;
   MessageBox(GetActiveWindow(), '数据导出成功!', '警告', MB_OK +
        MB_ICONWARNING);
end;

procedure TFind.RzBitBtn12Click(Sender: TObject);
var  h,k:integer;
     Excelid: OleVariant;
     s: string;
begin
     try
        Excelid := CreateOLEObject('Excel.Application');
    except
        Application.MessageBox('Excel没有安装！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
        Exit;
    end;
       try
        DM.qryYuanGongLvLi.Close;
        DM.qryYuanGongLvLi.SQL.Clear;
        DM.qryYuanGongLvLi.SQL.Add('select * from LvLi');
        DM.qryYuanGongLvLi.Open;
        k:=DM.qryYuanGongLvLi.RecordCount;
         Excelid.Visible := True;
         Excelid.WorkBooks.Add;
         Excelid.worksheets[1].range['A1:f1'].Merge(True);
         Excelid.WorkSheets[1].Cells[1,1].Value :='履历信息输出表' ;
         Excelid.worksheets[1].Range['a1:a1'].HorizontalAlignment := $FFFFEFF4;
         Excelid.worksheets[1].Range['a1:a1'].VerticalAlignment := $FFFFEFF4;
         Excelid.WorkSheets[1].Cells[2,1].Value := '编号';
         Excelid.WorkSheets[1].Cells[2,2].Value := '员工编号';
         Excelid.WorkSheets[1].Cells[2,3].Value := '原始职务任职时间';
         Excelid.WorkSheets[1].Cells[2,4].Value := '原始职务';
         Excelid.WorkSheets[1].Cells[2,5].Value := '当前职务';
         Excelid.worksheets[1].Range['A1:f1'].Font.Name := '宋体';
         Excelid.worksheets[1].Range['A1:f1'].Font.Size := 14;
         Excelid.worksheets[1].range['A1:f2'].font.bold:=true;
         Excelid.worksheets[1].Range['A2:f2'].Font.Size := 10;
         Excelid.worksheets[1].Range['A2:f2'].HorizontalAlignment := $FFFFEFF4;
         Excelid.worksheets[1].Range['A2:f2'].VerticalAlignment := $FFFFEFF4;
         h:=3;
         DM.qryYuanGongLvLi.First;
        while not DM.qryYuanGongLvLi.Eof do
         begin
           Excelid.WorkSheets[1].Cells[h,1].Value := DM.qryYuanGongLvLi.FieldByName('编号').AsString;
           Excelid.WorkSheets[1].Cells[h,2].Value := DM.qryYuanGongLvLi.FieldByName('员工编号').AsString;
           Excelid.WorkSheets[1].Cells[h,3].Value := DM.qryYuanGongLvLi.FieldByName('原始职务任职时间').AsString;
           Excelid.WorkSheets[1].Cells[h,4].Value := DM.qryYuanGongLvLi.FieldByName('原始职务').AsString;
           Excelid.WorkSheets[1].Cells[h,5].Value := DM.qryYuanGongLvLi.FieldByName('当前职务').AsString;
         Inc(h);
            DM.qryYuanGongLvLi.Next;
         end;
         s := 'A2:f'+ IntToStr(k+2);
         Excelid.worksheets[1].Range[s].Font.Name := '宋体';
         Excelid.worksheets[1].Range[s].Borders.LineStyle := 1;
         Excelid.Quit;
          except
        Application.MessageBox('导入数据出错！请检查文件的格式是否正确！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
    end;
   MessageBox(GetActiveWindow(), '数据导出成功!', '警告', MB_OK +
        MB_ICONWARNING);
end;

procedure TFind.RzBitBtn16Click(Sender: TObject);
var  h,k:integer;
     Excelid: OleVariant;
     s: string;
begin
     try
        Excelid := CreateOLEObject('Excel.Application');
    except
        Application.MessageBox('Excel没有安装！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
        Exit;
    end;
       try
        DM.qryYuanGongZhiChen.Close;
        DM.qryYuanGongZhiChen.SQL.Clear;
        DM.qryYuanGongZhiChen.SQL.Add('select * from ZhiChen');
        DM.qryYuanGongZhiChen.Open;
        k:=DM.qryYuanGongZhiChen.RecordCount;
         Excelid.Visible := True;
         Excelid.WorkBooks.Add;
         Excelid.worksheets[1].range['A1:f1'].Merge(True);
         Excelid.WorkSheets[1].Cells[1,1].Value :='职称信息输出表' ;
         Excelid.worksheets[1].Range['a1:a1'].HorizontalAlignment := $FFFFEFF4;
         Excelid.worksheets[1].Range['a1:a1'].VerticalAlignment := $FFFFEFF4;
         Excelid.WorkSheets[1].Cells[2,1].Value := '编号';
         Excelid.WorkSheets[1].Cells[2,2].Value := '职称';
         Excelid.WorkSheets[1].Cells[2,3].Value := '工资增长幅度';
         Excelid.worksheets[1].Range['A1:f1'].Font.Name := '宋体';
         Excelid.worksheets[1].Range['A1:f1'].Font.Size := 14;
         Excelid.worksheets[1].range['A1:f2'].font.bold:=true;
         Excelid.worksheets[1].Range['A2:f2'].Font.Size := 10;
         Excelid.worksheets[1].Range['A2:f2'].HorizontalAlignment := $FFFFEFF4;
         Excelid.worksheets[1].Range['A2:f2'].VerticalAlignment := $FFFFEFF4;
         h:=3;
         DM.qryYuanGongZhiChen.First;
        while not DM.qryYuanGongZhiChen.Eof do
         begin
           Excelid.WorkSheets[1].Cells[h,1].Value := DM.qryYuanGongZhiChen.FieldByName('编号').AsString;
           Excelid.WorkSheets[1].Cells[h,2].Value := DM.qryYuanGongZhiChen.FieldByName('职称').AsString;
           Excelid.WorkSheets[1].Cells[h,3].Value := DM.qryYuanGongZhiChen.FieldByName('工资增长幅度').AsString;
           Inc(h);
            DM.qryYuanGongZhiChen.Next;
         end;
         s := 'A2:f'+ IntToStr(k+2);
         Excelid.worksheets[1].Range[s].Font.Name := '宋体';
         Excelid.worksheets[1].Range[s].Borders.LineStyle := 1;
         Excelid.Quit;
          except
        Application.MessageBox('导入数据出错！请检查文件的格式是否正确！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
    end;
   MessageBox(GetActiveWindow(), '数据导出成功!', '警告', MB_OK +
        MB_ICONWARNING);
end;

procedure TFind.RzBitBtn23Click(Sender: TObject);
begin
   MainForm.mniN43Click(nil);
end;

procedure TFind.RzBitBtn3Click(Sender: TObject);
begin
  MainForm.mniN46Click(nil);
end;

procedure TFind.RzBitBtn7Click(Sender: TObject);
begin
 MainForm.mniN45Click(nil);
end;

procedure TFind.RzBitBtn11Click(Sender: TObject);
begin
MainForm.mniN47Click(nil);
end;

procedure TFind.RzBitBtn15Click(Sender: TObject);
begin
  MainForm.mniN48Click(nil);
end;

procedure TFind.RzBitBtn9Click(Sender: TObject);
var
    SQL:string;
begin
   if (Trim(RzEdit1.Text)='') and  (Trim(RzEdit2.Text)='') and (Trim(RzDateTimeEdit1.Text)='') then
   begin
      ShowErrorMsgBox('请输入查询条件!');
      Exit;
   end;

    SQL:='Select * from Employee,LvLi where Employee.编号=LvLi.员工编号 ';

    if (Trim(RzEdit1.Text)<>'') then
    begin
        SQL:=SQL+' and 姓名='+QuotedStr(Trim(RzEdit1.Text));
    end;

    if (Trim(RzEdit2.Text)<>'') then
       SQL:=SQL+' and 部门='+QuotedStr(Trim(RzEdit2.Text));

   if (Trim(RzDateTimeEdit1.Text)<>'') then
       SQL:=SQL+' and 出生日期='+QuotedStr(Trim(RzDateTimeEdit1.Text));

   if not OpenQuery(DM.qryCommon,SQL,qmOpen) then
   begin
     ShowTipMsgBox('没有找到该员工的履历!');
     Exit;
   end;


   OpenQuery(DM.qryYuanGongLvLi,SQL,qmOpen);
   {DM.qryYuanGongLvLi.Close;
   DM.qryYuanGongLvLi.SQL.Clear;
   DM.qryYuanGongLvLi.SQL.Add(SQL);
   DM.qryYuanGongLvLi.Prepared;
   DM.qryYuanGongLvLi.Open; }
end;

procedure TFind.rzbtbtnSearchClick(Sender: TObject);
var
    SQL:string;
    NO:Integer;
begin
   DM.JiSuanGZ;

   if (Trim(RzEdit4.Text)='') and (Trim(RzEdit3.Text)='') and (Trim(RzDateTimeEdit2.Text)='') then
   begin
      ShowErrorMsgBox('请输入查询条件!');
      Exit;
   end;

   if (Trim(RzEdit4.Text)='') then
   begin
     ShowErrorMsgBox('请输入姓名!');
     exit;
   end;

   SQL:='select * from employee where 姓名=' +QuotedStr(Trim(RzEdit4.Text));

   if (Trim(RzEdit3.Text)<>'') then
   begin
      SQL:=SQL+' and 部门='+QuotedStr(Trim(RzEdit3.Text));
   end;

   if (Trim(RzDateTimeEdit2.Text)<>'') then
   begin
      SQL:=SQL+' and 出生日期='+QuotedStr(Trim(RzDateTimeEdit2.Text));
   end;

   if not OpenQuery(DM.qryCommon,SQL,qmOpen) then
   begin
      ShowTipMsgBox('没有找到该该员工!');
      Exit;
   end else
   begin
      NO:=DM.qryCommon.fieldbyname('编号').AsInteger;
      SQL:='select * from GZ where 员工编号='+inttostr(No);
      if not OpenQuery(qry1,SQL,qmOpen) then ShowErrorMsgBox('没有找到该员工的工资数据.'+#13#10+'可能你没有输入履历和奖罚数据,系统无法计算工资!');
   end;
end;

procedure TFind.FormCreate(Sender: TObject);
begin
    qry1.Open;
end;

procedure TFind.RzBitBtn17Click(Sender: TObject);
begin
 MainForm.mniN44Click(nil);
end;

procedure TFind.RzBitBtn19Click(Sender: TObject);
var  h,k:integer;
     Excelid: OleVariant;
     s: string;
begin
     try
        Excelid := CreateOLEObject('Excel.Application');
    except
        Application.MessageBox('Excel没有安装！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
        Exit;
    end;
       try
        DM.qryGZ.Close;
        DM.qryGZ.SQL.Clear;
        DM.qryGZ.SQL.Add('select * from ZhiChen');
        DM.qryGZ.Open;
        k:=DM.qryGZ.RecordCount;
         Excelid.Visible := True;
         Excelid.WorkBooks.Add;
         Excelid.worksheets[1].range['A1:f1'].Merge(True);
         Excelid.WorkSheets[1].Cells[1,1].Value :='职称信息输出表' ;
         Excelid.worksheets[1].Range['a1:a1'].HorizontalAlignment := $FFFFEFF4;
         Excelid.worksheets[1].Range['a1:a1'].VerticalAlignment := $FFFFEFF4;
         Excelid.WorkSheets[1].Cells[2,1].Value := '员工编号';
         Excelid.WorkSheets[1].Cells[2,2].Value := '姓名';
         Excelid.WorkSheets[1].Cells[2,3].Value := '性别';
         Excelid.WorkSheets[1].Cells[2,4].Value := '出生日期';
         Excelid.WorkSheets[1].Cells[2,5].Value := '工资';
         Excelid.worksheets[1].Range['A1:f1'].Font.Name := '宋体';
         Excelid.worksheets[1].Range['A1:f1'].Font.Size := 14;
         Excelid.worksheets[1].range['A1:f2'].font.bold:=true;
         Excelid.worksheets[1].Range['A2:f2'].Font.Size := 10;
         Excelid.worksheets[1].Range['A2:f2'].HorizontalAlignment := $FFFFEFF4;
         Excelid.worksheets[1].Range['A2:f2'].VerticalAlignment := $FFFFEFF4;
         h:=3;
         DM.qryGZ.First;
        while not DM.qryGZ.Eof do
         begin
           Excelid.WorkSheets[1].Cells[h,1].Value := DM.qryGZ.FieldByName('员工编号').AsString;
           Excelid.WorkSheets[1].Cells[h,2].Value := DM.qryGZ.FieldByName('姓名').AsString;
           Excelid.WorkSheets[1].Cells[h,3].Value := DM.qryGZ.FieldByName('性别').AsString;
           Excelid.WorkSheets[1].Cells[h,4].Value := DM.qryGZ.FieldByName('出生日期').AsString;
           Excelid.WorkSheets[1].Cells[h,5].Value := DM.qryGZ.FieldByName('工资').AsString;
           Inc(h);
            DM.qryGZ.Next;
         end;
         s := 'A2:f'+ IntToStr(k+2);
         Excelid.worksheets[1].Range[s].Font.Name := '宋体';
         Excelid.worksheets[1].Range[s].Borders.LineStyle := 1;
         Excelid.Quit;
          except
        Application.MessageBox('导入数据出错！请检查文件的格式是否正确！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
    end;
   MessageBox(GetActiveWindow(), '数据导出成功!', '警告', MB_OK +
        MB_ICONWARNING);

end;

end.
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -