u_datamodule.pas

来自「是一小型门诊挂号软件」· PAS 代码 · 共 50 行

unit U_datamodule;

interface

uses
  SysUtils, Classes, DB, DBTables;

type
  Tf_dm = class(TDataModule)
    Database1: TDatabase;
    Q_login: TQuery;
    q: TQuery;
    UQ_register: TUpdateSQL;
    DS_register: TDataSource;
    T_register: TTable;
    T_count: TTable;
    T_type: TTable;
    DS_type: TDataSource;
    T_clinic: TTable;
    DS_clinic: TDataSource;
    T_medical_Card: TTable;
    DS_medical_Card: TDataSource;
    T_thing: TTable;
    DS_thing: TDataSource;
    T_X: TTable;
    D_X: TDataSource;
    Q_sick: TQuery;
    DS_sick: TDataSource;
    UQ_edit: TUpdateSQL;
    Q_find: TQuery;
    Q_clinic2Sick: TQuery;
    DS_clinic2Sick: TDataSource;
    DS_user: TDataSource;
    T_user: TTable;
    UQ_user: TUpdateSQL;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_dm: Tf_dm;

implementation

{$R *.dfm}

end.