uggglxt.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "UGGGLXT.h"

#include "UChaXun1.h"
#include "UChaXun2.h"
#include "uCHAXUN3.h"
#include "UXiuGai2.h"
#include "UXiuGai1.h"
#include "UXiuGai3.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmGGGL *fmGGGL;
void OpenSQL(String cmdSQL,TQuery*que)
{
 que->Close();
 que->SQL->Clear();
 que->SQL->Add(cmdSQL);
 que->Open();
}
void UpdataSQL(String cmdSQL,TQuery*que)
{
  que->Close();
  que->SQL->Clear();
  que->SQL->Add(cmdSQL);
  que->ExecSQL();
}

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();
    fmGGGL->ActiveControl=edTemp;
    return 1;
  }
}

int EditTryFloat(TEdit *edTemp)
{
  try
  {
    StrToFloat(edTemp->Text);
    return 0;
   }
  catch(...)
  {
    MessageBox(0,"该项只能输入数字","输入出错",MB_OK|MB_TASKMODAL|MB_ICONERROR);
    edTemp->SelectAll();
    fmGGGL->ActiveControl=edTemp;
    return 1;
  }
}
//------------------------------------------------------------------
void TfmGGGL::Myclear1()
{
  edBH1->Text="";
  edMC1->Text="";
  edJE1->Text="";
  edCJS->Text="";
  edDH1->Text="";
  edFZR->Text="";
  edGLR->Text="";
  atRQ1->DateTime=Date();
}

