uteacher.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "UTeacher.h"
#include "UDM.h"
#include "UMsgBox.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
bool isadding,ismodify;
//---------------------------------------------------------------------------
__fastcall TFormTeacher::TFormTeacher(TComponent* Owner)
        : TFormTemplate(Owner)
{
        //LabelCaption->Caption=Caption;
}
//---------------------------------------------------------------------------
void __fastcall TFormTeacher::SBtnPriClick(TObject *Sender)
{
        if(DM->ADOQTeacher->Bof)
                DM->ADOQTeacher->Last();
        else
                DM->ADOQTeacher->Prior();
}
//---------------------------------------------------------------------------

void __fastcall TFormTeacher::SBtnNextClick(TObject *Sender)
{
        if(DM->ADOQTeacher->Eof)
                DM->ADOQTeacher->First();
        else
                DM->ADOQTeacher->Next();
}
//---------------------------------------------------------------------------

void __fastcall TFormTeacher::SBtnAddClick(TObject *Sender)
{
        DataControlState(false);
        DM->ADOQTeacher->Append();
        DBETDName->Text=CBDepartment->Text;
        isadding=true;
        ismodify=false;
}
//---------------------------------------------------------------------------

void __fastcall TFormTeacher::SBtnCommitClick(TObject *Sender)
{
        try
        {
        DM->ADOQTeacher->Post();
        DataControlState(true);
        isadding=ismodify=false;
        //DM->ADOQTeacher->Refresh();
        //DBCBToat->Enabled=false;
        }
        catch(...)
        {
        }
}
//---------------------------------------------------------------------------

void __fastcall TFormTeacher::SBtnDeleteClick(TObject *Sender)
{
        DBGridTName->Refresh();
        DM->ADOQTeacher->Delete();
}
//---------------------------------------------------------------------------

void __fastcall TFormTeacher::FormShow(TObject *Sender)
{
        DM->ADOQSalary->Close();
        DM->ADOQSalary->SQL->Clear();
        DM->ADOQSalary->SQL->Add("select * from salary where toat='"+DBCBToat->Text+"'");
        DM->ADOQSalary->Open();
        while(!DM->ADOQDepartment->Eof)
        {
                CBDepartment->AddItem(DM->ADOQDepartment->FieldByName("DName")->AsString,0);
                DM->ADOQDepartment->Next();
        }
        if(CBDepartment->Items->Count>0)
                CBDepartment->ItemIndex=0;
        DM->ADOQDepartment->Prior();
        DM->ADOQDepartment->Active=false;
}
//---------------------------------------------------------------------------


void __fastcall TFormTeacher::DSTeacherDataChange(TObject *Sender,
      TField *Field)
{
        DM->ADOQSalary->Close();
        DM->ADOQSalary->SQL->Clear();
        DM->ADOQSalary->SQL->Add("select * from salary where toat='"+DBCBToat->Text+"'");
        DM->ADOQSalary->Open();
}
//---------------------------------------------------------------------------

void __fastcall TFormTeacher::DataControlState(bool ReadOnly)
{
        //设置数据控件状态
        DBETNo->ReadOnly=ReadOnly;
        DBETName->ReadOnly=ReadOnly;
        DBCBTSex->ReadOnly=ReadOnly;
        DBETBirthday->ReadOnly=ReadOnly;
        DBETNation->ReadOnly=ReadOnly;
        DBCBLevel->ReadOnly=ReadOnly;
        DBCBToat->ReadOnly=ReadOnly;
        DBETDName->ReadOnly=ReadOnly;
        DBETStartTime->ReadOnly=ReadOnly;
        DBEBaseSalary->ReadOnly=ReadOnly;
        //设置按钮状态
        SBtnAdd->Enabled=ReadOnly;
        SBtnModify->Enabled=ReadOnly;
        SBtnDelete->Enabled=ReadOnly;
        SBtnPri->Enabled=ReadOnly;
        SBtnNext->Enabled=ReadOnly;
        DBGridTName->Enabled=ReadOnly;
        DBGridTName->Refresh();
        SBtnCommit->Enabled=!ReadOnly;
        CBDepartment->Visible=!ReadOnly;
        DBETNo->SetFocus();
}

void __fastcall TFormTeacher::SBtnModifyClick(TObject *Sender)
{
        ismodify=true;
        isadding=false;
        DataControlState(false);
        DM->ADOQTeacher->Edit();        
}
//---------------------------------------------------------------------------



void __fastcall TFormTeacher::CBDepartmentChange(TObject *Sender)
{
        DBETDName->Text=CBDepartment->Text;        
}
//---------------------------------------------------------------------------




void __fastcall TFormTeacher::FormCloseQuery(TObject *Sender,
      bool &CanClose)
{
/*        if(isadding)
        {
                TFormMsgBox *MsgBox=new TFormMsgBox(Application);
                MsgBox->MsgBox("提示","  正在添加资料，如果强行退出资料将丢失\n\n确定退出吗？！",MBOKCANCEL,MBINFORMATION);
                delete MsgBox;
                Abort();
        }
        else if(ismodify)
        {
                TFormMsgBox *MsgBox=new TFormMsgBox(Application);
                MsgBox->MsgBox("提示","  正在修改资料，请提交后退出！",MBOKONLY,MBINFORMATION);
                delete MsgBox;
                Abort();
        }
        else
        {*/
                DM->ADOQSalary->SQL->Clear();
                DM->ADOQSalary->SQL->Add("select * from salary order by stations desc");
                DM->ADOQSalary->Active=false;
                DM->ADOQTeacher->Active=false;
                DM->ADOQSalary->Active=false;
        //}
        
}
//---------------------------------------------------------------------------