根据主菜单生成脚本

原创 2006年06月02日 09:36:00

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, DB, ADODB;

type
  TForm1 = class(TForm)
    con1: TADOConnection;
    mm1: TMainMenu;
    N11: TMenuItem;
    N12: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N51: TMenuItem;
    N61: TMenuItem;
    N561: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    N81: TMenuItem;
    N91: TMenuItem;
    btn1: TButton;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure GetMenu(AIndex: string; Menu: TMenuItem);
    procedure SaveMenu(Index: string;Menu: TMenuItem);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.GetMenu(AIndex: string; Menu: TMenuItem);
var i: integer;
begin
  for i := 0 to Menu.Count - 1 do
  begin
    if Menu.Items[i].Count = 0 then
      SaveMenu(AIndex + IntToStr(i + 1) ,Menu.Items[i])
    else
      GetMenu(AIndex + IntToStr(i + 1),  Menu.Items[i]);
  end;
end;

procedure TForm1.SaveMenu(Index: string;Menu: TMenuItem);
begin
  mmo1.Lines.Add('Insert into ZDMenu (MENUID, MENUNAME, C_TAG) values (' + QuotedStr(Index) + ','
          + QuotedStr(Menu.Caption) + ',' + IntToStr(Menu.Tag) + ')');
end;

procedure TForm1.btn1Click(Sender: TObject);
var i: integer;
begin
  mmo1.Clear;
  for i := 0 to mm1.Items.Count - 1 do
  begin
     GetMenu(IntToStr(i + 1), mm1.Items[i]);
  end;
end;

end.

 

 

object Form1: TForm1
  Left = 309
  Top = 143
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mm1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object btn1: TButton
    Left = 32
    Top = 120
    Width = 75
    Height = 25
    Caption = 'btn1'
    TabOrder = 0
    OnClick = btn1Click
  end
  object mmo1: TMemo
    Left = 192
    Top = 24
    Width = 473
    Height = 377
    Lines.Strings = (
      'mmo1')
    TabOrder = 1
  end
  object con1: TADOConnection
    Left = 256
    Top = 224
  end
  object mm1: TMainMenu
    Left = 144
    Top = 72
    object N11: TMenuItem
      Caption = '1'
      object N12: TMenuItem
        Caption = '1'
      end
      object N31: TMenuItem
        Caption = '3'
      end
    end
    object N41: TMenuItem
      Caption = '4'
      object N51: TMenuItem
        Caption = '5'
      end
      object N61: TMenuItem
        Caption = '6'
      end
    end
    object N561: TMenuItem
      Caption = '56'
      object N71: TMenuItem
        Caption = '7'
      end
      object N72: TMenuItem
        Caption = '7'
        object N81: TMenuItem
          Caption = '8'
        end
        object N91: TMenuItem
          Caption = '9'
        end
      end
    end
  end
end

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

Unity_3D_主菜单制作

  • 2012-05-13 18:20
  • 793KB
  • 下载

UCINET软件使用简介——主菜单简介2

3.数据转换子菜单 (1)Block:把一个数据中的各个点进行分块,计算块密度     Collapse:压缩,即将一个矩阵的多行或多列组合在一起。 (2)Dichitimize:二值化处理...

喵星战争(九):游戏主菜单的实现

一个游戏,主菜单是一个必不可少的。游戏的界面制作相对于主游戏的制作来说要简单的,只需要把界面控件加入布景层中,然后设置按钮的回调函数就可以了。下面我就先附上其实现的主要代码: 在GameMenuSc...

ENVI主菜单中英文对照

关于android开发OptionsMenu例子及如何设置主菜单图标可见

//本文章绿色注解部分为设置主菜单可见内容,其余为菜单被点击的例子功能(增大字体,随机改变字体颜色)**************************************************...

MTK添加主菜单资源源码

  • 2010-02-25 13:01
  • 99KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)