unit_main.dfm

delphi开发的中国移动大客户管理系统,后台数据库为oracle

inherited form_main: Tform_main
  Left = 82
  Top = 127
  Caption = 'form_main'
  Menu = MainMenu1
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Button1: TButton
    Left = 248
    Top = 72
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object CheckListBox1: TCheckListBox
    Left = 144
    Top = 200
    Width = 225
    Height = 129
    Columns = 2
    Flat = False
    ItemHeight = 14
    TabOrder = 1
  end
  object Button2: TButton
    Left = 256
    Top = 384
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 2
    OnClick = Button2Click
  end
  object DBGrid1: TDBGrid
    Left = 232
    Top = 136
    Width = 456
    Height = 120
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'JBMC'
        Width = 100
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JBDM'
        Width = 32
        Visible = True
      end>
  end
  object Button3: TButton
    Left = 440
    Top = 296
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 552
    Top = 280
    Width = 75
    Height = 25
    Caption = 'Button4'
    TabOrder = 5
  end
  object Button5: TButton
    Left = 472
    Top = 368
    Width = 75
    Height = 25
    Caption = 'Button5'
    TabOrder = 6
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 256
    Top = 24
    Width = 75
    Height = 25
    Caption = 'Button6'
    TabOrder = 7
    OnClick = Button6Click
  end
  object MainMenu1: TMainMenu
    Left = 120
    Top = 80
    object menu_custstructure_B: TMenuItem
      Caption = '菜单'
      object N2: TMenuItem
        Caption = '构成查询'
        OnClick = menu_custstructure_BClick
      end
      object menu_callcost_B: TMenuItem
        Caption = '帐单查询'
        OnClick = menu_callcost_BClick
      end
      object menu_payorcancel_B: TMenuItem
        Caption = '缴费销账查询'
        OnClick = menu_payorcancel_BClick
      end
      object menu_operationaccept_B: TMenuItem
        Caption = '业务受理查询'
        OnClick = menu_operationaccept_BClick
      end
      object menu_operationuse_B: TMenuItem
        Caption = '业务使用查询'
        OnClick = menu_operationuse_BClick
      end
      object N7: TMenuItem
        Caption = '通话清单查询'
      end
      object menu__arrearage_B: TMenuItem
        Caption = '欠费信息查询'
        OnClick = menu__arrearage_BClick
      end
      object menu_historyinfo_B: TMenuItem
        Caption = '历史资料查询'
        OnClick = menu_historyinfo_BClick
      end
      object menu_service: TMenuItem
        Caption = '服务查询'
        OnClick = menu_serviceClick
      end
      object menu_integral_B: TMenuItem
        Caption = '积分查询'
        OnClick = menu_integral_BClick
      end
      object N14: TMenuItem
        Caption = '托收查询'
      end
      object menu_birthday_B: TMenuItem
        Caption = '生日查询'
        OnClick = menu_birthday_BClick
      end
      object menu_appeal_B: TMenuItem
        Caption = '投诉查询'
        OnClick = menu_appeal_BClick
      end
      object menu_balance_B: TMenuItem
        Caption = '账户余额查询'
        OnClick = menu_balance_BClick
      end
      object N1: TMenuItem
        Caption = '星级排行'
        OnClick = N1Click
      end
    end
  end
  object Query1: TQuery
    BeforeOpen = Query1BeforeOpen
    AfterOpen = Query1AfterOpen
    DatabaseName = 'db_vip'
    SQL.Strings = (
      'select * from t_v_level')
    Left = 392
    Top = 48
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 488
    Top = 72
  end
  object query_tmp: TQuery
    Left = 440
    Top = 48
  end
end