frmchengjichuli.cpp

大学田径运动会管理系统

 xiugai->df->Text=cl_query->Fields->FieldByName("DF")->AsString.Trim();
 temp_str=cl_query->Fields->FieldByName("m_JJBZ")->AsString.Trim();
 xiugai->jj->Checked=temp_str=="1";
 xiugai->mc->Text=cl_query->Fields->FieldByName("MC")->AsString.Trim();
 idok=xiugai->ShowModal();
if(idok==IDOK){
      cj=xiugai->cj->Text.Trim();
      df=xiugai->df->Text;
      mc=xiugai->mc->Text;
      jjbz=(xiugai->jj->Checked?"1":"0");
      pjlbzindex=xiugai->bz->ItemIndex;
      cj=cal_function(cj,yuange_cl->list_gs);
      bz=xiugai->bz->Text.Trim();
      if(pjlbzindex==xiugai->bz->Items->Count-1){pjlbzindex=0;}
      parsestr(yuange_cl->list_pjldf,&list_temp,';');
      if(pjlbzindex>0)
        pjldf=list_temp->Strings[pjlbzindex-1].Trim();
        else   pjldf="0";
      yuange_cl->setcj(cur_ydybh,cj,df,jjbz,IntToStr(pjlbzindex),pjldf,bz,mc);
      {   /////////////////开始处理!

      yuange_cl->manhandle();
      }
      refresh(1);
  }
}
//---------------------------------------------------------------------------

void __fastcall Tchengjichuli::cl_queryAfterScroll(TDataSet *DataSet)
{
////////
cur_ydybh=cl_query->Fields->FieldByName("YDYBH")->AsString.Trim();
}
//---------------------------------------------------------------------------



void __fastcall Tchengjichuli::BitBtn3Click(TObject *Sender)
{
AnsiString m_sql,m_where,m_order;
int type;
int idok;
if(bsfs->Text.Trim().IsEmpty()||xm->Text.Trim().IsEmpty()||lbfz->Text.Trim().IsEmpty()){
   ShowMessage("请全部选择类别，分组，项目，比赛方式");
   return ;
  }
  clprint=new Tclprint(this);
  idok=clprint->ShowModal();
if(idok!=IDOK)return;
if(xiangmugeshu>1){ //全能!!!!
      bool jisuanzonghe=yuange_cl->zxm_index==zxm->Items->Count-1;
       if(!jisuanzonghe){  //打印单项
           type=5;
            if(clprint->xz->Checked)type=6;
         }
          else{   //打印全部
            if(xiangmugeshu==11){  //打印十项
              type=1;
              }
              else           ///打印七项
              {
              type=2;
              }
          }
   }else{
 print_form2->cl_xm->Caption="组别:"+lbfz->Text+"  项目:"+xm->Text+"  "+bsfs->Text;
 type=3;
 if(clprint->jj->Checked)
    if(bsfs->ItemIndex<bsfs->Items->Count-1)type=7;
 if(clprint->xz->Checked)type=4;
}
if(type==5||type==6){
int from ,to;
m_where=" ";
m_order=" order by a.MC";
setsql(m_sql,type);
print_form2->cl_xm->Caption="组别:"+lbfz->Text+"  项目:"+xm->Text+" 之"+zxm->Text;
     if(type==6){
       int xzh;
            try{xzh=StrToInt(clprint->xzh->Text.Trim());}catch(...){xzh=1;}
               m_where=" and a.XZH="+IntToStr(xzh);
         print_form2->cl_xm->Caption=print_form2->cl_xm->Caption+" 第"+xzh+"组";
        m_order=" order by a.XZMC";
     }
    if(clprint->mc->Checked){
        try{from=StrToInt(clprint->frommc->Text.Trim());}catch(...){from=1;}
         try{to=StrToInt(clprint->tomc->Text.Trim());}catch(...){to=100;}
               m_where=(AnsiString)" and a.MC>="+from+" and a.MC<="+to;
         }
   print_form2->open(m_sql+m_where+m_order);
  print_form2->cl_rep->Preview();   
}
if(type==1||type==2){
int from ,to;
m_where=" ";
m_order=" order by b.MC";
 setsql(m_sql,type);
    if(clprint->mc->Checked){
        try{from=StrToInt(clprint->frommc->Text.Trim());}catch(...){from=1;}
         try{to=StrToInt(clprint->tomc->Text.Trim());}catch(...){to=100;}
               m_where=(AnsiString)" and b.MC>="+from+" and b.MC<="+to;
         }
 print_form2->qnnan_xm->Caption="组别:"+lbfz->Text+"  项目:"+xm->Text;
 print_form2->qnnv_xm->Caption="组别:"+lbfz->Text+"  项目:"+xm->Text;
 print_form2->open(m_sql+m_where+m_order);
 if(type==1)
 print_form2->qnnan_rep->Preview();
 else
print_form2->qnnv_rep->Preview();
}
if(type==7||type==3||type==4){
    if(type==7){
    setsql(m_sql,3);
         print_form2->cl_xm->Caption="组别:"+lbfz->Text+"  项目:"+xm->Text+"  "+bsfs->Text;
         print_form2->cl_xm->Caption=print_form2->cl_xm->Caption+" 进入"+bsfs->Items->Strings[bsfs->ItemIndex+1].Trim()+"名单";
         m_where=" and a.JJBZ=1 ";
         m_order=" order by a.MC";
         }
    if(type==3){
    setsql(m_sql,3);
         int from,to;
         m_where="";
         m_order=" order by a.MC ";
         if(clprint->mc->Checked){
               try{from=StrToInt(clprint->frommc->Text.Trim());}catch(...){from=1;}
               try{to=StrToInt(clprint->tomc->Text.Trim());}catch(...){to=100;}
               m_where=(AnsiString)" and a.MC>="+from+" and a.MC<="+to;
             }
       }
    if(type==4){
         int xzh;
        setsql(m_sql,4);
         m_where="";
         m_order=" order by a.XZMC";
            try{xzh=StrToInt(clprint->xzh->Text.Trim());}catch(...){xzh=1;}
               m_where=" and a.XZH="+IntToStr(xzh);
         print_form2->cl_xm->Caption=print_form2->cl_xm->Caption+" 第"+xzh+"组";
             }
        m_sql=m_sql+m_where+m_order;
        print_form2->open(m_sql);
        print_form2->cl_rep->Preview();
  }
  delete clprint;
}
//---------------------------------------------------------------------------
void __fastcall Tchengjichuli::setsql(AnsiString & m_sql,int type)
{
 if(type==1){
  m_sql="select \
     a.DWJC as DWJC, \
     b.YDYBH as YDYBH,\
     C.YDYXM as YDYXM,\
     b.CJ    as CJ,\
     case b.MC when 555 then 0 else b.MC  end    as MC,\
     dbo.getcj(a1.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("00")].Trim())+"') as m_100m,\
     a1.DF as m_100mdf,\
     dbo.getcj(a2.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("01")].Trim())+"') as m_lj,\
     a2.DF as m_ljdf,\
     dbo.getcj(a3.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("02")].Trim())+"') as m_sp,\
     a3.DF as m_spdf,\
     dbo.getcj(a4.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("03")].Trim())+"') as m_hj,\
     a4.DF as m_hjdf,\
     dbo.getcj(a5.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("04")].Trim())+"') as m_400m,\
     a5.DF as m_400mdf,\
     dbo.getcj(a6.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("05")].Trim())+"') as m_110h,\
     a6.DF as m_110hdf,\
     dbo.getcj(a7.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("06")].Trim())+"') as m_dt,\
     a7.DF as m_dtdf,\
     dbo.getcj(a8.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("07")].Trim())+"') as m_pv,\
     a8.DF as m_pvdf,\
     dbo.getcj(a9.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("08")].Trim())+"') as m_jt,\
     a9.DF as m_jtdf,\
     dbo.getcj(a10.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("09")].Trim())+"') as m_1500m,\
     a10.DF as m_1500mdf, \
     b.CJBZ as CJBZ from jsdwb a,\
          "+yuange_cl->m_table_name+" b, \
          ydyb c,\
          jlb a1,\
          jlb a2,\
          jlb a3,\
          jlb a4,\
          jlb a5,\
          jlb a6,\
          jlb a7,\
          jlb a8,\
          jlb a9,\
          jlb a10  \
     where c.YDYBH=b.YDYBH and  \
           c.LBBH=b.LBBH and c.FZBH=b.FZBH and a.BH=c.DWBH and \
           b.YDYBH=a1.YDYBH and b.XMBH=a1.XMBH and b.FZBH=a1.FZBH and b.LBBH=a1.LBBH and \
           b.YDYBH=a2.YDYBH and b.XMBH=a2.XMBH and b.FZBH=a2.FZBH and b.LBBH=a2.LBBH and \
           b.YDYBH=a3.YDYBH and b.XMBH=a3.XMBH and b.FZBH=a3.FZBH and b.LBBH=a3.LBBH and \
           b.YDYBH=a4.YDYBH and b.XMBH=a4.XMBH and b.FZBH=a4.FZBH and b.LBBH=a4.LBBH and \
           b.YDYBH=a5.YDYBH and b.XMBH=a5.XMBH and b.FZBH=a5.FZBH and b.LBBH=a5.LBBH and \
           b.YDYBH=a6.YDYBH and b.XMBH=a6.XMBH and b.FZBH=a6.FZBH and b.LBBH=a6.LBBH and \
           b.YDYBH=a7.YDYBH and b.XMBH=a7.XMBH and b.FZBH=a7.FZBH and b.LBBH=a7.LBBH and \
           b.YDYBH=a8.YDYBH and b.XMBH=a8.XMBH and b.FZBH=a8.FZBH and b.LBBH=a8.LBBH and \
           b.YDYBH=a9.YDYBH and b.XMBH=a9.XMBH and b.FZBH=a9.FZBH and b.LBBH=a9.LBBH and \
           b.YDYBH=a10.YDYBH and b.XMBH=a10.XMBH and b.FZBH=a10.FZBH and b.LBBH=a10.LBBH and \
           a1.DXBH='00' and      \
           a2.DXBH='01' and      \
           a3.DXBH='02' and      \
           a4.DXBH='03' and      \
           a5.DXBH='04' and      \
           a6.DXBH='05' and     \
           a7.DXBH='06' and     \
           a8.DXBH='07' and     \
           a9.DXBH='08' and     \
           a10.DXBH='09' ";

 }
if(type==2){
  m_sql="select \
     a.DWJC as DWJC, \
     b.YDYBH as YDYBH,\
     C.YDYXM as YDYXM,\
     b.CJ    as CJ,\
     case b.MC when 555 then 0 else b.MC  end    as MC,\
     dbo.getcj(a1.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("10")].Trim())+"') as m_100h,\
     a1.DF as m_100hdf,\
     dbo.getcj(a2.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("11")].Trim())+"') as m_hj,\
     a2.DF as m_hjdf,\
     dbo.getcj(a3.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("12")].Trim())+"') as m_sp,\
     a3.DF as m_spdf,\
     dbo.getcj(a4.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("13")].Trim())+"') as m_200m,\
     a4.DF as m_200mdf,\
     dbo.getcj(a5.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("14")].Trim())+"') as m_lj,\
     a5.DF as m_ljdf,\
     dbo.getcj(a6.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("15")].Trim())+"') as m_jt,\
     a6.DF as m_jtdf,\
     dbo.getcj(a7.CJ,'"+returngs(yuange_cl->list_zxmgs->Strings[yuange_cl->list_zxmbh->IndexOf("16")].Trim())+"') as m_800m,\
     a7.DF as m_800mdf, \
     b.CJBZ as CJBZ from jsdwb a,\
         "+yuange_cl->m_table_name+" b, \
          ydyb c,\
          jlb a1,\
          jlb a2,\
          jlb a3,\
          jlb a4,\
          jlb a5,\
          jlb a6,\
          jlb a7,\
          jlb a8,\
          jlb a9,\
          jlb a10  \
     where c.YDYBH=b.YDYBH and  \
           c.LBBH=b.LBBH and c.FZBH=b.FZBH and a.BH=c.DWBH and \
           b.YDYBH=a1.YDYBH and b.XMBH=a1.XMBH and b.FZBH=a1.FZBH and b.LBBH=a1.LBBH and \
           b.YDYBH=a2.YDYBH and b.XMBH=a2.XMBH and b.FZBH=a2.FZBH and b.LBBH=a2.LBBH and \
           b.YDYBH=a3.YDYBH and b.XMBH=a3.XMBH and b.FZBH=a3.FZBH and b.LBBH=a3.LBBH and \
           b.YDYBH=a4.YDYBH and b.XMBH=a4.XMBH and b.FZBH=a4.FZBH and b.LBBH=a4.LBBH and \
           b.YDYBH=a5.YDYBH and b.XMBH=a5.XMBH and b.FZBH=a5.FZBH and b.LBBH=a5.LBBH and \
           b.YDYBH=a6.YDYBH and b.XMBH=a6.XMBH and b.FZBH=a6.FZBH and b.LBBH=a6.LBBH and \
           b.YDYBH=a7.YDYBH and b.XMBH=a7.XMBH and b.FZBH=a7.FZBH and b.LBBH=a7.LBBH and \
           a1.xmbh='10' and      \
           a2.xmbh='11' and      \
           a3.xmbh='12' and      \
           a4.xmbh='13' and      \
           a5.xmbh='14' and      \
           a7.xmbh='16' and      \
           a6.xmbh='15' ";
     }
if(type==3){
     m_sql="select a.MC,a.YDYBH,b.YDYXM,c.DWJC,dbo.getcj(a.CJ,'"+returngs(yuange_cl->list_gs.Trim())+"') as CJ,\
            a.CJBZ from "+yuange_cl->m_table_name+" a,ydyb b,jsdwb c where a.YDYBH=b.YDYBH and b.DWBH=c.BH ";
  }        //TODO: Add your source code here
if(type==4){
     m_sql="select a.XZMC as MC,a.YDYBH,b.YDYXM,c.DWJC,dbo.getcj(a.CJ,'"+returngs(yuange_cl->list_gs.Trim())+"') as CJ,\
            a.CJBZ from "+yuange_cl->m_table_name+" a,ydyb b,jsdwb c where a.YDYBH=b.YDYBH and b.DWBH=c.BH ";
  }        //TODO: Add your source code here
if(type==5){     //打印全能的某个项目的
     m_sql="select a.MC,a.YDYBH,b.YDYXM,c.DWJC,dbo.getcj(a.CJ,'"+returngs(yuange_cl->list_gs.Trim())+"') as CJ,\
            a.CJBZ from "+yuange_cl->m_table_name+" a,ydyb b,jsdwb c,jlb d where a.YDYBH=b.YDYBH and \
            b.DWBH=c.BH and a.YDYBH=d.YDYBH and a.XMBH=d.XMBH and a.FZBH=d.FZBH and a.LBBH=d.LBBH and a.DXBH=d.DXBH ";
  }        //TODO: Add your source code here
if(type==6){        //打印全能的某个小组名次
     m_sql="select a.XZMC as MC,a.YDYBH,b.YDYXM,c.DWJC,dbo.getcj(a.CJ,'"+returngs(yuange_cl->list_gs.Trim())+"') as CJ,\
            a.CJBZ from "+yuange_cl->m_table_name+" a,ydyb b,jsdwb c,jlb d where a.YDYBH=b.YDYBH and \
            b.DWBH=c.BH and a.YDYBH=d.YDYBH and a.XMBH=d.XMBH and a.FZBH=d.FZBH and a.LBBH=d.LBBH and a.DXBH=d.DXBH ";
  }        //TODO: Add your source code here

}