unit_dm.h

本系统里面包含数据库（SQL SERVER2000）

//---------------------------------------------------------------------------

#ifndef Unit_DMH
#define Unit_DMH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <IniFiles.hpp>
//---------------------------------------------------------------------------
class TDM : public TDataModule
{
__published:	// IDE-managed Components
        TADOConnection *ADOC;
        TADOQuery *files;
        TDataSource *dsfiles;
        TADOQuery *Query1;
        TADOQuery *DataWh;
        TDataSource *dsDataWh;
        TAutoIncField *DataWhsno;
        TStringField *DataWhbh;
        TStringField *DataWhname;
        TStringField *DataWhflag;
        TADOQuery *items;
        TDataSource *dsitems;
        TAutoIncField *itemssno;
        TStringField *itemsezd;
        TStringField *itemsczd;
        TStringField *itemstype;
        TBooleanField *itemsflag;
        TIntegerField *itemsbh;
        TADOQuery *FileTmp;
        TDataSource *dsFileTmp;
        TADOStoredProc *FileQuery;
        TAutoIncField *filessno;
        TStringField *filesnumber;
        TStringField *filesname;
        TStringField *filessex;
        TStringField *filesoffice;
        TStringField *filesIDcard;
        TStringField *filesdegree;
        TStringField *filesschool;
        TStringField *filesspecialty;
        TStringField *fileszylevel;
        TStringField *fileszysort;
        TStringField *filesbound;
        TStringField *filestitle;
        TStringField *fileszyzs;
        TStringField *fileszc;
        TStringField *filesduty;
        TStringField *filessideline;
        TStringField *fileszkzc;
        TDateTimeField *filesmztime;
        TStringField *filesremark;
        TStringField *filesphoto;
        TStringField *filesidh;
        TStringField *filesitem1;
        TStringField *filesitem2;
        TStringField *filesitem3;
        TStringField *filesitem4;
        TADOQuery *Notes;
        TDataSource *dsNotes;
        TAutoIncField *Notessno;
        TStringField *Notesbh;
        TDateTimeField *Notesdat;
        TMemoField *Notesnote;
        TStringField *Notesidh;
        TStringField *Notesflag;
        TAutoIncField *FileTmpsno;
        TStringField *FileTmpnumber;
        TStringField *FileTmpname;
        TStringField *FileTmpsex;
        TStringField *FileTmpoffice;
        TStringField *FileTmpIDcard;
        TStringField *FileTmpdegree;
        TStringField *FileTmpschool;
        TStringField *FileTmpspecialty;
        TStringField *FileTmpzylevel;
        TStringField *FileTmpzysort;
        TStringField *FileTmpbound;
        TStringField *FileTmptitle;
        TStringField *FileTmpzyzs;
        TStringField *FileTmpzc;
        TStringField *FileTmpduty;
        TStringField *FileTmpsideline;
        TStringField *FileTmpzkzc;
        TDateTimeField *FileTmpmztime;
        TStringField *FileTmpremark;
        TStringField *FileTmpphoto;
        TStringField *FileTmpidh;
        TStringField *FileTmpitem1;
        TStringField *FileTmpitem2;
        TStringField *FileTmpitem3;
        TStringField *FileTmpitem4;
        TADOQuery *users;
        TDataSource *dsusers;
        TStringField *usersbh;
        TStringField *usersxm;
        TStringField *userssex;
        TStringField *usersbm;
        TStringField *userspsw;
        TMemoField *usersqx;
        TIntegerField *usersjb;
        void __fastcall DataModuleCreate(TObject *Sender);
        void __fastcall DataModuleDestroy(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TDM(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TDM *DM;
//---------------------------------------------------------------------------
#endif