selectjb.cpp

电话银行菜单编辑器

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

#include <vcl.h>
#pragma hdrstop

#include "SelectJB.h"
#include "TBMain.h"
#include "SJBM.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
typedef struct SList
{
    char sjbm[12];
    char sjmc[32];
} TSList;
typedef TSList* PSList;

TESelectJB *ESelectJB;
AnsiString  string1,string2;

//---------------------------------------------------------------------------
__fastcall TESelectJB::TESelectJB(TComponent* Owner)
    : TForm(Owner)
{
    TListItem  *ListItem;
    PSList SStruct;
    try{
        Query1->Active=false;
        Query1->SQL->Clear();
        Query1->SQL->Add("select *  from  jbjg order by sjbm");
        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++)
        {
            SStruct = new TSList;
            strcpy(SStruct->sjbm,Query1->FieldByName("sjbm")->AsString.c_str ());
            strcpy(SStruct->sjmc,Query1->FieldByName("sjmc")->AsString.c_str ());
            ListItem = ListView1->Items->Add();
            ListItem->Caption = SStruct->sjbm;
            ListItem->SubItems->Add(SStruct->sjmc);
            Query1->Next();
        }
    }

}
//---------------------------------------------------------------------------
void __fastcall TESelectJB::ADDClick(TObject *Sender)
{
    TListItem  *ListItem;
    try
    {
         Application->CreateForm(__classid(TSJBMForm), &SJBMForm);
    }
    catch (Exception &exception)
    {
            Application->ShowException(&exception);
            return;
    }
    TSJBMForm   * newmenu = new TSJBMForm( this );
    newmenu->Caption     = "添加数据编码";
    newmenu->ShowModal();
    if(newmenu->IsAdd  == true)
    {
        try{
            Query1->Active=false;
            Query1->SQL->Clear();
            Query1->SQL->Add("insert into jbjg (sjbm,sjmc) values ('"+ newmenu->Edit1->Text + "','" + newmenu->Edit2->Text + "')");
            Query1->ExecSQL();
            }
        catch (EDatabaseError &e)
        {
            Application->MessageBox(e.Message.c_str(),"错误",MB_OK |MB_ICONERROR);
            return;
        }
        ListItem = ListView1->Items->Add();
        ListItem->Caption = newmenu->Edit1->Text;
        ListItem->SubItems->Add(newmenu->Edit2->Text);
    }
    delete  newmenu;
    SJBMForm->Destroying();
    SJBMForm->Release();
}
//---------------------------------------------------------------------------

void __fastcall TESelectJB::DeleteClick(TObject *Sender)
{
    TListItem  *ListItem;
    ListItem=ListView1->Selected;
    if(ListItem!=NULL)
    {
        try{
            Query1->Active=false;
            Query1->SQL->Clear();
            Query1->SQL->Add("delete  from  jbjg where sjbm='"+ ListItem->Caption +"'");
            Query1->ExecSQL();
            }
        catch (EDatabaseError &e)
        {
            Application->MessageBox(e.Message.c_str(),"错误",MB_OK |MB_ICONERROR);
            return ;
        }
        ListItem->Delete();
    }
}
//---------------------------------------------------------------------------
void __fastcall TESelectJB::ModefyClick(TObject *Sender)
{
    TListItem  *ListItem;
    ListItem=ListView1->Selected;
    if(ListItem!=NULL)
    {
        try
        {
             Application->CreateForm(__classid(TSJBMForm), &SJBMForm);
        }
        catch (Exception &exception)
        {
                Application->ShowException(&exception);
                return;
        }
        TSJBMForm   * newmenu = new TSJBMForm( this );
        newmenu->Caption     = "修改数据编码";
        newmenu->Edit1->Text=ListItem->Caption;
        newmenu->Edit2->Text=ListItem->SubItems->Text;        
        newmenu->ShowModal();
        if(newmenu->IsAdd  == true)
        {
            try{
                Query1->Active=false;
                Query1->SQL->Clear();
                Query1->SQL->Add("delete  from  jbjg where sjbm='"+ 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 jbjg (sjbm,sjmc) values ('"+ newmenu->Edit1->Text + "','" + newmenu->Edit2->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);
        }
        delete  newmenu;
        SJBMForm->Destroying();
        SJBMForm->Release();
    }
}
//---------------------------------------------------------------------------

void __fastcall TESelectJB::ChooseClick(TObject *Sender)
{
/*    TListItem  *ListItem;
    ListItem=ListView1->Selected;
    if(ListItem!=NULL)
    {
        MainForm->IsSelect =true;
        Close();
    }
*/
}
//---------------------------------------------------------------------------

void __fastcall TESelectJB::ListView1DblClick(TObject *Sender)
{
if(MainForm->JBFlag==true)
{
    TListItem  *ListItem;
    ListItem=ListView1->Selected;
    if(ListItem!=NULL)
    {
        MainForm->IsSelect =true;
        Close();
    }
}
}
//---------------------------------------------------------------------------