datamz1.pas

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

unit datamz1;

interface

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

type
  TDataMzf1 = class(TDataModule)
    XyMzQuitQuery: TADOQuery;
    XyMzXmQuitQuery: TADOQuery;
    XyMzQuitSource: TDataSource;
    XyMzXmQuitSource: TDataSource;
    XyMzQuitQuery1: TADOQuery;
    XyReSource: TDataSource;
    XyMzLossQuery: TADOQuery;
    XyMzLossSource: TDataSource;
    XyMzLossQuery1: TADOQuery;
    LossValiQuery: TADOQuery;
    LossValiSource: TDataSource;
    XyKcReQuery: TADOQuery;
    XyNightQuery: TADOQuery;
    XyNightSource: TDataSource;
    XySeleQuery1: TADOQuery;
    XySeleSource1: TDataSource;
    XyDayQuery: TADOQuery;
    XyDaySource: TDataSource;
    XyKcWhSource: TDataSource;
    DayNightQuery: TADOQuery;
    DayNightSource: TDataSource;
    XyMzInHzSource: TDataSource;
    XyMzInQuery: TADOQuery;
    XyMzInSource: TDataSource;
    RecipeXmSource: TDataSource;
    RecipeQuery: TADOQuery;
    RecipeSource: TDataSource;
    RecipeHzSource: TDataSource;
    LifeOmenSource: TDataSource;
    LifeOmenQuery: TADOQuery;
    KcOmenSource: TDataSource;
    KcOmenQuery: TADOQuery;
    SwitchQuery: TADOQuery;
    XyReQuery: TADOStoredProc;
    XyKcWhQuery: TADOStoredProc;
    XyMzInHzQuery: TADOStoredProc;
    XyMzInHzQueryypid: TSmallintField;
    XyMzInHzQueryypname: TStringField;
    XyMzInHzQueryypspec: TStringField;
    XyMzInHzQueryypunit: TStringField;
    XyMzInHzQueryinamou: TIntegerField;
    XyMzInHzQueryinmoney: TBCDField;
    RecipeXmQuery: TADOStoredProc;
    RecipeHzQuery: TADOStoredProc;
    RecipeHzQueryyp_id: TSmallintField;
    RecipeHzQueryyp_name: TStringField;
    RecipeHzQueryyp_spec: TStringField;
    RecipeHzQueryyp_unit: TStringField;
    RecipeHzQuerymoney: TBCDField;
    RecipeHzQueryamou: TIntegerField;
    RecipeYpQuery: TADOQuery;
    RecipeYpSource: TDataSource;
    XyMzLsConnection: TADOConnection;
    XyMzLsUser: TADOQuery;
    XyMzLsUserSource: TDataSource;
    LossValiQuerymy_id: TAutoIncField;
    LossValiQueryyp_name: TStringField;
    LossValiQueryyp_spec: TStringField;
    LossValiQueryyp_unit: TStringField;
    LossValiQueryyp_batch: TStringField;
    LossValiQueryls_price: TBCDField;
    LossValiQueryloss_amou: TIntegerField;
    LossValiQueryloss_date: TDateTimeField;
    LossValiQuerycz_man: TStringField;
    LossValiQueryqr_man: TStringField;
    LossValiQueryloss_reas: TStringField;
    XyMzInQuerymy_id: TAutoIncField;
    XyMzInQueryyp_batch: TStringField;
    XyMzInQuerysc_fact: TStringField;
    XyMzInQueryls_price: TBCDField;
    XyMzInQueryin_amou: TIntegerField;
    XyMzInQueryin_date: TDateTimeField;
    XyMzInQueryqr_date: TDateTimeField;
    XyMzInQueryin_man: TStringField;
    XyMzInQueryqr_man: TStringField;
    XyMzInQueryout_man: TStringField;
    RecipeXmQueryhzname: TStringField;
    RecipeXmQueryhj_id: TIntegerField;
    RecipeXmQuerysr_man: TStringField;
    RecipeXmQueryysmoney: TBCDField;
    RecipeXmQueryva_man: TStringField;
    RecipeXmQueryva_iden: TWordField;
    RecipeQuerymy_id: TAutoIncField;
    RecipeQueryyp_name: TStringField;
    RecipeQueryyp_spec: TStringField;
    RecipeQueryyp_unit: TStringField;
    RecipeQueryyp_batch: TStringField;
    RecipeQuerysc_fact: TStringField;
    RecipeQueryqr_date: TDateTimeField;
    RecipeQueryls_price: TBCDField;
    RecipeQueryyp_amou: TIntegerField;
    LifeOmenQueryin_id: TIntegerField;
    LifeOmenQueryyp_life: TDateTimeField;
    LifeOmenQueryyp_name: TStringField;
    LifeOmenQueryyp_spec: TStringField;
    LifeOmenQueryyp_unit: TStringField;
    LifeOmenQuerysc_fact: TStringField;
    LifeOmenQueryls_price: TBCDField;
    LifeOmenQuerymz_amou: TIntegerField;
    RecipeYpQuerymy_id: TAutoIncField;
    RecipeYpQueryyp_batch: TStringField;
    RecipeYpQuerysc_fact: TStringField;
    RecipeYpQueryqr_date: TDateTimeField;
    RecipeYpQueryls_price: TBCDField;
    RecipeYpQueryyp_amou: TIntegerField;
    RecipeYpQueryhj_id: TIntegerField;
    RecipeYpQueryqr_man: TStringField;
    UserSource: TDataSource;
    UserQuery: TADOQuery;
    XyKcWhQueryin_id: TIntegerField;
    XyKcWhQueryyp_id: TSmallintField;
    XyKcWhQueryyp_name: TStringField;
    XyKcWhQueryyp_spec: TStringField;
    XyKcWhQueryyp_unit: TStringField;
    XyKcWhQueryyp_batch: TStringField;
    XyKcWhQuerysc_fact: TStringField;
    XyKcWhQuerymz_amou: TIntegerField;
    XyKcWhQueryls_price: TBCDField;
    XyKcWhQueryday_iden: TBooleanField;
    XyKcWhQueryfirstday_iden: TBooleanField;
    XyKcWhQuerymz_tank: TIntegerField;
    YpQuery2: TADOStoredProc;
    StringField4: TStringField;
    StringField8: TStringField;
    StringField9: TStringField;
    SmallintField1: TSmallintField;
    YpSource2: TDataSource;
    KcPrin: TADOStoredProc;
    XyZyInQuery: TADOStoredProc;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataMzf1: TDataMzf1;

implementation

{$R *.DFM}
 uses datamz;
end.