xydm.cpp

电话银行菜单编辑器

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

#include <vcl.h>
#pragma hdrstop

#include "xydm.h"
#include "AXYDM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"

typedef struct XList
{
    char xydm[6];
    char dmsm[52];
    char yywj[22];
} TXList;
typedef TXList* PXList;

TXYDMForm *XYDMForm;
//---------------------------------------------------------------------------
__fastcall TXYDMForm::TXYDMForm(TComponent* Owner)
    : TForm(Owner)
{
    TListItem  *ListItem;
    PXList XStruct;
    try{
        Query1->Active=false;
        Query1->SQL->Clear();
        Query1->SQL->Add("select *  from  xydmb order by xydm");
        Query1->Active=true;
        }
    catch (EDatabaseError &e)
    {
        Application->MessageBox(e.Message.c_str(),"错误",MB_OK |MB_ICONERROR);
        return ;
    }
    if(0 < Query1->RecordCount)
    {
        ListView1->Items->Clear();
        for(int i=0;i<Query1->RecordCount;i++)
        {
            XStruct = new TXList;
            strcpy(XStruct->xydm,Query1->FieldByName("xydm")->AsString.c_str ());
            strcpy(XStruct->dmsm,Query1->FieldByName("dmsm")->AsString.c_str ());
            strcpy(XStruct->yywj,Query1->FieldByName("yywj")->AsString.c_str ());
            ListItem = ListView1->Items->Add();
            ListItem->Caption = XStruct->xydm;
            ListItem->SubItems->Add(XStruct->dmsm);
            ListItem->SubItems->Add(XStruct->yywj);            
            Query1->Next();
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TXYDMForm::ADDClick(TObject *Sender)
{
    TListItem  *ListItem;
    try
    {
         Application->CreateForm(__classid(TAXYDMForm), &AXYDMForm);
    }
    catch (Exception &exception)
    {
            Application->ShowException(&exception);
            return;
    }
    TAXYDMForm   * newmenu = new TAXYDMForm( this );
    newmenu->Caption     = "添加响应代码";
    newmenu->ShowModal();
    if(newmenu->IsAdd  == true)
    {
        ListItem = ListView1->Items->Add();
        ListItem->Caption = newmenu->Edit1->Text;
        ListItem->SubItems->Add(newmenu->Edit2->Text);
        ListItem->SubItems->Add(newmenu->Edit3->Text);
        try{
            Query1->Active=false;
            Query1->SQL->Clear();
            Query1->SQL->Add("insert into xydmb (xydm,dmsm,yywj) values ('"+ newmenu->Edit1->Text + "','" + newmenu->Edit2->Text + "','" + newmenu->Edit3->Text + "')");
            Query1->ExecSQL();
            }
        catch (EDatabaseError &e)
        {
            Application->MessageBox(e.Message.c_str(),"错误",MB_OK |MB_ICONERROR);
            return ;
        }
    }
    delete  newmenu;
    AXYDMForm->Destroying();
    AXYDMForm->Release();
}
//---------------------------------------------------------------------------
void __fastcall TXYDMForm::DeleteClick(TObject *Sender)
{
    TListItem  *ListItem;
    ListItem=ListView1->Selected;
    if(ListItem!=NULL)
    {
        try{
            Query1->Active=false;
            Query1->SQL->Clear();
            Query1->SQL->Add("delete  from  xydmb where xydm='"+ ListItem->Caption +"'");
            Query1->ExecSQL();
            }
        catch (EDatabaseError &e)
        {
            Application->MessageBox(e.Message.c_str(),"错误",MB_OK |MB_ICONERROR);
            return ;
        }
        ListItem->Delete();
    }
}
//---------------------------------------------------------------------------
void __fastcall TXYDMForm::N1Click(TObject *Sender)
{
    TListItem  *ListItem;
    ListItem=ListView1->Selected;
    if(ListItem!=NULL)
    {
        try
        {
         Application->CreateForm(__classid(TAXYDMForm), &AXYDMForm);
        }
        catch (Exception &exception)
        {
                Application->ShowException(&exception);
                return;
        }
        TAXYDMForm   * newmenu = new TAXYDMForm( this );
        newmenu->Caption     = "修改响应代码";
        newmenu->Edit1->Text=ListItem->Caption;
        newmenu->Edit2->Text=ListItem->SubItems->Strings[0];
        newmenu->Edit3->Text=ListItem->SubItems->Strings[1];

//newmenu->Edit2->Text=ListItem->->SubItems->GetText();
//newmenu->Edit2->Text=ListView1->Selected->SubItems->CommaText;
//newmenu->Edit2->Text=ListItem->SubItems->Names[1];
//newmenu->Edit2->Text=ListItem->SubItems->Values[1];
//newmenu->Edit3->Text=ListItem->SubItems->Text;

        newmenu->ShowModal();
        if(newmenu->IsAdd  == true)
        {
            try{
                Query1->Active=false;
                Query1->SQL->Clear();
                Query1->SQL->Add("delete  from  xydmb where xydm='"+ ListItem->Caption +"'");
                Query1->ExecSQL();
                }
            catch (EDatabaseError &e)
                {
                    Application->MessageBox(e.Message.c_str(),"错误",MB_OK |MB_ICONERROR);
                    return;
               }

            try{
                Query1->Active=false;
                Query1->SQL->Clear();
                Query1->SQL->Add("insert into xydmb (xydm,dmsm,yywj) values ('"+ newmenu->Edit1->Text + "','" + newmenu->Edit2->Text + "','" + newmenu->Edit3->Text + "')");
                Query1->ExecSQL();
                }
            catch (EDatabaseError &e)
                {
                    Application->MessageBox(e.Message.c_str(),"错误",MB_OK |MB_ICONERROR);
                    return;
                }


            ListItem->Delete();
            ListItem = ListView1->Items->Add();
            ListItem->Caption = newmenu->Edit1->Text;
            ListItem->SubItems->Add(newmenu->Edit2->Text);
            ListItem->SubItems->Add(newmenu->Edit3->Text);
        }
        delete  newmenu;
        AXYDMForm->Destroying();
        AXYDMForm->Release();
    }
}
//---------------------------------------------------------------------------