dlgsuijichoudao.cpp

大学田径运动会管理系统

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "dlgsuijichoudao.h"
#include "dlgxiugaifenzu.h"
#include "dlgsjprint.h"
#include "frmprintform.h"

//---------------------------------------------------------------------
#pragma resource "*.dfm"
Tsuijichoudao *suijichoudao;
//---------------------------------------------------------------------
__fastcall Tsuijichoudao::Tsuijichoudao(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------



void __fastcall Tsuijichoudao::lbfzChange(TObject *Sender)
{
////////        
int index;
AnsiString str;
index=lbfz->ItemIndex;
if(index<0||lbfz->Items->Count<1)return;
str=lbfz->Items->Strings[index].Trim();
yuange_sj->selectlbfz(str);
xm->Items->Assign(yuange_sj->list_list_xmmc);
xm->Text="";
}
//---------------------------------------------------------------------------

void __fastcall Tsuijichoudao::xmChange(TObject *Sender)
{
bool res;
index=xm->ItemIndex;
 if(index<0)return ;
 temp_str=xm->Text;
temp_str=yuange_sj->selectbsxm(temp_str);
if(temp_str=="-1"){
   ShowMessage("错误:项目改变时候");
    return;
}
res=yuange_sj->setxminfo(temp_str);
if(!res){
   ShowMessage("错误:项目改变时候");
   return;
   }
 yuange_sj->getzxm(&list_temp);
 zxm->Items->Assign(list_temp);
 zxm->ItemIndex=0;
// if(zxm->Items->Count>0)zxm->Items->Delete(zxm->Items->Count-1);   
 yuange_sj->setzxminfo(0); 
}
//---------------------------------------------------------------------------

void __fastcall Tsuijichoudao::BitBtn1Click(TObject *Sender)
{
if(lbfz->Text.Trim().IsEmpty()||xm->Text.Trim().IsEmpty()||zxm->Text.Trim().IsEmpty()){
  ShowMessage("请选择类别分组，项目，子项目");
  return ;
 }
yuange_sj->curbsfs=-1;
int igs;
try{
igs=StrToInt(gs->Text.Trim());
}catch(...){
igs=8;
  }
if(yuange_sj->validebsfs(1)){
yuange_sj->createsrtable(1);
yuange_sj->selectydy(1);
yuange_sj->kaishifenzu(igs);
//
refresh();
 }
  else{
      ShowMessage("已经分组了，请用查看");
   }
}
//---------------------------------------------------------------------------


void Tsuijichoudao::refresh(int type)
{
close();
AnsiString wxzh="";
int index;
if(xzh->Text.Trim().IsEmpty())
    wxzh="" ;
     else{
      try{
        index=StrToInt(xzh->Text.Trim());
      }catch(...){xzh->Text="1";}
     wxzh=" and a.XZH="+xzh->Text.Trim();
   }
m_sql="select a.YDYBH,b.YDYXM, c.DWJC,a.XZH,a.PDH from "+yuange_sj->m_table_name+" a,ydyb b,jsdwb c where a.YDYBH=b.YDYBH and a.FZBH=b.FZBH and a.LBBH=b.LBBH and c.BH=b.DWBH "+wxzh+" order by a.XZH,a.PDH";
m_query->SQL->Clear();
m_query->SQL->Add(m_sql);
open();
        //TODO: Add your source code here
}

void __fastcall Tsuijichoudao::close()
{
m_con->Connected=false;
m_query->Active=false;
        //TODO: Add your source code here
}

void __fastcall Tsuijichoudao::open()
{
m_con->Connected=true;
m_query->Active=true;
        //TODO: Add your source code here
}
void __fastcall Tsuijichoudao::BitBtn4Click(TObject *Sender)
{
////////
if(lbfz->Text.Trim().IsEmpty()||xm->Text.Trim().IsEmpty()||zxm->Text.Trim().IsEmpty()){
  ShowMessage("请选择类别分组，项目，子项目");
  return ;
 }
yuange_sj->curbsfs=-1;
int igs;
try{
igs=StrToInt(gs->Text.Trim());
}catch(...){
igs=8;
  }
yuange_sj->createsrtable(1);
yuange_sj->selectydy(2);
refresh();
}
//---------------------------------------------------------------------------


void __fastcall Tsuijichoudao::CancelBtnClick(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------

void __fastcall Tsuijichoudao::OKBtnClick(TObject *Sender)
{
/////        
}
//---------------------------------------------------------------------------

void __fastcall Tsuijichoudao::BitBtn6Click(TObject *Sender)
{
/////
//yuange_sj->setbszt(1);
if(!m_query->Active){
ShowMessage("没有数据可以提交");
return;
}
if(m_query->RecordCount<=0){
 ShowMessage("没有数据可以提交");
 return;
 }
if(!showok("真的要提交分组完的数据"))return;
yuange_sj->updatesj();
close(); 
}
//---------------------------------------------------------------------------

void __fastcall Tsuijichoudao::BitBtn2Click(TObject *Sender)
{
if(lbfz->Text.Trim().IsEmpty()||xm->Text.Trim().IsEmpty()||zxm->Text.Trim().IsEmpty()){
  ShowMessage("请选择类别分组，项目，子项目");
  return ;
 }

yuange_sj->chongxin();
}
//---------------------------------------------------------------------------

void __fastcall Tsuijichoudao::m_queryAfterScroll(TDataSet *DataSet)
{
///
currentydybh=m_query->Fields->FieldByName("YDYBH")->AsString.Trim();
currentxzh=m_query->Fields->FieldByName("XZH")->AsString.Trim();
currentpdh=m_query->Fields->FieldByName("PDH")->AsString.Trim();
}
//---------------------------------------------------------------------------


void __fastcall Tsuijichoudao::BitBtn5Click(TObject *Sender)
{
int idok;
 if(currentydybh.Trim().IsEmpty()){
   ShowMessage("没有选择运动员!");
   return;
   }
 xiugaifenzu=new Txiugaifenzu(this);
 xiugaifenzu->ydybh->Text=currentydybh;
 xiugaifenzu->xzh->Text=currentxzh;
 xiugaifenzu->pdh->Text=currentpdh;
 idok=xiugaifenzu->ShowModal();
 if(IDOK==idok){
     currentxzh=xiugaifenzu->xzh->Text.Trim();
     currentpdh=xiugaifenzu->pdh->Text.Trim();
     yuange_sj->setxzhpdh(currentydybh,StrToInt(currentxzh),StrToInt(currentpdh));
     refresh();
   }
}
//---------------------------------------------------------------------------

void __fastcall Tsuijichoudao::zxmChange(TObject *Sender)
{
yuange_sj->setzxminfo(zxm->ItemIndex); 
}
//---------------------------------------------------------------------------



void __fastcall Tsuijichoudao::BitBtn3Click(TObject *Sender)
{
int idok;
int m_xzh,m_from_pdh,m_to_pdh;
AnsiString label="序号";
AnsiString m_sql,pxzh;
if(yuange_sj->m_table_name.Trim().IsEmpty())return ; 
sjprint=new Tsjprint(this);
idok=sjprint->ShowModal();
if(yuange_sj->list_xmlb=="径赛")label="道次";else label="序号";
if(yuange_sj->list_xmlb=="全能"){
if(yuange_sj->qn_xmxz=="1")label="道次";else label="序号";
}
if(idok==IDOK){
    print_form->sj_title->Caption=Application->Title;
    print_form->label->Caption=label; 
    if(StrToInt(yuange_sj->list_xmgs)>1)
         print_form->sj_xm->Caption="时间:"+yuange_sj->list_bssj+"   "+lbfz->Text+"  "+xm->Text+"  之  "+zxm->Text;
        else
         print_form->sj_xm->Caption="时间:"+yuange_sj->list_bssj+"   "+lbfz->Text+" "+xm->Text;
       if(sjprint->is_xzh->Checked){
          try{
           m_xzh=StrToInt(sjprint->xzh->Text.Trim());
           }catch(...){m_xzh=1;};
          m_sql="select a.YDYBH,b.YDYXM, c.DWJC,a.XZH,a.PDH from "+yuange_sj->m_table_name+" a,ydyb b,jsdwb c where a.YDYBH=b.YDYBH and a.FZBH=b.FZBH and a.LBBH=b.LBBH and c.BH=b.DWBH and a.XZH="+m_xzh+" order by a.XZH,a.PDH";
        }
        else
         if(sjprint->is_pdh->Checked)
        {
          try{
           m_from_pdh=StrToInt(sjprint->pdh_from->Text.Trim());
           m_to_pdh=StrToInt(sjprint->pdh_to->Text.Trim());
           }catch(...){m_from_pdh=1;m_to_pdh=1000;};
          m_sql="select a.YDYBH,b.YDYXM, c.DWJC,a.XZH,a.PDH from "+yuange_sj->m_table_name+" a,ydyb b,jsdwb c where a.YDYBH=b.YDYBH and a.FZBH=b.FZBH and a.LBBH=b.LBBH and c.BH=b.DWBH and a.PDH>="+m_from_pdh+" and a.PDH<="+m_to_pdh+" order by a.XZH,a.PDH";
        }
        else
        {
          m_sql="select a.YDYBH,b.YDYXM, c.DWJC,a.XZH,a.PDH from "+yuange_sj->m_table_name+" a,ydyb b,jsdwb c where a.YDYBH=b.YDYBH and a.FZBH=b.FZBH and a.LBBH=b.LBBH and c.BH=b.DWBH  order by a.XZH,a.PDH";
        }
   print_form->open("select top 1 XZH from "+yuange_sj->m_table_name+" order by XZH DESC");
   pxzh=print_form->m_print_query->Fields->FieldByName("XZH")->AsString.Trim();
   print_form->open(m_sql);
   print_form->sj_xm->Caption=print_form->sj_xm->Caption+"  总人数:"+print_form->m_print_query->RecordCount+"  组数:"+pxzh;
   print_form->sj_rep->Preview();
  }
}
//---------------------------------------------------------------------------