📄 employ_query.cpp
字号:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Employ_Query.h"
#include "CardRegister.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TWEmployeeQuery *WEmployeeQuery;
//---------------------------------------------------------------------------
__fastcall TWEmployeeQuery::TWEmployeeQuery(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TWEmployeeQuery::BitB_CloseClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TWEmployeeQuery::BitB_OKClick(TObject *Sender)
{
/* AnsiString ls_sql;
AnsiString ls_BusName;
AnsiString ls_CardNo;
AnsiString ls_BusNo;
if (Trim(Edit_BusName->Text)==""&&Trim(Edit_CardNo->Text)==""&&Trim(Edit_BusNo->Text)=="")
{
Application->MessageBox("请输入查询条件!", "提示信息", MB_OK);
return;
}
Screen->Cursor = crHourGlass ;
WCardRegister->StatusBar_Employee->Panels->Items[1]->Text ="";
if(Edit_BusName->Text=="")
ls_BusName="%%";
else
ls_BusName="%"+Edit_BusName->Text+"%";
if(Edit_CardNo->Text=="")
ls_CardNo="%%";
else
ls_CardNo="%"+Edit_CardNo->Text+"%";
if(Edit_BusNo->Text=="")
ls_BusNo="%%";
else
ls_BusNo="%"+Edit_BusNo->Text+"%";
ls_sql="select *" ;
ls_sql=ls_sql+ " from Employee";
ls_sql=ls_sql+ " where Employee.UserName like '" + ls_BusName +
"'and Employee.CardNo like '" + ls_CardNo+
"'and Employee.CardNo like '" + ls_BusNo+"'" ;
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);
WCardRegister->StatusBar_Employee->Panels->Items[1]->Text = tmpString+itoa(ulCount,tmpstr, 10)+" 条";
WEmployeeQuery->Close();
}
else
{
Application->MessageBox("该查询条件内没有数据!", "提示信息", MB_OK);
}
Screen->Cursor = crDefault;
*/
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -