modify.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Modify.h"
#include "DataMoudle.h"
#include "Main.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TModifyForm *ModifyForm;
//---------------------------------------------------------------------------
__fastcall TModifyForm::TModifyForm(TComponent* Owner)
    : TForm(Owner)
{
       checked=0;
}
//---------------------------------------------------------------------------
void __fastcall TModifyForm::RadioButton1Click(TObject *Sender)
{
    DM->ADOTRoomType->Active=false;
    DBGrid1->DataSource=DM->DSRoomType;
    DBNavigator1->DataSource=DM->DSRoomType;
    DM->ADOTRoomType->Active=true;
   
}
//---------------------------------------------------------------------------
void __fastcall TModifyForm::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action=caFree;
    MainForm->Modify=0;

}
//---------------------------------------------------------------------------
void __fastcall TModifyForm::RadioButton2Click(TObject *Sender)
{
    DM->ADOTRoom->Active=false;
      DBGrid1->DataSource=DM->DSRoom;
    DBNavigator1->DataSource=DM->DSRoom;
    DM->ADOTRoom->Active=true;

}
//---------------------------------------------------------------------------

void __fastcall TModifyForm::RadioButton4Click(TObject *Sender)
{
     DM->ADOTAdmin->Active=false;
      DBGrid1->DataSource=DM->DSAdmin;
    DBNavigator1->DataSource=DM->DSAdmin;
    DM->ADOTAdmin->Active=true;

}
//---------------------------------------------------------------------------

void __fastcall TModifyForm::RadioButton5Click(TObject *Sender)
{
      DM->ADOTTimeMoney->Active=false;
      DBGrid1->DataSource=DM->DSTimeMoney;
    DBNavigator1->DataSource=DM->DSTimeMoney;
    DM->ADOTTimeMoney->Active=true;
       checked=1;

   

}
//---------------------------------------------------------------------------

void __fastcall TModifyForm::RadioButton3Click(TObject *Sender)
{
       DM->ADOTRoomState->Active=false;
      DBGrid1->DataSource=DM->DSRoomState;
    DBNavigator1->DataSource=DM->DSRoomState;
    DM->ADOTRoomState->Active=true;
    DM->ADOTRoomType->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TModifyForm::RadioButton6Click(TObject *Sender)
{
        DM->ADOTFloor->Active=false;
      DBGrid1->DataSource=DM->DSFloor;
    DBNavigator1->DataSource=DM->DSFloor;
    DM->ADOTFloor->Active=true;
}
//---------------------------------------------------------------------------

void __fastcall TModifyForm::RadioButton7Click(TObject *Sender)
{

       DM->ADOTPassType->Active=false;
      DBGrid1->DataSource=DM->DSPassType;
    DBNavigator1->DataSource=DM->DSPassType;
    DM->ADOTPassType->Active=true;
}
//---------------------------------------------------------------------------



void __fastcall TModifyForm::BitBtnNextClick(TObject *Sender)
{
     DBNavigator1->BtnClick(nbNext);
}
//---------------------------------------------------------------------------

void __fastcall TModifyForm::BitBtnUpClick(TObject *Sender)
{
        DBNavigator1->BtnClick(nbPrior);
}
//---------------------------------------------------------------------------

void __fastcall TModifyForm::BitBtnAddClick(TObject *Sender)
{
      DBNavigator1->BtnClick(nbInsert);
}
//---------------------------------------------------------------------------

void __fastcall TModifyForm::BitBtnDelClick(TObject *Sender)
{
     DBNavigator1->BtnClick(nbDelete);    
}
//---------------------------------------------------------------------------

void __fastcall TModifyForm::BitBtnSaveClick(TObject *Sender)
{
     DBNavigator1->BtnClick(nbPost);    
}
//---------------------------------------------------------------------------

void __fastcall TModifyForm::BitBtnFristClick(TObject *Sender)
{
     DBNavigator1->BtnClick(nbFirst);    
}
//---------------------------------------------------------------------------

void __fastcall TModifyForm::BitBtnLastClick(TObject *Sender)
{
     DBNavigator1->BtnClick(nbLast);    
}
//---------------------------------------------------------------------------


void __fastcall TModifyForm::Button1Click(TObject *Sender)
{
     DM->ADOTTimeMoney->FieldByName("BeginTime")->AsString=DateTimePicker1->Time.TimeString();
     DM->ADOTTimeMoney->FieldByName("EndTime")->AsString=DateTimePicker2->Time.TimeString();
}
//---------------------------------------------------------------------------