unit113.dfm

只要是汽车销售管理信息系统的Delphi控件源码

object Form113: TForm113
  Left = 322
  Top = 173
  ActiveControl = FlatCheckBox19
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsNone
  Caption = '用户管理---设置用户权限'
  ClientHeight = 233
  ClientWidth = 510
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000010000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000077
    7777000000000000000000000000777777777777777700000000000000000000
    00000077777777700000000000000000FFFF77DDDDD777777000000000000FFF
    FFFF777DDDDDDD7777700000000000000000077DDDDDDDDDD777700000000000
    0000000777DDDDDDDDD77700000000000000000000777D777DD7777000000000
    000000000000077F777777770000007770000000000000007777787770000799
    9700000000000000777778C7770009999700000000000000007888CC77700F99
    98700000000000000007CCCCC77000FF9770000000000000000077CCCC777000
    0777000000000000000008CCCC77970000F9700000000000000078FCCCC79970
    707997700000000000007877FCC7F997979999977700000000078777FCC70F99
    9999999998877777777A88877FC700099999999987788887B7AAAAAA77C00009
    999999998877777BB7AAAAAAA7C0779999999999887777BBB7777AAAACC09999
    9999999988777777BBB7777AAC000099999999999877777BBBBB7777AA000000
    99999999987777BBBBBBB77AA0000000009999999877777BBBBBBAA000000000
    0000999998877777BB77F00000000000000000099887777777F000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFC0FFFFFF0000FFFFFFC01FFFF00007FF8000
    01FFFF80007FFFE0003FFFFC001FFFFF800FC7FFF00783FFF00383FFFC0181FF
    FE01C1FFFF0078FFFF803C7FFF00141FFF000003FE0080000000E0000001E000
    00010000000100000003C0000003F0000007FC00001FFF00007FFFE001FF}
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 510
    Height = 233
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '楷体_GB2312'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 48
      Height = 16
      Caption = '方式：'
    end
    object Label2: TLabel
      Left = 208
      Top = 16
      Width = 40
      Height = 16
      Caption = '类型:'
    end
    object epEfTrBtn1: TepEfTrBtn
      Left = 368
      Top = 16
      Width = 65
      Height = 25
      Transparent = True
      ActiveTextColor = clBackground
      OnClick = epEfTrBtn1Click
      Spacing = 0
      Noise = False
      FrameWidth = 2
      Caption = '保存'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object epEfTrBtn2: TepEfTrBtn
      Left = 438
      Top = 16
      Width = 65
      Height = 25
      Transparent = True
      ActiveTextColor = clBackground
      OnClick = epEfTrBtn2Click
      Spacing = 0
      Noise = False
      FrameWidth = 2
      Caption = '关闭'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object epEfButton1: TepEfButton
      Left = 432
      Top = 240
      Width = 65
      Height = 25
      Transparent = False
      ActiveTextColor = clBlue
      OnClick = epEfButton1Click
      Spacing = 0
      EfCaption = False
      BtnFrameWidth = 3
      BtnColor = clBtnFace
      FrameWidth = 2
      Caption = '首条'
    end
    object epEfButton2: TepEfButton
      Left = 432
      Top = 272
      Width = 65
      Height = 25
      Transparent = False
      ActiveTextColor = clBlue
      OnClick = epEfButton2Click
      Spacing = 0
      EfCaption = False
      BtnFrameWidth = 3
      BtnColor = clBtnFace
      FrameWidth = 2
      Caption = '上一条'
    end
    object epEfButton3: TepEfButton
      Left = 432
      Top = 304
      Width = 65
      Height = 25
      Transparent = False
      ActiveTextColor = clBlue
      OnClick = epEfButton3Click
      Spacing = 0
      EfCaption = False
      BtnFrameWidth = 3
      BtnColor = clBtnFace
      FrameWidth = 2
      Caption = '下一条'
    end
    object epEfButton4: TepEfButton
      Left = 432
      Top = 336
      Width = 65
      Height = 25
      Transparent = False
      ActiveTextColor = clBlue
      OnClick = epEfButton4Click
      Spacing = 0
      EfCaption = False
      BtnFrameWidth = 3
      BtnColor = clBtnFace
      FrameWidth = 2
      Caption = '尾条'
    end
    object GroupBox2: TGroupBox
      Left = 8
      Top = 40
      Width = 495
      Height = 185
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = '楷体_GB2312'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      object Label3: TLabel
        Left = 8
        Top = 16
        Width = 64
        Height = 16
        Caption = '系统管理'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 96
        Top = 16
        Width = 64
        Height = 16
        Caption = '库存管理'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 184
        Top = 16
        Width = 64
        Height = 16
        Caption = '销售管理'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 272
        Top = 16
        Width = 64
        Height = 16
        Caption = '查询统计'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 360
        Top = 16
        Width = 64
        Height = 16
        Caption = '基本资料'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 440
        Top = 16
        Width = 32
        Height = 16
        Caption = '帮助'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
      end
      object f11: TFlatCheckBox
        Left = 8
        Top = 40
        Width = 81
        Height = 17
        Caption = '用户信息'
        TabOrder = 0
        TabStop = True
      end
      object f12: TFlatCheckBox
        Left = 8
        Top = 64
        Width = 81
        Height = 17
        Caption = '密码更改'
        TabOrder = 1
        TabStop = True
      end
      object f13: TFlatCheckBox
        Left = 8
        Top = 88
        Width = 89
        Height = 17
        Caption = '权限设置'
        TabOrder = 2
        TabStop = True
      end
      object f21: TFlatCheckBox
        Left = 8
        Top = 112
        Width = 89
        Height = 17
        Caption = '数据优化'
        TabOrder = 3
        TabStop = True
      end
      object f22: TFlatCheckBox
        Left = 8
        Top = 136
        Width = 89
        Height = 17
        Caption = '数据备份'
        TabOrder = 4
        TabStop = True
      end
      object f23: TFlatCheckBox
        Left = 8
        Top = 160
        Width = 89
        Height = 17
        Caption = '数据还原'
        TabOrder = 5
        TabStop = True
      end
      object d1: TFlatCheckBox
        Left = 96
        Top = 40
        Width = 65
        Height = 17
        Caption = '入库'
        TabOrder = 6
        TabStop = True
      end
      object d2: TFlatCheckBox
        Left = 96
        Top = 64
        Width = 57
        Height = 17
        Caption = '库存'
        TabOrder = 7
        TabStop = True
      end
      object s1: TFlatCheckBox
        Left = 184
        Top = 40
        Width = 81
        Height = 17
        Caption = '车辆销售'
        TabOrder = 8
        TabStop = True
      end
      object s2: TFlatCheckBox
        Left = 184
        Top = 64
        Width = 81
        Height = 17
        Caption = '销售利润'
        TabOrder = 9
        TabStop = True
      end
      object g1: TFlatCheckBox
        Left = 272
        Top = 40
        Width = 65
        Height = 17
        Caption = '查询'
        TabOrder = 10
        TabStop = True
      end
      object g2: TFlatCheckBox
        Left = 272
        Top = 64
        Width = 81
        Height = 17
        Caption = '统计'
        TabOrder = 11
        TabStop = True
      end
      object i1: TFlatCheckBox
        Left = 360
        Top = 40
        Width = 49
        Height = 17
        Caption = '车型'
        TabOrder = 12
        TabStop = True
      end
      object i2: TFlatCheckBox
        Left = 360
        Top = 64
        Width = 49
        Height = 17
        Caption = '颜色'
        TabOrder = 13
        TabStop = True
      end
      object i3: TFlatCheckBox
        Left = 360
        Top = 88
        Width = 89
        Height = 17
        Caption = '车辆来源'
        TabOrder = 14
        TabStop = True
      end
      object i4: TFlatCheckBox
        Left = 360
        Top = 112
        Width = 89
        Height = 17
        Caption = '用户类型'
        TabOrder = 15
        TabStop = True
      end
      object h1: TFlatCheckBox
        Left = 440
        Top = 40
        Width = 49
        Height = 17
        Caption = '帮助'
        TabOrder = 16
        TabStop = True
      end
      object h2: TFlatCheckBox
        Left = 440
        Top = 64
        Width = 49
        Height = 17
        Caption = '关于'
        TabOrder = 17
        TabStop = True
      end
      object FlatCheckBox19: TFlatCheckBox
        Left = 400
        Top = 152
        Width = 89
        Height = 25
        Caption = '全部选择'
        Font.Charset = GB2312_CHARSET
        Font.Color = clFuchsia
        Font.Height = -16
        Font.Name = '楷体_GB2312'
        Font.Style = []
        ParentFont = False
        TabOrder = 18
        TabStop = True
        OnClick = FlatCheckBox19Click
      end
    end
    object FlatComboBox1: TFlatComboBox
      Left = 48
      Top = 16
      Width = 153
      Height = 24
      Style = csDropDownList
      Color = clWindow
      ItemHeight = 16
      Items.Strings = (
        '请选择设置方式'
        '按用户类型设置'
        '按用户单独设置')
      TabOrder = 1
      ItemIndex = -1
      OnChange = FlatComboBox1Change
      OnKeyDown = FormKeyDown
    end
    object FlatComboBox2: TFlatComboBox
      Left = 248
      Top = 16
      Width = 105
      Height = 24
      Color = clWindow
      ItemHeight = 16
      TabOrder = 2
      ItemIndex = -1
      OnEnter = FlatComboBox2Enter
      OnKeyDown = FormKeyDown
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 232
      Width = 409
      Height = 137
      DataSource = Data.usesDataSource
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -16
      TitleFont.Name = '楷体_GB2312'
      TitleFont.Style = []
      OnKeyDown = FormKeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'useno'
          Title.Caption = '编号'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'usename'
          Title.Caption = '用户名'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'usetype'
          Title.Caption = '用户类型'
          Visible = True
        end>
    end
  end
end