dmmzshg.pas

delphi制作的校医院收费系统

unit dmmzshg;

interface

uses
  SysUtils, Classes, ADODB, DB;

type
  Tdm_mzshg = class(TDataModule)
    ADOchaxun: TADOQuery;
    ADOkucun: TADOQuery;
    adojiesuan: TADOQuery;
    adomingxi: TADOQuery;
    Datachaxun: TDataSource;
    Datakucun: TDataSource;
    Datajiesuan: TDataSource;
    Datamingxi: TDataSource;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOyisheng: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm_mzshg: Tdm_mzshg;

implementation

{$R *.dfm} uses connect;

end.