?? 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 + -