mbusset.cpp

停车场用

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

#include <vcl.h>
#pragma hdrstop

#include "MBusSet.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TWBusType *WBusType;
//---------------------------------------------------------------------------
__fastcall TWBusType::TWBusType(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TWBusType::SButton_AddClick(TObject *Sender)
{
/*    PDataModule->MBusSetDataSource->DataSet->Active = true;
    PDataModule->MBusSetDataSource->DataSet->Edit();
    PDataModule->MBusSetDataSource->DataSet->Append();
*/
}
//---------------------------------------------------------------------------
void __fastcall TWBusType::SButton_DelClick(TObject *Sender)
{
/*    PDataModule->MBusSetDataSource->DataSet->Edit();
    PDataModule->MBusSetDataSource->DataSet->Delete();
*/
}
//---------------------------------------------------------------------------
void __fastcall TWBusType::SButton_SaveClick(TObject *Sender)
{
/*    PDataModule->MBusSetDataSource->DataSet->Edit();
    PDataModule->MBusSetDataSource->DataSet->Post();
 */
}
//---------------------------------------------------------------------------
void __fastcall TWBusType::SButton_CloseClick(TObject *Sender)
{
/*    PDataModule->MBusSetDataSource->DataSet->Close();
    PDataModule->DataSource_BusColor->DataSet->Close();
    Close();
 */
}
//---------------------------------------------------------------------------
void __fastcall TWBusType::SpeedB_AddClick(TObject *Sender)
{
/*    PDataModule->DataSource_BusColor->DataSet->Active = true;
    PDataModule->DataSource_BusColor->DataSet->Edit();
    PDataModule->DataSource_BusColor->DataSet->Append();
 */
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedB_DelClick(TObject *Sender)
{
/*    PDataModule->DataSource_BusColor->DataSet->Edit();
    PDataModule->DataSource_BusColor->DataSet->Delete();
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedB_SaveClick(TObject *Sender)
{
/*    PDataModule->DataSource_BusColor->DataSet->Edit();
    PDataModule->DataSource_BusColor->DataSet->Post();
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedB_CloseClick(TObject *Sender)
{
/*    PDataModule->DataSource_BusColor->DataSet->Close();
    PDataModule->MBusSetDataSource->DataSet->Close();
    Close();
 */
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::FormShow(TObject *Sender)
{
/*    PDataModule->DataSource_BusColor->DataSet->Open();
    PDataModule->MBusSetDataSource->DataSet->Open();
    PDataModule->DataSource_UType->DataSet->Open();
    PDataModule->DataSource_PriceMode->DataSet->Open();
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedButtonOKClick(TObject *Sender)
{
/*    PDataModule->DataSource_UType->DataSet->Active = true;
    PDataModule->DataSource_UType->DataSet->Edit();
    PDataModule->DataSource_UType->DataSet->Append();
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedButtonDelClick(TObject *Sender)
{
/*    PDataModule->DataSource_UType->DataSet->Edit();
    PDataModule->DataSource_UType->DataSet->Delete();
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedButtonSaveClick(TObject *Sender)
{
/*    PDataModule->DataSource_UType->DataSet->Edit();
    PDataModule->DataSource_UType->DataSet->Post();
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedButtonCloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedButt_AddClick(TObject *Sender)
{
/*    PDataModule->DataSource_PriceMode->DataSet->Active = true;
    PDataModule->DataSource_PriceMode->DataSet->Edit();
    PDataModule->DataSource_PriceMode->DataSet->Append();
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedButt_DelClick(TObject *Sender)
{
/*    PDataModule->DataSource_PriceMode->DataSet->Edit();
    PDataModule->DataSource_PriceMode->DataSet->Delete();
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedButt_SaveClick(TObject *Sender)
{
/*    PDataModule->DataSource_PriceMode->DataSet->Edit();
    PDataModule->DataSource_PriceMode->DataSet->Post();
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedButt_CloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::FormClose(TObject *Sender, TCloseAction &Action)
{
/*    PDataModule->DataSource_BusColor->DataSet->Close();
    PDataModule->MBusSetDataSource->DataSet->Close();
    PDataModule->DataSource_UType->DataSet->Close();
    PDataModule->DataSource_PriceMode->DataSet->Close();
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedButton1Click(TObject *Sender)
{
/*    PDataModule->DataSource_CardType->DataSet->Active = true;
    PDataModule->DataSource_CardType->DataSet->Edit();
    PDataModule->DataSource_CardType->DataSet->Append();
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedButton2Click(TObject *Sender)
{
/*    PDataModule->DataSource_CardType->DataSet->Edit();
    PDataModule->DataSource_CardType->DataSet->Delete();
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedButton3Click(TObject *Sender)
{
//    PDataModule->DataSource_CardType->DataSet->Edit();
//    PDataModule->DataSource_CardType->DataSet->Post();
}
//---------------------------------------------------------------------------

void __fastcall TWBusType::SpeedButton4Click(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------