salaryway.pas

来自「pasa人力资源考勤管理系统」· PAS 代码 · 共 89 行

unit salaryway;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ImgList, ExtCtrls, DBCtrls, ComCtrls, ToolWin;

type
  Tformsalaryway = class(TForm)
    Memo1: TMemo;
    ImageList1: TImageList;
    OpenDlg1: TOpenDialog;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    tbnsort: TToolButton;
    tbnfind: TToolButton;
    ToolButton7: TToolButton;
    ToolButton4: TToolButton;
    DBNavigator1: TDBNavigator;
    PrintDialog1: TPrintDialog;
    SaveDialog1: TSaveDialog;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formsalaryway: Tformsalaryway;

implementation

uses publicfunction;
{$R *.DFM}

procedure Tformsalaryway.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
  formsalaryway:=nil;
end;

procedure Tformsalaryway.ToolButton6Click(Sender: TObject);
begin
  if opendlg1.execute then
   begin
     memo1.lines.clear;
     memo1.Lines.Loadfromfile(opendlg1.filename);
   end;
end;

procedure Tformsalaryway.ToolButton4Click(Sender: TObject);
begin
  close;
end;

procedure Tformsalaryway.FormCreate(Sender: TObject);
var
    myfile:string;
begin                      //新建窗体时，从系统目录下读取厂规制度
  myfile:=extractfilepath(application.ExeName)+'data\factory.txt';
  if fileexists(myfile) then
     memo1.lines.loadfromfile(myfile);
end;

procedure Tformsalaryway.FormDestroy(Sender: TObject);
var
    myfile:string;
begin        //在退出窗体时，保存设置
  myfile:=extractfilepath(application.ExeName)+'\data\factory.txt';
  memo1.Lines.SaveToFile(myfile);
end;

procedure Tformsalaryway.ToolButton7Click(Sender: TObject);
begin
   Printdialog1.Execute;
end;

end.