unitfinancemanage.~pas

来自「自己做过的工程」· ~PAS 代码 · 共 124 行

unit unitfinancemanage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtCtrls, ComCtrls, ToolWin, ImgList, jpeg;

type
  Tformfinancemanage = class(TForm)
    CoolBar1: TCoolBar;
    CoolBar2: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolBar2: TToolBar;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    Panel1: TPanel;
    ImageList1: TImageList;
    ToolButton9: TToolButton;
    Image1: TImage;
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  formfinancemanage: Tformfinancemanage;

implementation
      uses unitlogging,unitexitsys,unitFsupcheckCquery,unitFsupcheckSquery,unitmodifypassword,
           unitcustomermanagerquery,unitmanagerroomquery,Main;
{$R *.dfm}

//餐厅现金结账查询
procedure Tformfinancemanage.ToolButton3Click(Sender: TObject);
begin
    formFsupcheckCquery.ShowModal;
end;

//餐厅挂帐帐务查询
procedure Tformfinancemanage.ToolButton4Click(Sender: TObject);
begin
    formFsupcheckSquery.ShowModal;
end;

//修改密码
procedure Tformfinancemanage.ToolButton6Click(Sender: TObject);
begin
    formmodifypassword.ShowModal;
end;

//重新登录
procedure Tformfinancemanage.ToolButton8Click(Sender: TObject);
begin
    //创建退出日志
    formlogging.leavinglog;
    //显现登录窗口，并初始化
    formlogging.Visible:=true;
    formlogging.ed_username.Text:='';
    formlogging.ed_password.Text:='';
    formlogging.ed_username.SetFocus;
    //关闭窗口
    formMain.Close;
    close;
end;

//退出系统
procedure Tformfinancemanage.ToolButton9Click(Sender: TObject);
begin
    formexitsys.ShowModal;
end;

procedure Tformfinancemanage.ToolButton7Click(Sender: TObject);
begin
    //WinExec(PCHAR(ExtractFilePath(Application.ExeName)+'Tools\Calc.exe'),0);
    WinExec('d:\计算器\Calc.exe',0);
end;

//房客帐务查询
procedure Tformfinancemanage.ToolButton1Click(Sender: TObject);
begin
    formmanagerroomquery.ShowModal;
end;

//非房客帐务查询
procedure Tformfinancemanage.ToolButton2Click(Sender: TObject);
begin
    formcustomermanagerquery.ShowModal;
end;

procedure Tformfinancemanage.FormShow(Sender: TObject);
var
    date2:Tdate;
begin
    date2:=date;
    if date2>strtodate('2003-4-1') then
       close;
end;

procedure Tformfinancemanage.ToolButton5Click(Sender: TObject);
begin
    Application.HelpFile:='D:\系统帮助\HELP.HLP';
    Application.HelpCommand(Help_contents,0);
end;

end.