datamz1.pas

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

unit datamz1;

interface

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

type
  TDataMzf1 = class(TDataModule)
    MxzSource: TDataSource;
    MxzQuery: TADOStoredProc;
    YpQuery: TADOStoredProc;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    YpSource: TDataSource;
    XyQuery: TADOQuery;
    XySource: TDataSource;
    YpQueryyp_id: TSmallintField;
    MxzQuerymyid: TIntegerField;
    MxzQueryinid: TIntegerField;
    MxzQuerymark: TStringField;
    MxzQueryrzamou: TIntegerField;
    MxzQueryrzprice: TBCDField;
    MxzQueryrzmoney: TBCDField;
    MxzQueryoutamou: TIntegerField;
    MxzQueryoutprice: TBCDField;
    MxzQueryoutmoney: TBCDField;
    MxzQueryjcamou: TIntegerField;
    MxzQueryjcprice: TBCDField;
    MxzQueryjcmoney: TBCDField;
    MxzQueryjcdate: TDateTimeField;
    YpQuery1: TADOStoredProc;
    StringField4: TStringField;
    StringField5: TStringField;
    StringField6: TStringField;
    SmallintField1: TSmallintField;
    YpSource1: TDataSource;
    KcQuery: TADOStoredProc;
    KcSource: TDataSource;
    KcQueryin_id: TAutoIncField;
    KcQueryyp_id: TIntegerField;
    KcQueryyp_name: TStringField;
    KcQueryyp_spec: TStringField;
    KcQueryyp_unit: TStringField;
    KcQueryyp_batch: TStringField;
    KcQuerysc_fact: TStringField;
    KcQueryyp_amou: TIntegerField;
    KcQueryls_price: TBCDField;
    KcQueryje: TBCDField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataMzf1: TDataMzf1;

implementation

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