frmjianlu.cpp

大学田径运动会管理系统

                 m_sql="select a.PDH ,a.YDYBH ,b.YDYXM ,c.DWJC  from "+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where a.YDYBH=b.YDYBH and b.DWBH=c.BH and a.XZH="+xzh+" and a.JLBZ=1 order by a.XZH,a.PDH";;
               if(type==2)
                 m_sql="select a.PDH ,a.YDYBH ,b.YDYXM ,c.DWJC  from "+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where a.YDYBH=b.YDYBH and b.DWBH=c.BH and a.PDH>="+frompdh+" and a.PDH<="+topdh+" and a.JLBZ=1 order by a.XZH,a.PDH";;
               if(type==3)
                 m_sql="select a.PDH ,a.YDYBH ,b.YDYXM ,c.DWJC  from "+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where a.YDYBH=b.YDYBH and b.DWBH=c.BH"+" and a.JLBZ=1 order by a.XZH,a.PDH";
               print_form1->open(m_sql);
               if(!isliji)
               print_form1->ts_gdrep->Preview();
               else{
                for(i=0;i<num;i++)print_form1->ts_gdrep->Print();
                }

         }
      if(yuange_jl->list_xmxj=="远度"){
               print_form1->ts_ydtitle->Caption=Application->Title;
               print_form1->ts_ydxm->Caption=lbfz->Text.Trim()+"   "+xm->Text.Trim()+"   "+bsfs->Text.Trim();
               if(type==1)
                 m_sql="select a.PDH as m_pdh,a.YDYBH as m_ydybh,b.YDYXM as m_xm,c.DWJC as m_dwmc from "+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where a.YDYBH=b.YDYBH and b.DWBH=c.BH and a.XZH="+xzh+" and a.JLBZ=1 order by a.XZH,a.PDH";
               if(type==2)
                 m_sql="select a.PDH as m_pdh,a.YDYBH as m_ydybh,b.YDYXM as m_xm,c.DWJC as m_dwmc from "+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where a.YDYBH=b.YDYBH and b.DWBH=c.BH and a.PDH>="+frompdh+" and a.PDH<="+topdh+" and a.JLBZ=1 order by a.XZH,a.PDH";;
               if(type==3)
                 m_sql="select a.PDH as m_pdh,a.YDYBH as m_ydybh,b.YDYXM as m_xm,c.DWJC as m_dwmc from "+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where a.YDYBH=b.YDYBH and b.DWBH=c.BH"+" and a.JLBZ=1 order by a.XZH,a.PDH";;
               print_form1->open(m_sql);
               if(!isliji)
               print_form1->ts_ydrep->Preview();
               else{
                for(i=0;i<num;i++)print_form1->ts_ydrep->Print();
                }
             }
  }
if(yuange_jl->list_xmxj=="全能"){
      AnsiString dxbh,xj;
      int index;
      index=jlprint->zxm->ItemIndex;
      dxbh=yuange_jl->list_zxmbh->Strings[index].Trim();
      yuange_jl->open("select * from qnxm where XMBH='"+dxbh+"'");
      xj=yuange_jl->m_query->Fields->FieldByName("XMXZ")->AsString.Trim();
      yuange_jl->close();
      if(xj=="1"){
               print_form1->js_title->Caption=Application->Title;
               print_form1->js_xm->Caption=lbfz->Text.Trim()+"   "+xm->Text.Trim()+"之"+jlprint->zxm->Text.Trim()+"   "+bsfs->Text.Trim();
               print_form1->js_djz->Caption="第"+xzh+"组";
               if(type==1)
                 m_sql="select aa.PDH as m_pdh,aa.YDYBH as m_ydybh,b.YDYXM as m_xm,c.DWJC as m_dwmc from jlb aa,"+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where aa.LBBH=a.LBBH and aa.FZBH=a.FZBH and aa.XMBH=a.XMBH and aa.YDYBH=a.YDYBH and aa.DXBH='"+dxbh+"' and a.YDYBH=b.YDYBH and b.DWBH=c.BH and a.XZH="+xzh+" and a.JLBZ=1 order by aa.XZH,aa.PDH";
               if(type==2)
                 m_sql="select aa.PDH as m_pdh,aa.YDYBH as m_ydybh,b.YDYXM as m_xm,c.DWJC as m_dwmc from jlb aa,"+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where aa.LBBH=a.LBBH and aa.FZBH=a.FZBH and aa.XMBH=a.XMBH and aa.YDYBH=a.YDYBH and aa.DXBH='"+dxbh+"' and a.YDYBH=b.YDYBH and b.DWBH=c.BH and a.PDH>="+frompdh+" and a.PDH<="+topdh+" and a.JLBZ=1 order by aa.XZH,aa.PDH";;
               if(type==3)
                 m_sql="select aa.PDH as m_pdh,aa.YDYBH as m_ydybh,b.YDYXM as m_xm,c.DWJC as m_dwmc from jlb aa,"+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where aa.LBBH=a.LBBH and aa.FZBH=a.FZBH and aa.XMBH=a.XMBH and aa.YDYBH=a.YDYBH and aa.DXBH='"+dxbh+"' and a.YDYBH=b.YDYBH and b.DWBH=c.BH"+" and a.JLBZ=1 order by aa.XZH,aa.PDH";;
               print_form1->open(m_sql);
               if(!isliji)
               print_form1->js_rep->Preview();
               else{
                for(i=0;i<num;i++)print_form1->js_rep->Print();
                }

        }
      if(xj=="2"){
               print_form1->ts_ydtitle->Caption=Application->Title;
               print_form1->ts_ydxm->Caption=lbfz->Text.Trim()+"   "+xm->Text.Trim()+"之"+jlprint->zxm->Text.Trim()+"   "+bsfs->Text.Trim();
               if(type==1)
                 m_sql="select aa.PDH as m_pdh,aa.YDYBH as m_ydybh,b.YDYXM as m_xm,c.DWJC as m_dwmc from jlb aa,"+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where aa.LBBH=a.LBBH and aa.FZBH=a.FZBH and aa.XMBH=a.XMBH and aa.YDYBH=a.YDYBH and aa.DXBH='"+dxbh+"' and a.YDYBH=b.YDYBH and b.DWBH=c.BH and a.XZH="+xzh+" and a.JLBZ=1 order by aa.XZH,aa.PDH";
               if(type==2)
                 m_sql="select aa.PDH as m_pdh,aa.YDYBH as m_ydybh,b.YDYXM as m_xm,c.DWJC as m_dwmc from jlb aa,"+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where aa.LBBH=a.LBBH and aa.FZBH=a.FZBH and aa.XMBH=a.XMBH and aa.YDYBH=a.YDYBH and aa.DXBH='"+dxbh+"' and a.YDYBH=b.YDYBH and b.DWBH=c.BH and a.PDH>="+frompdh+" and a.PDH<="+topdh+" and a.JLBZ=1 order by aa.XZH,aa.PDH";;
               if(type==3)
                 m_sql="select aa.PDH as m_pdh,aa.YDYBH as m_ydybh,b.YDYXM as m_xm,c.DWJC as m_dwmc from jlb aa,"+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where aa.LBBH=a.LBBH and aa.FZBH=a.FZBH and aa.XMBH=a.XMBH and aa.YDYBH=a.YDYBH and aa.DXBH='"+dxbh+"' and a.YDYBH=b.YDYBH and b.DWBH=c.BH"+" and a.JLBZ=1 order by aa.XZH,aa.PDH";
               print_form1->open(m_sql);
               if(!isliji)
               print_form1->ts_ydrep->Preview();
               else{
                for(i=0;i<num;i++)print_form1->ts_ydrep->Print();
                }
        }
      if(xj=="3"){
               print_form1->ts_gdtitle->Caption=Application->Title;
               print_form1->ts_gdxm->Caption=lbfz->Text.Trim()+"   "+xm->Text.Trim()+"之"+jlprint->zxm->Text.Trim()+"   "+bsfs->Text.Trim();
               if(type==1)
                 m_sql="select aa.PDH ,aa.YDYBH ,b.YDYXM ,c.DWJC  from jlb aa,"+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where aa.LBBH=a.LBBH and aa.FZBH=a.FZBH and aa.XMBH=a.XMBH and aa.YDYBH=a.YDYBH and aa.DXBH='"+dxbh+"' and a.YDYBH=b.YDYBH and b.DWBH=c.BH and a.XZH="+xzh+" and a.JLBZ=1 order by aa.XZH,aa.PDH";
               if(type==2)
                 m_sql="select aa.PDH ,aa.YDYBH h,b.YDYXM ,c.DWJC  from jlb aa,"+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where aa.LBBH=a.LBBH and aa.FZBH=a.FZBH and aa.XMBH=a.XMBH and aa.YDYBH=a.YDYBH and aa.DXBH='"+dxbh+"' and a.YDYBH=b.YDYBH and b.DWBH=c.BH and a.PDH>="+frompdh+" and a.PDH<="+topdh+" and a.JLBZ=1 order by aa.XZH,aa.PDH";;
               if(type==3)
                 m_sql="select aa.PDH ,aa.YDYBH ,b.YDYXM ,c.DWJC  from jlb aa,"+yuange_jl->m_table_name+" a,ydyb b,jsdwb c where aa.LBBH=a.LBBH and aa.FZBH=a.FZBH and aa.XMBH=a.XMBH and aa.YDYBH=a.YDYBH and aa.DXBH='"+dxbh+"' and a.YDYBH=b.YDYBH and b.DWBH=c.BH"+" and a.JLBZ=1 order by aa.XZH,aa.PDH";
               print_form1->open(m_sql);
               if(!isliji)
               print_form1->ts_gdrep->Preview();
               else{
                for(i=0;i<num;i++)print_form1->ts_gdrep->Print();
                }
        }

  }
 delete jlprint;
 jlprint=NULL;
}
//---------------------------------------------------------------------------

void __fastcall Tjianlu::BitBtn2Click(TObject *Sender)
{
int xzh1,pdh1;
try{
xzh1=StrToInt(xzh->Text.Trim());
pdh1=StrToInt(pdh->Text.Trim());
}
catch(...){
ShowMessage("非法数据");
return ;
 }
yuange_jl->setxzhpdh(jl1_ydybh,xzh1,pdh1);
refresh();
}
//---------------------------------------------------------------------------

void __fastcall Tjianlu::jl_queryAfterScroll(TDataSet *DataSet)
{
//////
jl_ydybh=jl_query->Fields->FieldByName("YDYBH")->AsString.Trim();
}
//---------------------------------------------------------------------------

void __fastcall Tjianlu::jl1_queryAfterScroll(TDataSet *DataSet)
{
///////////
jl1_ydybh=jl1_query->Fields->FieldByName("YDYBH")->AsString.Trim();
xzh->Text=jl1_query->Fields->FieldByName("XZH")->AsString.Trim();
pdh->Text=jl1_query->Fields->FieldByName("PDH")->AsString.Trim();
}
//---------------------------------------------------------------------------


void __fastcall Tjianlu::refresh(int type)
{
if(yuange_jl->m_table_name.Trim().IsEmpty())return;
close();
jl_query->SQL->Clear();
jl1_query->SQL->Clear();
m_sql="select a.YDYBH,b.YDYXM from "+yuange_jl->m_table_name+" a,ydyb b where a.JLBZ=0 and a.LBBH=b.LBBH and a.FZBH=b.FZBH and a.YDYBH=b.YDYBH order by a.YDYBH";
jl_query->SQL->Add(m_sql);
m_sql="select a.YDYBH,b.YDYXM,a.XZH,a.PDH from "+yuange_jl->m_table_name+" a,ydyb b where a.JLBZ=1 and a.LBBH=b.LBBH and a.FZBH=b.FZBH and a.YDYBH=b.YDYBH order by a.XZH,a.PDH";
jl1_query->SQL->Add(m_sql);
open();        //TODO: Add your source code here
}


void __fastcall Tjianlu::SpeedButton1Click(TObject *Sender)
{
////
if(jl_ydybh.Trim().IsEmpty()){
ShowMessage("请选择一个要检录的运动员");
return ;
}
yuange_jl->setydyzt(jl_ydybh,1);
refresh(1);

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

void __fastcall Tjianlu::SpeedButton2Click(TObject *Sender)
{
if(jl1_ydybh.Trim().IsEmpty()){
ShowMessage("请选择一个运动员");
return ;
}
yuange_jl->setydyzt(jl1_ydybh,0);
refresh(1);
}
//---------------------------------------------------------------------------

void __fastcall Tjianlu::FormClose(TObject *Sender, TCloseAction &Action)
{
////
if(jl1_query->Active)
if(jl1_query->RecordCount>0)
    if(showok("已经有检录的数据是否要提交"))
      BitBtn3->OnClick(this);
close();
Action=caFree ;
}
//---------------------------------------------------------------------------


void __fastcall Tjianlu::close()
{
jl_con->Connected=false;
jl1_con->Connected=false;
jl_query->Active=false;
jl1_query->Active=false;
SpeedButton1->Enabled=false;
SpeedButton2->Enabled=false;
 BitBtn2->Enabled=false;        //TODO: Add your source code here
}

void __fastcall Tjianlu::open()
{
jl_con->Connected=true;
jl1_con->Connected=true;
jl_query->Active=true;
jl1_query->Active=true;
SpeedButton1->Enabled=true;
SpeedButton2->Enabled=true;
 BitBtn2->Enabled=true;        //TODO: Add your source code here
        //TODO: Add your source code here
}
void __fastcall Tjianlu::bsfsChange(TObject *Sender)
{
 yuange_jl->curbsfs=bsfs->ItemIndex+1;
        
}
//---------------------------------------------------------------------------


void __fastcall Tjianlu::BitBtn6Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------

void __fastcall Tjianlu::FormCloseQuery(TObject *Sender, bool &CanClose)
{
CanClose=false;
if(!showok("是否要关闭当前项目检录"))return;
CanClose=true;
}
//---------------------------------------------------------------------------

void __fastcall Tjianlu::zxmChange(TObject *Sender)
{
zxm->ItemIndex=zxm->Items->Count-1;
yuange_jl->setzxminfo(zxm->Items->Count-1);
}
//---------------------------------------------------------------------------