📄 group.dfm
字号:
inherited frmGroup: TfrmGroup
Tag = 11900
Left = 287
Top = 65
Caption = '组属性'
ClientHeight = 469
ClientWidth = 466
OldCreateOrder = True
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object Label7: TLabel
Left = 8
Top = 128
Width = 24
Height = 12
Caption = '成员'
end
object Label8: TLabel
Left = 274
Top = 129
Width = 36
Height = 12
Caption = '非成员'
end
object Label3: TLabel
Left = 1
Top = 455
Width = 192
Height = 12
Caption = '不选--只读权限 选中--可修改权限'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object GroupBox1: TGroupBox
Left = 8
Top = 8
Width = 321
Height = 105
Caption = '组'
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 24
Width = 24
Height = 12
Caption = '组名'
end
object Label2: TLabel
Left = 16
Top = 52
Width = 24
Height = 12
Caption = '描述'
end
object Label4: TLabel
Left = 16
Top = 80
Width = 24
Height = 12
Caption = '职责'
end
object DBEdit1: TDBEdit
Left = 64
Top = 16
Width = 121
Height = 20
CharCase = ecUpperCase
DataField = 'ZBDM'
DataSource = frmUserList.dtsGroup
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 64
Top = 44
Width = 241
Height = 20
DataField = 'ZBMC'
DataSource = frmUserList.dtsGroup
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 64
Top = 72
Width = 241
Height = 20
DataField = 'ZZ'
DataSource = frmUserList.dtsGroup
TabOrder = 2
end
end
object ListBox1: TListBox
Left = 8
Top = 144
Width = 185
Height = 105
ItemHeight = 12
MultiSelect = True
PopupMenu = PopupMenu1
Sorted = True
TabOrder = 1
OnDblClick = BitBtn2Click
end
object ListBox2: TListBox
Left = 274
Top = 143
Width = 185
Height = 105
ItemHeight = 12
MultiSelect = True
PopupMenu = PopupMenu1
Sorted = True
TabOrder = 2
OnDblClick = BitBtn1Click
end
object BitBtn1: TBitBtn
Tag = 201
Left = 201
Top = 158
Width = 65
Height = 25
Caption = '<--添加'
TabOrder = 3
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Tag = 201
Left = 201
Top = 206
Width = 65
Height = 25
Caption = '删除-->'
TabOrder = 4
OnClick = BitBtn2Click
end
object BitBtn3: TBitBtn
Tag = 201
Left = 368
Top = 16
Width = 75
Height = 25
Caption = '确定'
TabOrder = 5
OnClick = BitBtn3Click
end
object BitBtn4: TBitBtn
Left = 368
Top = 48
Width = 75
Height = 25
Caption = '关闭'
TabOrder = 6
OnClick = BitBtn4Click
end
object BitBtn5: TBitBtn
Tag = 201
Left = 368
Top = 80
Width = 75
Height = 25
Caption = '新增'
TabOrder = 7
OnClick = BitBtn5Click
end
object BitBtn6: TBitBtn
Tag = 201
Left = 368
Top = 112
Width = 75
Height = 25
Caption = '删除'
TabOrder = 8
OnClick = BitBtn6Click
end
object PgCtl_mk: TPageControl
Left = 0
Top = 256
Width = 466
Height = 198
ActivePage = TabSheet7
TabOrder = 9
object TabSheet1: TTabSheet
Caption = '初始化'
object Label5: TLabel
Left = 11
Top = 2
Width = 48
Height = 12
Caption = '有权模块'
end
object Label6: TLabel
Left = 277
Top = 2
Width = 48
Height = 12
Caption = '无权模块'
end
object s_csh: TListBox
Left = 271
Top = 15
Width = 185
Height = 155
ItemHeight = 12
MultiSelect = True
PopupMenu = PopupMenu1
Sorted = True
TabOrder = 0
OnDblClick = BitBtn7Click
end
object BitBtn7: TBitBtn
Tag = 201
Left = 197
Top = 44
Width = 65
Height = 25
Caption = '<--添加'
TabOrder = 1
OnClick = BitBtn7Click
end
object BitBtn8: TBitBtn
Tag = 201
Left = 196
Top = 104
Width = 65
Height = 25
Caption = '删除-->'
TabOrder = 2
OnClick = BitBtn8Click
end
object d_csh: TCheckListBox
Left = 5
Top = 15
Width = 185
Height = 155
ItemHeight = 12
PopupMenu = PopupMenu1
TabOrder = 3
OnDblClick = BitBtn8Click
end
end
object TabSheet2: TTabSheet
Caption = '集邮票'
ImageIndex = 1
object Label9: TLabel
Left = 11
Top = 2
Width = 48
Height = 12
Caption = '有权模块'
end
object Label10: TLabel
Left = 277
Top = 2
Width = 48
Height = 12
Caption = '无权模块'
end
object s_jyp: TListBox
Left = 271
Top = 15
Width = 185
Height = 155
ItemHeight = 12
MultiSelect = True
PopupMenu = PopupMenu1
Sorted = True
TabOrder = 0
OnDblClick = BitBtn9Click
end
object BitBtn9: TBitBtn
Tag = 201
Left = 197
Top = 44
Width = 65
Height = 25
Caption = '<--添加'
TabOrder = 1
OnClick = BitBtn9Click
end
object BitBtn10: TBitBtn
Tag = 201
Left = 196
Top = 104
Width = 65
Height = 25
Caption = '删除-->'
TabOrder = 2
OnClick = BitBtn10Click
end
object d_jyp: TCheckListBox
Left = 5
Top = 15
Width = 185
Height = 155
ItemHeight = 12
PopupMenu = PopupMenu1
TabOrder = 3
OnDblClick = BitBtn10Click
end
end
object TabSheet3: TTabSheet
Caption = '零枚票'
ImageIndex = 2
object Label11: TLabel
Left = 11
Top = 2
Width = 48
Height = 12
Caption = '有权模块'
end
object Label12: TLabel
Left = 277
Top = 2
Width = 48
Height = 12
Caption = '无权模块'
end
object s_txp: TListBox
Left = 271
Top = 15
Width = 185
Height = 155
ItemHeight = 12
MultiSelect = True
PopupMenu = PopupMenu1
Sorted = True
TabOrder = 0
OnDblClick = BitBtn11Click
end
object BitBtn11: TBitBtn
Tag = 201
Left = 197
Top = 44
Width = 65
Height = 25
Caption = '<--添加'
TabOrder = 1
OnClick = BitBtn11Click
end
object BitBtn12: TBitBtn
Tag = 201
Left = 196
Top = 104
Width = 65
Height = 25
Caption = '删除-->'
TabOrder = 2
OnClick = BitBtn12Click
end
object d_txp: TCheckListBox
Left = 5
Top = 15
Width = 185
Height = 155
ItemHeight = 12
PopupMenu = PopupMenu1
TabOrder = 3
OnDblClick = BitBtn12Click
end
end
object TabSheet4: TTabSheet
Caption = '集邮品'
ImageIndex = 3
object Label13: TLabel
Left = 11
Top = 2
Width = 48
Height = 12
Caption = '有权模块'
end
object Label14: TLabel
Left = 277
Top = 2
Width = 48
Height = 12
Caption = '无权模块'
end
object s_yp: TListBox
Left = 271
Top = 15
Width = 185
Height = 155
ItemHeight = 12
MultiSelect = True
PopupMenu = PopupMenu1
Sorted = True
TabOrder = 0
OnDblClick = BitBtn13Click
end
object BitBtn13: TBitBtn
Tag = 201
Left = 197
Top = 44
Width = 65
Height = 25
Caption = '<--添加'
TabOrder = 1
OnClick = BitBtn13Click
end
object BitBtn14: TBitBtn
Tag = 201
Left = 196
Top = 104
Width = 65
Height = 25
Caption = '删除-->'
TabOrder = 2
OnClick = BitBtn14Click
end
object d_yp: TCheckListBox
Left = 5
Top = 15
Width = 185
Height = 155
ItemHeight = 12
PopupMenu = PopupMenu1
TabOrder = 3
OnDblClick = BitBtn14Click
end
end
object TabSheet5: TTabSheet
Caption = '购入票'
ImageIndex = 4
object Label15: TLabel
Left = 11
Top = 2
Width = 48
Height = 12
Caption = '有权模块'
end
object Label16: TLabel
Left = 277
Top = 2
Width = 48
Height = 12
Caption = '无权模块'
end
object s_grp: TListBox
Left = 271
Top = 15
Width = 185
Height = 155
ItemHeight = 12
MultiSelect = True
PopupMenu = PopupMenu1
Sorted = True
TabOrder = 0
OnDblClick = BitBtn15Click
end
object BitBtn15: TBitBtn
Tag = 201
Left = 197
Top = 44
Width = 65
Height = 25
Caption = '<--添加'
TabOrder = 1
OnClick = BitBtn15Click
end
object BitBtn16: TBitBtn
Tag = 201
Left = 196
Top = 104
Width = 65
Height = 25
Caption = '删除-->'
TabOrder = 2
OnClick = BitBtn16Click
end
object d_grp: TCheckListBox
Left = 5
Top = 15
Width = 185
Height = 155
ItemHeight = 12
PopupMenu = PopupMenu1
TabOrder = 3
OnDblClick = BitBtn16Click
end
end
object TabSheet6: TTabSheet
Caption = '库存'
ImageIndex = 5
object Label17: TLabel
Left = 11
Top = 2
Width = 48
Height = 12
Caption = '有权模块'
end
object Label18: TLabel
Left = 277
Top = 2
Width = 48
Height = 12
Caption = '无权模块'
end
object s_kc: TListBox
Left = 271
Top = 15
Width = 185
Height = 155
ItemHeight = 12
MultiSelect = True
PopupMenu = PopupMenu1
Sorted = True
TabOrder = 0
OnDblClick = BitBtn17Click
end
object BitBtn17: TBitBtn
Tag = 201
Left = 197
Top = 44
Width = 65
Height = 25
Caption = '<--添加'
TabOrder = 1
OnClick = BitBtn17Click
end
object BitBtn18: TBitBtn
Tag = 201
Left = 196
Top = 104
Width = 65
Height = 25
Caption = '删除-->'
TabOrder = 2
OnClick = BitBtn18Click
end
object d_kc: TCheckListBox
Left = 5
Top = 15
Width = 185
Height = 155
ItemHeight = 12
PopupMenu = PopupMenu1
TabOrder = 3
OnDblClick = BitBtn18Click
end
end
object TabSheet7: TTabSheet
Caption = '综合查询'
ImageIndex = 6
object Label19: TLabel
Left = 11
Top = 2
Width = 48
Height = 12
Caption = '有权模块'
end
object Label20: TLabel
Left = 277
Top = 2
Width = 48
Height = 12
Caption = '无权模块'
end
object d_zhcx: TCheckListBox
Left = 5
Top = 15
Width = 185
Height = 155
ItemHeight = 12
PopupMenu = PopupMenu1
TabOrder = 0
OnDblClick = BitBtn18Click
end
object BitBtn19: TBitBtn
Tag = 201
Left = 197
Top = 44
Width = 65
Height = 25
Caption = '<--添加'
TabOrder = 1
OnClick = BitBtn19Click
end
object BitBtn20: TBitBtn
Tag = 201
Left = 196
Top = 104
Width = 65
Height = 25
Caption = '删除-->'
TabOrder = 2
OnClick = BitBtn20Click
end
object s_zhcx: TListBox
Left = 271
Top = 15
Width = 185
Height = 155
ItemHeight = 12
MultiSelect = True
PopupMenu = PopupMenu1
Sorted = True
TabOrder = 3
OnDblClick = BitBtn17Click
end
end
end
object qrytemp: TQuery
DatabaseName = 'YZPP'
Left = 192
Top = 128
end
object PopupMenu1: TPopupMenu
Left = 132
Top = 343
object N1: TMenuItem
Caption = '全选'
ShortCut = 16449
OnClick = N1Click
end
object N2: TMenuItem
Caption = '全部不选'
OnClick = N2Click
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -