百货/超市行业

开发平台：

C++ Builder

Right.dfm：源码内容

							object fmRightManage: TfmRightManage
  Left = 379
  Top = 122
  Width = 436
  Height = 271
  Caption = #26435#38480#31649#29702
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 248
    Top = 32
    Width = 28
    Height = 14
    Caption = #26435#38480
  end
  object Label2: TLabel
    Left = 24
    Top = 32
    Width = 28
    Height = 14
    Caption = #29992#25143
  end
  object CheckListBox1: TCheckListBox
    Left = 248
    Top = 48
    Width = 153
    Height = 177
    OnClickCheck = CheckListBox1ClickCheck
    ItemHeight = 14
    Items.Strings = (
      #21830#21697#36164#26009#32500#25252
      #20379#36135#21830#36164#26009#32500#25252
      #23458#25143#36164#26009#32500#25252
      #36827#36135#21333
      #38144#21806#21333
      #24211#23384#26597#35810
      #26435#38480#31649#29702)
    TabOrder = 0
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 48
    Width = 217
    Height = 177
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -14
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = #29992#25143#32534#21495
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = #37096#38376
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = #22995#21517
        Width = 47
        Visible = True
      end>
  end
  object Table1: TTable
    Active = True
    AfterScroll = Table1AfterScroll
    DatabaseName = 'db'
    TableName = 'dbo.'#29992#25143#28165#21333
    Left = 296
    Top = 8
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = Table1
    Left = 328
    Top = 8
  end
  object Query1: TQuery
    DatabaseName = 'db'
    Left = 368
    Top = 8
  end
end

						