uchaxun1.cpp

社区管理系统的公共管理模块

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "UChaXun1.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
TChaXun1 *ChaXun1;

//---------------------------------------------------------------------
/*void OpenSQL(String cmdSQL,TQuery*que)
{
 que->Close();
 que->SQL->Clear();
 que->SQL->Add(cmdSQL);
 que->Open();
}

int RedIsExists(String cmdSQL,TQuery *Que)
{
  int Res;
  OpenSQL(cmdSQL,Que);
  Res=Que->RecordCount;
  Que->Close();
  return Res;
} */
String CutSpace(char *Str)
{
  String s;
  s="";
  while(*Str)
  {
    if((*Str!=' ')&&(*Str!='　')) s=s+(*Str);
    Str++;
  }
  return s;
}

int EditTry(TEdit *edTemp)
{
  try
  {
    StrToInt(edTemp->Text);
    return 0;
   }
  catch(...)
  {
    MessageBox(0,"该项只能输入数字","输入出错",MB_OK|MB_TASKMODAL|MB_ICONERROR);
    edTemp->SelectAll();
    ChaXun1->ActiveControl=edTemp;
    return 1;
  }
}

__fastcall TChaXun1::TChaXun1(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------


void __fastcall TChaXun1::Button1Click(TObject *Sender)
{
 IsOk=0;
 Close();
}
//---------------------------------------------------------------------------

void __fastcall TChaXun1::Button2Click(TObject *Sender)
{
  String s;
  IsOk=1;
  s="";
  cmdSQL="select* from 设施维护管理 " ;

  if(edBH7->Text!="") s=" 设施编号 = '"+edBH7->Text+"'" ;
    if(edMC2->Text!="")
    {
     if(s!="") s=s+" and ";
     if(CheckBox1->Checked) s=s+" 设施名称 like '%"+edMC2->Text+"%'";
      else s=s+" 设施名称 ='"+edMC2->Text+"'";
     }
     if(s!="") cmdSQL=cmdSQL=cmdSQL+" where " + s;
     Close();
}
//---------------------------------------------------------------------------

void __fastcall TChaXun1::edBH7KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==13) ActiveControl=edMC2;
}
//---------------------------------------------------------------------------

void __fastcall TChaXun1::edBH7Exit(TObject *Sender)
{
  edBH7->Text=CutSpace(edBH7->Text.c_str());
}
//---------------------------------------------------------------------------



void __fastcall TChaXun1::edMC2Exit(TObject *Sender)
{
  edMC2->Text=CutSpace(edMC2->Text.c_str());
}
//---------------------------------------------------------------------------