?? unitmainform.pas
字號:
unit UnitMainForm;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RzButton, ExtCtrls, RzPanel, Menus, Winsock, ActnList;
type
TMainForm = class(TForm)
RzPanel1: TRzPanel;
RzBitBtn1: TRzBitBtn;
RzBitBtn2: TRzBitBtn;
RzBitBtn3: TRzBitBtn;
RzBitBtn4: TRzBitBtn;
RzBitBtn5: TRzBitBtn;
RzBitBtn6: TRzBitBtn;
ActionList1: TActionList;
Action1: TAction;
Action2: TAction;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
Action3: TAction;
Action4: TAction;
Action5: TAction;
Action6: TAction;
Action7: TAction;
Action8: TAction;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure Action2Execute(Sender: TObject);
procedure Action1Execute(Sender: TObject);
procedure Action3Execute(Sender: TObject);
procedure Action4Execute(Sender: TObject);
procedure Action5Execute(Sender: TObject);
procedure Action6Execute(Sender: TObject);
procedure Action7Execute(Sender: TObject);
procedure Action8Execute(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
uses UnitAlterPWDForm, UnitGj, UnitHf, UnitSh, UnitSplashForm, UnitXs,
UnitQueryForm;
{$R *.dfm}
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
AnimateWindow(Handle, 1000, AW_CENTER + AW_HIDE);
Action := caFree;
end;
procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if Application.MessageBox('是否真的要退出系統?','提示',MB_OKCancel + MB_DEFBUTTON2 + MB_IconQuestion)=ID_OK then
CanClose := True
else
CanClose := False;
end;
procedure TMainForm.Action2Execute(Sender: TObject);
begin
Close;
end;
procedure TMainForm.Action1Execute(Sender: TObject);
begin
//修改密碼
TAlterPWDForm.Create(nil).ShowModal;
end;
procedure TMainForm.Action3Execute(Sender: TObject);
begin
//購進
GjForm := TGjForm.Create(nil);
GjForm.ShowModal;
GjForm.Free;
end;
procedure TMainForm.Action4Execute(Sender: TObject);
begin
//銷售
TXsForm.Create(nil).ShowModal;
end;
procedure TMainForm.Action5Execute(Sender: TObject);
begin
//售后
TShForm.Create(nil).ShowModal;
end;
procedure TMainForm.Action6Execute(Sender: TObject);
begin
//回訪
THfForm.Create(nil).ShowModal;
end;
procedure TMainForm.Action7Execute(Sender: TObject);
begin
//關于
TSplashForm.Create(nil, 1).ShowModal;
end;
procedure TMainForm.Action8Execute(Sender: TObject);
begin
//查詢
TQueryForm.Create(nil).ShowModal;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -