u_data.~pas

来自「这是一个非常使用的DELPHI源码的例子,用的是SQL数据库和DELPHI企业版」· ~PAS 代码 · 共 52 行

unit U_Data;

interface

uses
  SysUtils, Classes, ADODB, DB,u_public_define;

type
  TData = class(TDataModule)
    G_con: TADOConnection;
    G_Rst: TADOQuery;
    jbb_DataSource: TDataSource;
    G_Rst1: TADOQuery;
    Mr_jbb: TADOTable;
    Mr_hkb: TADOTable;
    Mr_Gjb: TADOTable;
    mr_jbxx_S: TDataSource;
    mr_jbxx: TADOTable;
    Mr_jbb_S: TDataSource;
    mr_Sdb_S: TDataSource;
    Mr_Sdb: TADOTable;
    mr_Gjb_s: TDataSource;
    mr_khgl: TADOTable;
    mr_khgl_s: TDataSource;
    Mr_People_S: TDataSource;
    mr_people: TADOTable;
    Mr_people_add: TDataSource;
    G_Rst7: TADOQuery;
    G_Rst_Temp: TADOQuery;
    G_Rst_Temp1: TADOQuery;
    mr_Hkb_S: TDataSource;
    Mr_zjb: TADOTable;
    Mr_zjb_s: TDataSource;
    Mr_zjb_add: TDataSource;
    MR_TemP_s: TDataSource;
    G_Cj: TADOQuery;
    G_Rst_use: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Data: TData;

implementation

{$R *.dfm}

end.