【VB开源代码栏目提醒】:网学会员在VB开源代码频道为大家收集整理了main_xtsz_qxsz.frm提供大家参考，希望对大家有所帮助!
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form main_xtsz_qxsz
BorderStyle = 3 'Fixed Dialog
Caption = "系统设置--【权限设置】"
ClientHeight = 6180
ClientLeft = 900
ClientTop = 795
ClientWidth = 9855
Icon = "main_xtsz_qxsz.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6180
ScaleWidth = 9855
ShowInTaskbar = 0 'False
StartUpPosition = 1 '所有者中心
Begin VB.Frame Frame1
Height = 6195
Left = 30
TabIndex = 0
Top = -30
Width = 9825
Begin VB.Frame Frame2
Caption = "Frame2"
Height = 1125
Left = -1680
TabIndex = 1
Top = 3000
Visible = 0 'False
Width = 2655
Begin VB.TextBox Text1
Height = 225
Left = 1995
TabIndex = 9
Top = 255
Width = 480
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 165
Top = 300
Width = 1905
_ExtentX = 3360
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Gcgl;Initial Catalog=Gcgl"
OLEDBString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Gcgl;Initial Catalog=Gcgl"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from qxsz"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc2
Height = 330
Left = 165
Top = 660
Width = 1905
_ExtentX = 3360
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Gcgl;Initial Catalog=Gcgl"
OLEDBString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=Gcgl;Initial Catalog=Gcgl"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "select * from qxsz"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
End
Begin MSDataListLib.DataList DataList1
Bindings = "main_xtsz_qxsz.frx":000C
Height = 5310
Left = 105
TabIndex = 13
Top = 345
Width = 1320
_ExtentX = 2328
_ExtentY = 9366
_Version = 393216
ListField = "操作员名称"
End
Begin VB.CommandButton Command3
Caption = "确定退出"
Height = 375
Left = 8085
TabIndex = 8
Top = 5745
Width = 1620
End
Begin VB.CommandButton Command2
Caption = "全不选"
Height = 375
Left = 6345
TabIndex = 7
Top = 5745
Width = 1620
End
Begin VB.CommandButton Command1
Caption = "全选"
Height = 375
Left = 4605
TabIndex = 6
Top = 5745
Width = 1620
End
Begin TabDlg.SSTab SSTab1
Height = 5535
Left = 1485
TabIndex = 2
Top = 180
Width = 8250
_ExtentX = 14552
_ExtentY = 9763
_Version = 393216
Tabs = 1
TabsPerRow = 1
TabHeight = 520
TabCaption(0) = "权限设置"
TabPicture(0) = "main_xtsz_qxsz.frx":0021
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame4"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame5"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Frame6"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Frame7"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Frame8"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Frame3"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Frame9"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).ControlCount= 7
Begin VB.Frame Frame9
Caption = "统计报表"
Height = 2595
Left = 270
TabIndex = 41
Top = 2880
Width = 2175
Begin VB.CheckBox Check1
Caption = "销售日报表"
Height = 315
Index = 18
Left = 210
TabIndex = 45
Top = 375
UseMaskColor = -1 'True
Width = 1380
End
Begin VB.CheckBox Check1
Ca
上一篇：
SampleObj.pas
下一篇：
哈弗F7 VS名爵HS，谁更懂得年轻人的心？
2013-9-1
