fuzhu.cpp

大学田径运动会管理系统

  list_str(list_mcbszt,list_temp,";");
  parsestr(list_lbfz,&list_temp,':');
  m_sql="update xmb set MCBSZT='"+list_mcbszt+"' where XMBH='"+list_xmbh+"' and LBBH='"+list_temp->Strings[0].Trim()+"' and FZBH='"+list_temp->Strings[1].Trim()+"'";
  exe(m_sql);
 if(StrToInt(list_xmgs)>1&&zxm_index!=StrToInt(list_xmgs)){
    if(zxm_index<list_zxmgs->Count){
     parsestr(list_ppzxmzt,&list_temp,';');
     list_temp->Strings[zxm_index]=curbsfs*10+zt;
      list_str(list_ppzxmzt,list_temp,";");
     parsestr(list_lbfz,&list_temp,':');
     m_sql="update qnxmsz set DXXMZT='"+list_ppzxmzt+"' where XMBH='"+list_xmbh+"' and LBBH='"+list_temp->Strings[0].Trim()+"' and FZBH='"+list_temp->Strings[1].Trim()+"'";
     exe(m_sql);
     }
 }
}

void __fastcall TYuange_CL::updatecj(int type)
{
if(m_table_name.IsEmpty())return;
if(type==1)
m_sql="update cjb set cjb.CJ=a.CJ,cjb.MC=a.MC,cjb.CJBZ=a.CJBZ,cjb.PJLBZ=a.PJLBZ,cjb.PJLDF=a.PJLDF,cjb.BLBZ=a.BLBZ,cjb.JJBZ=a.JJBZ,cjb.DF=a.DF from "+m_table_name+" a where cjb.YDYBH=a.YDYBH \
       and cjb.BSFS=a.BSFS and a.FZBH=cjb.FZBH and a.LBBH=cjb.LBBH and a.BSFS=cjb.BSFS and cjb.XMBH=a.XMBH and cjb.DXBH=a.DXBH";
if(type==10)
m_sql="update jlb set jlb.CJ=a.CJ,jlb.MC=a.MC,jlb.CJBZ=a.CJBZ,jlb.PJLBZ=a.PJLBZ,jlb.PJLDF=a.PJLDF,jlb.BLBZ=a.BLBZ,jlb.JJBZ=a.JJBZ,jlb.DF=a.DF from "+m_table_name+" a where jlb.YDYBH=a.YDYBH \
       and jlb.BSFS=a.BSFS and a.FZBH=jlb.FZBH and a.LBBH=jlb.LBBH and a.BSFS=jlb.BSFS and jlb.XMBH=a.XMBH and jlb.DXBH=a.DXBH";
exe(m_sql);
        //TODO: Add your source code here
}
///
void __fastcall TYuange_CL::getnewsinfo()
{
m_sql="select MCBSZT from xmb where XMBH='"+list_xmbh+"' and  FZBH='"+list_fzbh+"' and LBBH='"+list_lbbh+"'";
open(m_sql);
list_mcbszt=m_query->Fields->FieldByName("MCBSZT")->AsString.Trim();
        //TODO: Add your source code here
}

void __fastcall TYuange_CL::cl_paiming(int type)
{
       int index;

//(*list_mc)->Clear();
AnsiString psfgz;
int mc_index;
TStringList *list_pydybh,*list_pmc,*list_pcj,*list_jingji;
list_pydybh=new TStringList;
list_pmc=new TStringList;
list_pcj=new TStringList;
list_jingji=new TStringList;

if(list_sfgz=="递增")psfgz=" ASC ";
if(list_sfgz=="递减")psfgz=" DESC ";
if(list_xmlb=="全能"){
   if(qn_xmxz=="1")
          psfgz=" ASC ";
   if(qn_xmxz=="2"||qn_xmxz=="3")psfgz=" DESC ";
 }
m_sql="select YDYBH,CJ from "+m_table_name+" where CJ<>0 order by CJ "+psfgz;
open(m_sql);
mc_index=1;
while(!m_query->Eof){
 list_pydybh->Add(m_query->Fields->FieldByName("YDYBH")->AsString.Trim());
 list_pcj->Add(m_query->Fields->FieldByName("CJ")->AsString.Trim());
 list_pmc->Add(IntToStr(mc_index));
 m_query->Next();
 mc_index++;
 }
/////
cl_bingli(list_pydybh,list_pcj,&list_pmc,&list_temp);
updatedata(list_pydybh,list_temp,"BLBZ",1);
if(type!=5){
cl_jingji(list_pydybh,list_pcj,&list_jingji);
updatedata(list_pydybh,list_jingji,"JJBZ",1);
if(this->curbsfs==StrToInt(this->list_bscs)){
  cl_caldf(list_pydybh,list_pmc,list_jingji,&list_temp);
  updatedata(list_pydybh,list_temp,"DF",1);
  }
}
/////
m_sql="select YDYBH,CJ from "+m_table_name+" where CJ=0 order by CJ "+psfgz;
open(m_sql);
while(!m_query->Eof){
 list_pydybh->Add(m_query->Fields->FieldByName("YDYBH")->AsString.Trim());
 list_pcj->Add(m_query->Fields->FieldByName("CJ")->AsString.Trim());
 list_pmc->Add(IntToStr(mc_index));
 m_query->Next();
 mc_index++;
 }
updatedata(list_pydybh,list_pmc,"MC",1);
delete list_pydybh;
delete list_pmc;
delete list_pcj;
delete list_jingji;
        //TODO: Add your source code here
}
void __fastcall TYuange_CL::cl_caldf(TStringList * list_pydybh,TStringList *list_pmc,TStringList *list_jingji,TStringList **list_defen,int type)
{      int index;

int lqmc,pmc1,pmc2,count,m_type=0,pos,k;
float curdf,totaldf;
TStringList *tempdf;
tempdf=new TStringList;
parsestr(list_mcbsmc,&tempdf,';');
//if(curbsfs!=tempdf->Count)return;
(*list_defen)->Clear();
if(list_pydybh->Count<=0)return;
if(list_jingji->Strings[0].Trim()=="0")return;
for(i=0;i<list_pmc->Count;i++)(*list_defen)->Add(StrToInt(list_ycjdf));
parsestr(list_dfqk,&tempdf,';');
for(lqmc=0;lqmc<list_jingji->Count;lqmc++)if(list_jingji->Strings[lqmc].Trim()=="0")break;
i=0;
while(true){
   m_type=0;
   pmc1=StrToInt(list_pmc->Strings[i].Trim());
   if(i+1==lqmc){m_type=1;break;};
   pmc2=StrToInt(list_pmc->Strings[i+1].Trim());
   if(pmc1==pmc2){
      count=1;
      pos=i;
      while(pmc1==pmc2){
        count++;
        i++;
        pmc1=StrToInt(list_pmc->Strings[i].Trim());
        if(i+1==lqmc){m_type=2;break;}
        pmc2=StrToInt(list_pmc->Strings[i+1].Trim());
      }
//      if(m_type==2){
//          pmc1=StrToInt(list_pmc->Strings[i-1].Trim());
//          if(i+1==lqmc)m_type=2;
///          pmc2=StrToInt(list_pmc->Strings[i].Trim());
//          if(pmc1==pmc2)count++;else {m_type=1;break;}
//         }
        curdf=0;totaldf=0;
      for(k=0;k<count;k++){
             curdf=StrToFloat(tempdf->Strings[pos+k].Trim());
             totaldf+=curdf;
           }
         curdf=totaldf/count;
      for(k=0;k<count;k++)(*list_defen)->Strings[pos+k]=FloatToStr(curdf);
      if(pos+k>=lqmc){m_type=2;break;}
    }else{
//          curdf=StrToInt(tempdf->Strings[i].Trim());
          (*list_defen)->Strings[i]=tempdf->Strings[i].Trim();
       }
   if(m_type!=2)
      i++;
  }        //TODO: Add your source code here
if(m_type==1){
        temp_str=tempdf->Strings[lqmc-1].Trim();
        (*list_defen)->Strings[lqmc-1]=temp_str;
        }
delete tempdf;
}

void __fastcall TYuange_CL::cl_bingli(TStringList * list_pydybh, TStringList *list_pcj,TStringList **list_pmc,TStringList **list_bingli,int type)
{
int index;
(*list_bingli)->Clear();
int pcj1,pcj2,pos,count;
if(list_pydybh->Count<=0)return;
if(list_pydybh->Count==1){(*list_bingli)->Add("0");return;}
for(index=0;index<list_pydybh->Count-1;index++){
         pcj1=StrToInt(list_pcj->Strings[index].Trim());
         pcj2=StrToInt(list_pcj->Strings[index+1].Trim());
         if(pcj1==pcj2){
              count=1;
              pos=index;
               while(pcj1==pcj2){
                     index++;
                     pcj1=StrToInt(list_pcj->Strings[index].Trim());
                     if(index==list_pydybh->Count-1)break;
                     pcj2=StrToInt(list_pcj->Strings[index+1].Trim());
                     count++;
                        }
               for(i=0;i<count;i++){
                   (*list_bingli)->Add("1");
                   (*list_pmc)->Strings[pos+i]=IntToStr(pos+1);
                 }
            }
          else
           (*list_bingli)->Add("0");
   }
index=list_pydybh->Count-2;
pcj1=StrToInt(list_pcj->Strings[index].Trim());
pcj2=StrToInt(list_pcj->Strings[index+1].Trim());
if(pcj1==pcj2){
    (*list_pmc)->Strings[index+1]=(*list_pmc)->Strings[index].Trim();
    (*list_bingli)->Add("1");
    }
    else (*list_bingli)->Add("0");
        //TODO: Add your source code here
}

void __fastcall TYuange_CL::cl_jingji(TStringList * list_pydybh, TStringList *list_pmc,TStringList **list_jingji,int type)
{      int index;

int lqrs,count;
(*list_jingji)->Clear();
parsestr(list_mcbslqmc,&list_temp,';');
try{
lqrs=StrToInt(list_temp->Strings[curbsfs-1].Trim());
}
catch(...){ShowMessage("录取名次数据库错误.");lqrs=0;}
if(list_pydybh->Count>=lqrs)lqrs=lqrs;
if(list_pydybh->Count<lqrs){
  if(list_jylq=="1")
     lqrs=list_pydybh->Count-1;
     else lqrs=list_pydybh->Count;
 }
for(i=0;i<list_pmc->Count;i++)(*list_jingji)->Add("0");
for(i=0;i<lqrs;i++)(*list_jingji)->Strings[i]="1";
        //TODO: Add your source code here
}

void __fastcall TYuange_CL::updatedata(TStringList * list_pydybh, TStringList *list_value, AnsiString field,int type)
{   int index;

if(type==1){
 for(index=0;index<list_pydybh->Count;index++){
    if(index>=list_value->Count)break;
    m_sql="update "+m_table_name+" set "+field+"="+list_value->Strings[index].Trim()+" where YDYBH='"+list_pydybh->Strings[index].Trim()+"'";
    exe(m_sql);
   }
  }else
 if(type==2){
  for(index=0;index<list_pydybh->Count;index++){
    if(index>=list_value->Count)break;
    m_sql="update "+m_table_name+" set "+field+"='"+list_value->Strings[index].Trim()+"' where YDYBH='"+list_pydybh->Strings[index].Trim()+"'";
    exe(m_sql);
   }  //TODO: Add your source code here
  }
}

