main.pas

文具管理系统 采用VFP数据库编的

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;  //关闭 Global 中动态创建的控件
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.