frmchengjishuru.cpp

大学田径运动会管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "frmchengjishuru.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "model"
#pragma resource "*.dfm"
Tchengjishuru *chengjishuru;
//---------------------------------------------------------------------------
__fastcall Tchengjishuru::Tchengjishuru(TComponent* Owner)
        : TMDIChild(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tchengjishuru::FormResize(TObject *Sender)
{
setwidthheight();
}
//---------------------------------------------------------------------------


void __fastcall Tchengjishuru::FormShow(TObject *Sender)
{
this->Width=12;
setwidthheight();
}
//---------------------------------------------------------------------------


void __fastcall Tchengjishuru::setwidthheight()
{
if(this->Width<663)this->Width=663;
if(this->Height<486)this->Height=486;        //TODO: Add your source code here
}

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


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


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

void __fastcall Tchengjishuru::xmChange(TObject *Sender)
{
bool res;
index=xm->ItemIndex;
 if(index<0)return ;
 temp_str=xm->Text;
temp_str=yuange_sr->selectbsxm(temp_str);
if(temp_str=="-1"){
   ShowMessage("错误:项目改变时候");
    return;
}
res=yuange_sr->setxminfo(temp_str);
if(!res){
   ShowMessage("错误:项目改变时候");
   return;
   }
cj1->Text="";
cj2->Text="";
bsfs->Text="";
zxm->Clear();
//设置比赛方式的....
 parsestr(yuange_sr->list_mcbsmc,&list_temp,';');
 bsfs->Items->Assign(list_temp);
 bsfs->ItemIndex=0;
///////////
yuange_sr->getzxm(&list_temp);
zxm->Items->Assign(list_temp);
zxm->ItemIndex=0;
yuange_sr->setzxminfo(0);
 
/////设置成绩格式......
 cjgs->Text=yuange_sr->list_gs;
 temp_str=parsegs(yuange_sr->list_gs);
 cj1->EditMask=temp_str;
 cj2->EditMask=temp_str;
/////设置破记录格式..................
 temp_str=yuange_sr->list_pjlmc;
 if(temp_str.IsEmpty())
    temp_str="正常;无效";
     else
    temp_str="正常;"+temp_str+";无效";
 parsestr(temp_str,&list_temp,';');
 cjbz->Items->Assign(list_temp);
 cjbz->ItemIndex=0;
}
//---------------------------------------------------------------------------

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

void __fastcall Tchengjishuru::cj1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==13){
 cj2->SetFocus();
 }
}
//---------------------------------------------------------------------------

void __fastcall Tchengjishuru::cj2KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
if(Key==13){
  BitBtn6->OnClick(this);
 }
}
//---------------------------------------------------------------------------

