📄 uchaxun3.cpp
字号:
//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "uCHAXUN3.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TdlgChaXun3 *dlgChaXun3;
//---------------------------------------------------------------------
String CutSpace(char *Str)
{
String s;
s="";
while(*Str)
{
if((*Str!=' ')&&(*Str!=' ')) s=s+(*Str);
Str++;
}
return s;
}
__fastcall TdlgChaXun3::TdlgChaXun3(TComponent* AOwner)
: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TdlgChaXun3::Button1Click(TObject *Sender)
{
String s;
IsOk=1;
s="";
cmdSQL="select* from 公共设施使用 " ;
if(edBH8->Text!="") s=" 设施编号 = '"+edBH8->Text+"'" ;
if(edMC3->Text!="")
{
if(s!="") s=s+" and ";
if(CheckBox1->Checked) s=s+" 设施名称 like '%"+edMC3->Text+"%'";
else s=s+" 设施名称 ='"+edMC3->Text+"'";
}
if(s!="") cmdSQL=cmdSQL=cmdSQL+" where " + s;
Close();
}
//---------------------------------------------------------------------------
void __fastcall TdlgChaXun3::Button2Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TdlgChaXun3::edBH8KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key==13) ActiveControl=edMC3;
}
//---------------------------------------------------------------------------
void __fastcall TdlgChaXun3::edMC3KeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{
if(Key==13) ActiveControl=Button1;
}
//---------------------------------------------------------------------------
void __fastcall TdlgChaXun3::edBH8Exit(TObject *Sender)
{
edBH8->Text=CutSpace(edBH8->Text.c_str());
}
//---------------------------------------------------------------------------
void __fastcall TdlgChaXun3::edMC3Exit(TObject *Sender)
{
edMC3->Text=CutSpace(edMC3->Text.c_str());
}
//---------------------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -