再问关于活动的菜单 （高分）解决方法

再问关于活动的菜单 （高分）
主菜单上只有一项叫“基本信息维护”
数据库中有两个表分别叫“社区名称管理”和“小组管理”
社区名称管理表结构如下(该表初始为空表)
编号（主键唯一）         办事处名称
小组管理表结构如下（该表初始为空表）
编号                                 办事处名称           名称

以下是我要问的
1、当我向“社区名称管理中”中成功提交一条数据后，比如是“01     上海办事处”
主菜单“基本信息维护”中就出现了一个下拉菜单名称叫“上海办事处”   并且这个下拉菜单我能对他相应的事件进行处理     比如写双击事件，单击事件     离开事件等等   请问如何实现？
2、当我向“小组管理表”中成功提交一条数据后   比如是“01     上海办事处     浦东村”
基本信息维护--〉上海办事处     中就会出现了一个子菜单（上海办事处的下一级子菜单）   叫“浦东村”   并且也能对“浦东村”这一子菜单的相应事件进行处理，请问如何实现？  
特别声明：当我关闭程序，然后打开程序后，活动的菜单并不会自动消失，而是永久的保留下来，直到表中的相关信息删除为止
呵呵，不知道大家听明白没有

[解决办法]
void __fastcall TForm1::Button1Click(TObject *Sender)

{
TIniFile *pMyIniFile = new TIniFile( "c:\\MyApp\\bin\\MyApp.ini ");
Memo1-> Clear();
pMyIniFile-> ReadSectionValues( "Transfer ", Memo1-> Lines);
if (Memo1-> Lines-> Values[ "Title1 "] != "Picture Painter ")
pMyIniFile-> WriteString( "Transfer ", "Title1 ", "Picture Painter ");
delete pMyIniFile;
}

void __fastcall TForm1::Button2Click(TObject *Sender)

{
TIniFile *pMyIniFile = new TIniFile( "c:\\MyApp\\bin\\MyApp.ini ");

if (Memo1-> Lines-> Values[ "Title1 "] == " ")
pMyIniFile-> DeleteKey( "Transfer ", "Title1 ");

else
pMyIniFile-> WriteString( "Transfer ", "Title1 ", Memo1-> Lines-> Values[ "Title1 "]);
delete pMyIniFile;
}

这个是BCB带的例子 ReadSectionValues是读 WriteString是写
[解决办法]
ini文件的使用

//-------------------------------------------------------
#include
#pragma hdrstop

#include "Unit1.h "
#include "inifiles.hpp " //要 include 這個東西才有 TIniFile 類別
//-------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm "
TForm1 *Form1;
TIniFile *MyIni;
//-------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//-------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//建立 ini 物件及實體存放路徑
MyIni = new TIniFile(ChangeFileExt( Application-> ExeName, ".ini " ) );

//讀取變數(若變數值不存在則用自動使用 Default 值)
Left=MyIni-> ReadInteger( "Form ", "Left ",100);
Caption=MyIni-> ReadString( "Form ", "Caption ", "Default Caption ");
}
//-------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
//將變數寫入 ini 物件
MyIni-> WriteInteger( "Form ", "Left ",Left);
MyIni-> WriteString( "Form ", "Caption ",Caption);

// 釋放 ini 物件
delete MyIni;
}