dataform.pas

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

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

interface

uses
  SysUtils, Classes, ActnList, ImgList, Controls, DB, ADODB, DBActns,
  Dialogs, FR_Desgn;

type
  TfData = class(TDataModule)
    ADOConnection: TADOConnection;
    Sqltmp: TADOQuery;
    ImageList: TImageList;
    dlgSave: TSaveDialog;
    OpenDialog1: TOpenDialog;
    actlst1: TActionList;
    actexcel: TAction;
    Global: TADOQuery;
    sqlcheck: TADOQuery;
    sqlcheckid: TAutoIncField;
    sqlcheckKc_code: TWideStringField;
    sqlcheckKc_name: TWideStringField;
    sqlcheckKc_qty1: TFloatField;
    sqlcheckKc_qty2: TFloatField;
    sqlcheckKc_qty3: TFloatField;
    sqlcheckKc_qty4: TIntegerField;
    sqlcheckKc_allqty: TIntegerField;
    sqlcheckKc_money: TFloatField;
    sqlcheckKc_up: TFloatField;
    sqlcheckKc_down: TFloatField;
    sqlcheckfmem: TWideStringField;
    sqlcheckKc_cbprice: TFloatField;
    frDesigner: TfrDesigner;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fData: TfData;

implementation

uses KC_table;

{$R *.dfm}

end.