mbusin.cpp

停车场用

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

#include <vcl.h>
#pragma hdrstop

#include "MBusIn.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TWBusIn *WBusIn;
//---------------------------------------------------------------------------
__fastcall TWBusIn::TWBusIn(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TWBusIn::SButton_AddClick(TObject *Sender)
{
/*    //PDataModule->BusInDataSource->DataSet->Open();
    PDataModule->BusInDataSource->DataSet->Active = true;
    PDataModule->BusInDataSource->DataSet->Edit();
    PDataModule->BusInDataSource->DataSet->Append();
    DBGridBusIn->ReadOnly = false;

    SButton_Browse->Enabled = true;
    SButton_Mid->Enabled = false;
    SButton_Add->Enabled = true;
    SButton_Del->Enabled = true;
    SButton_Save->Enabled = true;
    SButton_Query->Enabled = true;
 */
}
//---------------------------------------------------------------------------

void __fastcall TWBusIn::SButton_BrowseClick(TObject *Sender)
{
/*    AnsiString ls_sql;
    ls_sql="select *" ;
    ls_sql=ls_sql+ " from BusIn";
    PDataModule->ADOQueryBusIn->Close();
    PDataModule->ADOQueryBusIn->SQL->Clear();
    PDataModule->ADOQueryBusIn->SQL->Add(ls_sql);
    PDataModule->ADOQueryBusIn->Open();
    //PDataModule->BusInDataSource->DataSet->Active = true;
    if  (PDataModule->BusInDataSource->DataSet->RecordCount>0)
    {
        SButton_Browse->Enabled = false;
        SButton_Mid->Enabled = true;
        SButton_Add->Enabled = true;
        SButton_Del->Enabled = true;
        SButton_Save->Enabled = false;
        SButton_Query->Enabled = true;
        SButton_Query->Enabled = true;
    }
    else
    {
       Application->MessageBox("没有数据！", "提示信息", MB_OK);
    }
    DBGridBusIn->ReadOnly = true;
 */
}
//---------------------------------------------------------------------------

void __fastcall TWBusIn::SButton_DelClick(TObject *Sender)
{
/*    PDataModule->BusInDataSource->DataSet->Edit();
    PDataModule->BusInDataSource->DataSet->Delete();
    SButton_Browse->Enabled = true;
    SButton_Mid->Enabled = true;
    SButton_Add->Enabled = true;
    SButton_Del->Enabled = true;
    SButton_Save->Enabled = true;
    SButton_Query->Enabled = true;
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusIn::SButton_SaveClick(TObject *Sender)
{
/*    DBGridBusIn->ReadOnly = false;
    PDataModule->BusInDataSource->DataSet->Edit();
    PDataModule->BusInDataSource->DataSet->Post();
    SButton_Browse->Enabled = true;
    SButton_Mid->Enabled = true;
    SButton_Add->Enabled = true;
    SButton_Del->Enabled = true;
    SButton_Save->Enabled = false;
    SButton_Query->Enabled = true;
    DBGridBusIn->ReadOnly = true;
 */
}
//---------------------------------------------------------------------------

void __fastcall TWBusIn::SButton_CloseClick(TObject *Sender)
{
/*    PDataModule->BusInDataSource->DataSet->Close();
    Edit_UserName->Text = "";
    Edit_CardNo->Text = "";
    Close();
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusIn::FormClose(TObject *Sender, TCloseAction &Action)
{
/*    PDataModule->BusInDataSource->DataSet->Close();
    Edit_UserName->Text = "";
    Edit_CardNo->Text = "";
*/
}
//---------------------------------------------------------------------------

void __fastcall TWBusIn::SButton_MidClick(TObject *Sender)
{
    DBGridBusIn->ReadOnly = false;

    SButton_Browse->Enabled = true;
    SButton_Mid->Enabled = false;
    SButton_Add->Enabled = true;
    SButton_Del->Enabled = true;
    SButton_Save->Enabled = true;
    SButton_Query->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TWBusIn::FormShow(TObject *Sender)
{
    SButton_Browse->Enabled = true;
    SButton_Mid->Enabled = false;
    SButton_Add->Enabled = true;
    SButton_Del->Enabled = false;
    SButton_Save->Enabled = false;
    SButton_Query->Enabled = true;
    Edit_UserName->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TWBusIn::SButton_QueryClick(TObject *Sender)
{
    DBGridBusIn->ReadOnly = true;
    SButton_Browse->Enabled = true;
    SButton_Mid->Enabled = false;
    SButton_Add->Enabled = true;
    SButton_Del->Enabled = true;
    SButton_Save->Enabled = false;
    SButton_Query->Enabled = true;

    AnsiString ls_sql,ls_UserName,ls_CardNo;
    if(Edit_UserName->Text=="")
      ls_UserName="%%";
    else
      ls_UserName="%"+Edit_UserName->Text+"%";

    if(Edit_CardNo->Text=="")
      ls_CardNo="%%";
    else
      ls_CardNo="%"+Edit_CardNo->Text+"%";

    ls_sql="select *" ;
    ls_sql=ls_sql+ " from BusIn";
    ls_sql=ls_sql+ " where  BusIn.UserName like '" + ls_UserName+"' and BusIn.CardNo like '" + ls_CardNo+"' " ;

/*    PDataModule->ADOQueryBusIn->Close();
    PDataModule->ADOQueryBusIn->SQL->Clear();
    PDataModule->ADOQueryBusIn->SQL->Add(ls_sql);
    PDataModule->ADOQueryBusIn->Open();
 */
}
//---------------------------------------------------------------------------

void __fastcall TWBusIn::Edit_UserNameChange(TObject *Sender)
{
    SButton_Query->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TWBusIn::Edit_CardNoChange(TObject *Sender)
{
    SButton_Query->Enabled = true;
}
//---------------------------------------------------------------------------