fdepartment.cpp

来自「一套BCB６开发的电话管理系统」· C++ 代码 · 共 74 行

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

#include <vcl.h>
#pragma hdrstop

#include "FDepartment.h"
#include "TelSystemDM.h"
#include "DDeptInfo.h"
#include <functional>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFrmDepartment *FrmDepartment;
//---------------------------------------------------------------------------
__fastcall TFrmDepartment::TFrmDepartment( TIniFile *pMessageIniFile, TDMTelSys* pDMTelSys, TComponent* Owner)
        : pMsgIniFile( pMessageIniFile), pDMTelSys( pDMTelSys), TForm(Owner)
{
    DeptQuery->Open();
    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;
    if( pDMTelSys->UserRightQuery->Locate( "FormID", Variant( "FrmDepartment"), Options)) {
        if( pDMTelSys->UserRightQuery->FieldByName( "Write")->AsString == "No") {
            ModifyToolButton->Enabled = false;
            SaveToolButton->Enabled = false;
            GiveUpToolButton->Enabled = false;
            NewToolButton->Enabled = false;
            DeleteToolButton->Enabled = false;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmDepartment::NewToolButtonClick(TObject *Sender)
{
    String CompanyName;
    Department dept( pDMTelSys->TelSysADOConnection);

    DlgDeptInfo = new TDlgDeptInfo( true, CompanyName, dept, pDMTelSys, this);
    if( DlgDeptInfo->ShowModal() == mrOk) {
        NewDeptVec.push_back( dept);

        DeptQuery->Append();
        DeptQuery->FieldByName( "number")->AsString = dept.GetDeptNo();
        DeptQuery->FieldByName( "name")->AsString = dept.GetDeptName();
        DeptQuery->FieldByName( "gsname")->AsString = CompanyName;
        DeptQuery->Post();
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmDepartment::ModifyToolButtonClick(TObject *Sender)
{
    String CompanyName = DeptQuery->FieldByName( "gsname")->AsString;
    Department dept( pDMTelSys->TelSysADOConnection);
    dept.SetCompanyNo( DeptQuery->FieldByName( "gscode")->AsString);
    dept.SetDeptName(  DeptQuery->FieldByName( "name")->AsString);
    dept.SetDeptNo(  DeptQuery->FieldByName( "number")->AsString);

    DlgDeptInfo = new TDlgDeptInfo( false, CompanyName, dept, pDMTelSys, this);
    if( DlgDeptInfo->ShowModal() == mrOk) {
        ModifyDeptVec.push_back( dept);

        DeptQuery->Edit();
        DeptQuery->FieldByName( "number")->AsString = dept.GetDeptNo();
        DeptQuery->FieldByName( "name")->AsString = dept.GetDeptName();
        DeptQuery->FieldByName( "gsname")->AsString = CompanyName;
        DeptQuery->Post();
    }
}
//---------------------------------------------------------------------------
void __fastcall TFrmDepartment::DeleteToolButtonClick(TObject *Sender)
{
    String Default;
    String Title = pMsgIniFile->ReadString( "TelWarning", "Msg1", Default);
    String Message = pMsgIniFile->ReadString( "TelWarning", "Msg4", Default);//