【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,AccountForm.pas,希望对大家有所帮助!
unit AccountForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, Menus, Grids, DBGrids, StdCtrls;
type
TAccountMainForm = class(TForm)
GroupBox1: TGroupBox;
dbgridAccountInfo: TDBGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
mnNewAccount: TMenuItem;
mnModifyAccount: TMenuItem;
mnDelAccount: TMenuItem;
procedure mnNewAccountClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure mnModifyAccountClick(Sender: TObject);
procedure dbgridAccountInfoCellClick(Column: TColumn);
procedure mnDelAccountClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AccountMainForm: TAccountMainForm;
implementation
uses HotelDataModule,AccountPropertyForm,hotelclasses,HotelManagerMainForm;
{$R *.dfm}
//创建新帐户
procedure TAccountMainForm.mnNewAccountClick(Sender: TObject);
begin
AccountInfoForm :=TAccountInfoForm.Create(Application);
AccountInfoForm.Show;
end;
procedure TAccountMainForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
HotelBackForm.mnAccountManage.Enabled :=true;
HotelBackForm.mnExportAccount.Enabled :=true;
AccountMainForm.Release;
end;
procedure TAccountMainForm.mnModifyAccountClick(Sender: TObject);
begin
AccountInfoForm :=TAccountInfoForm.Create(Application);
AccountInfoForm.btNewAccount.Enabled :=false;
AccountInfoForm.btModifyAccount.Enabled :=true;
AccountInfoForm.Show;
end;
procedure TAccountMainForm.dbgridAccountInfoCellClick(Column: TColumn);
begin
mnModifyAccount.Enabled :=true;
mnDelAccount.Enabled :=true;
end;
procedure TAccountMainForm.mnDelAccountClick(Sender: TObject);
var
AccountDBManager :AccountDBM;
begin
AccountDBManager :=AccountDBM.Create;
AccountDBManager.DelTheAccount;
AccountDbManager.Free;
end;
procedure TAccountMainForm.FormShow(Sender: TObject);
begin
HotelBackForm.mnAccountManage.Enabled :=false;
HotelBackForm.mnExportAccount.Enabled :=false;
end;
end.
上一篇:
decode_i386.cpp
下一篇:
加强企业管理力度 提升产品绿色竞争力