dataform.pas

来自「这是一个实用的软件」· PAS 代码 · 共 55 行

//********************************//
//  模块:数据模块                 //
//  设计：杨凌      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.