dlgquannengxiangmu.cpp

大学田径运动会管理系统

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

#include "dlgquannengxiangmu.h"
#include "fuzhu.h"
#include "frmdata.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
Tquannengxiangmu *quannengxiangmu;
//---------------------------------------------------------------------
__fastcall Tquannengxiangmu::Tquannengxiangmu(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------



void __fastcall Tquannengxiangmu::setvalue(TDataSet *dataset)
{
AnsiString temp1,temp2; //TODO: Add your source code here
int index,i;
id=m_query->Fields->FieldByName("ID")->AsString.Trim();
bz->Text=m_query->Fields->FieldByName("BZ")->AsString.Trim();
tbdxxmmc=m_query->Fields->FieldByName("DXXMMC")->AsString.Trim();
tbdxxmzt=m_query->Fields->FieldByName("DXXMZT")->AsString.Trim();
tbdxcnmc=m_query->Fields->FieldByName("DXCNMC")->AsString.Trim();
tbdxxmbh=m_query->Fields->FieldByName("DXXMBH")->AsString.Trim();
tbdxbssj=m_query->Fields->FieldByName("DXBSSJ")->AsString.Trim();
temp1=m_query->Fields->FieldByName("LBBH")->AsString.Trim();
temp2=m_query->Fields->FieldByName("FZBH")->AsString.Trim();
tbgs=m_query->Fields->FieldByName("GS")->AsString.Trim();
index=list_lbfzbh->IndexOf(temp1+":"+temp2);
if(tbdxbssj.Trim().IsEmpty())tbdxbssj="2001/07/18";
if(index>=0)lbfzmc->Text=list_lbfzmc->Strings[index].Trim();
parsestr(tbdxxmbh,&list_temp,';');
yxxm->Clear();
kxxm->Items->Assign(list_zxmmc);
for(i=0;i<list_temp->Count;i++){
    temp1=list_temp->Strings[i].Trim();
    index=list_zxmbh->IndexOf(temp1);
    if(index>=0){
         temp1=list_zxmmc->Strings[index].Trim();
         yxxm->Items->Add(temp1);
         index=kxxm->Items->IndexOf(temp1);
         kxxm->Items->Delete(index);
       }
  }
yxxm->ItemIndex=0;
/////
parsestr(tbdxbssj,&list_temp,';');
{
int i=yxxm->Items->Count-list_temp->Count;
int k;
for(k=0;k<i;k++)list_temp->Add("2001/07/18");
list_str(tbdxbssj,list_temp,";");
if(list_temp->Count>0)
bssj->Text=list_temp->Strings[0].Trim();
}
/////
parsestr(tbdxcnmc,&list_temp,';');
if(list_temp->Count>0)
    dxxmmc->Text=list_temp->Strings[0].Trim();
parsestr(tbdxxmzt,&list_temp,';');
if(list_temp->Count>0)
    dxxmzt->Text=list_temp->Strings[0].Trim();
yxxm->ItemIndex=0;
parsestr(tbgs,&list_temp,';');
if(list_temp->Count>0)gs->Text=list_temp->Strings[0].Trim();
yxxm->OnChange(this);
}

void __fastcall Tquannengxiangmu::refresh()
{
m_con->Connected=false;
 m_query->Active=false;
 m_query->SQL->Clear();
 m_query->SQL->Add("select * from qnxmsz order by ID ASC");
 m_con->Connected=true;
 m_query->Active=true;        //TODO: Add your source code here
}

void Tquannengxiangmu::execute(AnsiString sql)
{

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

bool __fastcall Tquannengxiangmu::valide(int i )
{
return true;
        //TODO: Add your source code here
}
void __fastcall Tquannengxiangmu::SpeedButton1Click(TObject *Sender)
{
/////
AnsiString temp,str;
int index;
index=yxxm->ItemIndex;
if(index<0)return ;
str=temp=yxxm->Items->Strings[index].Trim();
kxxm->Items->Add(temp);
yxxm->Items->Delete(index);

parsestr(tbdxxmmc,&list_temp,';');
list_temp->Delete(index);
list_str(tbdxxmmc,list_temp,";");

parsestr(tbdxxmzt,&list_temp,';');
list_temp->Delete(index);
list_str(tbdxxmzt,list_temp,";");

parsestr(tbdxcnmc,&list_temp,';');
list_temp->Delete(index);
list_str(tbdxcnmc,list_temp,";");

parsestr(tbdxxmbh,&list_temp,';');
list_temp->Delete(index);
list_str(tbdxxmbh,list_temp,";");

parsestr(tbgs,&list_temp,';');
list_temp->Delete(index);
list_str(tbgs,list_temp,";");

parsestr(tbdxbssj,&list_temp,';');
list_temp->Delete(index);
list_str(tbdxbssj,list_temp,";");

yxxm->ItemIndex=0;
yxxm->OnChange(this);
////
}
//---------------------------------------------------------------------------

void __fastcall Tquannengxiangmu::SpeedButton2Click(TObject *Sender)
{
///
AnsiString temp,str;
int index;
index=kxxm->ItemIndex;
if(index<0)return ;
str=temp=kxxm->Items->Strings[index].Trim();
yxxm->Items->Add(temp);
kxxm->Items->Delete(index);
index=list_zxmmc->IndexOf(temp);
 
parsestr(tbdxxmmc,&list_temp,';');
temp=list_dxxmmc->Strings[index].Trim();
list_temp->Add(temp);
list_str(tbdxxmmc,list_temp,";");

parsestr(tbdxxmzt,&list_temp,';');
temp="00";
list_temp->Add(temp);
list_str(tbdxxmzt,list_temp,";");

parsestr(str,&list_temp,':');
temp=list_temp->Strings[1].Trim();
parsestr(tbdxcnmc,&list_temp,';');
list_temp->Add(temp);
list_str(tbdxcnmc,list_temp,";");

parsestr(tbdxxmbh,&list_temp,';');
temp=list_zxmbh->Strings[index].Trim();
list_temp->Add(temp);
list_str(tbdxxmbh,list_temp,";");

parsestr(tbgs,&list_temp,';');
temp=gs->Items->Strings[0].Trim();
list_temp->Add(temp);
list_str(tbgs,list_temp,";");

parsestr(tbdxbssj,&list_temp,';');
temp="2001/07/18";
list_temp->Add(temp);
list_str(tbdxbssj,list_temp,";");

yxxm->ItemIndex=yxxm->Items->Count-1;
yxxm->OnChange(this);
}
//---------------------------------------------------------------------------


void __fastcall Tquannengxiangmu::yxxmChange(TObject *Sender)
{
/////
AnsiString temp,str;
int index;
index=yxxm->ItemIndex;
dxxmmc->Text="";
dxxmzt->Text="";
if(index<0)return ;
parsestr(tbdxxmmc,&list_temp,';');
dxxmmc->Text=list_temp->Strings[index].Trim();
parsestr(tbdxxmzt,&list_temp,';');
dxxmzt->Text=list_temp->Strings[index].Trim();
parsestr(tbgs,&list_temp,';');
gs->Text=list_temp->Strings[index].Trim();
parsestr(tbdxbssj,&list_temp,';');
bssj->Text=list_temp->Strings[index].Trim();
}
//---------------------------------------------------------------------------

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


void __fastcall Tquannengxiangmu::BitBtn1Click(TObject *Sender)
{
AnsiString temp,str;
int index;
index=yxxm->ItemIndex;
if(index<0)return ;
parsestr(tbdxxmmc,&list_temp,';');
list_temp->Strings[index]=dxxmmc->Text.Trim();
list_str(tbdxxmmc,list_temp,";");

parsestr(tbdxxmzt,&list_temp,';');
list_temp->Strings[index]=dxxmzt->Text.Trim();
list_str(tbdxxmzt,list_temp,";");

parsestr(tbgs,&list_temp,';');
list_temp->Strings[index]=gs->Text.Trim();
list_str(tbgs,list_temp,";");

parsestr(tbdxbssj,&list_temp,';');
list_temp->Strings[index]=bssj->Text.Trim();
list_str(tbdxbssj,list_temp,";");
}
//---------------------------------------------------------------------------

void __fastcall Tquannengxiangmu::BitBtn12Click(TObject *Sender)
{
AnsiString str,m_sql;
int i=0;
parsestr(tbgs,&list_temp,';');
for(i=0;i<list_temp->Count;i++)
  if(list_temp->Strings[i].Trim()=="00'00\"00")list_temp->Strings[i]="00''00\"00";
list_str(tbgs,list_temp,";");

m_sql="update qnxmsz set GS='"+tbgs+"',BZ='"+bz->Text.Trim()+"',DXXMBH='"+tbdxxmbh+"',DXBSSJ='"+tbdxbssj+"',DXXMMC='"+tbdxxmmc+"',DXXMZT='"+tbdxxmzt+"',DXCNMC='"+tbdxcnmc+"' where ID="+id;
bz->Text=m_sql;
if(valide())
 execute(m_sql);
}
//---------------------------------------------------------------------------