📄 uggglxt.cpp

📁 社区管理系统的公共管理模块
💻 CPP
📖 第 1 页 / 共 2 页
字号:
上一页 12
}
//---------------------------------------------------------------------------

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

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

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


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

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


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


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

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

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

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

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

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



void __fastcall TfmGGGL::Button11Click(TObject *Sender)
{
  if(!queSelect1->Active)
  {
      MessageBox(0,"数据库未连接","",MB_OK|MB_ICONERROR|MB_TASKMODAL);
      return;
  }
  if(!queSelect1->RecordCount)
    {
     MessageBox(0,"数据库中没有记录","",MB_OK|MB_ICONERROR|MB_TASKMODAL);
      return;
    }
  if(MessageBox(0,"确定删除?","提示",MB_YESNO|MB_TASKMODAL|MB_ICONQUESTION)==IDNO)
   return;
  String cmdSQL;
  cmdSQL="delete from 公共设施使用 where 设施编号="+
  queSelect1->FieldByName("设施编号")->AsString;
  queSelect1->Close();
  UpdataSQL(cmdSQL,queUpdata);
  queSelect1->Open();
}
//---------------------------------------------------------------------------


void __fastcall TfmGGGL::edBH2Exit(TObject *Sender)
{
    edBH2->Text=CutSpace(edBH2->Text.c_str());
    if(ActiveControl!=Button5&&ActiveControl!=Button9&&edBH2->Text!="")
    EditTry(edBH2);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button21Click(TObject *Sender)
{
 if(!queSelect->Active)
  {
      MessageBox(0,"数据库未连接","",MB_OK|MB_ICONERROR|MB_TASKMODAL);
      return;
  }
  if(!queSelect->RecordCount)
    {
     MessageBox(0,"数据库中没有记录","",MB_OK|MB_ICONERROR|MB_TASKMODAL);
      return;
    }

  if(MessageBox(0,"确定删除?","提示",MB_YESNO|MB_TASKMODAL|MB_ICONQUESTION)==IDNO)
  return;
  String cmdSQL;
  cmdSQL="delete from 设施维护管理 where 设施编号="+
  queSelect->FieldByName("设施编号")->AsString;
  queSelect->Close();
  UpdataSQL(cmdSQL,queUpdata);
  queSelect->Open();
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button22Click(TObject *Sender)
{
  ChaXun1->ShowModal();
  if(ChaXun1->IsOk==0)  return ;
  OpenSQL(ChaXun1->cmdSQL,queSelect);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button12Click(TObject *Sender)
{
  ChaXun2->ShowModal();
  if(ChaXun2->IsOk==0)  return ;
  OpenSQL(ChaXun2->cmdSQL,queSelect);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edBH3Exit(TObject *Sender)
{
    edBH3->Text=CutSpace(edBH3->Text.c_str());
    if(ActiveControl!=Button19&&ActiveControl!=Button16&&edBH3->Text!="")
     EditTry(edBH3);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edSSMCExit(TObject *Sender)
{
   edSSMC->Text=CutSpace(edSSMC->Text.c_str());
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edWHRYExit(TObject *Sender)
{
  edWHRY->Text=CutSpace(edWHRY->Text.c_str());        
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edDH2Exit(TObject *Sender)
{
  edDH2->Text=CutSpace(edDH2->Text.c_str());
  if(ActiveControl!=Button19&&ActiveControl!=Button16&&edBH3->Text!="")
     EditTry(edDH2);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edWHFYExit(TObject *Sender)
{
  edWHFY->Text=CutSpace(edWHFY->Text.c_str());
  if(ActiveControl!=Button19&&ActiveControl!=Button16&&edWHFY->Text!="")
     EditTry(edWHFY);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edGLRYExit(TObject *Sender)
{
  edGLRY->Text=CutSpace(edGLRY->Text.c_str());
}

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

void __fastcall TfmGGGL::edSYRSExit(TObject *Sender)
{
  edSYRS->Text=CutSpace(edSYRS->Text.c_str());
  if(ActiveControl!=Button5&&ActiveControl!=Button9&&edSYRS->Text!="")
    EditTry(edSYRS);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edSYJEExit(TObject *Sender)
{
   edSYJE->Text=CutSpace(edSYJE->Text.c_str());
    if(ActiveControl!=Button5&&ActiveControl!=Button9&&edSYJE->Text!="")
    EditTryFloat(edSYJE);
}

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

void __fastcall TfmGGGL::edSYRYExit(TObject *Sender)
{
  edSYRY->Text=CutSpace(edSYRY->Text.c_str());        
}
//---------------------------------------------------------------------------


void __fastcall TfmGGGL::meSSPMTExit(TObject *Sender)
{
   meSSPMT->Text=CutSpace(meSSPMT->Text.c_str());        
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::meWHSMExit(TObject *Sender)
{
  meWHSM->Text=CutSpace(meWHSM->Text.c_str());
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edBH1Exit(TObject *Sender)
{
   edBH1->Text=CutSpace(edBH1->Text.c_str());
   if(ActiveControl!=Button5&&ActiveControl!=Button7&&edBH1->Text!="")
     EditTry(edBH1);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edMC1Exit(TObject *Sender)
{
  edMC1->Text=CutSpace(edMC1->Text.c_str());
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edJE1Exit(TObject *Sender)
{
  edJE1->Text=CutSpace(edJE1->Text.c_str());
  if(ActiveControl!=Button5&&ActiveControl!=Button7&&edJE1->Text!="")
     EditTry(edJE1);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edCJSExit(TObject *Sender)
{
  edCJS->Text=CutSpace(edCJS->Text.c_str());
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edDH1Exit(TObject *Sender)
{
   edDH1->Text=CutSpace(edDH1->Text.c_str());
   if(ActiveControl!=Button5&&ActiveControl!=Button7&&edDH1->Text!="")
     EditTry(edDH1);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edFZRExit(TObject *Sender)
{
  edFZR->Text=CutSpace(edFZR->Text.c_str());
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::edGLRExit(TObject *Sender)
{
  edGLR->Text=CutSpace(edGLR->Text.c_str());
}
//---------------------------------------------------------------------------


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

void __fastcall TfmGGGL::edSYSJExit(TObject *Sender)
{
   edSYSJ->Text=CutSpace(edSYSJ->Text.c_str());
   if(ActiveControl!=Button5&&ActiveControl!=Button9&&edSYSJ->Text!="")
    EditTry(edSYSJ);
}
//---------------------------------------------------------------------------



void __fastcall TfmGGGL::Button10Click(TObject *Sender)
{
  if(!queSelect1->Active)
    {
      MessageBox(0,"数据库未连接","",MB_OK|MB_ICONERROR|MB_TASKMODAL);
      return;
    }
  if(!queSelect1->RecordCount)
    {
      MessageBox(0,"数据库中没有记录","",MB_OK|MB_ICONERROR|MB_TASKMODAL);
      return;
    }

  fmXiuGai1->edBH2->Text=queSelect1->FieldByName("设施编号")->AsString;
  fmXiuGai1->edSYSJ->Text=queSelect1->FieldByName("使用时间")->AsString;
  fmXiuGai1->edSYRS->Text=queSelect1->FieldByName("使用人数")->AsString;
  fmXiuGai1->edSYJE->Text=queSelect1->FieldByName("使用金额")->AsString;
  fmXiuGai1->edSYRY->Text=queSelect1->FieldByName("使用人员名称")->AsString;

  if(queSelect1->FieldByName("使用状态")->AsString=="付费")
    fmXiuGai1->cmbSYZT->ItemIndex=0;
  else  fmXiuGai1->cmbSYZT->ItemIndex=1;
  fmXiuGai1->ActiveControl=fmXiuGai1->edBH2;
  fmXiuGai1->ShowModal();

  OpenSQL("select * from 公共设施使用",queSelect1);


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

void __fastcall TfmGGGL::Button20Click(TObject *Sender)
{
  if(!queSelect->Active)
    {
      MessageBox(0,"数据库未连接","",MB_OK|MB_ICONERROR|MB_TASKMODAL);
      return;
    }
  if(!queSelect->RecordCount)
    {
      MessageBox(0,"数据库中没有记录","",MB_OK|MB_ICONERROR|MB_TASKMODAL);
      return;
    }

  XiuGai2->edBH3->Text=queSelect->FieldByName("设施编号")->AsString;
  XiuGai2->edSSMC->Text=queSelect->FieldByName("设施名称")->AsString;
  XiuGai2->edWHRY->Text=queSelect->FieldByName("维护人员")->AsString;
  XiuGai2->edDH2->Text=queSelect->FieldByName("电话")->AsString;
  XiuGai2->meSSPMT->Text=queSelect->FieldByName("设施平面图")->AsString;
  XiuGai2->atWHSJ->DateTime=queSelect->FieldByName("维护时间")->AsString;
  XiuGai2->edWHFY->Text=queSelect->FieldByName("维护费用")->AsString;
  XiuGai2->edGLRY->Text=queSelect->FieldByName("管理人员")->AsString;
  XiuGai2->meWHSM->Text=queSelect->FieldByName("维护说明")->AsString;

  XiuGai2->ShowModal();

/*  XiuGai2->ShowModal();
  if(XiuGai2->IsOk==0) return;
  UpdataSQL(XiuGai2->cmdSQL,queUpdata);
  OpenSQL("select * from 设施维护管理",queSelect);
  */
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::FormCreate(TObject *Sender)
{
  Myclear1();
  Myclear2();
  Myclear3();
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button13Click(TObject *Sender)
{
   OpenSQL("select * from 公共设施使用",queSelect1);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button23Click(TObject *Sender)
{
   OpenSQL("select * from 公共设施建设",queSelect);
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button25Click(TObject *Sender)
{
 if(!queSelect->Active)
  {
      MessageBox(0,"数据库未连接","",MB_OK|MB_ICONERROR|MB_TASKMODAL);
      return;
  }
  if(!queSelect->RecordCount)
    {
     MessageBox(0,"数据库中没有记录","",MB_OK|MB_ICONERROR|MB_TASKMODAL);
      return;
    }
  if(MessageBox(0,"确定删除?","提示",MB_YESNO|MB_TASKMODAL|MB_ICONQUESTION)==IDNO)
  return;
  String cmdSQL,cmdSQL1,cmdSQL2;
  cmdSQL2="delete from 公共设施使用 where 设施编号="+
  queSelect->FieldByName("设施编号")->AsString;
  cmdSQL1="delete from 设施维护管理 where 设施编号="+
  queSelect->FieldByName("设施编号")->AsString;
  cmdSQL="delete from 公共设施建设 where 设施编号="+
  queSelect->FieldByName("设施编号")->AsString;
  queSelect->Close();
  UpdataSQL(cmdSQL2,queUpdata);
  UpdataSQL(cmdSQL1,queUpdata);
  UpdataSQL(cmdSQL,queUpdata);
  queSelect->Open();
}
//---------------------------------------------------------------------------



void __fastcall TfmGGGL::Button26Click(TObject *Sender)
{
  dlgChaXun3->ShowModal();
  if(dlgChaXun3->IsOk==0)  return ;
  OpenSQL(dlgChaXun3->cmdSQL,queSelect);
}
//---------------------------------------------------------------------------


void __fastcall TfmGGGL::Button24Click(TObject *Sender)
{
  if(!queSelect->Active)
    {
      MessageBox(0,"数据库未连接","",MB_OK|MB_ICONERROR|MB_TASKMODAL);
      return;
    }
  if(!queSelect->RecordCount)
    {
      MessageBox(0,"数据库中没有记录","",MB_OK|MB_ICONERROR|MB_TASKMODAL);
      return;
    }

  fmXiuGai3->edBH1->Text=queSelect->FieldByName("设施编号")->AsString;
  fmXiuGai3->edMC1->Text=queSelect->FieldByName("设施名称")->AsString;
  fmXiuGai3->edJE1->Text=queSelect->FieldByName("设施金额")->AsString;
  fmXiuGai3->atRQ1->DateTime=queSelect->FieldByName("交付日期")->AsString;
  fmXiuGai3->edCJS->Text=queSelect->FieldByName("承建商")->AsString;

  fmXiuGai3->edDH1->Text=queSelect->FieldByName("电话")->AsString;
  fmXiuGai3->edFZR->Text=queSelect->FieldByName("负责人")->AsString;
  fmXiuGai3->edGLR->Text=queSelect->FieldByName("设施管理人员")->AsString;

  fmXiuGai3->ActiveControl=fmXiuGai3->edBH1;
  fmXiuGai3->ShowModal();
}
//---------------------------------------------------------------------------

void __fastcall TfmGGGL::Button27Click(TObject *Sender)
{
  OpenSQL("select * from 设施维护管理",queSelect);        
}
//---------------------------------------------------------------------------
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -