main.dfm

Delphi实战演练一书的配套光盘

object MainFrm: TMainFrm
  Left = 247
  Top = 98
  Width = 544
  Height = 375
  Caption = '凯新信息服务中心信息管理分系统'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 2
    Align = alTop
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 32
    Top = 88
    object N1: TMenuItem
      Caption = '数据维护'
      object N2: TMenuItem
        Caption = '汽车类信息'
        object N6: TMenuItem
          Caption = '二手汽车'
          OnClick = N6Click
        end
        object N7: TMenuItem
          Caption = '汽车市场'
        end
        object N8: TMenuItem
          Caption = '汽车加油站'
        end
        object N9: TMenuItem
          Caption = '汽车维修'
        end
        object N10: TMenuItem
          Caption = '汽车美容'
        end
        object N11: TMenuItem
          Caption = '汽车驾校'
        end
        object N31: TMenuItem
          Caption = '汽车租赁'
          OnClick = N31Click
        end
      end
      object N3: TMenuItem
        Caption = '房产类信息'
        object N12: TMenuItem
          Caption = '房屋租赁'
        end
        object N13: TMenuItem
          Caption = '写字楼租赁'
          OnClick = N13Click
        end
      end
      object N4: TMenuItem
        Caption = '人才类信息'
        object N14: TMenuItem
          Caption = '人才市场'
          OnClick = N14Click
        end
        object N15: TMenuItem
          Caption = '招聘信息'
          OnClick = N15Click
        end
        object N16: TMenuItem
          Caption = '求职信息'
        end
      end
      object N5: TMenuItem
        Caption = '公司内部信息'
        object N17: TMenuItem
          Caption = '人员情况'
        end
        object N18: TMenuItem
          Caption = '公司组织情况'
        end
      end
    end
    object N19: TMenuItem
      Caption = '数据查询'
      object N20: TMenuItem
        Caption = '汽车类信息'
        object N24: TMenuItem
          Caption = '二手汽车'
          OnClick = N24Click
        end
        object N25: TMenuItem
          Caption = '汽车市场'
        end
        object N26: TMenuItem
          Caption = '汽车加油站'
        end
        object N27: TMenuItem
          Caption = '汽车维修'
        end
        object N28: TMenuItem
          Caption = '汽车美容'
        end
        object N29: TMenuItem
          Caption = '汽车驾校'
        end
        object N30: TMenuItem
          Caption = '汽车租赁'
          OnClick = N30Click
        end
      end
      object N21: TMenuItem
        Caption = '房产类信息'
        object N32: TMenuItem
          Caption = '房屋租赁'
        end
        object N33: TMenuItem
          Caption = '写字楼租赁'
          OnClick = N33Click
        end
      end
      object N22: TMenuItem
        Caption = '人才类信息'
        object N34: TMenuItem
          Caption = '人才市场'
        end
        object N35: TMenuItem
          Caption = '招聘信息'
          OnClick = N35Click
        end
        object N36: TMenuItem
          Caption = '求职信息'
        end
      end
      object N23: TMenuItem
        Caption = '公司内部信息'
        object N37: TMenuItem
          Caption = '人员情况'
        end
        object N38: TMenuItem
          Caption = '公司组成情况'
        end
      end
    end
    object N39: TMenuItem
      Caption = '数据统计'
      object Web1: TMenuItem
        Caption = '各类信息Web访问人次统计'
        OnClick = Web1Click
      end
      object N40: TMenuItem
        Caption = '各类信息成交量统计'
      end
    end
    object N41: TMenuItem
      Caption = '数据打印'
      object N42: TMenuItem
        Caption = '汽车类信息打印'
        object N47: TMenuItem
          Caption = '二手汽车资料卡片'
          OnClick = N47Click
        end
        object N48: TMenuItem
          Caption = '汽车市场一览表'
          OnClick = N48Click
        end
        object N49: TMenuItem
          Caption = '汽车加油站一览表'
        end
        object N50: TMenuItem
          Caption = '汽车驾校一览表'
        end
        object N51: TMenuItem
          Caption = '汽车美容站一览表'
        end
        object N52: TMenuItem
          Caption = '汽车维修点一览表'
        end
        object N53: TMenuItem
          Caption = '汽车租赁点一览表'
        end
      end
      object N43: TMenuItem
        Caption = '房产类信息打印'
        object N54: TMenuItem
          Caption = '房屋租赁资料卡片'
        end
        object N55: TMenuItem
          Caption = '写字楼租赁资料卡片'
        end
      end
      object N44: TMenuItem
        Caption = '人才类信息打印'
        object N56: TMenuItem
          Caption = '人才市场一览表'
        end
        object N58: TMenuItem
          Caption = '招聘信息卡片'
        end
        object N57: TMenuItem
          Caption = '求职资料卡片'
        end
      end
      object N45: TMenuItem
        Caption = '公司内部信息打印'
        object N59: TMenuItem
          Caption = '公司人员卡片'
        end
        object N60: TMenuItem
          Caption = '公司组成一览表'
        end
      end
      object N46: TMenuItem
        Caption = '统计信息打印'
        object Web2: TMenuItem
          Caption = '各类信息Web访问人次统计图表'
          OnClick = Web2Click
        end
        object N61: TMenuItem
          Caption = '各类信息成交量统计图表'
        end
      end
    end
    object N62: TMenuItem
      Caption = '安全管理'
      object N63: TMenuItem
        Caption = '用户登录'
        OnClick = N63Click
      end
      object N64: TMenuItem
        Caption = '修改口令'
        OnClick = N64Click
      end
      object N65: TMenuItem
        Caption = '用户权限管理'
        OnClick = N65Click
      end
    end
    object N72: TMenuItem
      Caption = '数据备份'
      object N73: TMenuItem
        Caption = '数据备份'
      end
      object N74: TMenuItem
        Caption = '数据恢复'
      end
    end
    object N66: TMenuItem
      Caption = '帮助'
      object N67: TMenuItem
        Caption = '系统说明'
      end
      object N68: TMenuItem
        Caption = '操作指南'
      end
      object N69: TMenuItem
        Caption = '关于...'
      end
    end
    object N70: TMenuItem
      Caption = '退出'
      object N71: TMenuItem
        Caption = '退出'
        OnClick = N71Click
      end
    end
  end
  object Database1: TDatabase
    AliasName = 'xxxNet'
    Connected = True
    DatabaseName = 'xxx'
    LoginPrompt = False
    SessionName = 'Default'
    Left = 32
    Top = 128
  end
end