void __fastcall Tchengjishuru::BitBtn6Click(TObject *Sender)
{
AnsiString temp1,temp2;
int pjldf,pjlindex,index;
temp1=cj1->Text;
temp2=cj2->Text;
if(temp1!=temp2){
ShowMessage("两次输入成绩不一样");
return ;
}
temp_str=IntToStr(cal_function(cj1->Text,cjgs->Text.Trim()));
index=cjbz->ItemIndex;
if(index>0&&index<cjbz->Items->Count-1){
  parsestr(yuange_sr->list_pjldf,&list_temp,';');
  pjldf=StrToInt(list_temp->Strings[index-1].Trim());
  pjlindex=index;
}
 else
 {
   pjldf=0;
   pjlindex=0;
  }
temp2=cjbz->Items->Strings[index].Trim();
temp1=cur_ydybh;
yuange_sr->setcj(cur_ydybh,temp_str,temp2,pjldf,pjlindex);
yuange_sr->sr_paiming();
refresh(1);
gotnext(temp1);
cj1->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall Tchengjishuru::BitBtn1Click(TObject *Sender)
{
if(bsfs->Text.Trim().IsEmpty()||xm->Text.Trim().IsEmpty()||lbfz->Text.Trim().IsEmpty()){
   ShowMessage("请全部选择类别，分组，项目，比赛方式");
   return ;
  }
 index=bsfs->ItemIndex;
 yuange_sr->getnewsinfo(); 
 if(!yuange_sr->validebsfs(index)){
     ShowMessage("错误:不能输入当前成绩,可能没有检录完毕，或则成绩输入已经完毕");
     return;
  }
 xiangmugeshu=zxm->Items->Count;
 try{
yuange_sr->cur_xzh=StrToInt(xzh->Text.Trim());
 }catch(...){yuange_sr->cur_xzh=1;xzh->Text="1";}
 if(xiangmugeshu>1){//全能
  yuange_sr->createsrtable(1);
  yuange_sr->selectydy(10);
  yuange_sr->setbszt(3);
  this->refresh(1); 
 }else
 {
  yuange_sr->createsrtable(1);
  yuange_sr->selectydy(1);
  yuange_sr->setbszt(3); 
  this->refresh(1);
 }
}
//---------------------------------------------------------------------------
void __fastcall Tchengjishuru::refresh(int type)
{
m_sql="select a.YDYBH,a.XZMC,a.PDH,dbo.getcj(a.CJ,'"+returngs(yuange_sr->list_gs.Trim())+"') as m_cj,a.CJBZ,b.YDYXM from "+yuange_sr->m_table_name+" a,ydyb b where a.FZBH=b.FZBH and a.LBBH=b.LBBH and a.YDYBH=b.YDYBH order by a.XZH,a.PDH,a.YDYBH ASC";
if(yuange_sr->m_table_name.Trim().IsEmpty())return;
close();
sr_query->SQL->Clear();
sr_query->SQL->Add(m_sql);
open();
        //TODO: Add your source code here
}

void __fastcall Tchengjishuru::sr_queryAfterScroll(TDataSet *DataSet)
{
//////////
cur_ydybh=sr_query->Fields->FieldByName("YDYBH")->AsString.Trim();
temp_str=sr_query->Fields->FieldByName("m_cj")->AsString.Trim();
cj1->Text=temp_str;
cj2->Text=temp_str;
cjbz->Text=sr_query->Fields->FieldByName("CJBZ")->AsString.Trim();
}
//---------------------------------------------------------------------------
void __fastcall Tchengjishuru::BitBtn2Click(TObject *Sender)
{
if(Sender!=this){
 if(!sr_query->Active){
  ShowMessage("没有数据可以提交");
 return ;
}
 if(sr_query->RecordCount<=0){
  ShowMessage("没有数据可以提交");
 return ;
 }
  if(!showok("是否要提交数据"))return;
 } 
 yuange_sr->updatecj(1);
 close();
 yuange_sr->dropsrtable(1); 
}
//---------------------------------------------------------------------------


void __fastcall Tchengjishuru::close()
{
sr_con->Close();
sr_query->Close();        //TODO: Add your source code here
}

void __fastcall Tchengjishuru::open()
{
sr_con->Open();
sr_query->Active=true;        //TODO: Add your source code here
}


void __fastcall Tchengjishuru::BitBtn4Click(TObject *Sender)
{
if(bsfs->Text.Trim().IsEmpty()||xm->Text.Trim().IsEmpty()||lbfz->Text.Trim().IsEmpty()){
   ShowMessage("请全部选择类别，分组，项目，比赛方式");
   return ;
  }
if(!showok("是否要结束当前项目成绩输入?"))return;
if(sr_query->Active)
if(sr_query->RecordCount>0){
    if(showok("已经有输入的成绩是否要提交"))
            BitBtn2->OnClick(this);
     }
    yuange_sr->setbszt(4);
close();

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

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

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


void __fastcall Tchengjishuru::zxmChange(TObject *Sender)
{
if(zxm->Items->Count>1){
     if(zxm->ItemIndex==zxm->Items->Count-1)
          zxm->ItemIndex=0;
 }
yuange_sr->setzxminfo(zxm->ItemIndex);

 cjgs->Text=yuange_sr->list_gs;
 temp_str=parsegs(yuange_sr->list_gs);
 cj1->EditMask=temp_str;
 cj2->EditMask=temp_str;

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

void __fastcall Tchengjishuru::bsfsChange(TObject *Sender)
{
yuange_sr->curbsfs=bsfs->ItemIndex;
}
//---------------------------------------------------------------------------


void __fastcall Tchengjishuru::gotnext(AnsiString ydybh)
{
AnsiString m_ydybh;
sr_query->DisableControls();
sr_query->First();
m_ydybh=sr_query->Fields->FieldByName("YDYBH")->AsString.Trim();
while(!sr_query->Eof){
 m_ydybh=sr_query->Fields->FieldByName("YDYBH")->AsString.Trim();
 if(ydybh==m_ydybh)break;
 sr_query->Next();
 }
sr_query->Next();
sr_query->EnableControls();
        //TODO: Add your source code here
}