dlgxiangmu.cpp

大学田径运动会管理系统

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

#include "dlgxiangmu.h"
#include "frmdata.h"
#include "fuzhu.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
Txiangmu *xiangmu;
//---------------------------------------------------------------------
__fastcall Txiangmu::Txiangmu(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall Txiangmu::initdata()
{
        //TODO: Add your source code here
}
void __fastcall Txiangmu::BitBtn15Click(TObject *Sender)
{
 AnsiString m_sql;
 AnsiString szbh;
 TStringList *list;
 list=new TStringList;
 parsestr(list_lbfzbh->Strings[0].Trim(),&list,':');
 szbh.printf("%d%d%d%d", random(10), random(10), random(10), random(10));
 m_sql="insert xmb (XMBH,XMMC,LBBH,FZBH) values ('"+szbh+"','新项目"+szbh+"','"+list->Strings[0].Trim()+"','"+list->Strings[0].Trim()+"')";
 if(valide(2))
   execute(m_sql);///
   delete list;
}
//---------------------------------------------------------------------------


void __fastcall Txiangmu::setvalue(TDataSet * dataset)
{
AnsiString temp;
int index,i;
id=m_query->Fields->FieldByName("ID")->AsString.Trim();
xmbh->Text=tbxmbh=m_query->Fields->FieldByName("XMBH")->AsString.Trim();
xmgs->Text=tbxmbh=m_query->Fields->FieldByName("XMGS")->AsString.Trim();
xmmc->Text=tbxmmc=m_query->Fields->FieldByName("XMMC")->AsString.Trim();
xmlb->Text=tbxmlb=m_query->Fields->FieldByName("XMLB")->AsString.Trim();
tblbbh=m_query->Fields->FieldByName("LBBH")->AsString.Trim();
tbfzbh=m_query->Fields->FieldByName("FZBH")->AsString.Trim();
tbbscs=m_query->Fields->FieldByName("BSCS")->AsString.Trim();
tbmcbsmc=m_query->Fields->FieldByName("MCBSMC")->AsString.Trim();
tbmcbssj=m_query->Fields->FieldByName("MCBSSJ")->AsString.Trim();
tbmcbszt=m_query->Fields->FieldByName("MCBSZT")->AsString.Trim();
tbmcbslqmc=m_query->Fields->FieldByName("MCBSLQMC")->AsString.Trim();
tbdfqk=m_query->Fields->FieldByName("DFQK")->AsString.Trim();
ycjdf->Text=tbycjdf=m_query->Fields->FieldByName("YCJDF")->AsString.Trim();
tbpjlmc=m_query->Fields->FieldByName("PJLMC")->AsString.Trim();
tbpjlcj=m_query->Fields->FieldByName("PJLCJ")->AsString.Trim();
tbpjldf=m_query->Fields->FieldByName("PJLDF")->AsString.Trim();
tbxmxj=m_query->Fields->FieldByName("XMXJ")->AsString.Trim();
sfgz->Text=tbsfgz=m_query->Fields->FieldByName("SFGZ")->AsString.Trim();
sfdgbs->Text=tbsfdgbs=m_query->Fields->FieldByName("SFDGBS")->AsString.Trim();
cjdw->Text=tbcjdw=m_query->Fields->FieldByName("CJDW")->AsString.Trim();
gs->Text=tbgs=m_query->Fields->FieldByName("GS")->AsString.Trim();
tbwcjgs=m_query->Fields->FieldByName("WCJGS")->AsString.Trim();
bz->Text=m_query->Fields->FieldByName("BZ")->AsString.Trim();
tbjylq=m_query->Fields->FieldByName("JYLQ")->AsString.Trim();
if(tbjylq=="1")jylq->Checked=true;else jylq->Checked=false;

temp=tblbbh+":"+tbfzbh;
index=list_lbfzbh->IndexOf(temp);
lbfzmc->ItemIndex=index;

xmxj->Text=tbxmxj;
if(tbbscs.IsEmpty())return ;
bscs->Clear();
index=StrToInt(tbbscs);
for(i=1;i<=index;i++)bscs->Items->Add("第"+IntToStr(i)+"次");
bscs->ItemIndex=0;
parsestr(tbmcbsmc,&list_bsmc,';');
parsestr(tbmcbssj,&list_bssj,';');
parsestr(tbmcbszt,&list_bszt,';');
parsestr(tbmcbslqmc,&list_lqrs,';');
mcbszt->Text=list_bszt->Strings[0].Trim();
mcbssj->Text=list_bssj->Strings[0].Trim();
mcbsmc->Text=list_bsmc->Strings[0].Trim();
mcbslqmc->Text=list_lqrs->Strings[0].Trim();
parsestr(tbdfqk,&list_mcxx,';');
index=StrToInt(list_lqrs->Strings[index-1].Trim());
mcxx->Clear();
for(i=1;i<=index;i++)mcxx->Items->Add("第"+IntToStr(i)+"名");
mcxx->ItemIndex=0;
dfqk->Text=list_mcxx->Strings[0].Trim();

parsestr(tbpjlmc,&list_pjlmc,';');
parsestr(tbpjlcj,&list_pjlcj,';');
parsestr(tbpjldf,&list_pjldf,';');
pjlmc->Items->Assign(list_pjlmc);
pjlmc->ItemIndex=0;
pjlcj->Text=list_pjlcj->Strings[0];
pjldf->Text=list_pjldf->Strings[0];
        //TODO: Add your source code here
}

void __fastcall Txiangmu::refresh()
{
 m_con->Connected=false;
 m_query->Active=false;
 m_query->SQL->Clear();
 m_query->SQL->Add("select a.JYLQ, a.XMGS, a.BZ,a.ID, a.XMBH, a.XMMC, a.XMLB, a.LBBH, a.FZBH, \
                    a.BSCS, a.MCBSMC, a.MCBSSJ, a.MCBSZT, a.MCBSLQMC,\
                    a.DFQK, a.YCJDF, a.PJLMC, a.PJLCJ, a.PJLDF, a.XMXJ,\
                    a.SFGZ, a.SFDGBS, a.CJDW, a.GS, a.WCJGS,b.LBMC,c.ZM from xmb a,jslbz b, fzqkb c  where a.LBBH=b.BH and a.FZBH=c.BH order by a.ID ASC");
 m_con->Connected=true;
 m_query->Active=true;       //TODO: Add your source code here
}

void __fastcall Txiangmu::execute(AnsiString sql)
{
m_query->DisableControls();
 m_con->Connected=false;
 m_query->Active=false;
 m_query->SQL->Clear();
 m_query->SQL->Add(sql);
 m_con->Connected=true;
 m_query->ExecSQL();
 refresh();
 m_query->EnableControls();  
        //TODO: Add your source code here
}

bool __fastcall Txiangmu::valide(int i)
{
return true;
        //TODO: Add your source code here
}
void __fastcall Txiangmu::BitBtn10Click(TObject *Sender)
{
m_query->Last();
}
//---------------------------------------------------------------------------

void __fastcall Txiangmu::BitBtn17Click(TObject *Sender)
{
m_query->First();        
}
//---------------------------------------------------------------------------

void __fastcall Txiangmu::BitBtn11Click(TObject *Sender)
{
m_query->Prior();        
}
//---------------------------------------------------------------------------

void __fastcall Txiangmu::BitBtn16Click(TObject *Sender)
{
m_query->Next();        
}
//---------------------------------------------------------------------------



void __fastcall Txiangmu::BitBtn1Click(TObject *Sender)
{
int i,index;
i=StrToInt(tbbscs);
i++;
tbbscs=IntToStr(i);
bscs->Clear();
index=StrToInt(tbbscs);
list_bsmc->Add("新的比赛");
list_bssj->Add("2001/07/18");
list_bszt->Add("00");
list_lqrs->Add("8");
list_str(tbmcbsmc,list_bsmc,";");
list_str(tbmcbssj,list_bssj,";");
list_str(tbmcbszt,list_bszt,";");
list_str(tbmcbslqmc,list_lqrs,";");

for(i=1;i<=index;i++)bscs->Items->Add("第"+IntToStr(i)+"次");
bscs->ItemIndex=index-1;
parsestr(tbmcbsmc,&list_bsmc,';');
parsestr(tbmcbssj,&list_bssj,';');
parsestr(tbmcbszt,&list_bszt,';');
parsestr(tbmcbslqmc,&list_lqrs,';');
mcbszt->Text=list_bszt->Strings[index-1].Trim();
mcbssj->Text=list_bssj->Strings[index-1].Trim();
mcbsmc->Text=list_bsmc->Strings[index-1].Trim();
mcbslqmc->Text=list_lqrs->Strings[index-1].Trim();
list_str(tbdfqk,list_mcxx,";");
parsestr(tbdfqk,&list_mcxx,';');
index=StrToInt(mcbslqmc->Text);
mcxx->Clear(); 
for(i=1;i<=index;i++)mcxx->Items->Add("第"+IntToStr(i)+"名");
mcxx->ItemIndex=0;
dfqk->Text=list_mcxx->Strings[0].Trim();

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



void __fastcall Txiangmu::BitBtn3Click(TObject *Sender)
{
int i,index;
i=StrToInt(tbbscs);
i--;
if(i<1)return ;
index=bscs->ItemIndex;
list_bsmc->Delete(index);
list_bszt->Delete(index);
list_bssj->Delete(index);
list_lqrs->Delete(index);
tbbscs=IntToStr(i);
list_str(tbmcbsmc,list_bsmc,";");
list_str(tbmcbssj,list_bssj,";");
list_str(tbmcbszt,list_bszt,";");
list_str(tbmcbslqmc,list_lqrs,";");
bscs->Clear();
index=StrToInt(tbbscs);
for(i=1;i<=index;i++)bscs->Items->Add("第"+IntToStr(i)+"次");
bscs->ItemIndex=0;
parsestr(tbmcbsmc,&list_bsmc,';');
parsestr(tbmcbssj,&list_bssj,';');
parsestr(tbmcbszt,&list_bszt,';');
parsestr(tbmcbslqmc,&list_lqrs,';');
mcbszt->Text=list_bszt->Strings[0].Trim();
mcbssj->Text=list_bssj->Strings[0].Trim();
mcbsmc->Text=list_bsmc->Strings[0].Trim();
mcbslqmc->Text=list_lqrs->Strings[0].Trim();
parsestr(tbdfqk,&list_mcxx,';');
index=StrToInt(list_lqrs->Strings[index-1].Trim());
mcxx->Clear();
for(i=1;i<=index;i++){
   mcxx->Items->Add("第"+IntToStr(i)+"名");
   if(index>=list_mcxx->Count)list_mcxx->Add("1");
  }
mcxx->ItemIndex=0;
list_str(tbdfqk,list_mcxx,";");
dfqk->Text=list_mcxx->Strings[0].Trim();
}
//---------------------------------------------------------------------------






void __fastcall Txiangmu::BitBtn5Click(TObject *Sender)
{
int index=mcxx->ItemIndex;
list_mcxx->Strings[index]=dfqk->Text;
list_str(tbdfqk,list_mcxx,";");
parsestr(tbdfqk,&list_mcxx,';');
}
//---------------------------------------------------------------------------

void __fastcall Txiangmu::BitBtn2Click(TObject *Sender)
{
///
int index,i;
index=bscs->ItemIndex;
list_bsmc->Strings[index]=mcbsmc->Text.Trim();
list_bssj->Strings[index]=mcbssj->Text.Trim();
list_bszt->Strings[index]=mcbszt->Text.Trim();
list_lqrs->Strings[index]=mcbslqmc->Text.Trim();
list_str(tbmcbsmc,list_bsmc,";");
list_str(tbmcbssj,list_bssj,";");
list_str(tbmcbszt,list_bszt,";");
list_str(tbmcbslqmc,list_lqrs,";");
if(bscs->Items->Count-1==bscs->ItemIndex){
  index=StrToInt(mcbslqmc->Text);
  mcxx->Clear(); 
   for(i=1;i<=index;i++){
    mcxx->Items->Add("第"+IntToStr(i)+"名");
   if(index>=list_mcxx->Count)list_mcxx->Add("1");
  }
  mcxx->ItemIndex=0;
  list_str(tbdfqk,list_mcxx,";");
  dfqk->Text=list_mcxx->Strings[0].Trim();
  parsestr(tbdfqk,&list_mcxx,';');
  }
////
}
//---------------------------------------------------------------------------


void __fastcall Txiangmu::BitBtn7Click(TObject *Sender)
{
int index;
AnsiString str;
str=pjlmc->Text.Trim();
list_pjlmc->Add(str);
list_pjlcj->Add("0");
list_pjldf->Add("10");
index=list_pjlmc->Count-1;
pjlmc->ItemIndex=index;
list_str(tbpjlmc,list_pjlmc,";");
list_str(tbpjlcj,list_pjlcj,";");
list_str(tbpjldf,list_pjldf,";");
pjlcj->Text=list_pjlcj->Strings[index].Trim();
pjldf->Text=list_pjldf->Strings[index].Trim();
pjlmc->Items->Assign(list_pjlmc);
}
//---------------------------------------------------------------------------

void __fastcall Txiangmu::BitBtn9Click(TObject *Sender)
{
int index;
AnsiString str;
str=pjlmc->Text.Trim();
index=pjlmc->Items->IndexOf(str);
if(index<0)return;
list_pjlmc->Delete(index);
list_pjlcj->Delete(index);
list_pjldf->Delete(index);
list_str(tbpjlmc,list_pjlmc,";");
list_str(tbpjlcj,list_pjlcj,";");
list_str(tbpjldf,list_pjldf,";");
index=list_pjlmc->Count-1;
if(index>=0){
pjlmc->ItemIndex=index;
pjlcj->Text=list_pjlcj->Strings[index].Trim();
pjldf->Text=list_pjldf->Strings[index].Trim();
pjlmc->Items->Assign(list_pjlmc);
}
else
{
pjlmc->Clear();
pjldf->Text="";
pjlmc->Text=""; 
pjlmc->Clear();
}
}
//---------------------------------------------------------------------------
void __fastcall Txiangmu::pjlmcChange(TObject *Sender)
{
int index=pjlmc->ItemIndex;
if(index<0)return ;
pjlcj->Text=list_pjlcj->Strings[index].Trim();
pjldf->Text=list_pjldf->Strings[index].Trim();
}
//---------------------------------------------------------------------------

void __fastcall Txiangmu::mcxxChange(TObject *Sender)
{
int index=mcxx->ItemIndex;
if(index<0)return;
dfqk->Text=list_mcxx->Strings[index].Trim();
}
//---------------------------------------------------------------------------

void __fastcall Txiangmu::bscsChange(TObject *Sender)
{
int index=bscs->ItemIndex;
if(index<0)return;
mcbszt->Text=list_bszt->Strings[index].Trim();
mcbssj->Text=list_bssj->Strings[index].Trim();
mcbsmc->Text=list_bsmc->Strings[index].Trim();
mcbslqmc->Text=list_lqrs->Strings[index].Trim();
}
//---------------------------------------------------------------------------


void __fastcall Txiangmu::lbfzmcChange(TObject *Sender)
{
AnsiString str;
TStringList *temp;
int index=lbfzmc->ItemIndex;

if(index<0)return;
temp=new TStringList;
str=list_lbfzbh->Strings[index];
parsestr(str,&temp,':');
tblbbh=temp->Strings[0].Trim();
tbfzbh=temp->Strings[1].Trim();
delete temp;
}
//---------------------------------------------------------------------------


void __fastcall Txiangmu::syn()
{
tbxmbh=xmbh->Text.Trim();
tbxmmc=xmmc->Text.Trim();
tbxmlb=xmlb->Text.Trim();
tbycjdf=ycjdf->Text.Trim();
tbsfgz=sfgz->Text.Trim();
tbxmxj=xmxj->Text.Trim();
tbsfdgbs=sfdgbs->Text.Trim();
tbcjdw=cjdw->Text.Trim();
tbgs=gs->Text.Trim();
if(jylq->Checked)tbjylq="1";else tbjylq="0";
if(tbgs=="00'00\"00")tbgs="00''00\"00";
        //TODO: Add your source code here
}

void __fastcall Txiangmu::BitBtn8Click(TObject *Sender)
{
 int index;
 index=pjlmc->ItemIndex;
 if(index<0)return;
 list_pjlmc->Strings[index]=pjlmc->Text.Trim();        
 list_pjlcj->Strings[index]=pjlcj->Text.Trim();
 list_pjldf->Strings[index]=pjldf->Text.Trim();
 list_str(tbpjlmc,list_pjlmc,";");
 list_str(tbpjlcj,list_pjlcj,";");
 list_str(tbpjldf,list_pjldf,";");
}
//---------------------------------------------------------------------------

void __fastcall Txiangmu::BitBtn12Click(TObject *Sender)
{
///
AnsiString str,m_sql;
syn();
m_sql="update xmb set XMBH='"+tbxmbh+"',XMMC='"+tbxmmc+"', \
         XMLB='"+tbxmlb+"', LBBH='"+tblbbh+"', FZBH='"+tbfzbh+"',\
          BSCS='"+tbbscs+"', MCBSMC='"+tbmcbsmc+"', MCBSSJ='"+tbmcbssj+"', MCBSZT='"+tbmcbszt+"',\
           MCBSLQMC='"+tbmcbslqmc+"', DFQK='"+tbdfqk+"', YCJDF='"+tbycjdf+"',\
           PJLMC='"+tbpjlmc+"', PJLCJ='"+tbpjlcj+"', PJLDF='"+tbpjldf+"',\
            XMXJ='"+tbxmxj+"', SFGZ='"+tbsfgz+"', SFDGBS='"+tbsfdgbs+"', CJDW='"+tbcjdw+"',\
             GS='"+tbgs+"', WCJGS='"+tbwcjgs+"',BZ='"+bz->Text.Trim()+"',XMGS='"+xmgs->Text.Trim()+"',JYLQ="+tbjylq+" where ID="+id;
if(valide())
 execute(m_sql);        
}
//---------------------------------------------------------------------------

void __fastcall Txiangmu::BitBtn13Click(TObject *Sender)
{
AnsiString m_sql;
m_sql="delete from xmb  where ID="+id;
m_sql=m_sql+"  delete from qnxmsz  where XMBH='"+xmbh->Text+"'";
if(valide(3)){
     execute(m_sql);
   }        
}
//---------------------------------------------------------------------------

void __fastcall Txiangmu::BitBtn14Click(TObject *Sender)
{
refresh();         
}
//---------------------------------------------------------------------------