數(shù)據(jù)庫輔導(dǎo)：BCB6.0連接SQLServer2000代碼

/*database devlop with bcb6.0
    config :
    database: sql server 2000
    link方式: ODBC+BDE+Database控件
    chinanetboy
    */
    //說明：borland C++ builder6.0 建立一個(gè)簡(jiǎn)單的數(shù)據(jù)庫應(yīng)用代碼與文件組織
    /*main.cpp
    //main project
    Hrm.bpr
    //all form file
    Main.dfm,db.dfm
    DepInfo.dfm,DepManage.dfm,PeopleManage.dfm,PeopleQuery.dfm,
    Prize.dfm,Punish.dfm,SalaryHis.dfm,SalaryManage.dfm,TaxInfo.dfm
    //all head file
    Main.h,db.h
    DepInfo.h,DepManage.h,PeopleManage.h,PeopleQuery.h,
    Prize.h,Punish.h,SalaryHis.h,SalaryManage.h,TaxInfo.h
    //all cpp file
    Main.cpp,db.cpp
    DepInfo.cpp,DepManage.cpp,PeopleManage.cpp,PeopleQuery.cpp
    ,Prize.cpp,Punish.cpp,SalaryHis.cpp,SalaryManage.cpp,TaxInfo.cpp
    */
    #include
    #pragma hdrstop
    #include "Main.h"
    #include "DepManage.h"
    #include "DepInfo.h"
    #include "PeopleManage.h"
    #include "PeopleQuery.h"
    #include "SalaryManage.h"
    #include "Taxinfo.h"
    #include "SalaryHis.h"
    #include "Prize.h"
    #include "Punish.h"
    #pragma package(smart_init)
    #pragma resource "*.dfm"
    TfmMain *fmMain;
    //
    __fastcall TfmMain::TfmMain(TComponent* Owner)
    : TForm(Owner)
    { }
    TForm* TfmMain::FormExist(AnsiString szCaption)
    {
    for(int i=0; iMDIChildCount; i++)
    {
    TForm *pForm = this->MDIChildren[i];
    if(pForm->Caption == szCaption)
    return pForm; // 已存在窗體,返回該窗體
    }
    return NULL; // 不存在窗體,返回空值
    }
    void __fastcall TfmMain::mnuDepManageClick(TObject *Sender)
    {
    // 顯示機(jī)構(gòu)設(shè)置及編碼窗體
    TForm *pForm = FormExist("機(jī)構(gòu)設(shè)置");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
    pForm->SetFocus();
    else
    pForm = new TfmDepManage(Application);
    pForm->Show();
    }
    void __fastcall TfmMain::mnuDepInfoClick(TObject *Sender)
    {
    // 顯示機(jī)構(gòu)詳細(xì)信息窗體
    TForm *pForm = FormExist("機(jī)構(gòu)詳細(xì)信息");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
    pForm->SetFocus();
    else
    pForm = new TfmDepInfo(Application);
    pForm->Show();
    }
    void __fastcall TfmMain::mnuPeopleManageClick(TObject *Sender)
    {
    // 顯示職員信息維護(hù)窗體
    TForm *pForm = FormExist("職員信息管理");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
    pForm->SetFocus();
    else
    pForm = new TfmPeopleManage(Application);
    pForm->Show();
    }
    void __fastcall TfmMain::mnuPeopleQueryClick(TObject *Sender)
    {
    // 顯示職員信息查詢窗體
    TForm *pForm = FormExist("職員信息查詢");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
    pForm->SetFocus();
    else
    pForm = new TfmPeopleQuery(Application);
    pForm->Show();
    }
    void __fastcall TfmMain::mnuSalaryManageClick(TObject *Sender)
    {
    // 顯示當(dāng)月工資管理窗體
    TForm *pForm = FormExist("當(dāng)月工資管理");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
    pForm->SetFocus();
    else
    pForm = new TfmSalaryManage(Application);
    pForm->Show();
    }
    void __fastcall TfmMain::mnuTaxInfoClick(TObject *Sender)
    {
    // 顯示個(gè)人所得稅率窗體
    TForm *pForm = FormExist("個(gè)人所得稅率");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
    pForm->SetFocus();
    else
    pForm = new TfmTaxInfo(Application);
    pForm->Show();
    }
    void __fastcall TfmMain::mnuSalaryHisClick(TObject *Sender)
    {
    // 顯示工資發(fā)放歷史窗體
    TForm *pForm = FormExist("工資發(fā)放歷史");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
    pForm->SetFocus();
    else
    pForm = new TfmSalaryHis(Application);
    pForm->Show();
    }
    void __fastcall TfmMain::mnuPrizeClick(TObject *Sender)
    {
    // 顯示職員獎(jiǎng)勵(lì)管理窗體
    TForm *pForm = FormExist("職員獎(jiǎng)勵(lì)管理");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
    pForm->SetFocus();
    else
    pForm = new TfmPrize(Application);
    pForm->Show();
    }
    void __fastcall TfmMain::mnuPunishClick(TObject *Sender)
    {
    // 顯示職員懲罰管理窗體
    TForm *pForm = FormExist("職員懲罰管理");
    // 如果已存在則激活，否則新建一個(gè)字窗體
    if(pForm)
    pForm->SetFocus();
    else
    pForm = new TfmPunish(Application);
    pForm->Show();
    }