mainform.pas

工资管理系统

unit MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, dxBar, ImgList, ActnList, dxBarExtItems, dxsbar,
  ExtCtrls, DB, ADODB;

type
  TfrmMain = class(TForm)
    Button3: TButton;
    dxBarManager1: TdxBarManager;
    dxBarSubItem1: TdxBarSubItem;
    ActionList1: TActionList;
    ActionModPwd: TAction;
    ActionBackUp: TAction;
    ActionRestore: TAction;
    ActionExit: TAction;
    ActionDepart: TAction;
    ActionWage: TAction;
    ActionWagePreview: TAction;
    Actionstat: TAction;
    ImageList1: TImageList;
    ActionBank: TAction;
    dxBarButton1: TdxBarButton;
    dxBarSubItem2: TdxBarSubItem;
    dxBarButton2: TdxBarButton;
    dxBarButton3: TdxBarButton;
    dxBarButton4: TdxBarButton;
    dxBarButton5: TdxBarButton;
    dxBarSubItem3: TdxBarSubItem;
    dxBarButton6: TdxBarButton;
    dxBarButton7: TdxBarButton;
    dxBarSubItem4: TdxBarSubItem;
    dxBarButton8: TdxBarButton;
    dxBarButton9: TdxBarButton;
    dxBarButton10: TdxBarButton;
    dxBarButton11: TdxBarButton;
    dxBarSubItem5: TdxBarSubItem;
    dxBarButton12: TdxBarButton;
    dxSideBarStore1: TdxSideBarStore;
    dxSideBarStore1Item1: TdxStoredSideItem;
    dxSideBarStore1Item2: TdxStoredSideItem;
    dxSideBarStore1Item3: TdxStoredSideItem;
    dxSideBarStore1Item4: TdxStoredSideItem;
    dxSideBarStore1Item5: TdxStoredSideItem;
    dxSideBarStore1Item6: TdxStoredSideItem;
    dxSideBarStore1Item7: TdxStoredSideItem;
    dxBarButton13: TdxBarButton;
    ActionSys: TAction;
    dxBarButton14: TdxBarButton;
    dxBarButton15: TdxBarButton;
    dxBarButton16: TdxBarButton;
    dxBarSubItem6: TdxBarSubItem;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarButton17: TdxBarButton;
    Panel1: TPanel;
    dxSideBar1: TdxSideBar;
    spLeft: TSplitter;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    sd: TSaveDialog;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure ActionModPwdExecute(Sender: TObject);
    procedure ActionBackUpExecute(Sender: TObject);
    procedure ActionRestoreExecute(Sender: TObject);
    procedure ActionExitExecute(Sender: TObject);
    procedure ActionDepartExecute(Sender: TObject);
    procedure ActionWageExecute(Sender: TObject);
    procedure ActionWagePreviewExecute(Sender: TObject);
    procedure ActionstatExecute(Sender: TObject);
    procedure ActionBankExecute(Sender: TObject);
    procedure dxBarButton12Click(Sender: TObject);
   // procedure dxBarLargeButton1Click(Sender: TObject);
    procedure ActionSysExecute(Sender: TObject);
    procedure dxBarLargeButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}
uses Bm,gz,data,gzPreview,unit3,wagestat,DBConnect;
procedure TfrmMain.Button1Click(Sender: TObject);
begin
// form3.ShowModal;
   frmconnect.showmodal;
end;

procedure TfrmMain.Button2Click(Sender: TObject);
begin
  form2.ShowModal;
end;

procedure TfrmMain.Button3Click(Sender: TObject);
begin

  { with adoquery1 do
   if state=dsEdit then
   post;
   with sd1 do
   DefaultExt := 'xls';
    Filter := 'Microsoft Excel 工作簿 (*.xls)|*.xls';
    if Execute then
    try
      SaveDBGridEhToExportFile(TDBGridEhExportAsXLS, DbgGz, dlgDC.FileName, True);
      Application.MessageBox('导出数据成功！', '导出数据', MB_ICONINFORMATION);
    except
      Application.MessageBox('导出数据失败！', '导出数据', MB_ICONERROR)
    end;
  end;  }

end;

procedure TfrmMain.ActionModPwdExecute(Sender: TObject);
begin
//
end;

procedure TfrmMain.ActionBackUpExecute(Sender: TObject);
begin
//
end;

procedure TfrmMain.ActionRestoreExecute(Sender: TObject);
begin
//
end;

procedure TfrmMain.ActionExitExecute(Sender: TObject);
begin
//
   close;
end;

procedure TfrmMain.ActionDepartExecute(Sender: TObject);
begin
//
  form1.ShowModal;
end;

procedure TfrmMain.ActionWageExecute(Sender: TObject);
begin
//
  form2.ShowModal;
end;

procedure TfrmMain.ActionWagePreviewExecute(Sender: TObject);
begin
//
   FrmWagePreview.ShowModal;

end;

procedure TfrmMain.ActionstatExecute(Sender: TObject);
begin
//
  frmwagestat.ShowModal;
end;

procedure TfrmMain.ActionBankExecute(Sender: TObject);
var
   strCzzh, strSfje,strName,strsalary: string;
  YhsjFile: TextFile;
begin
//   银行数据
with dm.ADOQuery2 do
    if state=dsEdit then
      post;
    with adoquery1 do
      try
        connection:=dm.ADOConnection1;
        with sql do
             begin
              clear;
              add('select * from 工资');
             end;
        open;
      if IsEmpty then
        Application.MessageBox('无工资记录，不能导出！', '错误', MB_ICONWARNING)
        else
        begin
          with sd do
            begin
              DefaultExt:='txt';
              Filter := '文本文件 (*.txt)|*.txt';
              if execute then
                try
                  screen.Cursor:=crSQLWait;
                  if FileExists(FileName) then
                     application.MessageBox('已经有该文件，请重新命名!','系统提示!',64);
                     DeleteFile(FileName);
                     AssignFile(YhsjFile, FileName);
                     Rewrite(YhsjFile);
                  while Not eof do
                      begin
                      strCzzh :=trim(adoquery1.fieldByName('工号').AsString);
                      strSfje :=trim(adoquery1.fieldbyName('银行帐号').AsString);
                      strName:=trim(adoquery1.fieldByName('姓名').AsString);
                      strsalary:=trim(adoquery1.fieldByName('实发工资').AsString);
                      writeln(YhsjFile,strCzzh,',',strSfje,',',strName,',',strsalary);
                      Next;
                      end;
                      application.MessageBox('银行数据定义完成!','系统提示!',64);
                  finally
                   CloseFile(YhsjFile);
                   Screen.Cursor := crDefault;
            end;
        end;
        end;
            finally
    Close;
    Connection := nil;
    end;


end;

procedure TfrmMain.dxBarButton12Click(Sender: TObject);
begin
 //
  application.MessageBox('help','系统提示',64);
end;



procedure TfrmMain.ActionSysExecute(Sender: TObject);
begin
//
 application.MessageBox('建设中...','系统提示',64);
end;

procedure TfrmMain.dxBarLargeButton1Click(Sender: TObject);
begin
  //
   if panel1.Visible=true then
     begin
        panel1.Visible:=false;
     end
     else begin
        panel1.Visible:=true;
     end;
end;

end.