usquery.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "USQuery.h"
#include "UDM.h"
#include "UMsgBox.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMsgBox *MsgBox;
bool dsearch=true;
bool msearch=true;
AnsiString TableName="vproject";
AnsiString String1=" like '%";
AnsiString String2="%'";
//---------------------------------------------------------------------------
__fastcall TFormSQuery::TFormSQuery(TComponent* Owner)
        : TFormTemplate(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormSQuery::FormCloseQuery(TObject *Sender,
      bool &CanClose)
{
        DM->ADOQueryS->Active=false;
}
//---------------------------------------------------------------------------

void __fastcall TFormSQuery::RGTableClick(TObject *Sender)
{
        try
        {
        switch(RGTable->ItemIndex)
        {
                case 0:
                        CBField->Items->Clear();
                        CBField->Items->LoadFromFile("cfg\\project.dat");
                        CBField->ItemIndex=0;
                        EditValues->Text="";
                        TableName="vproject";
                        SBtnSearchClick(Sender);
                        break;
                case 1:
                        CBField->Items->Clear();
                        CBField->Items->LoadFromFile("cfg\\teacher.dat");
                        CBField->ItemIndex=0;
                        EditValues->Text="";
                        TableName="vteacher";
                        SBtnSearchClick(Sender);
                        break;
                case 2:
                        CBField->Items->Clear();
                        CBField->Items->LoadFromFile("cfg\\department.dat");
                        CBField->ItemIndex=0;
                        TableName="vdepartment";
                        EditValues->Text="";
                        SBtnSearchClick(Sender);
                        break;
                case 3:
                        CBField->Items->Clear();
                        CBField->Items->LoadFromFile("cfg\\achievement.dat");
                        CBField->ItemIndex=0;
                        TableName="vachievement";
                        EditValues->Text="";
                        SBtnSearchClick(Sender);
                        break;
                case 4:
                        CBField->Items->Clear();
                        CBField->Items->LoadFromFile("cfg\\salary.dat");
                        CBField->ItemIndex=0;
                        TableName="vsalary";
                        EditValues->Text="";
                        SBtnSearchClick(Sender);
                        break;
                case 5:
                        CBField->Items->Clear();
                        CBField->Items->LoadFromFile("cfg\\attender.dat");
                        CBField->ItemIndex=0;
                        TableName="vattender";
                        EditValues->Text="";
                        SBtnSearchClick(Sender);
                        break;
        }
        }
        catch(...)
        {
                MsgBox=new TFormMsgBox(Application);
                MsgBox->MsgBox("严重错误","FatalError:配置文件丢失或者不全！",MBOKONLY,MBERROR);
                delete MsgBox;
        }
}
//---------------------------------------------------------------------------

void __fastcall TFormSQuery::RGDSearchClick(TObject *Sender)
{
        switch(RGDSearch->ItemIndex)
        {
                case 0:
                        msearch=true;
                        String1=" like '%";
                        String2="%'";
                        EditValues->Text="";
                        break;
                case 1:
                        msearch=false;
                        String1=" like '";
                        String2="'";
                        EditValues->Text="";
                        break;
        }
}
//---------------------------------------------------------------------------

void __fastcall TFormSQuery::RGTypeClick(TObject *Sender)
{
        switch(RGType->ItemIndex)
        {
                case 0:
                        dsearch=true;
                        break;
                case 1:
                        dsearch=false;
                        break;
        }
        SBtnSearch->Enabled=!dsearch;
}
//---------------------------------------------------------------------------


void __fastcall TFormSQuery::EditValuesChange(TObject *Sender)
{
        if(dsearch)
        {
        if(CBField->Text=="")
        {
                MsgBox=new TFormMsgBox(Application);
                MsgBox->MsgBox("错误","请选择字段名！",MBOKONLY,MBERROR);
                delete MsgBox;
        }
        else
        {
                DM->ADOQueryS->SQL->Clear();
                DM->ADOQueryS->SQL->Add("select * from "+TableName+" where "+CBField->Text+String1+EditValues->Text+String2);
                DM->ADOQueryS->Open();
                for(int i=0;i<DBG->Columns->Count;i++)
                        DBG->Columns->Items[i]->Width=DBG->Width/DBG->Columns->Count-4;
                EditSQL->Text=DM->ADOQueryS->SQL->Text.TrimRight();
        }
        }
}
//---------------------------------------------------------------------------

void __fastcall TFormSQuery::SBtnSearchClick(TObject *Sender)
{
        if(CBField->Text=="")
        {
                MsgBox=new TFormMsgBox(Application);
                MsgBox->MsgBox("错误","请选择字段名！",MBOKONLY,MBERROR);
                delete MsgBox;
        }
        else
        {
                DM->ADOQueryS->SQL->Clear();
                DM->ADOQueryS->SQL->Add("select * from "+TableName+" where "+CBField->Text+String1+EditValues->Text+String2);
                DM->ADOQueryS->Open();
                for(int i=0;i<DBG->Columns->Count;i++)
                        DBG->Columns->Items[i]->Width=DBG->Width/DBG->Columns->Count-4;
                EditSQL->Text=DM->ADOQueryS->SQL->Text.TrimRight();
        }
}
//---------------------------------------------------------------------------

void __fastcall TFormSQuery::FormShow(TObject *Sender)
{
        DM->ADOQueryS->SQL->Clear();
        DM->ADOQueryS->SQL->Add("select * from project");
        DM->ADOQueryS->Active=true;
        for(int i=0;i<DBG->Columns->Count;i++)
                DBG->Columns->Items[i]->Width=DBG->Width/DBG->Columns->Count-4;
}
//---------------------------------------------------------------------------