pubinfo.cpp

电话银行菜单编辑器

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

#include <vcl.h>
#pragma hdrstop

#include "pubinfo.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TPubForm *PubForm;
//---------------------------------------------------------------------------
__fastcall TPubForm::TPubForm(TComponent* Owner)
    : TForm(Owner)
{
//    Edit1->SetFocus();
    BitBtn1->Enabled=false;
    try{
        Query1->Active=false;
        Query1->SQL->Clear();
        Query1->SQL->Add("select *  from  pubinfo ");
        Query1->Active=true;
        }
    catch (EDatabaseError &e)
    {
        Application->MessageBox(e.Message.c_str(),"错误",MB_OK |MB_ICONERROR);
        return ;
    }
    if(0 < Query1->RecordCount)
    {
            Edit1->Text=Query1->FieldByName("hsjg")->AsString.c_str();
            Edit2->Text=Query1->FieldByName("fsjg")->AsString.c_str();
            Edit3->Text=Query1->FieldByName("czy")->AsString.c_str();
            Edit4->Text=Query1->FieldByName("jytjz")->AsString.c_str();
            Edit5->Text=Query1->FieldByName("jyqd")->AsString.c_str();
    }

}
//---------------------------------------------------------------------------
void __fastcall TPubForm::Edit1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if (Key == '\r')
    {
        Key = 0;
       SelectNext(ActiveControl, true, true);
    }
    else if (BitBtn1->Enabled==false)
    {
        BitBtn1->Enabled=true;
    }

}
//---------------------------------------------------------------------------

void __fastcall TPubForm::BitBtn1Click(TObject *Sender)
{
    AnsiString string1;
    try{
        Query1->Active=false;
        Query1->SQL->Clear();
        Query1->SQL->Add("delete * from pubinfo ");
        Query1->ExecSQL();
        }
    catch (EDatabaseError &e)
    {
        Application->MessageBox(e.Message.c_str(),"错误",MB_OK |MB_ICONERROR);
        return;
    }
    string1="'" + Edit1->Text + "','"
                + Edit2->Text + "','"
                + Edit3->Text + "','"
                + Edit4->Text + "','"
                + Edit5->Text + "'";
    try{
        Query1->Active=false;
        Query1->SQL->Clear();
        Query1->SQL->Add("insert into pubinfo (hsjg,fsjg,czy,jytjz,jyqd) values ("+ string1 + ")" );
        Query1->ExecSQL();
        }
    catch (EDatabaseError &e)
    {
        Application->MessageBox(e.Message.c_str(),"错误",MB_OK |MB_ICONERROR);
        return;
    }
        Application->MessageBox("公共信息修改成功!","成功",MB_OK );
    BitBtn1->Enabled=false;
}
//---------------------------------------------------------------------------