?? main.pas
字號:
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, Menus,jpeg,inifiles;
type
TFrmMain = class(TForm)
Panel1: TPanel;
PnlBack: TPanel;
Image1: TImage;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
Panel3: TPanel;
Image2: TImage;
SpeedButton7: TSpeedButton;
SpeedButton8: TSpeedButton;
Image3: TImage;
procedure FormCreate(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FrmMain: TFrmMain;
MyIni:TInifile;
implementation
uses Global,Login, BaseSetup, About, InputGoods, DataManage, Stat,
SystemMgr;
{$R *.dfm}
{$R CustomRes.res}
procedure TFrmMain.FormCreate(Sender: TObject);
var
sTopBack,sBackGround:string;
Fn:string;
begin
fn:=ExtractFilePath(paramstr(0))+'Setup.ini';
sTopBack:=ExtractFilePath(paramstr(0))+ 'img\TopBack.jpg';
MyIni:=TInifile.Create(fn);
sBackGround:=Myini.ReadString('Setup','BackGround','');
if fileexists(sBackGround) then
Image3.Picture.LoadFromFile(sBackGround);
self.Caption :=sAppName;
if not fileExists(sTopBack) then exit;
//uses Jpeg 要加入此單元,方可載入 JPG 圖片
image1.Picture.LoadFromFile(sTopBack);
image2.Picture.LoadFromFile(sTopBack);
Global.ADOConnt.Close; //關(guān)閉 Global 中動態(tài)創(chuàng)建的控件
end;
procedure TFrmMain.SpeedButton1Click(Sender: TObject);
begin
FrmBaseSetup.showmodal;
end;
procedure TFrmMain.SpeedButton7Click(Sender: TObject);
begin
close;
end;
procedure TFrmMain.SpeedButton6Click(Sender: TObject);
begin
FrmAbout.showmodal;
end;
procedure TFrmMain.SpeedButton2Click(Sender: TObject);
begin
FrmInputGoods.showmodal;
end;
procedure TFrmMain.SpeedButton3Click(Sender: TObject);
begin
FrmDataManage.Showmodal;
end;
procedure TFrmMain.SpeedButton4Click(Sender: TObject);
begin
FrmStat.showmodal;
end;
procedure TFrmMain.SpeedButton8Click(Sender: TObject);
begin
FrmSystemMgr.showmodal;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -