frmchengjichuli.cpp

大学田径运动会管理系统

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "frmchengjichuli.h"
#include "dlgxiugaicj.h"
#include "dlgclprint.h"
#include "frmprintform2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "model"
#pragma resource "*.dfm"
Tchengjichuli *chengjichuli;
//---------------------------------------------------------------------------
__fastcall Tchengjichuli::Tchengjichuli(TComponent* Owner)
        : TMDIChild(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall Tchengjichuli::setwidthheight()
{
 if(this->Width<663)this->Width=663;
if(this->Height<486)this->Height=486;       //TODO: Add your source code here
}
void __fastcall Tchengjichuli::FormShow(TObject *Sender)
{
this->Width=12;
setwidthheight();
}
//---------------------------------------------------------------------------

void __fastcall Tchengjichuli::FormResize(TObject *Sender)
{
setwidthheight();        
}
//---------------------------------------------------------------------------

void __fastcall Tchengjichuli::FormCreate(TObject *Sender)
{
list_temp=new TStringList;         
}
//---------------------------------------------------------------------------

void __fastcall Tchengjichuli::FormDestroy(TObject *Sender)
{
delete yuange_cl;
delete list_temp;
}
//---------------------------------------------------------------------------

void __fastcall Tchengjichuli::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_cl->selectlbfz(str);
xm->Items->Assign(yuange_cl->list_list_xmmc);
xm->Text="";        
}
//---------------------------------------------------------------------------

