main.cpp

大学田径运动会管理系统

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

#include "Main.h"
#include "fuzhu.h"
#include "dlgquanjupeizhi.h"
#include "dlgjingsaizbpz.h"
#include "frmdata.h"
#include "dlgfenzupeizhi.h"
#include "frmyonghupeizhi.h"
#include "frmtuantizongfenbiao.h"
#include "dlgxuexiao.h"
#include "dlgjiaolian.h"
#include "dlglingdui.h"
#include "dlgxiangmu.h"
#include "dlgyundongyuan.h"
#include "dlgquannengxiangmu.h"
#include "frmjianlu.h"
#include "frmchengjichuli.h"
#include "frmchengjishuru.h"
#include "dlgsuijichoudao.h"
#include "frmprintform.h"
#include "ydychaxun.h"
#include "dlglogin.h"
#include "frmxmbb.h"
#include "frmprintform1.h"
#include "frmttzf.h"
#include "frmprintform2.h"
#include "frmcxcj.h"
#include "frmcxydy.h"

//---------------------------------------------------------------------------
#pragma resource "*.dfm"
TMainForm *MainForm;
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent *Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::FileExitItemClick(TObject *Sender)
{
Close();        
}
//---------------------------------------------------------------------------
TMainForm::initsystem()
{
randomize();
AnsiString file;
Yuange_QJ=new TYuange_QJ;
m_yuange=new TYuange;
file=ExtractFilePath(Application->ExeName)+"config.ini";
Yuange_QJ->m_config_file=file;
Yuange_QJ->init();
this->Caption=Yuange_QJ->m_system_window_title+szTitle;
Application->Title=Yuange_QJ->m_system_window_title;
m_yuange->init(Yuange_QJ->m_server_constring);
 //TODO: Add your source code here
}
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
initsystem();
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::CutItemClick(TObject *Sender)
{
xitong_quanjupeizhi=new Txitong_quanjupeizhi(this);
xitong_quanjupeizhi->server_ip->Text=Yuange_QJ->m_server_ip;
xitong_quanjupeizhi->server_data_name->Text=Yuange_QJ->m_server_data_name;
xitong_quanjupeizhi->server_data_user->Text=Yuange_QJ->m_server_data_user;
xitong_quanjupeizhi->server_data_password->Text=Yuange_QJ->m_server_data_password;
xitong_quanjupeizhi->server_data_provider->Text=Yuange_QJ->m_server_data_provider;
xitong_quanjupeizhi->system_window_title->Text=Yuange_QJ->m_system_window_title;
xitong_quanjupeizhi->system_remote_path->Text=Yuange_QJ->m_system_remote_path;
int idok=xitong_quanjupeizhi->ShowModal();
if(idok==IDOK){
Yuange_QJ->m_server_ip=xitong_quanjupeizhi->server_ip->Text;
Yuange_QJ->m_server_data_name=xitong_quanjupeizhi->server_data_name->Text;
Yuange_QJ->m_server_data_user=xitong_quanjupeizhi->server_data_user->Text;
Yuange_QJ->m_server_data_password=xitong_quanjupeizhi->server_data_password->Text;
Yuange_QJ->m_server_data_provider=xitong_quanjupeizhi->server_data_provider->Text;
Yuange_QJ->m_system_window_title=xitong_quanjupeizhi->system_window_title->Text;
Yuange_QJ->m_system_remote_path=xitong_quanjupeizhi->system_remote_path->Text;
this->Caption=Yuange_QJ->m_system_window_title+szTitle;
Application->Title=Yuange_QJ->m_system_window_title;
Yuange_QJ->setsystem();
initdata();
 }
delete xitong_quanjupeizhi;
xitong_quanjupeizhi=NULL;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::WindowTileItem2Click(TObject *Sender)
{
jingsaizbpz=new Tjingsaizbpz(this);
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select * from jslbz order by id asc");
opensetconnection();
jingsaizbpz->m_query=data->set_data_query;
jingsaizbpz->m_con=data->set_data_con;
jingsaizbpz->m_query->AfterScroll=jingsaizbpz->setvalue;
jingsaizbpz->m_query->First();
jingsaizbpz->ShowModal();
data->set_data_query->AfterScroll=NULL;
closesetconnection();
delete jingsaizbpz;
jingsaizbpz=NULL;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::WindowMinimizeItemClick(TObject *Sender)
{
fenzupeizhi=new Tfenzupeizhi(this);
fenzupeizhi->m_listmc=new TStringList;
fenzupeizhi->m_listbh=new TStringList;
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select BH,LBMC from jslbz ");
opensetconnection();
while(!data->set_data_query->Eof){
fenzupeizhi->m_listmc->Add(data->set_data_query->Fields->FieldByName("LBMC")->AsString.Trim());
fenzupeizhi->m_listbh->Add(data->set_data_query->Fields->FieldByName("BH")->AsString.Trim());
data->set_data_query->Next();
}
fenzupeizhi->szsslb->Items->Assign(fenzupeizhi->m_listmc);
if(fenzupeizhi->m_listbh->Count<=0)
 {
 ShowMessage("没有类别组! 请先添加类别组");
delete fenzupeizhi->m_listmc;
delete fenzupeizhi->m_listbh;
delete fenzupeizhi;
fenzupeizhi=NULL;
 return ;
   }
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select a.ID as ID,b.LBMC as SSLBMC,a.ZM as ZM,a.BZ as BZ,a.BH as BH from fzqkb a,jslbz b where b.BH=a.SSLB order by a.ID ASC");
opensetconnection();
fenzupeizhi->m_query=data->set_data_query;
fenzupeizhi->m_con=data->set_data_con;
fenzupeizhi->m_query->AfterScroll=fenzupeizhi->setvalue;
fenzupeizhi->m_query->First();
fenzupeizhi->ShowModal();
data->set_data_query->AfterScroll=NULL;
closesetconnection();
delete fenzupeizhi->m_listmc;
delete fenzupeizhi->m_listbh;
delete fenzupeizhi;
fenzupeizhi=NULL;
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::closesetconnection()
{
data->set_data_con->Connected=false;
data->sr_con->Connected=false;
data->cl_con->Connected=false;
data->p_con->Connected=false;
print_form->m_print_con->Connected=false;
print_form1->m_con->Connected=false;
print_form2->m_con->Connected=false;
        //TODO: Add your source code here
}

void __fastcall TMainForm::opensetconnection()
{
data->set_data_con->Connected=true;
data->set_data_query->Active=true;
        //TODO: Add your source code here
}


void __fastcall TMainForm::WindowArrangeItemClick(TObject *Sender)
{
yonghupeizhi=new Tyonghupeizhi(this);
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select * from yhb order by id ASC");
opensetconnection();
yonghupeizhi->m_query=data->set_data_query;
yonghupeizhi->m_con=data->set_data_con;
yonghupeizhi->m_query->AfterScroll=yonghupeizhi->setvalue;
yonghupeizhi->m_query->First();
yonghupeizhi->ShowModal();
data->set_data_query->AfterScroll=NULL;
closesetconnection();
delete yonghupeizhi;
yonghupeizhi=NULL;

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



void __fastcall TMainForm::N15Click(TObject *Sender)
{
AnsiString temp1,temp2;
int idok;
tuantizongfenbiao=new Ttuantizongfenbiao(this);
tuantizongfenbiao->yxz=new TStringList;
tuantizongfenbiao->wxz=new TStringList;
tuantizongfenbiao->zlb=new TStringList;
tuantizongfenbiao->zbh=new TStringList;
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select a.LBMC,b.ZM,b.BH,b.SSLB from jslbz a,fzqkb b where a.bh=b.sslb order by b.id asc");;
opensetconnection();
while(!data->set_data_query->Eof){
temp1=data->set_data_query->Fields->FieldByName("LBMC")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("ZM")->AsString.Trim();
tuantizongfenbiao->zlb->Add(temp1+"->"+temp2);
temp1=data->set_data_query->Fields->FieldByName("SSLB")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("BH")->AsString.Trim();
tuantizongfenbiao->zbh->Add(temp1+":"+temp2);
data->set_data_query->Next();
}
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select * from ttzfszb order by id ASC");
opensetconnection();
tuantizongfenbiao->m_query=data->set_data_query;
tuantizongfenbiao->m_con=data->set_data_con;
tuantizongfenbiao->m_query->AfterScroll=tuantizongfenbiao->setvalue;
tuantizongfenbiao->m_query->First();
idok=tuantizongfenbiao->ShowModal();
data->set_data_query->AfterScroll=NULL;
closesetconnection();
delete  tuantizongfenbiao->yxz;
delete  tuantizongfenbiao->wxz;
delete  tuantizongfenbiao->zlb;
delete  tuantizongfenbiao->zbh;
delete tuantizongfenbiao;
tuantizongfenbiao=NULL;
}
//---------------------------------------------------------------------------



void TMainForm::initdata()
{
closesetconnection();
data->set_data_con->ConnectionString=Yuange_QJ->m_server_constring;
data->sr_con->ConnectionString=Yuange_QJ->m_server_constring;
data->cl_con->ConnectionString=Yuange_QJ->m_server_constring;
data->p_con->ConnectionString=Yuange_QJ->m_server_constring;
print_form->m_print_con->ConnectionString=Yuange_QJ->m_server_constring;
print_form1->m_con->ConnectionString=Yuange_QJ->m_server_constring;
print_form2->m_con->ConnectionString=Yuange_QJ->m_server_constring;
randomize();
        //TODO: Add your source code here
}
void __fastcall TMainForm::FormShow(TObject *Sender)
{
quanxian=1;
initdata();
initqx();
}
//---------------------------------------------------------------------------


void __fastcall TMainForm::N3Click(TObject *Sender)
{
xuexiao=new Txuexiao(this);
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select * from jsdwb order by id asc");
opensetconnection();
xuexiao->m_query=data->set_data_query;
xuexiao->m_con=data->set_data_con;
xuexiao->m_query->AfterScroll=xuexiao->setvalue;
xuexiao->m_query->First();
xuexiao->ShowModal();
data->set_data_query->AfterScroll=NULL;
closesetconnection();
delete xuexiao;
xuexiao=NULL;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N5Click(TObject *Sender)
{
AnsiString temp1,temp2;
int idok;
jiaolian=new Tjiaolian(this);
jiaolian->list_dwbh=new TStringList;
jiaolian->list_dwmc=new TStringList;
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select BH,DWJC from jsdwb order by id asc");;
opensetconnection();
while(!data->set_data_query->Eof){
temp1=data->set_data_query->Fields->FieldByName("BH")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("DWJC")->AsString.Trim();
jiaolian->list_dwbh->Add(temp1);
jiaolian->list_dwmc->Add(temp2);
data->set_data_query->Next();
}
jiaolian->ssdw->Items->Assign(jiaolian->list_dwmc);
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_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");
opensetconnection();
jiaolian->m_query=data->set_data_query;
jiaolian->m_con=data->set_data_con;
jiaolian->m_query->AfterScroll=jiaolian->setvalue;
jiaolian->m_query->First();
idok=jiaolian->ShowModal();
data->set_data_query->AfterScroll=NULL;
closesetconnection();
delete  jiaolian->list_dwbh;
delete  jiaolian->list_dwmc;
delete jiaolian;
jiaolian=NULL;
}
//---------------------------------------------------------------------------

void __fastcall TMainForm::N4Click(TObject *Sender)
{
AnsiString temp1,temp2;
int idok;
lingdui=new Tlingdui(this);
lingdui->list_dwbh=new TStringList;
lingdui->list_dwmc=new TStringList;
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select BH,DWJC from jsdwb order by id asc");;
opensetconnection();
while(!data->set_data_query->Eof){
temp1=data->set_data_query->Fields->FieldByName("BH")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("DWJC")->AsString.Trim();
lingdui->list_dwbh->Add(temp1);
lingdui->list_dwmc->Add(temp2);
data->set_data_query->Next();
}
lingdui->ssdw->Items->Assign(lingdui->list_dwmc);
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select a.ID,a.LDXM,a.BH,b.DWJC,a.DWBH,a.GRJL from ldb a,jsdwb b where a.DWBH=b.BH order by a.ID ASC");
opensetconnection();
lingdui->m_query=data->set_data_query;
lingdui->m_con=data->set_data_con;
lingdui->m_query->AfterScroll=lingdui->setvalue;
lingdui->m_query->First();
idok=lingdui->ShowModal();
data->set_data_query->AfterScroll=NULL;
closesetconnection();
delete  lingdui->list_dwbh;
delete  lingdui->list_dwmc;
delete lingdui;
lingdui=NULL;

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



void __fastcall TMainForm::N12Click(TObject *Sender)
{
AnsiString temp1,temp2;
int idok;
xiangmu=new Txiangmu(this);
xiangmu->list_lbfzbh=new TStringList;
xiangmu->list_lbfzmc=new TStringList;
xiangmu->list_bszt=new TStringList;
xiangmu->list_bssj=new TStringList;
xiangmu->list_bsmc=new TStringList;
xiangmu->list_lqrs=new TStringList;
xiangmu->list_mcxx=new TStringList;
xiangmu->list_dfqk=new TStringList;
xiangmu->list_pjlmc=new TStringList;
xiangmu->list_pjlcj=new TStringList;
xiangmu->list_pjldf=new TStringList;
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select a.LBMC,b.ZM,b.BH,b.SSLB from jslbz a,fzqkb b where a.bh=b.sslb order by b.id asc");;
opensetconnection();
while(!data->set_data_query->Eof){
temp1=data->set_data_query->Fields->FieldByName("LBMC")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("ZM")->AsString.Trim();
xiangmu->list_lbfzmc->Add(temp1+"->"+temp2);
temp1=data->set_data_query->Fields->FieldByName("SSLB")->AsString.Trim();
temp2=data->set_data_query->Fields->FieldByName("BH")->AsString.Trim();
xiangmu->list_lbfzbh->Add(temp1+":"+temp2);
data->set_data_query->Next();
}
xiangmu->lbfzmc->Items->Assign(xiangmu->list_lbfzmc);
closesetconnection();
data->set_data_query->SQL->Clear();
data->set_data_query->SQL->Add("select a.JYLQ,a.XMGS,a.BZ,a.ID,a.XMBH, a.XMMC, a.XMLB, a.LBBH, a.FZBH, \
                    a.BSCS, a.MCBSMC, a.MCBSSJ, a.MCBSZT, a.MCBSLQMC,\
                    a.DFQK, a.YCJDF, a.PJLMC, a.PJLCJ, a.PJLDF, a.XMXJ,\
                    a.SFGZ, a.SFDGBS, a.CJDW, a.GS, a.WCJGS,b.LBMC,c.ZM from xmb a,jslbz b, fzqkb c  where a.LBBH=b.BH and a.FZBH=c.BH order by a.ID ASC");
opensetconnection();
xiangmu->m_query=data->set_data_query;
xiangmu->m_con=data->set_data_con;
xiangmu->m_query->AfterScroll=xiangmu->setvalue;
xiangmu->m_query->First();
idok=xiangmu->ShowModal();
data->set_data_query->AfterScroll=NULL;
closesetconnection();
delete  xiangmu->list_lbfzbh;
delete  xiangmu->list_lbfzmc;
delete  xiangmu->list_bszt;
delete  xiangmu->list_bssj;
delete  xiangmu->list_bsmc;
delete  xiangmu->list_lqrs;
delete  xiangmu->list_mcxx;
delete  xiangmu->list_dfqk;
delete  xiangmu->list_pjlcj;
delete  xiangmu->list_pjldf;
delete  xiangmu->list_pjlmc;
delete xiangmu;
xiangmu=NULL;