?? frmmain.pas
字號:
unit frmmain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, ADODB, ExtCtrls, jpeg;
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
Image1: TImage;
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses frmbjbb, frmdybb, frmqtmb, frmscsbbz, frmxzmb, frmbsmb, frmljsz;
{$R *.dfm}
procedure TForm1.N4Click(Sender: TObject);
begin
if (application.MessageBox('是否真的要退出該系統(tǒng)?(Y/N)','系統(tǒng)提示',MB_YESNO)=IDNO) then
exit
else
application.Terminate;
end;
procedure TForm1.N5Click(Sender: TObject);
begin
form2.ShowModal;
end;
procedure TForm1.N6Click(Sender: TObject);
begin
form3.ShowModal;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
form4.ShowModal;
end;
procedure TForm1.N8Click(Sender: TObject);
begin
form5.ShowModal;
end;
procedure TForm1.N9Click(Sender: TObject);
begin
form6.ShowModal;
end;
procedure TForm1.N13Click(Sender: TObject);
begin
form7.ShowModal;
end;
procedure TForm1.N14Click(Sender: TObject);
begin
form8.ShowModal;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (application.MessageBox('是否真的要退出該系統(tǒng)?(Y/N)','系統(tǒng)提示',MB_YESNO)=IDNO) then
begin
exit;
end
else
application.Terminate;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -