main.cpp

大学田径运动会管理系统

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

void __fastcall TMainForm::HelpAboutItemClick(TObject *Sender)
{
AnsiString temp1,temp2;
int idok;
yundongyuan=new Tyundongyuan(this);
yundongyuan->list_lbfzbh=new TStringList;
yundongyuan->list_lbfzmc=new TStringList;
yundongyuan->list_zxmbh=new TStringList;
yundongyuan->list_zlbfzbh=new TStringList;
yundongyuan->list_zxmmc=new TStringList;
yundongyuan->list_xmbh=new TStringList;
yundongyuan->list_xmmc=new TStringList;
yundongyuan->list_dwjc=new TStringList;
yundongyuan->list_dwbh=new TStringList;
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select DWJC,BH from jsdwb order by id asc");
opensetconnection();
while(!data->set_data_query->Eof){
temp1=data->set_data_query->Fields->FieldByName("DWJC")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("BH")->AsString.Trim();
yundongyuan->list_dwjc->Add(temp1);
yundongyuan->list_dwbh->Add(temp2);
data->set_data_query->Next();
}
yundongyuan->dwjc->Items->Assign(yundongyuan->list_dwjc);
if(yundongyuan->list_dwbh->Count>0)
yundongyuan->m_curdwbh=yundongyuan->list_dwbh->Strings[0].Trim();

closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select XMBH,XMMC,LBBH,FZBH from xmb order by id asc");
opensetconnection();
while(!data->set_data_query->Eof){
temp1=data->set_data_query->Fields->FieldByName("LBBH")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("FZBH")->AsString.Trim();
yundongyuan->list_zlbfzbh->Add(temp1+":"+temp2);
temp1=data->set_data_query->Fields->FieldByName("XMBH")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("XMMC")->AsString.Trim();
yundongyuan->list_zxmbh->Add(temp1);
yundongyuan->list_zxmmc->Add(temp2);
data->set_data_query->Next();
}
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select a.LBMC,b.ZM,b.BH,b.SSLB from jslbz a,fzqkb b where a.bh=b.sslb order by b.id asc");;
opensetconnection();
while(!data->set_data_query->Eof){
temp1=data->set_data_query->Fields->FieldByName("LBMC")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("ZM")->AsString.Trim();
yundongyuan->list_lbfzmc->Add(temp1+"->"+temp2);
temp1=data->set_data_query->Fields->FieldByName("SSLB")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("BH")->AsString.Trim();
yundongyuan->list_lbfzbh->Add(temp1+":"+temp2);
data->set_data_query->Next();
}
yundongyuan->lbfzmc->Items->Assign(yundongyuan->list_lbfzmc);

closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select a.ID,a.BZ,a.YDYBH,a.YDYXM,a.XB,a.LBBH,a.FZBH,a.SBXM,b.DWJC,a.DWBH  from ydyb a,jsdwb b where a.DWBH=b.BH and a.DWBH='"+yundongyuan->m_curdwbh+"' order by a.ID ASC");
opensetconnection();
yundongyuan->m_query=data->set_data_query;
yundongyuan->m_con=data->set_data_con;
yundongyuan->m_query->AfterScroll=yundongyuan->setvalue;
yundongyuan->m_query->First();
idok=yundongyuan->ShowModal();
data->set_data_query->AfterScroll=NULL;
closesetconnection();
delete  yundongyuan->list_lbfzbh;
delete  yundongyuan->list_lbfzmc;
delete  yundongyuan->list_zxmbh;
delete  yundongyuan->list_zlbfzbh;
delete  yundongyuan->list_zxmmc;
delete  yundongyuan->list_xmbh;
delete  yundongyuan->list_xmmc;
delete  yundongyuan->list_dwjc;
delete  yundongyuan->list_dwbh;
delete yundongyuan;
yundongyuan=NULL;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N13Click(TObject *Sender)
{
AnsiString temp1,temp2;
int idok;
quannengxiangmu=new Tquannengxiangmu(this);
quannengxiangmu->list_zxmbh=new TStringList;
quannengxiangmu->list_zxmmc=new TStringList;
quannengxiangmu->list_dxxmmc=new TStringList;
quannengxiangmu->list_dxbssj=new TStringList;
quannengxiangmu->list_dxxmzt=new TStringList;
quannengxiangmu->list_xmbh=new TStringList;
quannengxiangmu->list_lbfzbh=new TStringList;
quannengxiangmu->list_lbfzmc=new TStringList;
quannengxiangmu->list_temp=new TStringList;
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("insert qnxmsz (XMBH,XMMC,LBBH,FZBH,XMGS)   \
                                select XMBH,XMMC,LBBH,FZBH,XMGS from xmb where XMXJ='全能' and qnxmsz=0  \
                                update xmb set qnxmsz=1 where xmxj='全能' ");;
data->set_data_con->Connected=true;
data->set_data_query->ExecSQL();
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select XMBH,XB,XMMC,XMCHINA from qnxm");
opensetconnection();
while(!data->set_data_query->Eof){
temp1=data->set_data_query->Fields->FieldByName("XB")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("XMCHINA")->AsString.Trim();
quannengxiangmu->list_zxmmc->Add(temp1+":"+temp2);
temp2=data->set_data_query->Fields->FieldByName("XMBH")->AsString.Trim();
temp1=data->set_data_query->Fields->FieldByName("XMMC")->AsString.Trim();
quannengxiangmu->list_dxxmmc->Add(temp1);
quannengxiangmu->list_zxmbh->Add(temp2);
data->set_data_query->Next();
}
quannengxiangmu->kxxm->Items->Assign(quannengxiangmu->list_zxmmc);

closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select a.LBMC,b.ZM,b.BH,b.SSLB from jslbz a,fzqkb b where a.bh=b.sslb order by b.id asc");;
opensetconnection();
while(!data->set_data_query->Eof){
temp1=data->set_data_query->Fields->FieldByName("LBMC")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("ZM")->AsString.Trim();
quannengxiangmu->list_lbfzmc->Add(temp1+"->"+temp2);
temp1=data->set_data_query->Fields->FieldByName("SSLB")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("BH")->AsString.Trim();
quannengxiangmu->list_lbfzbh->Add(temp1+":"+temp2);
data->set_data_query->Next();
}
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select * from qnxmsz order by ID ASC");
opensetconnection();
quannengxiangmu->m_query=data->set_data_query;
quannengxiangmu->m_con=data->set_data_con;
quannengxiangmu->m_query->AfterScroll=quannengxiangmu->setvalue;
quannengxiangmu->m_query->First();
idok=quannengxiangmu->ShowModal();
data->set_data_query->AfterScroll=NULL;
closesetconnection();
delete  quannengxiangmu->list_zxmbh;
delete  quannengxiangmu->list_zxmmc;
delete  quannengxiangmu->list_dxxmmc;
delete  quannengxiangmu->list_dxxmzt;
delete  quannengxiangmu->list_dxbssj;
delete  quannengxiangmu->list_xmbh;
delete  quannengxiangmu->list_lbfzbh;
delete  quannengxiangmu->list_lbfzmc;
delete  quannengxiangmu->list_temp;
delete quannengxiangmu;
quannengxiangmu=NULL;
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::jlClick(TObject *Sender)
{
AnsiString str;
m_yuange->getallxiangmu();
jianlu=new Tjianlu(this);
jianlu->yuange_jl=new TYuange_JL(m_yuange);
jianlu->jl_con->ConnectionString=Yuange_QJ->m_server_constring;
jianlu->jl1_con->ConnectionString=Yuange_QJ->m_server_constring;
if(m_yuange->list_lbfzmc->Count>0) str=m_yuange->list_lbfzmc->Strings[0].Trim();
jianlu->yuange_jl->selectlbfz(str);
jianlu->lbfz->Items->Assign(m_yuange->list_lbfzmc);
jianlu->xm->Items->Assign(jianlu->yuange_jl->list_list_xmmc);
jianlu->xm->Text="";
jianlu->Show();

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

void __fastcall TMainForm::srClick(TObject *Sender)
{
AnsiString str;
m_yuange->getallxiangmu();
chengjishuru=new Tchengjishuru(this);
chengjishuru->yuange_sr=new TYuange_SR(m_yuange);
chengjishuru->sr_con->ConnectionString=Yuange_QJ->m_server_constring;  
if(m_yuange->list_lbfzmc->Count>0) str=m_yuange->list_lbfzmc->Strings[0].Trim();
chengjishuru->yuange_sr->selectlbfz(str);
chengjishuru->lbfz->Items->Assign(m_yuange->list_lbfzmc);
chengjishuru->xm->Items->Assign(chengjishuru->yuange_sr->list_list_xmmc);
chengjishuru->xm->Text="";
chengjishuru->Show();
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::clClick(TObject *Sender)
{
AnsiString str;
m_yuange->getallxiangmu();
chengjichuli=new Tchengjichuli(this);
chengjichuli->yuange_cl=new TYuange_CL(m_yuange);
chengjichuli->cl_con->ConnectionString=Yuange_QJ->m_server_constring;
if(m_yuange->list_lbfzmc->Count>0) str=m_yuange->list_lbfzmc->Strings[0].Trim();
chengjichuli->yuange_cl->selectlbfz(str);
chengjichuli->lbfz->Items->Assign(m_yuange->list_lbfzmc);
chengjichuli->xm->Items->Assign(chengjichuli->yuange_cl->list_list_xmmc);
chengjichuli->xm->Text="";
chengjichuli->Show();
}
//---------------------------------------------------------------------------


bool __fastcall TMainForm::iscreate(AnsiString  classname)
{
TClass lin;
TControl *con1;
int i;
for(i=0;i<this->MDIChildCount;i++)
{
con1=this->MDIChildren[i];
lin=con1->ClassType();
if(classname==lin->ClassName())return true;
 }       //TODO: Add your source code here
return false;
}
void __fastcall TMainForm::FormDestroy(TObject *Sender)
{
delete Yuange_QJ;
delete m_yuange;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::sjClick(TObject *Sender)
{
AnsiString str;
m_yuange->getallxiangmu();
suijichoudao=new Tsuijichoudao(this);
suijichoudao->gs->Text=8;
suijichoudao->list_temp=new TStringList;
suijichoudao->yuange_sj=new TYuange_SJ(m_yuange);
suijichoudao->m_con->ConnectionString=Yuange_QJ->m_server_constring;
if(m_yuange->list_lbfzmc->Count>0) str=m_yuange->list_lbfzmc->Strings[0].Trim();
suijichoudao->yuange_sj->selectlbfz(str);
suijichoudao->lbfz->Items->Assign(m_yuange->list_lbfzmc);
suijichoudao->xm->Items->Assign(suijichoudao->yuange_sj->list_list_xmmc);
suijichoudao->xm->Text="";
suijichoudao->ShowModal();
suijichoudao->close(); 
delete suijichoudao->yuange_sj;
delete suijichoudao->list_temp;
delete suijichoudao;
suijichoudao=NULL;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N30Click(TObject *Sender)
{
/////////////
frm_ydychaxun=new Tfrm_ydychaxun(this);
frm_ydychaxun->m_con->ConnectionString=Yuange_QJ->m_server_constring;
frm_ydychaxun->initdata();
frm_ydychaxun->Show();
//frm_ydychaxun 
}
//---------------------------------------------------------------------------



void __fastcall TMainForm::FileNewItemClick(TObject *Sender)
{
////
int idok;
AnsiString password,loginname,title="用户登陆";
while(true){
 login=new Tlogin(this);
 login->Caption=title;
 login->m_query->ConnectionString=Yuange_QJ->m_server_constring;
 idok=login->ShowModal();
 if(idok==IDOK){
     password=login->password->Text.Trim();
     loginname=login->loginname->Text.Trim();
     login->open("select MC,QX from yhb where LOGINNAME='"+loginname+"' and PASSWORD='"+password+"'");
     idok=login->m_query->RecordCount;
     if(idok>0){
          ShowMessage("     欢迎:"+login->m_query->Fields->FieldByName("MC")->AsString);
          try{
          quanxian=StrToInt(login->m_query->Fields->FieldByName("QX")->AsString.Trim());
          }catch(...){quanxian=1;}
          initqx();
          break;
        }
        else{
           if(!showok("是否再登陆"))break;
          title="登陆错误!";
         }
     }
     else break;
   login->m_query->Close();
   login->m_query->Active=false;
   delete login;
   login=NULL;
  }
  if(login){
  delete login;
  login=NULL;
  }
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::initqx()
{
baoming->Enabled=quanxian&16;
sj->Enabled=quanxian&16;
jl->Enabled=quanxian&2;
sr->Enabled=quanxian&4;
cl->Enabled=quanxian&8;
xitongsetting->Enabled=quanxian&16;
advancesetting->Enabled=quanxian&16;
xiangmusetting->Enabled=quanxian&16;
tongji->Enabled=quanxian&16;
         //TODO: Add your source code here
}
void __fastcall TMainForm::N2Click(TObject *Sender)
{
if(!showok("要注销吗"))return;
quanxian=1;
initqx();        
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::N6Click(TObject *Sender)
{
xmbb=new Txmbb(this);
xmbb->m_con->ConnectionString=Yuange_QJ->m_server_constring;  
xmbb->Show();        
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N28Click(TObject *Sender)
{
 ttzf=new Tttzf(this);
 ttzf->BitBtn3->Visible=quanxian&16?true:false;
 ttzf->m_con->ConnectionString=Yuange_QJ->m_server_constring;
 ttzf->open("select bh,dwmc from jsdwb");
 while(!ttzf->m_query->Eof){
   ttzf->list_pdwbh->Add(ttzf->m_query->Fields->FieldByName("BH")->AsString.Trim());
   ttzf->dwmc->Items->Add(ttzf->m_query->Fields->FieldByName("DWMC")->AsString.Trim());
   ttzf->m_query->Next();
   }
    ttzf->dwmc->ItemIndex=0;  
 ttzf->refresh();
 ttzf->Show();
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::N17Click(TObject *Sender)
{
AnsiString str;
m_yuange->getallxiangmu();
cxcj=new Tcxcj(this);
cxcj->m_con->ConnectionString=Yuange_QJ->m_server_constring;
cxcj->open("select bh,dwjc from jsdwb");
cxcj->dw->Items->Add("  ");
cxcj->list_dwbh->Add("-1");
while(!cxcj->m_query->Eof){
cxcj->dw->Items->Add(cxcj->m_query->Fields->FieldByName("DWJC")->AsString.Trim());
cxcj->list_dwbh->Add(cxcj->m_query->Fields->FieldByName("BH")->AsString.Trim());
cxcj->m_query->Next();
}
cxcj->yuange_cx=new TYuange_CX(m_yuange);
if(m_yuange->list_lbfzmc->Count>0) str=m_yuange->list_lbfzmc->Strings[0].Trim();
cxcj->yuange_cx->selectlbfz(str);
cxcj->lbfz->Items->Assign(m_yuange->list_lbfzmc);
cxcj->lbfz->ItemIndex=0;
cxcj->lbfz->OnChange(this);
cxcj->xm->Items->Assign(cxcj->yuange_cx->list_list_xmmc);
cxcj->xm->ItemIndex=0;
cxcj->xm->OnChange(this);
cxcj->Show();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N19Click(TObject *Sender)
{
AnsiString str;
m_yuange->getallxiangmu();
cxydy=new Tcxydy(this);
cxydy->m_con->ConnectionString=Yuange_QJ->m_server_constring;
cxydy->open("select bh,dwjc from jsdwb");
cxydy->dw->Items->Add("  ");
cxydy->list_dwbh->Add("-1");
while(!cxydy->m_query->Eof){
cxydy->dw->Items->Add(cxydy->m_query->Fields->FieldByName("DWJC")->AsString.Trim());
cxydy->list_dwbh->Add(cxydy->m_query->Fields->FieldByName("BH")->AsString.Trim());
cxydy->m_query->Next();
}
cxydy->yuange_cx=new TYuange_CX(m_yuange);
if(m_yuange->list_lbfzmc->Count>0) str=m_yuange->list_lbfzmc->Strings[0].Trim();
cxydy->yuange_cx->selectlbfz(str);
cxydy->lbfz->Items->Assign(m_yuange->list_lbfzmc);
cxydy->lbfz->ItemIndex=0;
cxydy->lbfz->OnChange(this);
cxydy->xm->Items->Assign(cxydy->yuange_cx->list_list_xmmc);
cxydy->xm->Items->Add(" ");
cxydy->xm->ItemIndex=0;
cxydy->xm->OnChange(this); 
cxydy->Show();

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