telsystemdm.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "TelSystemDM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDMTelSys *DMTelSys;
//---------------------------------------------------------------------------
__fastcall TDMTelSys::TDMTelSys(TComponent* Owner)
        : TDataModule(Owner)
{
}
//---------------------------------------------------------------------------

String TDMTelSys::GetMemo( String ChkType, String ChkLocal, String ChkCall )
{
    String Result;
    int MaxLen;
    String ChkMemo,Memostr;
    bool ChkOk;

    MaxLen = 0;
    if( A_GetLocal->Active) {
        A_GetLocal->First();
    }
    else {
        A_GetLocal->Open();
    }

    if( A_TelType->Active) {
        A_TelType->First();
    }
    else {
        A_TelType->Open();
    }

    TLocateOptions Options;
    Options.Clear();
    Options << loPartialKey;
    Variant str[] = { ChkType, ChkLocal};
    if( A_GetLocal->Locate( "Type;Local_code",
                       VarArrayOf( str, 1), Options  ) == false) {
        if( A_TelType->Locate("Type;Local_code",
                     VarArrayOf( str, 1), Options)) {
            Result = A_TelTypeLOCATION->  Value + A_TelTypeAREA->Value;
        }
        else{
            switch( StrToInt(ChkType)){
            case 0: Result = "セ跋筿杠";  break;
            case 1: Result = "Ы