datamz.~pas

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

unit datamz;

interface

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

type
  TDataMzf = class(TDataModule)
    XyMzValiConnection: TADOConnection;
    XyMzValiQuery: TADOQuery;
    XyMzXmValiQuery: TADOQuery;
    XyMzValiSource: TDataSource;
    XyMzUser: TADOQuery;
    XyMzXmValiSource: TDataSource;
    XyMzUserSource: TDataSource;
    XyMzLsConnection: TADOConnection;
    XyMzLsUser: TADOQuery;
    XyMzLsUserSource: TDataSource;
    UserQuery: TADOQuery;
    UserSource: TDataSource;
    AdmiConnection: TADOConnection;
    XySource: TDataSource;
    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;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataMzf: TDataMzf;

implementation

{$R *.DFM}

end.