datamz.~pas

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

unit datamz;

interface

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

type
  TDataMzf = class(TDataModule)
    XyMzInQuery: TADOQuery;
    XyMzInSource: TDataSource;
    XyMzValiConnection: TADOConnection;
    XyMzValiQuery: TADOQuery;
    XyMzXmValiQuery: TADOQuery;
    XyMzValiSource: TDataSource;
    XyMzUser: TADOQuery;
    XyMzXmValiSource: TDataSource;
    XyMzUserSource: TDataSource;
    UserQuery: TADOQuery;
    UserSource: TDataSource;
    AdmiConnection: TADOConnection;
    XySource: TDataSource;
    XyZjQuery: TADOQuery;
    XyZjSource: TDataSource;
    XyZjInQuery: TADOQuery;
    XyQuery: TADOStoredProc;
    XyQueryin_id: TAutoIncField;
    XyQueryyp_name: TStringField;
    XyQueryyp_spec: TStringField;
    XyQueryyp_unit: TStringField;
    XyQueryls_price: TBCDField;
    XyQueryyp_batch: TStringField;
    ZjValiSource: TDataSource;
    ZjValiQuery: TADOQuery;
    XySourceMz: TDataSource;
    XyQueryMz: TADOStoredProc;
    XyQueryMzin_id: TIntegerField;
    XyQueryMzyp_name: TStringField;
    XyQueryMzyp_spec: TStringField;
    XyQueryMzyp_unit: TStringField;
    XyQueryMzls_price: TBCDField;
    XyQueryMzyp_batch: TStringField;
    XyQueryMzsc_fact: TStringField;
    YpQuery: TADOStoredProc;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    YpSource: TDataSource;
    YpQuery1: TADOStoredProc;
    StringField5: TStringField;
    StringField6: TStringField;
    StringField7: TStringField;
    YpSource1: TDataSource;
    YpQuery1yp_id: TSmallintField;
    YpQueryyp_id: TSmallintField;
    YpQuery2: TADOStoredProc;
    StringField4: TStringField;
    StringField8: TStringField;
    StringField9: TStringField;
    SmallintField1: TSmallintField;
    YpSource2: TDataSource;
    YpClassQuery: TADOQuery;
    YpClassSource: TDataSource;
    YpClassaQuery: TADOQuery;
    YpClassaSource: TDataSource;
    YpClassQuery1: TADOQuery;
    YpClassSource1: TDataSource;
    YpClassaQuery1: TADOQuery;
    YpClassaSource1: TDataSource;
    YpClassQuery2: TADOQuery;
    YpClassSource2: TDataSource;
    YpClassaQuery2: TADOQuery;
    YpClassaSource2: TDataSource;
    YpQuery3: TADOStoredProc;
    StringField10: TStringField;
    StringField11: TStringField;
    StringField12: TStringField;
    SmallintField2: TSmallintField;
    YpSource3: TDataSource;
    XyMzInQuerymy_id: TAutoIncField;
    XyMzInQueryyp_name: TStringField;
    XyMzInQueryyp_unit: TStringField;
    XyMzInQueryyp_spec: TStringField;
    XyMzInQueryls_price: TBCDField;
    XyMzInQuerysc_fact: TStringField;
    XyMzInQueryyp_batch: TStringField;
    XyMzInQueryin_amou: TIntegerField;
    XyMzInQueryin_man: TStringField;
    XyMzInQueryin_date: TDateTimeField;
    XyMzInQueryqr_man: TStringField;
    ZjValiQuerymy_id: TAutoIncField;
    ZjValiQueryyp_name: TStringField;
    ZjValiQueryyp_spec: TStringField;
    ZjValiQueryyp_unit: TStringField;
    ZjValiQueryyp_batch: TStringField;
    ZjValiQueryls_price: TBCDField;
    ZjValiQueryin_amou: TIntegerField;
    ZjValiQueryin_man: TStringField;
    ZjValiQueryin_date: TDateTimeField;
    ZjValiQueryqr_man: TStringField;
    XyZjQuerymy_id: TAutoIncField;
    XyZjQueryin_id: TIntegerField;
    XyZjQueryyp_id: TSmallintField;
    XyZjQueryyp_code: TStringField;
    XyZjQueryyp_name: TStringField;
    XyZjQueryyp_spec: TStringField;
    XyZjQueryyp_unit: TStringField;
    XyZjQueryyp_batch: TStringField;
    XyZjQueryls_price: TBCDField;
    XyZjQueryin_amou: TIntegerField;
    XyZjInQuerymy_id: TAutoIncField;
    XyZjInQueryin_id: TIntegerField;
    XyZjInQueryls_price: TBCDField;
    XyZjInQueryin_amou: TIntegerField;
    XyMzLsConnection: TADOConnection;
    XyMzLsUser: TADOQuery;
    XyMzLsUserSource: TDataSource;
    Del: TADOStoredProc;
    AutoIncField1: TAutoIncField;
    StringField13: TStringField;
    StringField14: TStringField;
    StringField15: TStringField;
    BCDField1: TBCDField;
    StringField16: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataMzf: TDataMzf;

implementation

{$R *.DFM}

end.