pubdata.pas

一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码一个门诊系统程序代码

//********************************//
//  模块:数据模块                 //
//  设计：杨凌      2005.06.20    //
//                                //
//********************************//
unit pubdata;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tfpubdata = class(TDataModule)
    qrydisp_area: TADOQuery;
    dsdisp_area: TDataSource;
    qrydisp_areaid: TAutoIncField;
    qrydisp_areafcode: TWideStringField;
    qrydisp_areaarea_name: TWideStringField;
    qrydisp_areafmem: TWideStringField;
    qrydisp_areafathercode: TWideStringField;
    qrydisp_areafSort: TWideStringField;
    qrydisp_ftype: TADOQuery;
    dsdisp_ftype: TDataSource;
    qrydisp_ftypeid: TAutoIncField;
    qrydisp_ftypefcode: TWideStringField;
    qrydisp_ftypeFtype_name: TWideStringField;
    qrydisp_ftypefathercode: TWideStringField;
    qrydisp_ftypefmem: TWideStringField;
    qrydisp_ftypefSort: TWideStringField;
    qrydisp_type: TADOQuery;
    dsdisp_type: TDataSource;
    qrychine_type: TADOQuery;
    dschine_type: TDataSource;
    qrychine_typeid: TAutoIncField;
    qrychine_typefcode: TWideStringField;
    qrychine_typeMtype_name: TWideStringField;
    qrychine_typefathercode: TWideStringField;
    qrychine_typefmem: TWideStringField;
    qrychine_typesort: TWideStringField;
    qrydisp_whs: TADOQuery;
    dsdisp_whs: TDataSource;
    qrydisp_whsid: TAutoIncField;
    qrydisp_whsWhs_code: TWideStringField;
    qrydisp_whsWhs_name: TWideStringField;
    qrydisp_whsWhs_whs: TWideStringField;
    qrydisp_whsfmem: TWideStringField;
    qrydisp_whsfSort: TWideStringField;
    qrydisp_utype: TADOQuery;
    dsdisp_utype: TDataSource;
    qrydisp_utypeid: TAutoIncField;
    qrydisp_utypeUt_code: TWideStringField;
    qrydisp_utypeUt_name: TWideStringField;
    qrydisp_utypeUt_mean: TWideStringField;
    qrydisp_utypefmem: TWideStringField;
    qrydisp_utypefSort: TWideStringField;
    qrydisp_unit: TADOQuery;
    dsdisp_unit: TDataSource;
    qrydisp_unitid: TAutoIncField;
    qrydisp_unitUnit_code: TWideStringField;
    qrydisp_unitUnit_name: TWideStringField;
    qrydisp_unitfmem: TWideStringField;
    qrydisp_unitfSort: TWideStringField;
    qrydisp_user: TADOQuery;
    dsdisp_user: TDataSource;
    qrydisp_userid: TAutoIncField;
    qrydisp_userUser_code: TWideStringField;
    qrydisp_userUser_name: TWideStringField;
    qrydisp_userUser_pas: TWideStringField;
    qrydisp_userUser_sex: TWideStringField;
    qrydisp_userUser_age: TIntegerField;
    qrydisp_userUser_adds: TWideStringField;
    qrydisp_userUser_tel: TIntegerField;
    qrydisp_userfmem: TWideStringField;
    qrydisp_userUser_out: TIntegerField;
    qrydisp_userfSort: TWideStringField;
    qryhi_draw: TADOQuery;
    qryhi_drawid: TAutoIncField;
    qryhi_drawFcode: TWideStringField;
    qryhi_drawDr_name: TWideStringField;
    qryhi_drawDr_age: TIntegerField;
    qryhi_drawDr_sex: TWideStringField;
    qryhi_drawDr_born: TDateTimeField;
    qryhi_drawDr_adds: TWideStringField;
    qryhi_drawDr_tel: TWideStringField;
    qryhi_drawDr_self: TWideStringField;
    qryhi_drawDr_gm: TWideStringField;
    qryhi_drawDr_jz: TWideStringField;
    qryhi_drawDr_gr: TWideStringField;
    qryhi_drawDr_jw: TWideStringField;
    qryhi_drawDr_xb: TWideStringField;
    qryhi_drawDr_result: TWideStringField;
    qryhi_drawDr_transact: TWideStringField;
    qryhi_drawDr_worker: TWideStringField;
    qryhi_drawFdate: TDateTimeField;
    qryhi_drawfmem: TWideStringField;
    qryhi_drawfSort: TWideStringField;
    dshi_draw: TDataSource;
    qrykc_table: TADOQuery;
    qrykc_tableid: TAutoIncField;
    qrykc_tableKc_code: TWideStringField;
    qrykc_tableKc_name: TWideStringField;
    qrykc_tableKc_qty1: TFloatField;
    qrykc_tableKc_qty2: TFloatField;
    qrykc_tableKc_qty3: TFloatField;
    qrykc_tableKc_qty4: TIntegerField;
    qrykc_tableKc_allqty: TIntegerField;
    qrykc_tableKc_money: TFloatField;
    qrykc_tableKc_up: TFloatField;
    qrykc_tableKc_down: TFloatField;
    qrykc_tablefmem: TWideStringField;
    qrykc_tableKc_cbprice: TFloatField;
    qryphy: TADOQuery;
    qryphyid: TAutoIncField;
    qryphyPhy_code: TWideStringField;
    qryphyPhy_name: TWideStringField;
    qryphyPhy_type: TWideStringField;
    qryphyPhy_marking: TWideStringField;
    qryphyPhy_abc: TWideStringField;
    qryphyPhy_unit: TWideStringField;
    qryphyPhy_aveprice: TFloatField;
    qryphyPhy_retail1: TFloatField;
    qryphyPhy_unit1: TWideStringField;
    qryphyPhy_unit1rate: TFloatField;
    qryphyPhy_retail2: TFloatField;
    qryphyPhy_unit2: TWideStringField;
    qryphyPhy_unit2rate: TFloatField;
    qryphyPhy_retail3: TFloatField;
    qryphyPhy_unit3: TWideStringField;
    qryphyPhy_unit3rate: TFloatField;
    qryphyPhy_retail4: TFloatField;
    qryphyPhy_up: TFloatField;
    qryphyPhy_down: TFloatField;
    qryphyPhy_spec: TWideStringField;
    qryphyPhy_xz: TWideStringField;
    qryphyPhy_fit: TWideStringField;
    qryphyPhy_reaction: TWideStringField;
    qryphyPhy_enjoin: TWideStringField;
    qryphyPhy_attention: TWideStringField;
    qryphyPhy_savedate: TFloatField;
    qryphyPhy_otc: TIntegerField;
    qryphyPhy_out: TIntegerField;
    qryphyfmem: TWideStringField;
    qryphyfSort: TWideStringField;
    qryphyphy_used: TWideStringField;
    qryphyphy_factory: TWideStringField;
    qryphyftype: TWideStringField;
    qrycount: TADOQuery;
    qrycountid: TAutoIncField;
    qrycountcount: TIntegerField;
    ADOhint: TADOQuery;
    ADOhintid: TAutoIncField;
    ADOhintfcode: TWideStringField;
    ADOhintMa_worker: TWideStringField;
    ADOhintMa_whscode: TWideStringField;
    ADOhintMa_pcode: TWideStringField;
    ADOhintMa_pname: TWideStringField;
    ADOhintFdate: TDateTimeField;
    ADOhintMa_unit: TWideStringField;
    ADOhintMa_unit2: TFloatField;
    ADOhintMa_unit1: TFloatField;
    ADOhintMa_ss: TFloatField;
    ADOhintMa_buyprice: TFloatField;
    ADOhintMa_sum: TFloatField;
    ADOhintMa_yield: TDateTimeField;
    ADOhintMa_enddate: TDateTimeField;
    ADOhintMa_ph: TWideStringField;
    ADOhintMa_factory: TWideStringField;
    ADOhintfout: TIntegerField;
    ADOhintfmem: TWideStringField;
    ADOhintfSort: TWideStringField;
    ADOhintma_bzq: TIntegerField;
    ADOhintma_qyt: TFloatField;
    ADOhintma_otc: TIntegerField;
    ADOhintma_othername: TWideStringField;
    qrydisp_typeid: TAutoIncField;
    qrydisp_typefcode: TWideStringField;
    qrydisp_typeTy_name: TWideStringField;
    qrydisp_typefathercode: TWideStringField;
    qrydisp_typefmem: TWideStringField;
    qrydisp_typefSort: TWideStringField;
    fcount: TADOQuery;
    dscount: TDataSource;
    fcountid: TAutoIncField;
    fcountcount: TIntegerField;
    qryfy: TADOQuery;
    dsfy: TDataSource;
    qryfyid: TAutoIncField;
    qryfyfy_code: TWideStringField;
    qryfyfy_name: TWideStringField;
    qryfyfmem: TWideStringField;
    qryfysort: TWideStringField;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fpubdata: Tfpubdata;

implementation

uses dataform;

{$R *.dfm}

end.