sflash.pas

服装厂管理系统源程序压缩包, 请耐心阅读提供的文件包含的内容

unit Sflash;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, DB, ADODB;

type
  TForm_Sflash = class(TForm)
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_Sflash: TForm_Sflash;

implementation
uses sharevar, sharefun;

{$R *.dfm}

procedure TForm_Sflash.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
end;

procedure TForm_Sflash.FormCreate(Sender: TObject);
begin
  AppPath:=ExtractFileDir(Application.ExeName);
  GetSysConfig();
end;

end.