datamz2.pas

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

unit datamz2;

interface

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

type
  TDataMzf2 = class(TDataModule)
    ZjHzSource: TDataSource;
    ZjQuery: TADOQuery;
    ZjSource: TDataSource;
    LossHzSource: TDataSource;
    LossQuery: TADOQuery;
    LossSource: TDataSource;
    KsYsYpQuery: TADOQuery;
    KsYsYpSource: TDataSource;
    GzlSource: TDataSource;
    PassCommand: TADOCommand;
    ZjHzQuery: TADOStoredProc;
    YpQuery: TADOStoredProc;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    YpQueryyp_id: TSmallintField;
    YpSource: TDataSource;
    YpClassQuery: TADOQuery;
    YpClassSource: TDataSource;
    YpClassaQuery: TADOQuery;
    YpClassaSource: TDataSource;
    LossHzQuery: TADOStoredProc;
    YpQuery1: TADOStoredProc;
    StringField4: TStringField;
    StringField5: TStringField;
    StringField6: TStringField;
    SmallintField1: TSmallintField;
    YpSource1: TDataSource;
    GzlProc: TADOStoredProc;
    XyMzValiQuery: TADOQuery;
    XyMzXmValiQuery: TADOQuery;
    XyMzValiSource: TDataSource;
    XyMzXmValiSource: TDataSource;
    XyMzLsConnection: TADOConnection;
    XyMzLsUser: TADOQuery;
    XyMzLsUserSource: TDataSource;
    XyMzValiQuery1: TADOQuery;
    XyMzValiSource1: TDataSource;
    XyMzXmValiQuery1: TADOQuery;
    XyMzXmValiSource1: TDataSource;
    XyMzLsConnection1: TADOConnection;
    XyMzLsUser1: TADOQuery;
    XyMzLsSource1: TDataSource;
    DateRecipeQuery: TADOStoredProc;
    DateRecipeSource: TDataSource;
    YpQuery2: TADOStoredProc;
    StringField7: TStringField;
    StringField8: TStringField;
    StringField9: TStringField;
    SmallintField2: TSmallintField;
    YpSource2: TDataSource;
    TjSource: TDataSource;
    TjQuery: TADOStoredProc;
    Date_QrSource: TDataSource;
    Date_QrQuery: TADOStoredProc;
    ZjHzQueryypid: TSmallintField;
    ZjHzQueryypname: TStringField;
    ZjHzQueryypspec: TStringField;
    ZjHzQueryypunit: TStringField;
    ZjHzQueryinamou: TIntegerField;
    ZjHzQueryinmoney: TBCDField;
    ZjQuerymy_id: TAutoIncField;
    ZjQueryls_price: TBCDField;
    ZjQueryin_amou: TIntegerField;
    ZjQueryin_date: TDateTimeField;
    ZjQueryin_man: TStringField;
    ZjQueryqr_man: TStringField;
    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;
    Date_QrQueryqrdate: TDateTimeField;
    Date_QrQueryqr_man: TStringField;
    Date_QrQueryfh_man: TStringField;
    Date_QrQueryamou: TIntegerField;
    Date_QrQueryysmoney: TBCDField;
    TjQuerymyid: TAutoIncField;
    TjQueryinid: TIntegerField;
    TjQuerymark: TStringField;
    TjQueryoutamou: TIntegerField;
    TjQueryjc_price: TBCDField;
    TjQuerytq_price: TBCDField;
    TjQueryjcdate: TDateTimeField;
    TjQueryyp_name: TStringField;
    TjQueryyp_spec: TStringField;
    TjQueryyp_unit: TStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataMzf2: TDataMzf2;

implementation
uses datamz ;
{$R *.DFM}

end.