【VB开源代码栏目提醒】:网学会员--在 VB开源代码编辑为广大网友搜集整理了:B优先级设置.frm绩等信息,祝愿广大网友取得需要的信息,参考学习。
VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frmprioritySet
Caption = "优先级设置"
ClientHeight = 3420
ClientLeft = 60
ClientTop = 450
ClientWidth = 8160
LinkTopic = "Form1"
ScaleHeight = 3420
ScaleWidth = 8160
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Caption = "优先级设置"
Height = 3255
Index = 0
Left = 0
TabIndex = 0
Top = 0
Width = 7995
Begin VB.Frame Frame2
Caption = "优先级设置"
Height = 2895
Left = 4260
TabIndex = 2
Top = 180
Width = 3615
Begin VB.CommandButton CmdMove
BackColor = &H8000000B&
Caption = "最大"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 0
Left = 480
Style = 1 'Graphical
TabIndex = 10
Top = 2040
Width = 675
End
Begin VB.CommandButton CmdMove
BackColor = &H8000000B&
Caption = "上升"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 1
Left = 1200
Style = 1 'Graphical
TabIndex = 9
Top = 2040
Width = 675
End
Begin VB.CommandButton CmdMove
BackColor = &H8000000B&
Caption = "下降"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 2
Left = 1920
Style = 1 'Graphical
TabIndex = 8
Top = 2040
Width = 675
End
Begin VB.CommandButton CmdMove
BackColor = &H8000000B&
Caption = "最小"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 3
Left = 2640
Style = 1 'Graphical
TabIndex = 7
Top = 2040
Width = 675
End
Begin VB.OptionButton OptClass
Caption = "群组优先级"
Height = 255
Index = 0
Left = 120
TabIndex = 6
Top = 240
Value = -1 'True
Width = 1695
End
Begin VB.OptionButton OptClass
Caption = "联系人优先级"
Height = 255
Index = 1
Left = 120
TabIndex = 5
Top = 600
Width = 1455
End
Begin VB.CommandButton CmdExit
BackColor = &H8000000B&
Caption = "退出"
Height = 375
Left = 2400
Style = 1 'Graphical
TabIndex = 4
Top = 1020
Width = 735
End
Begin VB.ComboBox CboQuery
Height = 300
Left = 120
TabIndex = 3
Top = 1080
Width = 1575
End
End
Begin MSDataGridLib.DataGrid DataGrid1
Height = 2775
Left = 120
TabIndex = 1
Top = 240
Width = 3975
_ExtentX = 7011
_ExtentY = 4895
_Version = 393216
HeadLines = 1
RowHeight = 15
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "查询结果列表"
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
End
End
Attribute VB_Name = "frmprioritySet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs As ADODB.Recordset
Dim SQL As String
Dim msg As String
Dim Index As Integer
Dim DID As String '保存当前记录的ID
Dim CID As String '保存目的记录的ID
Dim DQuan As String '保存当前记录的权限
Dim CQuan As String '保存目的记录的权限
Dim colName As String '保存所选择的查询条件
Private Sub Form_Load()
Dim rst As ADODB.Recordset
'得到所需设置的优先级
If OptClass(0).Value = True Then '如果是要设置群组的优先级
colName =
上一篇:
CSDI_4View.cpp
下一篇:
山东省节能减排政府规制长效机制的构建策略