cardregister.cpp

停车场用

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

#include <vcl.h>
#pragma hdrstop

#include "CardRegister.h"
#include "Employ_Query.h"
#include "EmployEdit.h"
#include "Global.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TWCardRegister *WCardRegister;
//---------------------------------------------------------------------------
__fastcall TWCardRegister::TWCardRegister(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TWCardRegister::TB_CloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TWCardRegister::TB_BrowseClick(TObject *Sender)
{
/*    AnsiString ls_sql;
    Screen->Cursor = crHourGlass ;
    WCardRegister->StatusBar_Employee->Panels->Items[1]->Text ="";    
    ls_sql="select *" ;
    ls_sql=ls_sql+ " from Employee";
    PDataModule->ADOQuery_CardReg->Close();
    PDataModule->ADOQuery_CardReg->SQL->Clear();
    PDataModule->ADOQuery_CardReg->SQL->Add(ls_sql);
    PDataModule->ADOQuery_CardReg->Open();
    ULONG ulCount = PDataModule->DataSource_CardReg->DataSet->RecordCount;
    if (ulCount>0)
    {
        char tmpstr[20];
        AnsiString tmpString=  "数据记录：";
        memset(tmpstr,'\0',20);
        StatusBar_Employee->Panels->Items[1]->Text = tmpString+itoa(ulCount,tmpstr, 10)+" 条";
    }
    else
    {
       Application->MessageBox("没有数据！", "提示信息", MB_OK);
    }
    Screen->Cursor = crDefault;
*/
}
//---------------------------------------------------------------------------
void __fastcall TWCardRegister::ToolB_QueryClick(TObject *Sender)
{
    //打开查询窗口
    WEmployeeQuery = new TWEmployeeQuery(this);
    if (WEmployeeQuery->Showing == false)
        WEmployeeQuery->ShowModal();
    delete WEmployeeQuery;
}
//---------------------------------------------------------------------------
void __fastcall TWCardRegister::TB_AddClick(TObject *Sender)
{
/*    //增加新的数据
    WEmyloyEdit = new TWEmyloyEdit(this);
    if (WEmyloyEdit->Showing == false)
    {
        bReultModi = false;
        WEmyloyEdit->DBEdit_Start->Visible = false ;
        WEmyloyEdit->DBEdit_End->Visible = false;
        WEmyloyEdit->DateTimePicker_Start->Visible = true;
        WEmyloyEdit->DateTimePicker_End->Visible = true;
        PDataModule->DataSource_CardReg->DataSet->Active = true;
        PDataModule->DataSource_CardReg->DataSet->Edit();
        PDataModule->DataSource_CardReg->DataSet->Append();
        WEmyloyEdit->ShowModal();
    }
    delete WEmyloyEdit;
*/    
}
//---------------------------------------------------------------------------

void __fastcall TWCardRegister::TB_DelClick(TObject *Sender)
{
//    PDataModule->DataSource_CardReg->DataSet->Edit();
//    PDataModule->DataSource_CardReg->DataSet->Delete();
}
//---------------------------------------------------------------------------

void __fastcall TWCardRegister::TB_SaveClick(TObject *Sender)
{
/*    PDataModule->ADOQuery_CardReg->Open();
//    if (PDataModule->DataSource_CardReg->DataSet->RecordCount>0)
    {
        DBGrid_Employee->ReadOnly = false;
        PDataModule->DataSource_CardReg->DataSet->Edit();
        PDataModule->DataSource_CardReg->DataSet->Post();
        DBGrid_Employee->ReadOnly = true;
    }
 */
}
//---------------------------------------------------------------------------

void __fastcall TWCardRegister::DBGrid_EmployeeDblClick(TObject *Sender)
{
/*    PDataModule->ADOQuery_CardReg->Open();
    if (PDataModule->DataSource_CardReg->DataSet->RecordCount>0)
    {
        WEmyloyEdit = new TWEmyloyEdit(this);
        if (WEmyloyEdit->Showing == false)
        {
            bReultModi = true;
            WEmyloyEdit->DBEdit_Start->Visible = true ;
            WEmyloyEdit->DBEdit_End->Visible = true;
            WEmyloyEdit->DateTimePicker_Start->Visible = false;
            WEmyloyEdit->DateTimePicker_End->Visible = false;
            PDataModule->DataSource_CardReg->DataSet->Edit();
            WEmyloyEdit->ShowModal();
        }
        delete WEmyloyEdit;
    }
 */
}
//---------------------------------------------------------------------------