main.h

来自「Direct Oracle Access 非常好的Oracle数据库直接访问组」· C头文件 代码 · 共 59 行

//---------------------------------------------------------------------------
#ifndef MainH
#define MainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "Oracle.hpp"
#include "OracleData.hpp"
#include <Db.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
#include "OracleNavigator.hpp"
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:	// IDE-managed Components
    TGroupBox *DeptGroupBox;
    TDBGrid *DeptGrid;
    TGroupBox *EmpGroupBox;
    TDBGrid *EmpGrid;
    TOracleSession *MainSession;
    TOracleLogon *MainLogon;
    TOracleDataSet *DeptDataSet;
    TIntegerField *DeptNo;
    TStringField *DName;
    TStringField *Loc;
    TOracleDataSet *EmpDataSet;
    TIntegerField *EmpNo;
    TStringField *EName;
    TStringField *Job;
    TIntegerField *Mgr;
    TStringField *MgrName;
    TDateTimeField *HireDate;
    TFloatField *Sal;
    TFloatField *Comm;
    TIntegerField *EmpDeptNo;
    TDataSource *DeptDataSource;
    TDataSource *EmpDataSource;
    TOracleQuery *MgrQuery;
    TOracleNavigator *DeptNavigator;
    TOracleNavigator *EmpNavigator;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall DeptDataSetTranslateMessage(TOracleDataSet *Sender,
          int ErrorCode, const AnsiString ConstraintName, char Action,
          AnsiString &Msg);
    void __fastcall MgrValidate(TField *Sender);
private:	// User declarations
public:		// User declarations
    __fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif