unitmainform.cpp

使用C++Builder开发的常住人口管理系统

   {
     if((fp=fopen("userhelp.rtf","wb+"))==NULL)
     {
       ShowMessage("创建文件失败！！");
       fclose(fp);
       return ;
     }
   }
   fclose(fp);
   richUserHelp->Lines->LoadFromFile("userhelp.rtf");

   //打开人口统计结构
   RenKouTJ=Global::ReadRenYuanTJFromFile("RenKouTJ.db");
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::FormCreate(TObject *Sender)
{
   //pCZRYHead=Global::ReadIndexFromFile("Index.db");//创建常住人员索引表头
   SysUtil::createFile("BBS.db");
   SysUtil::createFile("GGHB.db");
   SysUtil::createFile("RCXQ.db");
   SysUtil::createFile("GQXX.db");
   SysUtil::createFile("SCHQ.db");
   SysUtil::createFile("DSJM.db");
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::comBxCZRYJLXingZhiChange(TObject *Sender)
{
  if (comBxCZRYJLXingZhi->ItemIndex == 1)
  {//如果是迁入人员
     DTCZRYJLQianRuTime->Enabled=true;
     edtCZRYJLQianRuAddress->Enabled=true;
     edtCZRYJLQianRuYuanYin->Enabled=true;

  }
  else
  {
     DTCZRYJLQianRuTime->Enabled=false;
     edtCZRYJLQianRuAddress->Enabled=false;
     edtCZRYJLQianRuYuanYin->Enabled=false;
  }


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

void __fastcall TfrmMain::btnRYXXGLChaXunClick(TObject *Sender)
{
   if (SysUtil::JudgeSfzID(edtRYXXGLSID->Text))
   {
        double index;
        //判断身份证是否存在

        if((index=Global::SearchIndex(pCZRYHead,edtRYXXGLSID->Text.c_str()))==-1L)
        {
           ShowMessage("找不到你要的身份证号码，请检查你的输入！");
           return ;
        }

        //创建临时PERINFO
        PerInfo *per=new PerInfo;
        if (!Global::ReadPerInfoFromFile("Person.db",index,per))
        {
            edtRYXXGLName->Text=AnsiString(per->Name);
            RGRYXXGLSex->ItemIndex=per->Sex;
            DTRYXXGLBirthday->DateTime=per->Birthday;
            edtRYXXGLJiGuan->Text=AnsiString(per->JiGuan);
            edtRYXXGLMinZu->Text=AnsiString(per->MinZu);
            edtRYXXGLSID->Text=AnsiString(per->SfzID);
            edtRYXXGLSID->Enabled=false;
            comBxRYXXGLZZMM->ItemIndex=per->ZengZhi;
            edtRYXXGLAge->Text=per->Age;
            comBxRYXXGLWenHua->ItemIndex=per->WenHua;
            comBxRYXXGLShouRu->ItemIndex=per->ShouRu;
            comBxRYXXGLXingZhi->ItemIndex=per->XingZhi;

           DTRYXXGLQianRuShiJian->DateTime=per->QianRuShiJian;

           edtRYXXGLSheHuiGuanXi->Text=per->SheHuiGuanXi;
           edtRYXXGLAddress->Text=per->Address;
           edtRYXXGLQianRuAddress->Text=per->QianRuDiDian;
           edtRYXXGLQianRuYuanYin->Text=per->QianRuYuanYin;
           RGRYXXGLZhongDian->ItemIndex=per->ZhongDian;
        }

        delete per;
        if (Admin)
        {
           btnXiuGai->Enabled=true;
           btnDelete->Enabled=true;
        }



   }


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

void __fastcall TfrmMain::btnXiuGaiClick(TObject *Sender)
{
      if (edtRYXXGLName->Text.IsEmpty())
     {
       ShowMessage("名字不能为空！");
       return;
     }
     if (SysUtil::JudgeSfzID(edtRYXXGLSID->Text))
     {
        double index;
        //判断身份证是否存在

        if((index=Global::SearchIndex(pCZRYHead,edtRYXXGLSID->Text.c_str()))==-1L)
        {
           ShowMessage("找不到你要的身份证号码，请检查你的输入！");
           return ;
        }
         //创建一个临时结构体    新添的
        PerInfo *per1=new PerInfo;
        Global::ReadPerInfoFromFile("Person.db",index,per1);
        Global::DeleteJieGouMes(RenKouTJ,per1->Age,per1->WenHua,per1->ShouRu,per1->XingZhi);
     //   pCZRYHead=Global::DeleteIndex(pCZRYHead,edtSWRYJLSfzID->Text.c_str());
        delete per1;   

        //创建临时PERINFO
        PerInfo *per=new PerInfo;

        strcpy(per->Name,edtRYXXGLName->Text.c_str());
        per->Sex=RGRYXXGLSex->ItemIndex;
        per->Birthday=DTRYXXGLBirthday->DateTime.operator int();
        strcpy(per->JiGuan,edtRYXXGLJiGuan->Text.c_str());
        strcpy(per->MinZu,edtRYXXGLMinZu->Text.c_str());
        //身份证
        strcpy(per->SfzID,edtRYXXGLSID->Text.c_str());

        per->ZengZhi=comBxRYXXGLZZMM->ItemIndex;
        per->Age=edtRYXXGLAge->Text.ToInt();

       // per->HunYin=comBxCZRYJLHunYin->ItemIndex;
        per->WenHua=comBxRYXXGLWenHua->ItemIndex;
        per->ShouRu=comBxRYXXGLShouRu->ItemIndex;

        per->XingZhi=comBxRYXXGLXingZhi->ItemIndex;
        per->QianRuShiJian=DTRYXXGLQianRuShiJian->DateTime.operator int();

        strcpy(per->SheHuiGuanXi,edtRYXXGLSheHuiGuanXi->Text.c_str());
        strcpy(per->Address,edtRYXXGLAddress->Text.c_str());
        strcpy(per->QianRuDiDian,edtRYXXGLQianRuAddress->Text.c_str());
        strcpy(per->QianRuYuanYin,edtRYXXGLQianRuYuanYin->Text.c_str());
        per->ZhongDian=RGRYXXGLZhongDian->ItemIndex;

        if (!Global::WritePerInfoToFile("Person.db",index,per))
        {
           ShowMessage("你成功修改了一条信息！");
        }

        //新添的
        Global::AddJieGouMes(RenKouTJ,per->Age,per->WenHua,per->ShouRu,per->XingZhi);
        delete per;

     }

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




void __fastcall TfrmMain::memoBBSFaBiaoChange(TObject *Sender)
{
   if (!memoBBSFaBiao->Lines->Strings[0].IsEmpty())
   {
       btnBBSFaBiao->Enabled=true;
   }
   else
   {
      btnBBSFaBiao->Enabled=false;
   }

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

void __fastcall TfrmMain::btnBBSClearClick(TObject *Sender)
{
   memoBBSFaBiao->Clear();
   btnBBSFaBiao->Enabled=false;        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnBBSPrintClick(TObject *Sender)
{
  ShowMessage("对不起，该windows没有连接到打印机，请重新连接！");        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnBBSFaBiaoClick(TObject *Sender)
{
   AnsiString temp;

   temp=DateToStr(Date())+" "+TimeToStr(Time());
   memoBBSYiJian->Lines->AddStrings(memoBBSFaBiao->Lines);
   memoBBSYiJian->Lines->Append(temp);
   memoBBSYiJian->Lines->Append("       ");
   memoBBSFaBiao->Clear();
   btnBBSFaBiao->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnRCXQFaBiaoClick(TObject *Sender)
{
   AnsiString temp;

   temp=DateToStr(Date())+" "+TimeToStr(Time());
   memoRCXQXQ->Lines->AddStrings(memoRCXQFaBiao->Lines);
   memoRCXQXQ->Lines->Append(temp);
   memoRCXQXQ->Lines->Append("       ");
   memoRCXQFaBiao->Clear();
   btnRCXQFaBiao->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnRCXQClearClick(TObject *Sender)
{
  memoRCXQFaBiao->Clear();
  btnRCXQFaBiao->Enabled=false;        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnRCXQPrintClick(TObject *Sender)
{
 ShowMessage("对不起，该windows没有连接到打印机，请重新连接！");        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnDSJMFaBiaoClick(TObject *Sender)
{
   AnsiString temp;

   temp=DateToStr(Date())+" "+TimeToStr(Time());
   memoDSJMDan->Lines->AddStrings(memoDSJMFaBiao->Lines);
   memoDSJMDan->Lines->Append(temp);
   memoDSJMDan->Lines->Append("       ");
   memoDSJMFaBiao->Clear();
   btnDSJMFaBiao->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnDSJMClearClick(TObject *Sender)
{
   memoDSJMFaBiao->Clear();
   btnDSJMFaBiao->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnDSJMPrintClick(TObject *Sender)
{
  /*
  if (PrintDialog->Execute())
  {
      //PrintDialog->Name="";
      ;
  }
  */
  ShowMessage("对不起，该windows没有连接到打印机，请重新连接！");        

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

void __fastcall TfrmMain::btnSCHQFaBiaoClick(TObject *Sender)
{
   AnsiString temp;

   temp=DateToStr(Date())+" "+TimeToStr(Time());
   memoSCHQHQ->Lines->AddStrings(memoSCHQFaBiao->Lines);
   memoSCHQHQ->Lines->Append(temp);
   memoSCHQHQ->Lines->Append("       ");
   memoSCHQFaBiao->Clear();
   btnSCHQFaBiao->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnSCHQClearClick(TObject *Sender)
{
   memoSCHQFaBiao->Clear();
   btnSCHQFaBiao->Enabled=false;

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

void __fastcall TfrmMain::btnSCHQPrintClick(TObject *Sender)
{
  ShowMessage("对不起，该windows没有连接到打印机，请重新连接！");        
        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::memoSCHQFaBiaoChange(TObject *Sender)
{
    if (!memoSCHQFaBiao->Lines->Strings[0].IsEmpty())
   {
       btnSCHQFaBiao->Enabled=true;
   }
   else
   {
      btnSCHQFaBiao->Enabled=false;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::memoRCXQXQChange(TObject *Sender)
{
    ;    
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::memoRCXQFaBiaoChange(TObject *Sender)
{
   if (!memoRCXQFaBiao->Lines->Strings[0].IsEmpty())
   {
       btnRCXQFaBiao->Enabled=true;
   }
   else
   {
      btnRCXQFaBiao->Enabled=false;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::memoDSJMFaBiaoChange(TObject *Sender)
{
  if (!memoDSJMFaBiao->Lines->Strings[0].IsEmpty())
   {
       btnDSJMFaBiao->Enabled=true;
   }
   else
   {
      btnDSJMFaBiao->Enabled=false;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnGQXXFaBiaoClick(TObject *Sender)
{
  AnsiString temp;

   temp=DateToStr(Date())+" "+TimeToStr(Time());
   memoGQXXGQ->Lines->AddStrings(memoGQXXFaBiao->Lines);
   memoGQXXGQ->Lines->Append(temp);
   memoGQXXGQ->Lines->Append("       ");
   memoGQXXFaBiao->Clear();
   btnGQXXFaBiao->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnGQXXClearClick(TObject *Sender)
{
   memoGQXXFaBiao->Clear();
   btnGQXXFaBiao->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnGQXXPrintClick(TObject *Sender)
{
   ShowMessage("对不起，该windows没有连接到打印机，请重新连接！");        
        
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::memoGQXXFaBiaoChange(TObject *Sender)
{
   if (!memoGQXXFaBiao->Lines->Strings[0].IsEmpty())
   {
       btnGQXXFaBiao->Enabled=true;
   }
   else
   {
      btnGQXXFaBiao->Enabled=false;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::memoGGHBFaBiaoChange(TObject *Sender)
{
   if (!memoGGHBFaBiao->Lines->Strings[0].IsEmpty())
   {
       btnGGHBFaBiao->Enabled=true;
   }
   else
   {
      btnGGHBFaBiao->Enabled=false;
   }
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnGGHBFaBiaoClick(TObject *Sender)
{
   AnsiString temp;

   temp=DateToStr(Date())+" "+TimeToStr(Time());
   memoGGHBGG->Lines->AddStrings(memoGGHBFaBiao->Lines);
   memoGGHBGG->Lines->Append(temp);
   memoGGHBGG->Lines->Append("       ");
   memoGGHBFaBiao->Clear();
   btnGGHBFaBiao->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmMain::btnGGHBClearClick(TObject *Sender)
{