frmtuantizongfenbiao.cpp

大学田径运动会管理系统

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

#include "frmtuantizongfenbiao.h"
#include "fuzhu.h"
#include "frmdata.h"
#include "dlgfenzupeizhi.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
Ttuantizongfenbiao *tuantizongfenbiao;
//---------------------------------------------------------------------
__fastcall Ttuantizongfenbiao::Ttuantizongfenbiao(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------





void __fastcall Ttuantizongfenbiao::setvalue(TDataSet * dataset)
{
id=m_query->Fields->FieldByName("ID")->AsString.Trim();
fzmc=m_query->Fields->FieldByName("FZMC")->AsString.Trim();
fzbh=m_query->Fields->FieldByName("FZBH")->AsString.Trim();
mc->Text=m_query->Fields->FieldByName("MC")->AsString.Trim();
bz->Text=m_query->Fields->FieldByName("BZ")->AsString.Trim();
select();
        //TODO: Add your source code here
}

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

void __fastcall Ttuantizongfenbiao::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 Ttuantizongfenbiao::valide(int i )
{
return true;
        //TODO: Add your source code here
}
void __fastcall Ttuantizongfenbiao::BitBtn3Click(TObject *Sender)
{
m_query->Last(); 
}
//---------------------------------------------------------------------------

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

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

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




void __fastcall Ttuantizongfenbiao::select()
{
int i,index;
AnsiString str;
wxz->Assign(zlb);
parsestr(fzmc,&yxz,';');
for(i=0;i<=yxz->Count-1;i++)
{
str=yxz->Strings[i].Trim();
index=wxz->IndexOf(str);
wxz->Delete(index);
}
kxzzb->Items->Assign(wxz);
sbhzb->Items->Assign(yxz); 
        //TODO: Add your source code here
}
void __fastcall Ttuantizongfenbiao::BitBtn9Click(TObject *Sender)
{
int index;
AnsiString str;
index=sbhzb->ItemIndex;
if(index<0)return ;
str=sbhzb->Items->Strings[index].Trim();
index=yxz->IndexOf(str);
yxz->Delete(index);
wxz->Add(str);
sbhzb->Items->Assign(yxz);
kxzzb->Items->Assign(wxz);
}
//---------------------------------------------------------------------------

void __fastcall Ttuantizongfenbiao::BitBtn10Click(TObject *Sender)
{
int index;
AnsiString str;
index=kxzzb->ItemIndex;
if(index<0)return ;
str=kxzzb->Items->Strings[index].Trim();
index=wxz->IndexOf(str);
wxz->Delete(index);
yxz->Add(str);
sbhzb->Items->Assign(yxz);
kxzzb->Items->Assign(wxz);
}
//---------------------------------------------------------------------------

void __fastcall Ttuantizongfenbiao::BitBtn7Click(TObject *Sender)
{
int i,index;
AnsiString str,m_sql;
fzbh="";
if(yxz->Count>0)
 {
 str=yxz->Strings[0].Trim();
 fzmc=str;
 index=zlb->IndexOf(str);
 str=zbh->Strings[index].Trim();
 fzbh=str;
 }
for(i=1;i<yxz->Count;i++){
 str=yxz->Strings[i].Trim();
 fzmc=fzmc+";"+str;
 index=zlb->IndexOf(str);
 str=zbh->Strings[index].Trim();
 fzbh=fzbh+";"+str;
 }
m_sql="update ttzfszb set FZMC='"+fzmc+"',FZBH='"+fzbh+"',MC='"+mc->Text.Trim()+"',BZ='"+bz->Text.Trim()+"' where ID="+id;
if(valide())
 execute(m_sql);
}
//---------------------------------------------------------------------------

void __fastcall Ttuantizongfenbiao::BitBtn5Click(TObject *Sender)
{
 AnsiString m_sql;
  AnsiString szbh;
 szbh.printf("%d%d", random(10), random(10));

 m_sql="insert ttzfszb (MC,FZBH,FZMC,BZ) values ('new"+szbh+"','','','无')";
 if(valide(2))
   execute(m_sql);
}
//---------------------------------------------------------------------------

void __fastcall Ttuantizongfenbiao::BitBtn6Click(TObject *Sender)
{
AnsiString m_sql;
m_sql="delete from ttzfszb  where ID="+id;
if(valide(3)){
     execute(m_sql);
   }
}
//---------------------------------------------------------------------------


void __fastcall Ttuantizongfenbiao::OKBtnClick(TObject *Sender)
{
///
AnsiString m_sql,str;
m_sql="drop table ttzf";
if(valide(4)){
  execute(m_sql);
 }
m_sql="CREATE TABLE ttzf(\
	ID int IDENTITY (1, 1) NOT NULL,\
	DWBH char(10),DWJC varchar(100) ";
 m_query->DisableControls();
 while(!m_query->Eof){
 str=m_query->Fields->FieldByName("MC")->AsString.Trim();
 m_sql=m_sql+", ["+str+"] numeric(18,2) ";
 m_query->Next();
 }
 m_sql=m_sql+")";
 m_query->EnableControls();       //TODO: Add your source code here
 execute(m_sql);
}
//---------------------------------------------------------------------------

void __fastcall Ttuantizongfenbiao::BitBtn8Click(TObject *Sender)
{
refresh();         
}
//---------------------------------------------------------------------------