fuzhu.cpp

大学田径运动会管理系统

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "fuzhu.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)
AnsiString returngs(AnsiString str){
TStringList *list;
list=new TStringList;
parsestr(str,&list,'\'');
list_str(str,list,"''");
delete list;
return str;
}
bool showok(AnsiString str)
{
return Application->MessageBox(str.c_str(),"系统信息",MB_OKCANCEL)==IDOK;
}
void  list_str(AnsiString &str, TStringList *list,AnsiString sep)
{
int i=0;
str="";
for(i=0;i<list->Text.Length();i++)
 if(list->Text.c_str()[i]=='\n')list->Text.c_str()[i]=';';
if(list->Count>0){
   str=list->Strings[0].Trim();
   for(i=1;i<=list->Count-1;i++)
       str=str+sep+list->Strings[i].Trim();
  }      //TODO: Add your source code here
}
void parsestr(AnsiString str,TStringList **list,char sep)
{
int len=str.Length();
for(int i=0;i<len;i++)
  if(str.c_str()[i]==sep)str.c_str()[i]='\n';
(*list)->Text=str;
for(int i=0;i<len;i++)
  if(str.c_str()[i]=='\n')str.c_str()[i]=sep;
}
AnsiString parsegs(AnsiString gs)
{
AnsiString str="00:00.00";
if(gs=="00:00.00")str="00\:00\.00;1;_";
if(gs=="00'00\"00")str="00\'00\\\"00;1;_";
if(gs=="00:00:00.00")str="00\:00\:00\.00;1;_";
if(gs=="00.00")str="00\.00;1;_";
if(gs=="000.00")str="000\.00;1;_";
if(gs=="00:00")str="00\:00;1;_";
if(gs=="0")str="";
return str;
}
AnsiString getsqlcjgs(AnsiString gs,AnsiString field)
{

}
int cal_function (AnsiString cj,AnsiString gs)
{
int index=0;
if(gs=="00:00.00"){
 index=StrToInt(cj.SubString(1,2))*10000;
 index=index+StrToInt(cj.SubString(4,2))*100;
 index=index+StrToInt(cj.SubString(7,2));
}
if(gs=="00'00\"00"){
 index=StrToInt(cj.SubString(1,2))*10000;
 index=index+StrToInt(cj.SubString(4,2))*100;
 index=index+StrToInt(cj.SubString(7,2));
}
if(gs=="00:00:00.00"){
 index=StrToInt(cj.SubString(1,2))*1000000;
 index=index+StrToInt(cj.SubString(4,2))*10000;
 index=index+StrToInt(cj.SubString(7,2))*100;
 index=index+StrToInt(cj.SubString(10,2));
}
if(gs=="00.00"){
 index=StrToInt(cj.SubString(1,2))*100;
 index=index+StrToInt(cj.SubString(4,2));
}
if(gs=="000.00"){
 index=StrToInt(cj.SubString(1,3))*100;
 index=index+StrToInt(cj.SubString(5,2));
}
if(gs=="00:00"){
 index=StrToInt(cj.SubString(1,2))*100;
 index=index+StrToInt(cj.SubString(4,2));
}
if(gs=="0")index=StrToInt(cj);
return index ;
}
TYuange_QJ::TYuange_QJ()
{
        //TODO: Add your source code here
}

void TYuange_QJ::init()  ///系统初始化!
{
 TIniFile *inifile;
 inifile=new TIniFile(m_config_file);
 m_server_ip=inifile->ReadString("SERVER","SERVER_IP","127.0.0.1");
 m_server_data_name=inifile->ReadString("SERVER","SERVER_DATA_NAME","sports");
 m_server_data_user=inifile->ReadString("SERVER","SERVER_DATA_USER","sa");
 m_server_data_password=inifile->ReadString("SERVER","SERVER_DATA_PASSWORD","sa");
 m_server_data_provider=inifile->ReadString("SERVER","SERVER_DATA_PROVIDER","SQLOLEDB.1");
 m_system_window_title=inifile->ReadString("SYSTEM","SYSTEM_WINDOW_TITLE","系统运动会管理");
 m_system_remote_path=inifile->ReadString("SYSTEM","SYSTEM_REMOTE_PATH","\\dpm\\yuange");
 m_server_constring="SERVER="+m_server_ip;
 m_server_constring=m_server_constring+";DATABASE="+m_server_data_name;
 m_server_constring=m_server_constring+";Provider="+m_server_data_provider;
 m_server_constring=m_server_constring+";UID="+m_server_data_user;
 m_server_constring=m_server_constring+";PWD="+m_server_data_password;
 delete inifile;
}

TYuange_QJ::~TYuange_QJ()
{
        //TODO: Add your source code here
}

