datamz.pas

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

unit datamz;

interface

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

type
  TDataMzf = class(TDataModule)
    XyMzValiConnection: TADOConnection;
    XyMzUser: TADOQuery;
    XyMzUserSource: TDataSource;
    UserQuery: TADOQuery;
    UserSource: TDataSource;
    AdmiConnection: TADOConnection;
    YpSource: TDataSource;
    XyReSource: TDataSource;
    LossValiQuery: TADOQuery;
    LossValiSource: TDataSource;
    LossHzSource: TDataSource;
    LossQuery: TADOQuery;
    LossSource: TDataSource;
    PassCommand: TADOCommand;
    YpClassQuery: TADOQuery;
    YpClassSource: TDataSource;
    YpClassaQuery: TADOQuery;
    YpClassaSource: TDataSource;
    LossHzQuery: TADOStoredProc;
    YpQuery1: TADOStoredProc;
    StringField4: TStringField;
    StringField5: TStringField;
    StringField6: TStringField;
    SmallintField1: TSmallintField;
    YpSource1: TDataSource;
    GzlProc: TADOStoredProc;
    YpQuery: TADOStoredProc;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    YpQueryin_id: TAutoIncField;
    XyReQuery: TADOStoredProc;
    TjUp: TADOStoredProc;
    XyDkOutSource: TDataSource;
    XyDkOutQuery: TADOQuery;
    XyZwOutQuery: TADOQuery;
    XyZwOutSource: TDataSource;
    OutHzQuery: TADOStoredProc;
    OutHzSource: TDataSource;
    OutQuery: TADOQuery;
    OutSource: TDataSource;
    YpSource2: TDataSource;
    YpQuery2: TADOStoredProc;
    StringField7: TStringField;
    StringField8: TStringField;
    StringField9: TStringField;
    SmallintField2: TSmallintField;
    YpClassQuery1: TADOQuery;
    YpClassSource1: TDataSource;
    YpClassaQuery1: TADOQuery;
    YpClassaSource1: TDataSource;
    OutZwHz: TADOStoredProc;
    OutZwHzSource: TDataSource;
    OutZwSource: TDataSource;
    OutZw: TADOQuery;
    YpQuery3: TADOStoredProc;
    StringField10: TStringField;
    StringField11: TStringField;
    StringField12: TStringField;
    SmallintField3: TSmallintField;
    YpSource3: TDataSource;
    YpClassaQuery3: TADOQuery;
    YpClassaSource3: TDataSource;
    YpClassQuery3: TADOQuery;
    YpClassSource3: TDataSource;
    GzlSource: TDataSource;
    ZyGzlProc: TADOStoredProc;
    ZyGzlSource: TDataSource;
    LossHzQueryypid: TSmallintField;
    LossHzQueryypname: TStringField;
    LossHzQueryypspec: TStringField;
    LossHzQueryypunit: TStringField;
    LossHzQueryinamou: TIntegerField;
    LossHzQueryinmoney: TBCDField;
    LossQuerymy_id: TAutoIncField;
    LossQueryloss_date: TDateTimeField;
    LossQueryyp_batch: TStringField;
    LossQuerysc_fact: TStringField;
    LossQueryls_price: TBCDField;
    LossQuerycz_man: TStringField;
    LossQueryqr_man: TStringField;
    LossQueryloss_amou: TIntegerField;
    LossQueryloss_reas: TStringField;
    XyDkOutQuerymy_id: TAutoIncField;
    XyDkOutQueryyp_name: TStringField;
    XyDkOutQueryyp_spec: TStringField;
    XyDkOutQueryyp_unit: TStringField;
    XyDkOutQueryyp_batch: TStringField;
    XyDkOutQuerysc_fact: TStringField;
    XyDkOutQueryls_price: TBCDField;
    XyDkOutQueryout_amou: TIntegerField;
    XyDkOutQueryout_date: TDateTimeField;
    XyDkOutQuerycz_man: TStringField;
    XyDkOutQueryqr_man: TStringField;
    XyDkOutQuerycorp_man: TStringField;
    OutHzQueryypid: TSmallintField;
    OutHzQueryypname: TStringField;
    OutHzQueryypspec: TStringField;
    OutHzQueryypunit: TStringField;
    OutHzQueryinamou: TIntegerField;
    OutHzQueryinmoney: TBCDField;
    OutQuerymy_id: TAutoIncField;
    OutQueryout_date: TDateTimeField;
    OutQueryyp_batch: TStringField;
    OutQuerysc_fact: TStringField;
    OutQueryls_price: TBCDField;
    OutQuerycz_man: TStringField;
    OutQueryqr_man: TStringField;
    OutQueryout_amou: TIntegerField;
    OutQuerycorp_man: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataMzf: TDataMzf;

implementation

{$R *.DFM}

end.