datamz2.pas

本文重点研究的是医院西药药房管理系统

unit datamz2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB;

type
  TDataMzf2 = class(TDataModule)
    GroupQuery: TADOQuery;
    GroupSource: TDataSource;
    AdmiCommand1: TADOCommand;
    UserQuery: TADOQuery;
    UserSource: TDataSource;
    AdmiCommand2: TADOCommand;
    GrQuery2: TADOQuery;
    GrSource2: TDataSource;
    UserSource2: TDataSource;
    UserQuery2: TADOQuery;
    AdmiCommand3: TADOCommand;
    YpQuery: TADOStoredProc;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    YpQueryyp_id: TSmallintField;
    YpSource: TDataSource;
    RxHzQuery: TADOStoredProc;
    RxHzSource: TDataSource;
    RxHzQuerymydate: TDateTimeField;
    RxHzQueryqrdate: TDateTimeField;
    RxHzQueryoutamou: TIntegerField;
    RxHzQueryoutmoney: TBCDField;
    RxHzQueryinamou: TIntegerField;
    RxHzQueryinmoney: TBCDField;
    RxHzQuerylossamou: TIntegerField;
    RxHzQuerylossmoney: TBCDField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataMzf2: TDataMzf2;

implementation
uses datamz;

{$R *.DFM}

end.