valid.cpp

电话银行菜单编辑器

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

#include <vcl.h>
#pragma hdrstop

#include "Valid.h"
#include "AValidF.h"
#include "TBMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
typedef struct VList
{
    char valid[32];
    char validmc[32];
} TVList;
typedef TVList* PVList;

TValidForm *ValidForm;
//---------------------------------------------------------------------------
__fastcall TValidForm::TValidForm(TComponent* Owner)
    : TForm(Owner)
{
    TListItem  *ListItem;
    PVList VStruct;
    try{
        Query1->Active=false;
        Query1->SQL->Clear();
        Query1->SQL->Add("select *  from  valid order by valid");
        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++)
        {
            VStruct = new TVList;
            strcpy(VStruct->valid,Query1->FieldByName("valid")->AsString.c_str ());
            strcpy(VStruct->validmc,Query1->FieldByName("validmc")->AsString.c_str ());
            ListItem = ListView1->Items->Add();
            ListItem->Caption = VStruct->valid;
            ListItem->SubItems->Add(VStruct->validmc);
            Query1->Next();
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TValidForm::ADDClick(TObject *Sender)
{
    TListItem  *ListItem;
    try
    {
         Application->CreateForm(__classid(TAddValidForm), &AddValidForm);
    }
    catch (Exception &exception)
    {
            Application->ShowException(&exception);
            return;
    }
    TAddValidForm   * newmenu = new TAddValidForm( this );
    newmenu->Caption     = "添加有效性检查函数";
    newmenu->ShowModal();
    if(newmenu->IsAdd  == true)
    {
        ListItem = ListView1->Items->Add();
        ListItem->Caption = newmenu->Edit1->Text;
        ListItem->SubItems->Add(newmenu->Edit2->Text);
        try{
            Query1->Active=false;
            Query1->SQL->Clear();
            Query1->SQL->Add("insert into valid (valid,validmc) values ('"+ newmenu->Edit1->Text + "','" + newmenu->Edit2->Text + "')");
            Query1->ExecSQL();
            }
        catch (EDatabaseError &e)
        {
            Application->MessageBox(e.Message.c_str(),"错误",MB_OK |MB_ICONERROR);
            return ;
        }
        MainForm->dxInspector3Row8->Items->Add(newmenu->Edit1->Text);
        MainForm->dxInspector3->Update();
        MainForm->dxInspector3->Repaint();
        MainForm->dxInspector3->Refresh();
    }
    delete  newmenu;
    AddValidForm->Destroying();
    AddValidForm->Release();
}
//---------------------------------------------------------------------------

void __fastcall TValidForm::DeleteClick(TObject *Sender)
{
    TListItem  *ListItem;
    ListItem=ListView1->Selected;
    if(ListItem!=NULL)
    {
        try{
            Query1->Active=false;
            Query1->SQL->Clear();
            Query1->SQL->Add("delete  from  valid where valid='"+ ListItem->Caption +"'");
            Query1->ExecSQL();
            }
        catch (EDatabaseError &e)
        {
            Application->MessageBox(e.Message.c_str(),"错误",MB_OK |MB_ICONERROR);
            return ;
        }
        int i=MainForm->dxInspector3Row8->Items->IndexOf(ListItem->Caption);
        if(i>=0)
        {
        MainForm->dxInspector3Row8->Items->Delete(i);
        MainForm->dxInspector3->Update();
        MainForm->dxInspector3->Repaint();
        MainForm->dxInspector3->Refresh();
        }
        ListItem->Delete();
    }
}
//---------------------------------------------------------------------------

void __fastcall TValidForm::ModefyClick(TObject *Sender)
{
    TListItem  *ListItem;
    ListItem=ListView1->Selected;
    if(ListItem!=NULL)
    {
        try
        {
         Application->CreateForm(__classid(TAddValidForm), &AddValidForm);
        }
        catch (Exception &exception)
        {
                Application->ShowException(&exception);
                return;
        }
        TAddValidForm   * newmenu = new TAddValidForm( 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  valid where valid='"+ 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 valid (valid,validmc) values ('"+ newmenu->Edit1->Text + "','" + newmenu->Edit2->Text + "')");
                Query1->ExecSQL();
                }
            catch (EDatabaseError &e)
                {
                    Application->MessageBox(e.Message.c_str(),"错误",MB_OK |MB_ICONERROR);
                    return;
                }
            int i=MainForm->dxInspector3Row8->Items->IndexOf(ListItem->Caption);
            if(i>=0)
            {
            MainForm->dxInspector3Row8->Items->Delete(i);
            }
            MainForm->dxInspector3Row8->Items->Add(newmenu->Edit1->Text);
            MainForm->dxInspector3->Update();
            MainForm->dxInspector3->Repaint();
            MainForm->dxInspector3->Refresh();                
            ListItem->Delete();
            ListItem = ListView1->Items->Add();
            ListItem->Caption = newmenu->Edit1->Text;
            ListItem->SubItems->Add(newmenu->Edit2->Text);

        }
        delete  newmenu;
        AddValidForm->Destroying();
        AddValidForm->Release();
    }
}
//---------------------------------------------------------------------------