unit1.h

本程序是一个比较简单的通讯录 该程序可能比较有参考价值的地方 可能就是它用到了数据库的动太链接

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

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <Buttons.hpp>
#include <Db.hpp>
#include <DBCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Mask.hpp>
#include <Dialogs.hpp>
#include <ExtDlgs.hpp>
#include <Graphics.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TPanel *Panel1;
        TPanel *Panel2;
        TSplitter *Splitter1;
        TPanel *Panel3;
        TADOConnection *ADOConnection1;
        TADOTable *ADOTable1;
        TAutoIncField *ADOTable1ID;
        TWideStringField *ADOTable1DSDesigner;
        TWideStringField *ADOTable1DSDesigner2;
        TWideStringField *ADOTable1QQ;
        TWideStringField *ADOTable1DSDesigner3;
        TWideStringField *ADOTable1DSDesigner4;
        TWideStringField *ADOTable1DSDesigner5;
        TMemoField *ADOTable1DSDesigner6;
        TBlobField *ADOTable1DSDesigner7;
        TLabel *Label1;
        TDBEdit *DBEdit1;
        TDataSource *DataSource1;
        TLabel *Label2;
        TDBEdit *DBEdit2;
        TLabel *Label3;
        TDBEdit *DBEdit3;
        TLabel *Label4;
        TDBEdit *DBEdit4;
        TLabel *Label5;
        TDBEdit *DBEdit5;
        TLabel *Label6;
        TDBEdit *DBEdit6;
        TLabel *Label7;
        TDBMemo *DBMemo1;
        TLabel *Label8;
        TDBImage *DBImage1;
        TSpeedButton *SpeedButton1;
        TSpeedButton *SpeedButton2;
        TSpeedButton *SpeedButton3;
        TSpeedButton *SpeedButton4;
        TSpeedButton *SpeedButton5;
        TSpeedButton *SpeedButton6;
        TSpeedButton *SpeedButton7;
        TSpeedButton *SpeedButton8;
        TSpeedButton *SpeedButton9;
        TComboBox *ComboBox1;
        TEdit *Edit1;
        TBitBtn *BitBtn1;
        TComboBox *ComboBox2;
        TOpenPictureDialog *OpenPictureDialog1;
        TCheckBox *CheckBox1;
        TImage *Image1;
        void __fastcall DBImage1Click(TObject *Sender);
        void __fastcall SpeedButton1Click(TObject *Sender);
        void __fastcall SpeedButton2Click(TObject *Sender);
        void __fastcall SpeedButton3Click(TObject *Sender);
        void __fastcall SpeedButton4Click(TObject *Sender);
        void __fastcall SpeedButton5Click(TObject *Sender);
        void __fastcall SpeedButton6Click(TObject *Sender);
        void __fastcall SpeedButton7Click(TObject *Sender);
        void __fastcall SpeedButton8Click(TObject *Sender);
        void __fastcall SpeedButton9Click(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
        void __fastcall BitBtn1Click(TObject *Sender);
        void __fastcall ADOTable1FilterRecord(TDataSet *DataSet,
          bool &Accept);
        void __fastcall CheckBox1Click(TObject *Sender);
        void __fastcall Image1Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
        bool IsClicked;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif