keren.~h

来自「Raize控件包的安装路径为D:Program Files(一定要安装到正确位置」· ~H 代码 · 共 63 行

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

#ifndef kerenH
#define kerenH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADODB.hpp>
#include <DB.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <ExtCtrls.hpp>
#include <Grids.hpp>
//---------------------------------------------------------------------------
class TForm23 : public TForm
{
__published:	// IDE-managed Components
        TEdit *Edit1;
        TDBNavigator *DBNavigator1;
        TComboBox *ComboBox1;
        TButton *Button4;
        TButton *Button3;
        TButton *Button2;
        TButton *Button1;
        TDBGrid *DBGrid1;
        TADOTable *ADOTable1;
        TDataSource *DataSource1;
        TStringField *ADOTable1CustomerId;
        TStringField *ADOTable1CustomerName;
        TStringField *ADOTable1CustomerSex;
        TStringField *ADOTable1CustomerAge;
        TStringField *ADOTable1IDCard;
        TStringField *ADOTable1PhoneNO;
        TStringField *ADOTable1Email;
        TStringField *ADOTable1RegisterDay;
        TStringField *ADOTable1CheckInDay;
        TStringField *ADOTable1RoomNo;
        TBCDField *ADOTable1Deposit;
        TBCDField *ADOTable1Account;
        TStringField *ADOTable1CustomerState;
        TStringField *ADOTable1RoomType;
        TStringField *ADOTable1StayDays;
        TStringField *ADOTable1CheckOutDay;
        TStringField *ADOTable1CheckInDate;
        TStringField *ADOTable1DestineDays;
        TBCDField *ADOTable1CustomerPay;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall ADOTable1FilterRecord(TDataSet *DataSet,
          bool &Accept);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button3Click(TObject *Sender);
        void __fastcall Button4Click(TObject *Sender);
private:	// User declarations
public:		// User declarations
        __fastcall TForm23(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm23 *Form23;
//---------------------------------------------------------------------------
#endif