zcfz_datamodel.pas

本程序功能是将银行系统的月计表转换为所需要的资产负债表

unit ZCFZ_DataModel;

interface

uses
  SysUtils, Classes, Forms, DB, ZSqlProcessor, ZAbstractDataset,
  ZDataset, ZAbstractRODataset, ZConnection, bsSkinShellCtrls, RM_Common,
  RM_Class, RM_e_Xls, RM_Dataset, bsMessages, bsSkinData, RM_System, inifiles,
  bsDialogs;

type
  TZCFZ_DM = class(TDataModule)
    ZCFZ0: TZConnection;
    ZCFZ_Qry: TZReadOnlyQuery;
    ZCFZ_Qry1: TZReadOnlyQuery;
    ZCFZ_Qry2: TZReadOnlyQuery;
    ZCFZ_QryEdit: TZQuery;
    ZCFZ_SQLPrc: TZSQLProcessor;
    ZCFZ_QueryEdit1: TZQuery;
    bsSkinData1: TbsSkinData;
    bsSkinMessage1: TbsSkinMessage;
    RMReport1: TRMReport;
    RMDBDataSet1: TRMDBDataSet;
    DataSource1: TDataSource;
    RMXLSExport1: TRMXLSExport;
    OD: TbsOpenSkinDialog;
    bsOpenDialog: TbsSkinOpenDialog;
    bsSkinSelectDirectoryDialog1: TbsSkinSelectDirectoryDialog;
    bsknptdlg1: TbsSkinInputDialog;
    procedure ZCFZ0BeforeConnect(Sender: TObject);
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
    procedure ZCFZ0AfterConnect(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZCFZ_DM: TZCFZ_DM;
  IniFile: TINIFile;
  s, IP, rootName, passwd: string;

implementation

{$R *.dfm}

procedure TZCFZ_DM.ZCFZ0BeforeConnect(Sender: TObject);
begin
  zcfz0.HostName := IP;
  zcfz0.User := rootName;
  zcfz0.Password := passwd;
end;

procedure TZCFZ_DM.DataModuleCreate(Sender: TObject);
begin
  s := ExtractFilePath(Application.ExeName) + 'skin\skin.skn';
  bsSkinData1.LoadFromCompressedFile(s);
end;

procedure TZCFZ_DM.DataModuleDestroy(Sender: TObject);
begin
  ZCFZ0.Disconnect;
  ZCFZ0.Destroy;
end;

procedure TZCFZ_DM.ZCFZ0AfterConnect(Sender: TObject);
var
  Dataset: TZReadOnlyQuery;
  Connection: TZConnection;
begin
  Connection := (Sender as TZConnection);
  if Connection.Properties.Values['codepage'] = '' then
  begin
    Dataset := TZReadOnlyQuery.Create(nil);
    Dataset.Connection := Connection;
    Dataset.SQL.Text := 'SHOW VARIABLES LIKE ''character_set_database'';';
    try
      Dataset.Open;
      Connection.Properties.Values['codepage'] := Dataset.FieldValues['Value'];
      Connection.Disconnect;
      Connection.Connect;
    finally
      Dataset.Free;
    end;
  end;
end;

initialization
  s := ExtractFilePath(application.ExeName);
  try
    IniFile := TINIFile.Create(s + 'ZCFZDBConfig.ini');
    IP := Inifile.Readstring('DatabaseConfig', 'IP', '');
    rootName := Inifile.Readstring('DatabaseConfig', 'rootName', '');
    passwd := Inifile.Readstring('DatabaseConfig', 'passwd', '');
    Inifile.Free;
  except
    application.messagebox('定义数据库位置的文件(BaoBiaoDBConfig.ini)错误!',
      '警告框');
    application.Terminate;
    exit;

  end; {Try/Except}
end.