jsyggz.pas

这个工资管理系统是我今年的毕业设计

unit jsyggz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, SkinCtrls, ExtCtrls, Grids, DBGridEh, DB, ADODB, ComCtrls,DBGridEhImpExp;

type
  TForm13 = class(TForm)
    DBGridEh1: TDBGridEh;
    spSkinToolBar1: TspSkinToolBar;
    spSkinBevel1: TspSkinBevel;
    spSkinSpeedButton1: TspSkinSpeedButton;
    spSkinSpeedButton2: TspSkinSpeedButton;
    spSkinSpeedButton3: TspSkinSpeedButton;
    spSkinBevel2: TspSkinBevel;
    spSkinSpeedButton4: TspSkinSpeedButton;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Panel2: TPanel;
    TreeView1: TTreeView;
    ADOQuery2: TADOQuery;
    Save1: TSaveDialog;
    procedure FormShow(Sender: TObject);
    procedure spSkinSpeedButton4Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure spSkinSpeedButton1Click(Sender: TObject);
    procedure spSkinSpeedButton2Click(Sender: TObject);
    procedure spSkinSpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation
uses login,ygzlb,gzbd;
{$R *.dfm}

procedure TForm13.FormShow(Sender: TObject);
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from gongz order by 员工代码');
adoquery1.Open;

adoquery2.SQL.Clear;
adoquery2.SQL.Add('select * from bumen where 状态="正常"');
adoquery2.Open;
   adoquery2.First;
   treeview1.Items.Clear;
   treeview1.Items.Add(nil,'所有员工'); 
   while not adoquery2.Eof do
   begin
   treeview1.Items.AddChild(nil,adoquery2.FieldValues['部门名称']);
   adoquery2.Next;
   end;
end;

procedure TForm13.spSkinSpeedButton4Click(Sender: TObject);
begin
close;
end;

procedure TForm13.TreeView1Click(Sender: TObject);
begin
if treeview1.Selected.text='所有员工' then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from gongz');
adoquery1.Open;
end
else
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from gongz where 所在部门="'+treeview1.Selected.Text+'"');
adoquery1.Open;
dbgrideh1.Refresh;
if adoquery1.Recordset.RecordCount=0 then showmessage('对不起该部门下还没有员工～！');
end;
end;

procedure TForm13.spSkinSpeedButton1Click(Sender: TObject);
begin
form20:=tform20.Create(nil);
form20.Caption:='签发员工工资';
form20.ShowModal;
end;

procedure TForm13.spSkinSpeedButton2Click(Sender: TObject);
begin
form10:=tform10.Create(nil);
form10.ShowModal;
end;

procedure TForm13.spSkinSpeedButton3Click(Sender: TObject);
var ExpClass:TDBGridEhExportClass;
    ext:string;
begin
save1.FileName:='file-1';
if (ActiveControl is TDBGridEh) then
if save1.Execute then
begin
 case Save1.FilterIndex of
 1:begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
 2:begin ExpClass := TDBGridEhExportAsxls; Ext := 'xls'; end;
 else
 ExpClass := nil; Ext := '';
end;
 if ExpClass <> nil then
     begin
     if UpperCase(Copy(Save1.FileName,Length(Save1.FileName)-2,3)) <>
     UpperCase(Ext) then
     Save1.FileName := Save1.FileName + '.' + Ext;
     SaveDBGridEhToExportFile(ExpClass,DBGridEh1,Save1.FileName,true);
     //其中true为全部数据
     showmessage('导出完成，数据导出成功！');
     end;
     end;
end;

end.