void __fastcall TYuange_CL::cl_bingli(TStringList * list_pydybh,TStringList *list_pmc,TStringList **list_bingli,int type)
{       int index;

(*list_bingli)->Clear();
int pcj1,pcj2,pos,count;
if(list_pydybh->Count<=0)return;
if(list_pydybh->Count==1){(*list_bingli)->Add("0");return;}
for(index=0;index<list_pydybh->Count-1;index++){
         pcj1=StrToInt(list_pmc->Strings[index].Trim());
         pcj2=StrToInt(list_pmc->Strings[index+1].Trim());
         if(pcj1==pcj2){
              count=1;
              pos=index;
               while(pcj1==pcj2){
                     index++;
                     pcj1=StrToInt(list_pmc->Strings[index].Trim());
                     if(index==list_pydybh->Count-1)break;
                     pcj2=StrToInt(list_pmc->Strings[index+1].Trim());
                     count++;
                        }
               for(i=0;i<count;i++){
                   (*list_bingli)->Add("1");
                 }
            }
          else
           (*list_bingli)->Add("0");
   }
index=list_pydybh->Count-2;
pcj1=StrToInt(list_pmc->Strings[index].Trim());
pcj2=StrToInt(list_pmc->Strings[index+1].Trim());
if(pcj1==pcj2){
    (*list_bingli)->Add("1");
    }
    else (*list_bingli)->Add("0");
        //TODO: Add your source code here
        //TODO: Add your source code here
}
void __fastcall TYuange_CL::cl_allqn()
{
TStringList *m_xmbh,*m_pxfs,*m_cfb,*m_xmxz;
TStringList *m_ydybh,*m_dxcj,*m_dxdf,*m_xmbh1;;
AnsiString m_sql,temp_str;
int i;
m_xmbh=new TStringList;
m_xmbh1=new TStringList;
m_pxfs=new TStringList;
m_cfb=new TStringList;
m_ydybh=new TStringList;
m_dxcj=new TStringList;
m_dxdf=new TStringList;
m_xmxz=new TStringList;
m_ydybh->Clear();
m_dxdf->Clear();
m_xmbh->Clear();
m_sql="select YDYBH,SUM(DF) as m_df,SUM(CAST(PJLBZ as Int)) as m_pjlbz from jlb where LBBH='"+list_lbbh+"' and \
       FZBH='"+list_fzbh+"' and XMBH='"+list_xmbh+"' and DXBH<>XMBH group by YDYBH";
open(m_sql);
while(!m_query->Eof){
   temp_str= m_query->Fields->Fields[0]->AsString.Trim();
   m_ydybh->Add(temp_str);
   temp_str= m_query->Fields->Fields[1]->AsString.Trim();
   m_dxdf->Add(temp_str);
   temp_str= m_query->Fields->Fields[2]->AsString.Trim();
   m_xmbh->Add(temp_str);
   m_query->Next();
  }
 {     /////begin
int pjl;
AnsiString ydybh;
for(i=0;i<m_xmbh->Count;i++)
 {
     pjl=StrToInt(m_xmbh->Strings[i].Trim());
     ydybh=m_ydybh->Strings[i].Trim();
     m_xmxz->Add(" ");
     if(pjl>0){
             m_sql="select top 1 PJLBZ from jlb  where LBBH='"+list_lbbh+"' and FZBH='"+list_fzbh+"' and XMBH='"+list_xmbh+"' and YDYBH='"+ydybh+"' and XMBH<>DXBH order by PJLBZ DESC";
             open(m_sql);
             temp_str= m_query->Fields->Fields[0]->AsString.Trim();
             m_xmbh->Strings[i]=temp_str;
           }
           else
             m_xmbh->Strings[i]="0";
       }
   }  ///end
 int gjl=0,sjl=0;
 TStringList *mpjl,*mpjldf,*mpjlmc;
 mpjl=new TStringList;
 mpjldf=new TStringList;
 mpjlmc=new TStringList;

parsestr(list_pjldf,&mpjldf,';');
parsestr(list_pjlcj,&mpjl,';');
parsestr(list_pjlmc,&mpjlmc,';');
AnsiString pjldf,cjbz;
bool is_dxpjl=true;
int k=0;
for(i=0;i<m_ydybh->Count;i++)
 {
 pjldf="0";
 cjbz="正常";
 is_dxpjl=true;
 k=-1;
 if(m_dxdf->Strings[i].Trim().IsEmpty())m_dxdf->Strings[i]="0";
 if(StrToInt(mpjl->Strings[0].Trim())<StrToInt(m_dxdf->Strings[i])){
      k=0;
      while(StrToInt(mpjl->Strings[k].Trim())<StrToInt(m_dxdf->Strings[i])){
         k++;
         if(k>=mpjl->Count){break;}
        }
       if(StrToInt(m_xmbh->Strings[i].Trim())<k)m_xmbh->Strings[i]=k;
    if(k>0&&k>StrToInt(m_xmbh->Strings[i].Trim())){
       pjldf=StrToInt(mpjldf->Strings[k-1].Trim());
       cjbz=mpjlmc->Strings[k-1].Trim();
         }
         else{
        int k=StrToInt(m_xmbh->Strings[i].Trim());
        if(k>0){
          pjldf=StrToInt(mpjldf->Strings[k-1].Trim());
          cjbz=mpjlmc->Strings[k-1].Trim();
           }
         }
       }
    else
       {
       int k=StrToInt(m_xmbh->Strings[i].Trim());
       if(k>0){
         pjldf=StrToInt(mpjldf->Strings[k-1].Trim());
         cjbz=mpjlmc->Strings[k-1].Trim();
         }
      }
 m_sql="update "+m_table_name+" set CJ='"+m_dxdf->Strings[i].Trim()+"', PJLBZ='"+m_xmbh->Strings[i].Trim()+"',PJLDF="+pjldf+",CJBZ='"+cjbz+"'  where LBBH='"+list_lbbh+"' and FZBH='"+list_fzbh+"' and XMBH='"+list_xmbh+"' and  YDYBH='"+m_ydybh->Strings[i].Trim()+"' and DXBH='"+list_xmbh+"'";
 exe(m_sql);
 }
 delete mpjl;
 delete mpjldf;
 delete mpjlmc;
////////end
delete m_xmbh;
delete m_xmbh1;
delete m_cfb;
delete m_pxfs;
delete m_ydybh;
delete m_dxcj;
delete m_dxdf;
delete m_xmxz;
        //TODO: Add your source code here
}
void __fastcall TYuange_CL::cl_dxqn()
{
///