void __fastcall Tchengjichuli::xmChange(TObject *Sender)
{
bool res;
index=xm->ItemIndex;
 if(index<0)return ;
 temp_str=xm->Text;
temp_str=yuange_cl->selectbsxm(temp_str);
if(temp_str=="-1"){
   ShowMessage("错误:项目改变时候");
    return;
}
res=yuange_cl->setxminfo(temp_str);
if(!res){
   ShowMessage("错误:项目改变时候");
   return;
   }
 yuange_cl->getzxm(&list_temp);
 zxm->Items->Assign(list_temp);
 zxm->ItemIndex=0;
 yuange_cl->setzxminfo(0);
 bsfs->Text="";
//设置比赛方式的....
 parsestr(yuange_cl->list_mcbsmc,&list_temp,';');
 bsfs->Items->Assign(list_temp);
 bsfs->ItemIndex=0; 

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

void __fastcall Tchengjichuli::BitBtn1Click(TObject *Sender)
{
if(bsfs->Text.Trim().IsEmpty()||xm->Text.Trim().IsEmpty()||lbfz->Text.Trim().IsEmpty()){
   ShowMessage("请全部选择类别，分组，项目，比赛方式");
   return ;
  }
 index=bsfs->ItemIndex;
 yuange_cl->getnewsinfo();
if(yuange_cl->validebsfs(index)){
   xiangmugeshu=zxm->Items->Count;
   yuange_cl->createsrtable(1);
   if(xiangmugeshu>1){ //全能!!!!
      int kaishichuli=yuange_cl->shifoukaishichuli;
      bool jisuanzonghe=yuange_cl->zxm_index==zxm->Items->Count-1;
       if(!jisuanzonghe){
             yuange_cl->selectydy(10);
             if(kaishichuli==1){         //开始处理全能单项成绩
             yuange_cl->cl_dxqn();
             yuange_cl->cl_paiming(5);
             yuange_cl->setbszt(5);
              }
              else{};                //单项成绩已经处理
              refresh();
         }
          else{   //处理全部!!
             yuange_cl->selectydy(1);
             if(kaishichuli==1){            //开始合并全能
                yuange_cl->cl_allqn();
                yuange_cl->cl_paiming(10);
               yuange_cl->setbszt(5);
                }else{};
               refresh();
          }
   }else{
     int kaishichuli=yuange_cl->shifoukaishichuli;;
    yuange_cl->createsrtable(1);
    yuange_cl->selectydy(1);
     if(kaishichuli==1){
    yuange_cl->cl_paiming();
    yuange_cl->setbszt(5);
    }
    refresh();
   }
  }else{
   ShowMessage("提示:不能处理当前的项目,可能当前项目还没有比赛完毕");
   return;
  }
}
//---------------------------------------------------------------------------

void __fastcall Tchengjichuli::bsfsChange(TObject *Sender)
{
 yuange_cl->curbsfs=bsfs->ItemIndex+1;
// yuange_cl->getzxm(&list_temp);
// zxm->Items->Assign(list_temp);
// zxm->ItemIndex=0;
}
//---------------------------------------------------------------------------

void __fastcall Tchengjichuli::BitBtn5Click(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------



void __fastcall Tchengjichuli::close()
{
cl_con->Close();
cl_query->Close();         //TODO: Add your source code here
}

void __fastcall Tchengjichuli::open()
{
cl_con->Open();
cl_query->Active=true;             //TODO: Add your source code here
}

void __fastcall Tchengjichuli::refresh(int type)
{
AnsiString temp;
int i=bsfs->ItemIndex;
if(i==bsfs->Items->Count-1)temp="成绩";else {temp="进入"+bsfs->Items->Strings[i+1].Trim();}
if(yuange_cl->m_table_name.Trim().IsEmpty())return;
 close();       //TODO: Add your source code here
 cl_query->SQL->Clear();
 m_sql="select a.CJBZ,a.DF,a.MC,a.YDYBH,b.YDYXM,c.DWJC,dbo.getcj(a.CJ,'"+returngs(yuange_cl->list_gs.Trim())+"') as m_cj ,a.XZH,a.PDH,case a.JJBZ when 1 then '"+temp+"' else '' end as JJBZ,a.JJBZ as m_jjbz,a.BLBZ,\
         a.PJLBZ from "+yuange_cl->m_table_name+" a,ydyb b,jsdwb c where b.YDYBH=a.YDYBH and b.DWBH=c.BH order by a.MC";
 cl_query->SQL->Add(m_sql);
 open();
}


void __fastcall Tchengjichuli::BitBtn2Click(TObject *Sender)
{
//////////
if(bsfs->Text.Trim().IsEmpty()||xm->Text.Trim().IsEmpty()||lbfz->Text.Trim().IsEmpty()){
   ShowMessage("请全部选择类别，分组，项目，比赛方式");
   return ;
  }
if(!cl_query->Active){
ShowMessage("没有处理成绩");
return;
 }
if(Sender!=this)
   if(!showok("是否提交处理成绩"))return;
if(StrToInt(yuange_cl->list_xmgs)>1&&yuange_cl->zxm_index!=zxm->Items->Count-1)
           yuange_cl->updatecj(10);
        else
        yuange_cl->updatecj(1);
close();
/////////
}
//---------------------------------------------------------------------------

void __fastcall Tchengjichuli::BitBtn4Click(TObject *Sender)
{
if(bsfs->Text.Trim().IsEmpty()||xm->Text.Trim().IsEmpty()||lbfz->Text.Trim().IsEmpty()){
   ShowMessage("请全部选择类别，分组，项目，比赛方式");
   return ;
  }
if(!showok("是否要结束处理当前的项目成绩"))return;  
if(cl_query->Active)
  if(cl_query->RecordCount>0)
          if(showok("有处理的成绩数据是否要提交"))BitBtn2->OnClick(this);

     yuange_cl->setbszt(6);
     close();
}
//---------------------------------------------------------------------------

void __fastcall Tchengjichuli::FormClose(TObject *Sender,
      TCloseAction &Action)
{
Action=caFree;
if(cl_query->Active)
  if(cl_query->RecordCount>0)
          if(showok("有处理的成绩数据是否要提交"))BitBtn2->OnClick(this);
     close();

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

void __fastcall Tchengjichuli::FormCloseQuery(TObject *Sender,
      bool &CanClose)
{
CanClose=false;
if(!showok("是否要关闭当前处理"))return;
CanClose=true;

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

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





void __fastcall Tchengjichuli::BitBtn6Click(TObject *Sender)
{
int idok;
AnsiString temp_str,cj,pjldf,df,jjbz,bz,mc;
int pjlbzindex=0;
if(!cl_query->Active){
ShowMessage("没有数据可以修改");
return;
}
if(cl_query->RecordCount<=0){
ShowMessage("没有数据可以修改");
return;
}
if(cur_ydybh.Trim().IsEmpty())return;
xiugai=new Txiugai(this);
temp_str=yuange_cl->list_pjlmc;
 if(temp_str.IsEmpty())
    temp_str="正常;无效";
     else
    temp_str="正常;"+temp_str+";无效";
 parsestr(temp_str,&list_temp,';');
 xiugai->ydybh->Text=cur_ydybh;
 xiugai->bz->Items->Assign(list_temp);
 xiugai->bz->ItemIndex=list_temp->IndexOf(cl_query->Fields->FieldByName("CJBZ")->AsString.Trim());
 xiugai->cj->Text=cl_query->Fields->FieldByName("m_cj")->AsString.Trim();