frmyonghupeizhi.cpp

大学田径运动会管理系统

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

#include "frmyonghupeizhi.h"
//--------------------------------------------------------------------- 
#pragma resource "*.dfm"
Tyonghupeizhi *yonghupeizhi;
//---------------------------------------------------------------------
__fastcall Tyonghupeizhi::Tyonghupeizhi(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------


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

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

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

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


void __fastcall Tyonghupeizhi::setvalue(TDataSet * dataset)
{
id=m_query->Fields->FieldByName("ID")->AsString.Trim();
bz->Text=m_query->Fields->FieldByName("BZ")->AsString.Trim();
loginname->Text=m_query->Fields->FieldByName("LOGINNAME")->AsString.Trim();
password->Text=m_query->Fields->FieldByName("PASSWORD")->AsString.Trim();
mc->Text=m_query->Fields->FieldByName("MC")->AsString.Trim();
qx->Text=m_query->Fields->FieldByName("QX")->AsString.Trim();

        //TODO: Add your source code here
}

void __fastcall Tyonghupeizhi::refresh()
{
 m_con->Connected=false;
 m_query->Active=false;
 m_query->SQL->Clear();
 m_query->SQL->Add("select * from yhb order by ID ASC");
 m_con->Connected=true;
 m_query->Active=true;

        //TODO: Add your source code here
}

void __fastcall Tyonghupeizhi::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 Tyonghupeizhi::valide(int i)
{
return true;
        //TODO: Add your source code here
}
void __fastcall Tyonghupeizhi::BitBtn5Click(TObject *Sender)
{
 AnsiString m_sql;
 AnsiString szbh;
 szbh.printf("%d%d", random(10), random(10));

 m_sql="insert yhb (LOGINNAME,PASSWORD,QX,BZ,MC) values ('new"+szbh+"','12345',1,'无','新用户')";
 if(valide(2))
   execute(m_sql);
}
//---------------------------------------------------------------------------

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

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

void __fastcall Tyonghupeizhi::BitBtn7Click(TObject *Sender)
{
AnsiString m_sql;
m_sql="update yhb set LOGINNAME='"+loginname->Text.Trim()+"',PASSWORD='"+password->Text.Trim()+"',QX="+qx->Text.Trim()+",MC='"+mc->Text.Trim()+"',BZ='"+bz->Text.Trim()+"' where ID="+id;
if(valide())
 execute(m_sql);

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

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