zcfz_bs.pas

来自「本程序功能是将银行系统的月计表转换为所需要的资产负债表」· PAS 代码 · 共 45 行

unit ZCFZ_BS;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, bsSkinShellCtrls,
  bsMessages, bsSkinData, ExtCtrls, RM_Common, RM_Class, RM_e_Xls, DB,
  RM_Dataset;

type
  TForm1 = class(TForm)
    bsSkinData1: TbsSkinData;
    bsCompressedStoredSkin1: TbsCompressedStoredSkin;
    bsSkinMessage1: TbsSkinMessage;
    SelectDirectoryDialog1: TbsSkinSelectDirectoryDialog;
    RMReport1: TRMReport;
    RMDBDataSet1: TRMDBDataSet;
    DataSource1: TDataSource;
    RMXLSExport1: TRMXLSExport;
    OD: TbsOpenSkinDialog;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var s: string;
begin
  s := ExtractFilePath(Application.ExeName) + 'skin\ampix.skn';
  bsCompressedStoredSkin1.LoadFromCompressFile(s);
end;

end.