serverunit.h

Direct Oracle Access 非常好的Oracle数据库直接访问组件包 支持个版本的Delphi及C++ Builder 有源码

//---------------------------------------------------------------------------
#ifndef ServerUnitH
#define ServerUnitH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <ShellAPI.hpp>
#include "Oracle.hpp"
#include "OracleData.hpp"
#include <Db.hpp>
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:	// IDE-managed Components
    TPanel *StatusPanel;
    TPanel *ButttonPanel;
    TButton *ShutDownButton;
    TMemo *LogMemo;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormDestroy(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall ShutDownButtonClick(TObject *Sender);
private:	// User declarations
    TNotifyIconData TrayIconData;
    bool __fastcall AddIcon();
    bool __fastcall DeleteIcon();
    void __fastcall TrayIconClick();
	virtual void __fastcall WndProc(Messages::TMessage &Message);
public:		// User declarations
    __fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
void __fastcall Log(AnsiString S);
void __fastcall UpdateStatusLine(int Change);
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif