u_dm.pas

来自「数据模块」· PAS 代码 · 共 88 行

unit U_DM;

interface

uses
  SysUtils, Classes, DB, DBClient,Dialogs;

type
  TDM = class(TDataModule)
    CDSLOGIN_B: TClientDataSet;
    D_LOGIN_B: TDataSource;
    CDSLOGIN_B_INDEX: TClientDataSet;
    D_DLJM: TDataSource;
    CSDDLJM: TClientDataSet;
    CDSLOGIN_A: TClientDataSet;
    CDSLOGIN_A_INDEX: TClientDataSet;
    CDSCDL: TClientDataSet;
    DCDL: TDataSource;
    CDSCDL_INDEX: TClientDataSet;
    CDS_provider: TClientDataSet;
    D_provider: TDataSource;
    CDS_filmtype: TClientDataSet;
    D_filmtype: TDataSource;
    CDs_doctor: TClientDataSet;
    CDS_player: TClientDataSet;
    D_doctor: TDataSource;
    D_player: TDataSource;
    CDS_chargestd: TClientDataSet;
    D_chargestd: TDataSource;
    CDS_select: TClientDataSet;
    D_SELECT: TDataSource;
    CDS_atorinfo: TClientDataSet;
    D_atorinfo: TDataSource;
    CDS_rating: TClientDataSet;
    D_rating: TDataSource;
    CDS_ATORINFO_INDEX: TClientDataSet;
    CDS_atorchag: TClientDataSet;
    D_atorchag: TDataSource;
    CDS_lend: TClientDataSet;
    D_lend: TDataSource;
    CDS_atorfind: TClientDataSet;
    D_atorfind: TDataSource;
    CDS_RTtansaction: TClientDataSet;
    D_RTtansaction: TDataSource;
    CDS_RTFIND: TClientDataSet;
    DataSource1: TDataSource;
    CDS_BILL: TClientDataSet;
    CDS_BD: TClientDataSet;
    D_BD: TDataSource;
    CDS_RTTR: TClientDataSet;
    CDS_TAB1: TClientDataSet;
    CDS_TAB2: TClientDataSet;
    D_LOGIN_INDEX: TDataSource;
    CDS_LOGINA: TClientDataSet;
    D_LOGINA: TDataSource;
    CDS_LOGINA_INDEX: TClientDataSet;
    CDS_JRPDG: TClientDataSet;
    D_JRPDG: TDataSource;
    CDS_lend2: TClientDataSet;
    CDS_DPCF: TClientDataSet;
    CDS_ATORFIND2: TClientDataSet;
    procedure CDSCDLReconcileError(DataSet: TCustomClientDataSet;
      E: EReconcileError; UpdateKind: TUpdateKind;
      var Action: TReconcileAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation
uses mainform;

{$R *.dfm}

procedure TDM.CDSCDLReconcileError(DataSet: TCustomClientDataSet;
  E: EReconcileError; UpdateKind: TUpdateKind;
  var Action: TReconcileAction);
begin
 Showmessage( E.Message );

end;

end.