TYuange_QJ::setsystem()
{
 TIniFile *inifile;
 inifile=new TIniFile(m_config_file);
 inifile->WriteString("SERVER","SERVER_IP",m_server_ip);
 inifile->WriteString("SERVER","SERVER_DATA_NAME",m_server_data_name);
 inifile->WriteString("SERVER","SERVER_DATA_USER",m_server_data_user);
 inifile->WriteString("SERVER","SERVER_DATA_PASSWORD",m_server_data_password);
 inifile->WriteString("SERVER","SERVER_DATA_PROVIDER",m_server_data_provider);
 inifile->WriteString("SYSTEM","SYSTEM_WINDOW_TITLE",m_system_window_title);
 inifile->WriteString("SYSTEM","SYSTEM_REMOTE_PATH",m_system_remote_path);

 m_server_constring="SERVER="+m_server_ip;
 m_server_constring=m_server_constring+";DATABASE="+m_server_data_name;
 m_server_constring=m_server_constring+";Provider="+m_server_data_provider;
 m_server_constring=m_server_constring+";UID="+m_server_data_user;
 m_server_constring=m_server_constring+";PWD="+m_server_data_password;

 delete inifile;
        //TODO: Add your source code here
}



TYuange::TYuange()
{

 list_lbfzbh=new TStringList;       //TODO: Add your source code here
 list_lbfzmc=new TStringList;
 list_temp=new TStringList;
         list_xmbh=new TStringList;
         list_xmmc=new TStringList;
         list_xmlb=new TStringList;
         list_lbfz=new TStringList;
         list_lbbh=new TStringList;
         list_fzbh=new TStringList;
         list_bscs=new TStringList;
         list_mcbsmc=new TStringList;
         list_mcbssj=new TStringList;
         list_mcbszt=new TStringList;
         list_mcbslqmc=new TStringList;
         list_dfqk=new TStringList;
         list_ycjdf=new TStringList;
         list_pjlcj=new TStringList;
         list_pjlmc=new TStringList;
         list_pjldf=new TStringList;
         list_xmxj=new TStringList;
         list_sfgz=new TStringList;
         list_sfdgbs=new TStringList;
         list_cjdw=new TStringList;
         list_gs=new TStringList;
         list_xmgs=new TStringList;
         list_jylq=new TStringList;
    list_qn_xmxj=new TStringList;;
 list_qn_xmbh=new TStringList;;

 m_con=new TADOConnection(NULL);
 m_con->LoginPrompt=false; 
 m_query=new TADOQuery(NULL);
 m_query->Connection=m_con; 
}

TYuange::~TYuange()
{
    delete list_lbfzbh;
    delete list_lbfzmc;
         delete list_xmbh;
         delete list_xmmc;
         delete list_xmlb;
         delete list_lbfz;
         delete list_lbbh;
         delete list_fzbh;
         delete list_bscs;
         delete list_mcbsmc;
         delete list_mcbssj;
         delete list_mcbszt;
         delete list_mcbslqmc;
         delete list_dfqk;
         delete list_ycjdf;
         delete list_pjlcj;
         delete list_pjlmc;
         delete list_pjldf;
         delete list_xmxj;
         delete list_sfgz;
         delete list_sfdgbs;
         delete list_cjdw;
         delete list_gs;
         delete list_xmgs;
         delete list_jylq;

    if(m_con->Connected)m_con->Connected=false;
    if(m_query->Active)m_query->Active=false;
    delete m_con;
    delete m_query;
   delete list_qn_xmxj;
    delete list_qn_xmbh;

        //TODO: Add your source code here
}
bool __fastcall TYuange::selectlbfz(AnsiString lbfz)
{
return true;   
}

bool __fastcall TYuange::getallxiangmu()
{
 initlist();
 AnsiString temp1,temp2;//TODO: Add your source code here
 AnsiString sql;
 sql="select a.LBMC,b.ZM,b.BH,b.SSLB from jslbz a,fzqkb b where a.bh=b.sslb order by b.id asc";
 connectsql(sql);
 list_lbfzmc->Clear();
 list_lbfzbh->Clear();
 while(!m_query->Eof){
  temp1=m_query->Fields->FieldByName("LBMC")->AsString.Trim();
  temp2=m_query->Fields->FieldByName("ZM")->AsString.Trim();
  list_lbfzmc->Add(temp1+"->"+temp2);
  temp1=m_query->Fields->FieldByName("SSLB")->AsString.Trim();
  temp2=m_query->Fields->FieldByName("BH")->AsString.Trim();
  list_lbfzbh->Add(temp1+":"+temp2);
  m_query->Next();
 }
 sql="select * from xmb order by id asc";
 connectsql(sql);
 while(!m_query->Eof){
         list_xmbh->Add(m_query->Fields->FieldByName("XMBH")->AsString.Trim());
         list_xmmc->Add(m_query->Fields->FieldByName("XMMC")->AsString.Trim());
         list_xmlb->Add(m_query->Fields->FieldByName("XMLB")->AsString.Trim());
         list_lbfz->Add(m_query->Fields->FieldByName("LBBH")->AsString.Trim()+":"+m_query->Fields->FieldByName("FZBH")->AsString.Trim());
         list_lbbh->Add(m_query->Fields->FieldByName("LBBH")->AsString.Trim());
         list_fzbh->Add(m_query->Fields->FieldByName("FZBH")->AsString.Trim());
         list_bscs->Add(m_query->Fields->FieldByName("BSCS")->AsString.Trim());
         list_mcbsmc->Add(m_query->Fields->FieldByName("MCBSMC")->AsString.Trim());
         list_mcbssj->Add(m_query->Fields->FieldByName("MCBSSJ")->AsString.Trim());
         list_mcbszt->Add(m_query->Fields->FieldByName("MCBSZT")->AsString.Trim());
         list_mcbslqmc->Add(m_query->Fields->FieldByName("MCBSLQMC")->AsString.Trim());
         list_dfqk->Add(m_query->Fields->FieldByName("DFQK")->AsString.Trim());
         list_ycjdf->Add(m_query->Fields->FieldByName("YCJDF")->AsString.Trim());
         list_pjlcj->Add(m_query->Fields->FieldByName("PJLCJ")->AsString.Trim());
         list_pjlmc->Add(m_query->Fields->FieldByName("PJLMC")->AsString.Trim());
         list_pjldf->Add(m_query->Fields->FieldByName("PJLDF")->AsString.Trim());
         list_xmxj->Add(m_query->Fields->FieldByName("XMXJ")->AsString.Trim());
         list_sfgz->Add(m_query->Fields->FieldByName("SFGZ")->AsString.Trim());
         list_sfdgbs->Add(m_query->Fields->FieldByName("SFDGBS")->AsString.Trim());
         list_cjdw->Add(m_query->Fields->FieldByName("CJDW")->AsString.Trim());
         list_gs->Add(m_query->Fields->FieldByName("GS")->AsString.Trim());
         list_xmgs->Add(m_query->Fields->FieldByName("XMGS")->AsString.Trim());
         list_jylq->Add(m_query->Fields->FieldByName("JYLQ")->AsString.Trim());
         m_query->Next();
 }
 sql="select * from qnxm order by XMBH";
 connectsql(sql);
 while(!m_query->Eof){
  list_qn_xmxj->Add(m_query->Fields->FieldByName("XMXZ")->AsString.Trim());
  list_qn_xmbh->Add(m_query->Fields->FieldByName("XMBH")->AsString.Trim());
  m_query->Next();
 }
}

bool __fastcall TYuange::selectbsfs(int bsfs)
{
        //TODO: Add your source code here
}

AnsiString __fastcall TYuange::getcurrentxmbh()
{
        //TODO: Add your source code here
}

bool __fastcall TYuange::selectxiangmu(AnsiString xm)
{
        //TODO: Add your source code here
}

AnsiString __fastcall TYuange::getxmxj()
{
        //TODO: Add your source code here
}

AnsiString __fastcall TYuange::getxmlb()
{
        //TODO: Add your source code here
}

AnsiString __fastcall TYuange::getcjdw()
{
        //TODO: Add your source code here
}

AnsiString __fastcall TYuange::getcjgs()
{
        //TODO: Add your source code here
}

int __fastcall TYuange::getbhxmgs()
{
        //TODO: Add your source code here
}

int __fastcall TYuange::getbsinfo(AnsiString xmbh,TStringList **list)
{
        //TODO: Add your source code here
}

AnsiString __fastcall TYuange::getbszt(int i)
{
        //TODO: Add your source code here
}

int __fastcall TYuange::getlqrs(int i)
{
        //TODO: Add your source code here
}

float __fastcall TYuange::getdf(int mc)
{
        //TODO: Add your source code here
}

float __fastcall TYuange::getqtrdf()
{
        //TODO: Add your source code here
}

int __fastcall TYuange::getpjlgs()
{
        //TODO: Add your source code here
}

AnsiString __fastcall TYuange::getpjlmc(int i)
{
        //TODO: Add your source code here
}

float __fastcall TYuange::getpjldf(int i)
{
        //TODO: Add your source code here
}

AnsiString __fastcall TYuange::getsfgz()
{
        //TODO: Add your source code here
}

void __fastcall TYuange::openconnection()
{
m_con->Connected=true;
m_query->Active=true; 
        //TODO: Add your source code here
}

void __fastcall TYuange::closeconnection()
{
m_con->Connected=false;
m_query->Active=false;
        //TODO: Add your source code here
}

void __fastcall TYuange::execute(AnsiString sql)
{
closeconnection();