umquery.cpp

可实现科研信息管理系统的功能,有项目管理,教师管理,科研项目管理等多项内容

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

#include <vcl.h>
#pragma hdrstop

#include "UMQuery.h"
#include "UDM.h"
#include "UMsgBox.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMsgBox *MsgBox;
//---------------------------------------------------------------------------
__fastcall TFormMQuery::TFormMQuery(TComponent* Owner)
        : TFormTemplate(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMQuery::SBtnSearchClick(TObject *Sender)
{
        DM->ADOQueryS->SQL->Clear();
        DM->ADOQueryS->SQL->Add("select vreward.pname as 工程项目,tname as 参加老师,order as 获奖排名,pmanager as 项目主管,ptype as 项目类型,ptreasury as 项目经费,ptime as 起讫时间 from vreward,vproject where vreward.pname=vproject.pname and vproject.pno = '"+EditValues->Text+"' order by vreward.order");
        DM->ADOQueryS->Open();
        MemoSQL->Clear();
        MemoSQL->Lines->Add("          示例语句的SQL代码:");
        MemoSQL->Text=MemoSQL->Text+DM->ADOQueryS->SQL->Text;
}
//---------------------------------------------------------------------------
void __fastcall TFormMQuery::LBTableNameClick(TObject *Sender)
{
        try
        {
        switch(LBTableName->ItemIndex)
        {
                case 0:
                        LBField->Items->Clear();
                        LBField->Items->LoadFromFile("cfg\\achievement.dat");
                        LBField->ItemIndex=0;
                        break;
                case 1:
                        LBField->Items->Clear();
                        LBField->Items->LoadFromFile("cfg\\attender.dat");
                        LBField->ItemIndex=0;
                        break;
                case 2:
                        LBField->Items->Clear();
                        LBField->Items->LoadFromFile("cfg\\department.dat");
                        LBField->ItemIndex=0;
                        break;
                case 3:
                        LBField->Items->Clear();
                        LBField->Items->LoadFromFile("cfg\\project.dat");
                        LBField->ItemIndex=0;
                        break;
                case 4:
                        LBField->Items->Clear();
                        LBField->Items->LoadFromFile("cfg\\reward.dat");
                        LBField->ItemIndex=0;
                        break;
                case 5:
                        LBField->Items->Clear();
                        LBField->Items->LoadFromFile("cfg\\salary.dat");
                        LBField->ItemIndex=0;
                        break;
                case 6:
                        LBField->Items->Clear();
                        LBField->Items->LoadFromFile("cfg\\teacher.dat");
                        LBField->ItemIndex=0;
                        break;
        }
        }
        catch(...)
        {
                MsgBox=new TFormMsgBox(Application);
                MsgBox->MsgBox("严重错误","FatalError:配置文件丢失或者不全！",MBOKONLY,MBERROR);
                delete MsgBox;
        }
}
//---------------------------------------------------------------------------
void __fastcall TFormMQuery::SBtnMClick(TObject *Sender)
{
        try
        {
                DM->ADOQueryS->SQL->Clear();
                DM->ADOQueryS->SQL->Add(MemoSQL->Text);
                DM->ADOQueryS->Open();        
        }
        catch(...)
        {
                MsgBox=new TFormMsgBox(Application);
                MsgBox->MsgBox("错误","您输入的SQL语句有错误，请仔细检查后在查询！",MBOKONLY,MBERROR);
                delete MsgBox;
                MemoSQL->SetFocus();
        }
}
//---------------------------------------------------------------------------
void __fastcall TFormMQuery::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        DM->ADOQueryS->SQL->Clear();
        DM->ADOQueryS->Active=false;
}
//---------------------------------------------------------------------------