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;
    XyKcReQuery: TADOQuery;
    XyKcWhSource: TDataSource;
    RecipeXmSource: TDataSource;
    RecipeQuery: TADOQuery;
    RecipeSource: TDataSource;
    RecipeHzSource: TDataSource;
    XyReQuery: TADOStoredProc;
    XyKcWhQuery: TADOStoredProc;
    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;
    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;
    RecipeYpQuerymy_id: TAutoIncField;
    RecipeYpQueryyp_batch: TStringField;
    RecipeYpQuerysc_fact: TStringField;
    RecipeYpQueryqr_date: TDateTimeField;
    RecipeYpQueryls_price: TBCDField;
    RecipeYpQueryyp_amou: TIntegerField;
    RecipeYpQueryhj_id: TIntegerField;
    RecipeYpQueryqr_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;
    YpQuery2: TADOStoredProc;
    StringField4: TStringField;
    StringField8: TStringField;
    StringField9: TStringField;
    SmallintField1: TSmallintField;
    YpSource2: TDataSource;
    KcPrin: TADOStoredProc;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataMzf1: TDataMzf1;

implementation

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