datamz2.pas

来自「本文重点研究的是医院西药药房管理系统」· PAS 代码 · 共 78 行

unit datamz2;

interface

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

type
  TDataMzf2 = class(TDataModule)
    PassCommand: TADOCommand;
    YpQuery: TADOStoredProc;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    YpQueryyp_id: TSmallintField;
    YpSource: TDataSource;
    YpClassQuery: TADOQuery;
    YpClassSource: TDataSource;
    YpClassaQuery: TADOQuery;
    YpClassaSource: TDataSource;
    YpQuery1: TADOStoredProc;
    StringField4: TStringField;
    StringField5: TStringField;
    StringField6: TStringField;
    SmallintField1: TSmallintField;
    YpSource1: TDataSource;
    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;
    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.