mainform.~pas

来自「***智能监视系统*** 程序运行时需要视频捕捉设备」· ~PAS 代码 · 共 109 行

unit MainForm;

interface

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


type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    mmiNewCard: TMenuItem;
    mmiLose: TMenuItem;
    mmiAntiLose: TMenuItem;
    mmiAddMoney: TMenuItem;
    N6: TMenuItem;
    mmiCardReader: TMenuItem;
    mmiModify: TMenuItem;
    mmiHelp: TMenuItem;
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    mmiCasualCard: TMenuItem;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    mmiChanagePassword: TMenuItem;
    procedure mmiNewCardClick(Sender: TObject);
    procedure mmiLoseClick(Sender: TObject);
    procedure mmiAntiLoseClick(Sender: TObject);
    procedure mmiAddMoneyClick(Sender: TObject);
    procedure mmiCardReaderClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure mmiChanagePasswordClick(Sender: TObject);
    procedure mmiCasualCardClick(Sender: TObject);
    procedure mmiModifyClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

uses CardDM,NewCardForm, LoseForm, AddMoneyForm, ConfigForm,
  ChangePasswordForm, CasualCardForm, ModifyForm;

{$R *.DFM}

procedure TfrmMain.mmiNewCardClick(Sender: TObject);
begin
    frmNewCard.ShowModal();
end;

procedure TfrmMain.mmiLoseClick(Sender: TObject);
begin
    frmLose.ShowModal;
end;

procedure TfrmMain.mmiAntiLoseClick(Sender: TObject);
begin
    frmLose.ShowModal;
end;

procedure TfrmMain.mmiAddMoneyClick(Sender: TObject);
begin
    frmAddMoney.ShowModal;
end;

procedure TfrmMain.mmiCardReaderClick(Sender: TObject);
begin
    frmConfig.ShowModal;
end;

procedure TfrmMain.FormCreate(Sender: TObject);
begin

    //调用静态函数读取配置信息
    TfrmConfig.ReadConfig();
end;

procedure TfrmMain.mmiChanagePasswordClick(Sender: TObject);
begin
    frmChangePassword.ClearEdit;
    frmChangePassword.ShowModal;
end;

procedure TfrmMain.mmiCasualCardClick(Sender: TObject);
begin
    frmCasualCard.ShowModal;
end;

procedure TfrmMain.mmiModifyClick(Sender: TObject);
begin
    frmModify.ShowModal;
end;

end.