search.h

机器须安装SQL Server2000 程序安装完之后

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

#ifndef SearchH
#define SearchH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <DBLookup.hpp>
#include <DBCtrls.hpp>
#include <DBGrids.hpp>
#include <Grids.hpp>
#include <ADODB.hpp>
#include <Db.hpp>
#include <ComCtrls.hpp>
//---------------------------------------------------------------------------
class TSearchForm : public TForm
{
__published:	// IDE-managed Components
    TPanel *Panel1;
    TGroupBox *GroupBox1;
    TDBGrid *DBGrid1;
    TRadioButton *RadioButton1;
    TRadioButton *RadioButton2;
    TRadioButton *RadioButton3;
    TComboBox *ComboBox1;
    TADOQuery *ADOQuery1;
    TADOQuery *ADOQuery2;
    TDataSource *DSRoom;
    TAutoIncField *ADOQuery2ID;
    TStringField *ADOQuery2Place;
    TIntegerField *ADOQuery2RoomlevelCode;
    TIntegerField *ADOQuery2RoomStateCode;
    TStringField *ADOQuery2Remark;
    TIntegerField *ADOQuery2CleanTypeNo;
    TIntegerField *ADOQuery2Floor;
    TStringField *ADOQuery2RoomNo;
    TStringField *ADOQuery2roomlevel;
    TStringField *ADOQuery2newstate;
    TStringField *ADOQuery2newfloor;
    TRadioButton *RadioButton4;
    TRadioButton *RadioButton5;
    TDateTimePicker *DateTimePicker1;
    TDateTimePicker *DateTimePicker2;
    TLabel *Label1;
    TLabel *Label2;
    TDataSource *DataSource1;
    TDataSource *DataSource2;
    TADOQuery *ADOQuery3;
    TAutoIncField *ADOQuery3ID;
    TStringField *ADOQuery3OrderNo;
    TStringField *ADOQuery3RoomNo;
    TIntegerField *ADOQuery3CustomID;
    TDateTimeField *ADOQuery3BeginTime;
    TDateTimeField *ADOQuery3EndTime;
    TIntegerField *ADOQuery3RoomChecked;
    TIntegerField *ADOQuery3NeedkMoney;
    TIntegerField *ADOQuery3PandMoney;
    TStringField *ADOQuery3CustomName;
    TStringField *ADOQuery3OperName;
    TStringField *ADOQuery3xuzuOperName;
    TStringField *ADOQuery3CheckOperName;
    TButton *Button1;
    TButton *Button3;
    TFloatField *ADOQuery3ZeKou;
    TStringField *ADOQuery2newcleartype;
    TStringField *ADOQuery2TheMynewprice;
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall RadioButton1Click(TObject *Sender);
    void __fastcall RadioButton2Click(TObject *Sender);
    void __fastcall RadioButton3Click(TObject *Sender);
    void __fastcall ComboBox1Change(TObject *Sender);
    void __fastcall RadioButton4Click(TObject *Sender);
    void __fastcall RadioButton5Click(TObject *Sender);
    void __fastcall DateTimePicker2Change(TObject *Sender);
    void __fastcall DBGrid1DrawColumnCell(TObject *Sender,
          const TRect &Rect, int DataCol, TColumn *Column,
          TGridDrawState State);
    void __fastcall FormShow(TObject *Sender);
    void __fastcall Button3Click(TObject *Sender);
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall DBGrid1CellClick(TColumn *Column);
    void __fastcall ADOQuery2BeforePost(TDataSet *DataSet);
private:	// User declarations
public:		// User declarations
    __fastcall TSearchForm(TComponent* Owner);
    int __fastcall truefalse(int a);
    void _fastcall Init();

    int mark;
    int TheType;
};
//---------------------------------------------------------------------------
extern PACKAGE TSearchForm *SearchForm;
//---------------------------------------------------------------------------
#endif