dlgjiaolian.cpp

大学田径运动会管理系统

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

#include "dlgjiaolian.h"
#include "frmdata.h"
//---------------------------------------------------------------------
#pragma resource "*.dfm"
Tjiaolian *jiaolian;
//---------------------------------------------------------------------
__fastcall Tjiaolian::Tjiaolian(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall Tjiaolian::setvalue(TDataSet * dataset)
{
int index;
id=m_query->Fields->FieldByName("ID")->AsString.Trim();
bh->Text=m_query->Fields->FieldByName("BH")->AsString.Trim();
grjl->Text=m_query->Fields->FieldByName("GRJL")->AsString.Trim();
jlxm->Text=m_query->Fields->FieldByName("JLXM")->AsString.Trim();
m_dwbh=m_query->Fields->FieldByName("DWBH")->AsString.Trim();
index=list_dwbh->IndexOf(m_dwbh);
ssdw->ItemIndex=index; 
       //TODO: Add your source code here
}

void __fastcall Tjiaolian::refresh()
{
 m_con->Connected=false;
 m_query->Active=false;
 m_query->SQL->Clear();
 m_query->SQL->Add("select a.ID,a.JLXM,a.BH,b.DWJC,a.DWBH,a.GRJL from jlyb a,jsdwb b where a.DWBH=b.BH order by a.ID ASC");
 m_con->Connected=true;
 m_query->Active=true;
        //TODO: Add your source code here
}

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

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

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

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


void __fastcall Tjiaolian::ssdwChange(TObject *Sender)
{
AnsiString str;
str=ssdw->Text.Trim();
int index=0;
index=list_dwmc->IndexOf(str);
if(index>=0)
  m_dwbh=list_dwbh->Strings[index].Trim();
}
//---------------------------------------------------------------------------

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

 m_sql="insert jlyb (BH,JLXM,DWBH,GRJL) values ('"+szbh+"','新教练"+szbh+"','"+list_dwbh->Strings[0].Trim()+"','新教练')";
 if(valide(2))
   execute(m_sql);
}
//---------------------------------------------------------------------------

void __fastcall Tjiaolian::BitBtn7Click(TObject *Sender)
{
AnsiString m_sql;
m_sql="update jlyb set BH='"+bh->Text.Trim()+"',jlxm='"+jlxm->Text.Trim()+"',DWBH='"+m_dwbh+"',GRJL='"+grjl->Text.Trim()+"' where ID="+id;
if(valide())
 execute(m_sql);
}
//---------------------------------------------------------------------------

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

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