dlgfenzupeizhi.cpp

大学田径运动会管理系统

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

#include "dlgfenzupeizhi.h"
//--------------------------------------------------------------------- 
#pragma resource "*.dfm"
Tfenzupeizhi *fenzupeizhi;
//---------------------------------------------------------------------
__fastcall Tfenzupeizhi::Tfenzupeizhi(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall Tfenzupeizhi::setvalue(TDataSet *dataset)
{
AnsiString szsslbzm;
id=m_query->Fields->FieldByName("ID")->AsString.Trim();
bh->Text=m_query->Fields->FieldByName("BH")->AsString.Trim();
bz->Text=m_query->Fields->FieldByName("BZ")->AsString.Trim();
szsslb->Text=m_query->Fields->FieldByName("SSLBMC")->AsString.Trim();
zm->Text=m_query->Fields->FieldByName("ZM")->AsString.Trim();
szsslbzm=szsslb->Text;
int index=szsslb->Items->IndexOf(szsslbzm);
if(index<0)szsslb->ItemIndex=0;else  szsslb->ItemIndex=index;
}

void __fastcall Tfenzupeizhi::refresh()
{
        //TODO: Add your source code here
 m_con->Connected=false;
 m_query->Active=false;
 m_query->SQL->Clear();
 m_query->SQL->Add("select a.ID as ID,a.BH as BH,b.LBMC as SSLBMC,a.ZM as ZM,a.BZ as BZ from fzqkb a,jslbz b where b.BH=a.SSLB order by a.ID ASC");
 m_con->Connected=true;
 m_query->Active=true;

}

void __fastcall Tfenzupeizhi::execute(AnsiString sql)
{
        //TODO: Add your source code here
 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();

}

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

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

void __fastcall Tfenzupeizhi::BitBtn3Click(TObject *Sender)
{
m_query->Last(); 
}
//---------------------------------------------------------------------------

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

void __fastcall Tfenzupeizhi::BitBtn5Click(TObject *Sender)
{
AnsiString m_sql;
AnsiString szbh;
szbh.printf("%d%d", random(10), random(10));
m_sql="insert fzqkb (bh,SSLB,ZM,BZ) values ('"+szbh+"','"+m_listbh->Strings[0].Trim()+"','新分组','无')";
if(valide(2))
 execute(m_sql);
}
//---------------------------------------------------------------------------

void __fastcall Tfenzupeizhi::BitBtn6Click(TObject *Sender)
{
AnsiString m_sql;
m_sql="delete from fzqkb where ID="+id;
if(valide(3)){
   execute(m_sql);
//   m_sql="delete from xmb where FZBH='"+bh->Text.Trim()+"'";
  }
}
//---------------------------------------------------------------------------

void __fastcall Tfenzupeizhi::BitBtn7Click(TObject *Sender)
{
AnsiString m_sql;
int index=szsslb->ItemIndex;
m_sql="update fzqkb set BH='"+bh->Text.Trim()+"',SSLB='"+m_listbh->Strings[index].Trim()+"',BZ='"+bz->Text.Trim()+"',ZM='"+zm->Text.Trim()+"' where ID="+id;
if(valide(1)){
   execute(m_sql);
   }
}
//---------------------------------------------------------------------------

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