update_dm.pas

来自「县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数」· PAS 代码 · 共 44 行

unit Update_DM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, {IBScript, }IBDatabase, IBCustomDataSet, IBQuery;

type
  TDM_Update = class(TDataModule)
    ADOC_Update: TADOConnection;
    ADOCommand: TADOCommand;
    Tb_Update: TADOTable;
    Tb_UpdateDSDesigner: TIntegerField;
    Tb_UpdateDSDesigner2: TWideStringField;
    Tb_UpdateDSDesigner3: TWideStringField;
    Tb_UpdateDSDesigner4: TWideStringField;
    Tb_UpdateSQL: TMemoField;
    Ds_Update: TDataSource;
    IBQuery: TIBQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM_Update: TDM_Update;

implementation

uses Table_DM, Login_F;

{$R *.DFM}

procedure TDM_Update.DataModuleCreate(Sender: TObject);
begin
	If ADOC_Update.Connected Then
    	ShowMessage('请关闭DM_Update中的数据库连接!');
end;

end.