int TfmGGGL::CheckTianJia1()
{
 char* Mes ;
 Mes=NULL;

 if(edBH1->Text=="") Mes="请输入设施编号" ;
  else if(edMC1->Text=="") Mes="请输入设施名称";
  else if(edJE1->Text=="") Mes="请输入设施金额";
  else if(edCJS->Text=="") Mes="请输入承建商";
  else if(edDH1->Text=="") Mes="请输入电话";
  else if(edFZR->Text=="") Mes="请输入负责人";
  else if(edGLR->Text=="") Mes="请输入设施管理人员";

 if(Mes!=NULL)
 {
  MessageBox(0,Mes,"输入出错",MB_OK|MB_TASKMODAL) ;
  return 0;
 }
 else return 1;
}
void TfmGGGL::Myclear2()
{
 edBH2->Text="";
 edSYRY->Text="";
 edSYSJ->Text="";
 edSYRS->Text="";
 edSYJE->Text="";
 cmbSYZT->ItemIndex=0;
}
int TfmGGGL::CheckTianJia2()
{
 char* Mes ;
 Mes=NULL;

  if(edSYRY->Text=="") Mes="请输入使用人员名称" ;
  else if(edSYSJ->Text=="") Mes="请输入使用时间";
  else if(edSYRS->Text=="") Mes="请输入使用人数";
  else if(edSYJE->Text=="") Mes="请输入使用金额";
  else if(edBH2->Text=="")  Mes="请输入设施编号";
 if(Mes!=NULL)
 {
  MessageBox(0,Mes,"输入出错",MB_OK|MB_TASKMODAL) ;
  return 0;
 }
 else return 1;
}
void TfmGGGL::Myclear3()
{
 edBH3->Text="";
 edSSMC->Text="";
 edWHRY->Text="";
 edDH2->Text="";
 edWHFY->Text="";
 edGLRY->Text="";
 atWHSJ->DateTime=Date();

}
int TfmGGGL::CheckTianJia3()
{
 char* Mes ;
 Mes=NULL;

 if(edSSMC->Text=="") Mes="请输入设施名称" ;
  else if(edWHRY->Text=="") Mes="请输入维护人员";
  else if(edDH2->Text=="") Mes="请输入电话";
  else if(edWHFY->Text=="") Mes="请输入维护费用";
  else if(edGLRY->Text=="") Mes="请输入管理人员";
  else if(edBH3->Text=="") Mes="请输入设施编号";

 if(Mes!=NULL)
 {
  MessageBox(0,Mes,"输入出错",MB_OK|MB_TASKMODAL) ;
  return 0;
 }
 else return 1;
}
//---------------------------------------------------------------------------
__fastcall TfmGGGL::TfmGGGL(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------






void __fastcall TfmGGGL::Button5Click(TObject *Sender)
{
// if(MessageBox(0,"请再次确认是否真的退出管理系统?","退出系统",MB_YESNO)==IDYES)
  Close();
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button1Click(TObject *Sender)
{
  Notebook1->ActivePage="添加使用设施";
  ActiveControl=edBH1;
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button2Click(TObject *Sender)
{
   Notebook1->ActivePage="添加使用情况";
   ActiveControl=edBH2;
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button3Click(TObject *Sender)
{
   Notebook1->ActivePage="现有设施操作";
   queSelect->Close();
   queSelect1->Close();
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button4Click(TObject *Sender)
{
   Notebook1->ActivePage="现有设施列表";
   OpenSQL("select * from 公共设施建设",queSelect);
   OpenSQL("select * from 公共设施使用",queSelect1);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button19Click(TObject *Sender)
{
//  if(MessageBox(0,"请再次确认是否真的退出管理系统?","退出系统",MB_YESNO)==IDYES)
  Close();

}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button14Click(TObject *Sender)
{
  Notebook2->ActivePage="添加维护情况";
  ActiveControl=edBH3;
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button15Click(TObject *Sender)
{
  Notebook2->ActivePage="操作维护情况";
  queSelect->Close();
  queSelect1->Close();

}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button18Click(TObject *Sender)
{
  Notebook2->ActivePage="设施维护列表";
  OpenSQL("select * from 设施维护管理",queSelect);
}
//---------------------------------------------------------------------------







void __fastcall TfmGGGL::Button8Click(TObject *Sender)
{
    String s,m;
    s="select * from 公共设施建设 where 设施编号='"+edBH2->Text+"'";
    m="select * from 公共设施使用 where 设施编号='"+edBH2->Text+"'";
    if(ActiveControl!=Button5&&ActiveControl!=Button9&&edBH2->Text!="")
    if(!RedIsExists(s,queUpdata))
      {
        MessageBox(0,"该设施号不存在","输入出错",MB_OK
        |MB_TASKMODAL);
        edBH2->SelectAll();
        ActiveControl=edBH2;
        return;
        }
     if(RedIsExists(m,queUpdata))
      {
        MessageBox(0,"该设施使用情况已存在","输入出错",MB_OK
        |MB_TASKMODAL);
        edBH2->SelectAll();
        ActiveControl=edBH2;
        return ;
        }
  String TianJia;

  if(!CheckTianJia2()) return;

  TianJia="insert into 公共设施使用 values ("+edBH2->Text+",'"+edSYRY->Text
           +"',"+edSYSJ->Text+","+edSYRS->Text+",'"+cmbSYZT->Text
           +"',"+edSYJE->Text+") ";

  UpdataSQL(TianJia,queUpdata) ;

  Myclear2();
  MessageBox(0,"添加成功","",MB_OK|MB_TASKMODAL);

}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button6Click(TObject *Sender)
{
    String s;
    s="select * from 公共设施建设 where 设施编号='"+edBH1->Text+"'";
    if(ActiveControl!=Button5&&ActiveControl!=Button9&&edBH1->Text!="")
    if(RedIsExists(s,queUpdata))
      {
        MessageBox(0,"该设施号已存在","输入出错",MB_OK
        |MB_TASKMODAL);
        edBH1->SelectAll();
        ActiveControl=edBH1;
        return;
        }
  String TianJia;

  if(!CheckTianJia1()) return;

  TianJia="insert into 公共设施建设 values ("+edBH1->Text
           +",'"+edMC1->Text+"','"+edCJS->Text+"','"+edDH1->Text
           +"','"+edFZR->Text+"','"+atRQ1->DateTime.DateTimeString()
           +"','"+edGLR->Text+"',"+edJE1->Text+")";

  UpdataSQL(TianJia,queUpdata) ;

  Myclear1();
  MessageBox(0,"添加成功","",MB_OK|MB_TASKMODAL);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button16Click(TObject *Sender)
{
   String s,m;
    s="select * from 公共设施建设 where 设施编号='"+edBH3->Text+"'";
    m="select * from 设施维护管理 where 设施编号='"+edBH3->Text+"'";
    if(ActiveControl!=Button5&&ActiveControl!=Button9&&edBH3->Text!="")
    if(!RedIsExists(s,queUpdata))
      {
        MessageBox(0,"该设施号不存在","输入出错",MB_OK
        |MB_TASKMODAL);
        edBH3->SelectAll();
        ActiveControl=edBH3;
        return;
        }
     if(RedIsExists(m,queUpdata))
      {
        MessageBox(0,"该设施维护情况已存在","输入出错",MB_OK
        |MB_TASKMODAL);
        edBH3->SelectAll();
        ActiveControl=edBH3;
        return ;
        }
  String TianJia;

  if(!CheckTianJia3()) return;

  TianJia="insert into 设施维护管理 values ("+edBH3->Text+",'"+edSSMC->Text+"','"
          +edWHRY->Text+"','"+edDH2->Text+"','"+atWHSJ->DateTime.DateString()+"','"
          +meSSPMT->Text+"',"+edWHFY->Text+",'"+edGLRY->Text+"','"
          +meWHSM->Text+"')" ;


  UpdataSQL(TianJia,queUpdata) ;

  Myclear3();
  MessageBox(0,"添加成功","",MB_OK|MB_TASKMODAL);
}
//---------------------------------------------------------------------------


void __fastcall TfmGGGL::Button17Click(TObject *Sender)
{
  Myclear3();
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button7Click(TObject *Sender)
{
  Myclear1();
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button9Click(TObject *Sender)
{
  Myclear2();
}

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


void __fastcall TfmGGGL::edBH1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==13) ActiveControl=edMC1;
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edMC1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==13) ActiveControl=edJE1;
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edJE1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==13) ActiveControl=atRQ1;
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::atRQ1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==13)  ActiveControl=edCJS;
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edCJSKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==13) ActiveControl=edDH1;
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edBH2KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==13)  ActiveControl=edSYSJ;
}
//---------------------------------------------------------------------------



void __fastcall TfmGGGL::edBH3KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
 if(Key==13) ActiveControl=edSSMC;
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edDH1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   if(Key==13) ActiveControl=edFZR;
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edFZRKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13) ActiveControl=edGLR;
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edGLRKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
   if(Key==13)   ActiveControl=Button6;
}
//---------------------------------------------------------------------------


void __fastcall TfmGGGL::edSYRSKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
  if(Key==13) ActiveControl=edSYJE;