priceset.cpp

停车场用

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

#include <vcl.h>
#pragma hdrstop

#include "PriceSet.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TWPriceSet *WPriceSet;
//---------------------------------------------------------------------------
__fastcall TWPriceSet::TWPriceSet(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TWPriceSet::SButton_CloseClick(TObject *Sender)
{
//    PDataModule->DataSource_Price->DataSet->Close();
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TWPriceSet::SButton_SaveClick(TObject *Sender)
{
    DBEdit4->Enabled = false;
    DBEdit4->Color = clScrollBar;
    DBEdit6->Enabled = false;
    DBEdit6->Color = clScrollBar;
    DBEdit7->Enabled = false;
    DBEdit7->Color = clScrollBar;
    DBEdit8->Enabled = false;
    DBEdit8->Color = clScrollBar;
    DBEdit9->Enabled = false;
    DBEdit9->Color = clScrollBar;
    DBEdit10->Enabled = false;
    DBEdit10->Color = clScrollBar;
    DBEdit11->Enabled = false;
    DBEdit11->Color = clScrollBar;
    DBEdit12->Enabled = false;
    DBEdit12->Color = clScrollBar;
    DBEdit13->Enabled = false;
    DBEdit13->Color = clScrollBar;
    DBEdit14->Enabled = false;
    DBEdit14->Color = clScrollBar;
    DBEdit15->Enabled = false;
    DBEdit15->Color = clScrollBar;
    DBEdit16->Enabled = false;
    DBEdit16->Color = clScrollBar;
    //ShowMessage(Trim(DBEdit1->Text));
//    PDataModule->ADOQuery_Price->Open();
//    PDataModule->DataSource_Price->DataSet->Edit();
//    PDataModule->DataSource_Price->DataSet->Post();
}
//---------------------------------------------------------------------------
void __fastcall TWPriceSet::CheckBox1Click(TObject *Sender)
{
    if (CheckBox1->Checked)
    {
        DBEdit3->Enabled = true;
        DBEdit3->Color = clWhite;
    }
    else
    {
        DBEdit3->Enabled = false;
        DBEdit3->Color = clScrollBar;
    }

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

void __fastcall TWPriceSet::DBLookupComboBox_PriceModeClick(TObject *Sender)
{
    DBEdit5->Text = Trim(DBEdit1->Text);
    if (Trim(DBLookupComboBox_PriceMode->Text)=="一次性收费")
    {
        DBEdit4->Enabled = true;
        DBEdit4->Color = clWhite;
    }
    else
    {
        DBEdit4->Enabled = false;
        DBEdit4->Color = clScrollBar;
    }

    if (Trim(DBLookupComboBox_PriceMode->Text)=="不收费")
    {
      ;
    }
    if (Trim(DBLookupComboBox_PriceMode->Text)=="按年收费")
    {
        DBEdit6->Enabled = true;
        DBEdit6->Color = clWhite;
    }
    else
    {
        DBEdit6->Enabled = false;
        DBEdit6->Color = clScrollBar;
    }

    if (Trim(DBLookupComboBox_PriceMode->Text)=="按季度收费")
    {
        DBEdit7->Enabled = true;
        DBEdit7->Color = clWhite;
    }
    else
    {
        DBEdit7->Enabled = false;
        DBEdit7->Color = clScrollBar;
    }

    if (Trim(DBLookupComboBox_PriceMode->Text)=="按月收费")
    {
        DBEdit8->Enabled = true;
        DBEdit8->Color = clWhite;
    }
    else
    {
        DBEdit8->Enabled = false;
        DBEdit8->Color = clScrollBar;
    }

    if (Trim(DBLookupComboBox_PriceMode->Text)=="按天收费")
    {
        DBEdit9->Enabled = true;
        DBEdit9->Color = clWhite;
    }
    else
    {
        DBEdit9->Enabled = false;
        DBEdit9->Color = clScrollBar;
    }

    if (Trim(DBLookupComboBox_PriceMode->Text)=="按时收费")
    {
        DBEdit10->Enabled = true;
        DBEdit12->Enabled = true;
        DBEdit13->Enabled = true;
        DBEdit14->Enabled = true;
        DBEdit15->Enabled = true;
        DBEdit10->Color = clWhite;
        DBEdit12->Color = clWhite;
        DBEdit13->Color = clWhite;
        DBEdit14->Color = clWhite;
        DBEdit15->Color = clWhite;
    }
    else
    {
        DBEdit10->Enabled = false;
        DBEdit12->Enabled = false;
        DBEdit13->Enabled = false;
        DBEdit14->Enabled = false;
        DBEdit15->Enabled = false;
        DBEdit10->Color = clScrollBar;
        DBEdit12->Color = clScrollBar;
        DBEdit13->Color = clScrollBar;
        DBEdit14->Color = clScrollBar;
        DBEdit15->Color = clScrollBar;
    }

    if (Trim(DBLookupComboBox_PriceMode->Text)=="按次收费")
    {
        DBEdit11->Enabled = true;
        DBEdit11->Color = clWhite;
        DBEdit16->Enabled = true;
        DBEdit16->Color = clWhite;
    }
    else
    {
        DBEdit11->Enabled = false;
        DBEdit11->Color = clScrollBar;
        DBEdit16->Enabled = false;
        DBEdit16->Color = clScrollBar;
    }
}
//---------------------------------------------------------------------------


void __fastcall TWPriceSet::BitBtn2Click(TObject *Sender)
{
    DBEdit4->Enabled = false;
    DBEdit4->Color = clScrollBar;
    DBEdit6->Enabled = false;
    DBEdit6->Color = clScrollBar;
    DBEdit7->Enabled = false;
    DBEdit7->Color = clScrollBar;
    DBEdit8->Enabled = false;
    DBEdit8->Color = clScrollBar;
    DBEdit9->Enabled = false;
    DBEdit9->Color = clScrollBar;
    DBEdit10->Enabled = false;
    DBEdit10->Color = clScrollBar;
    DBEdit11->Enabled = false;
    DBEdit11->Color = clScrollBar;
    DBEdit12->Enabled = false;
    DBEdit12->Color = clScrollBar;
    DBEdit13->Enabled = false;
    DBEdit13->Color = clScrollBar;
    DBEdit14->Enabled = false;
    DBEdit14->Color = clScrollBar;
    DBEdit15->Enabled = false;
    DBEdit15->Color = clScrollBar;
    DBEdit16->Enabled = false;
    DBEdit16->Color = clScrollBar;
//    PDataModule->ADOQuery_Price->Open();
//    PDataModule->DataSource_Price->DataSet->Append();
}
//---------------------------------------------------------------------------

void __fastcall TWPriceSet::SButton_DelClick(TObject *Sender)
{
    DBEdit4->Enabled = false;
    DBEdit4->Color = clScrollBar;
    DBEdit6->Enabled = false;
    DBEdit6->Color = clScrollBar;
    DBEdit7->Enabled = false;
    DBEdit7->Color = clScrollBar;
    DBEdit8->Enabled = false;
    DBEdit8->Color = clScrollBar;
    DBEdit9->Enabled = false;
    DBEdit9->Color = clScrollBar;
    DBEdit10->Enabled = false;
    DBEdit10->Color = clScrollBar;
    DBEdit11->Enabled = false;
    DBEdit11->Color = clScrollBar;
    DBEdit12->Enabled = false;
    DBEdit12->Color = clScrollBar;
    DBEdit13->Enabled = false;
    DBEdit13->Color = clScrollBar;
    DBEdit14->Enabled = false;
    DBEdit14->Color = clScrollBar;
    DBEdit15->Enabled = false;
    DBEdit15->Color = clScrollBar;
    DBEdit16->Enabled = false;
    DBEdit16->Color = clScrollBar;
//    PDataModule->ADOQuery_Price->Open();
//    PDataModule->DataSource_Price->DataSet->Edit();
 //   PDataModule->DataSource_Price->DataSet->Delete();
}
//---------------------------------------------------------------------------

void __fastcall TWPriceSet::FormClose(TObject *Sender,
      TCloseAction &Action)
{
//    PDataModule->DataSource_Price->DataSet->Close();
}
//---------------------------------------------------------------------------

void __fastcall TWPriceSet::FormActivate(TObject *Sender)
{
//    PDataModule->DataSource_Price->DataSet->Open();    
}
//---------------------------------------------------------------------------