📄 frmviewclassbatchedit.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{809F5ECB-E545-4F7D-A8A8-CBFF5617AADC}#1.0#0"; "xCombox.ocx"
Object = "{7DE2015C-ABB4-4432-9634-EA5170D02672}#1.0#0"; "sTextBox.ocx"
Object = "{E11E7285-4386-40E5-A4D4-F55704D4D491}#1.0#0"; "sSuperGrid.ocx"
Object = "{060B05EA-F4F5-4255-9BFC-9295B6A89D11}#3.0#0"; "Sinour050715.ocx"
Object = "{811B8E4F-88E3-4162-88A6-CC4C86342FB1}#1.0#0"; "sDTPicker.ocx"
Begin VB.Form frmViewClassBatchEdit
Caption = "批量设定"
ClientHeight = 5640
ClientLeft = 60
ClientTop = 345
ClientWidth = 9045
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 5640
ScaleWidth = 9045
Begin VB.OptionButton optCover
Caption = "覆盖"
Height = 285
Left = 5580
TabIndex = 11
Top = 5175
Width = 780
End
Begin VB.OptionButton optAdd
Caption = "追加"
Height = 285
Left = 4680
TabIndex = 10
Top = 5175
Width = 780
End
Begin STEXTBOXLib.STextBox txt
Height = 300
Left = 270
TabIndex = 4
Top = 4995
Visible = 0 'False
Width = 1500
_Version = 65536
_ExtentX = 2646
_ExtentY = 529
_StockProps = 68
End
Begin XCOMBOXLib.XCombox cmbClass
Height = 300
Left = 300
TabIndex = 3
Top = 4650
Visible = 0 'False
Width = 1410
_Version = 65536
_ExtentX = 2487
_ExtentY = 300
_StockProps = 68
End
Begin XCOMBOXLib.XCombox cmbMonth
Height = 300
Left = 2070
TabIndex = 6
Top = 4635
Visible = 0 'False
Width = 1410
_Version = 65536
_ExtentX = 2487
_ExtentY = 300
_StockProps = 68
End
Begin XCOMBOXLib.XCombox cmbWeek
Height = 300
Left = 2070
TabIndex = 7
Top = 4275
Visible = 0 'False
Width = 1410
_Version = 65536
_ExtentX = 2487
_ExtentY = 300
_StockProps = 68
End
Begin SDTPICKERLib.SDTPicker dtpTime
Height = 300
Left = 2070
TabIndex = 8
Top = 4995
Visible = 0 'False
Width = 1410
_Version = 65536
_ExtentX = 2487
_ExtentY = 300
_StockProps = 68
End
Begin XCOMBOXLib.XCombox cmbTimeMode
Height = 300
Left = 2070
TabIndex = 9
Top = 3915
Visible = 0 'False
Width = 1410
_Version = 65536
_ExtentX = 2487
_ExtentY = 300
_StockProps = 68
End
Begin MSComctlLib.ListView lvwEmployee
Height = 4125
Left = 135
TabIndex = 5
Top = 330
Width = 1755
_ExtentX = 3096
_ExtentY = 7276
View = 2
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = -1 'True
Checkboxes = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin Sinour_Controls.sButton cmdClose
Height = 405
Left = 7740
TabIndex = 2
Top = 5100
Width = 1110
_ExtentX = 1958
_ExtentY = 714
BTYPE = 2
TX = "取消 "
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
FOCUSR = -1 'True
BCOL = 13160660
BCOLO = 13160660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "frmViewClassBatchEdit.frx":0000
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 0
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin Sinour_Controls.sButton cmdSave
Height = 405
Left = 6525
TabIndex = 1
Top = 5100
Width = 1110
_ExtentX = 1958
_ExtentY = 714
BTYPE = 2
TX = "保存 "
ENAB = -1 'True
BeginProperty FONT {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
COLTYPE = 1
FOCUSR = -1 'True
BCOL = 13160660
BCOLO = 13160660
FCOL = 0
FCOLO = 0
MCOL = 12632256
MPTR = 1
MICON = "frmViewClassBatchEdit.frx":001C
UMCOL = -1 'True
SOFT = 0 'False
PICPOS = 0
NGREY = 0 'False
FX = 0
HAND = 0 'False
CHECK = 0 'False
VALUE = 0 'False
End
Begin SSUPERGRIDLib.SSuperGrid Grid
Height = 2340
Left = 2205
TabIndex = 0
Top = 675
Width = 5475
_Version = 65536
_ExtentX = 9657
_ExtentY = 4128
_StockProps = 132
End
End
Attribute VB_Name = "frmViewClassBatchEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rstExec As New ADODB.Recordset
Dim rstGrid As New ADODB.Recordset
Public m_Changed As Boolean
Private Sub cmbClass_BtnsClick(ByVal nIndex As Integer)
If nIndex = 0 Then
rstClass.Requery
bufClass.DataSource = rstClass
cmbClass.DataSource = bufClass
End If
End Sub
Private Sub cmbTimeMode_Selected()
On Error Resume Next
If Trim(cmbTimeMode.Text) = "每周" Then
Grid.Col("BeginTime").EditType = ComboBox3
Grid.Col("EndTime").EditType = ComboBox3
If Weekday(Date) = 1 Then
rstGrid.Fields("BeginTime") = "7"
rstGrid.Fields("EndTime") = "7"
Else
rstGrid.Fields("BeginTime") = CStr(Weekday(Date) - 1)
rstGrid.Fields("EndTime") = CStr(Weekday(Date) - 1)
End If
ElseIf Trim(cmbTimeMode.Text) = "每月" Then
Grid.Col("BeginTime").EditType = ComboBox4
Grid.Col("EndTime").EditType = ComboBox4
rstGrid.Fields("BeginTime") = Day(Date)
rstGrid.Fields("EndTime") = Day(Date)
ElseIf Trim(cmbTimeMode.Text) = "每天" Then
Grid.Col("BeginTime").EditType = OtherHwnd
Grid.Col("EndTime").EditType = OtherHwnd
rstGrid.Fields("BeginTime") = ""
rstGrid.Fields("EndTime") = ""
End If
Grid.Refresh
End Sub
Private Sub cmdClose_Click()
m_Changed = False
Unload Me
End Sub
Private Sub Form_Load()
Me.Icon = MDI.Icon
If rstGrid.State = 1 Then rstGrid.Close
Set rstGrid = Nothing
rstGrid.CursorLocation = adUseClient
rstGrid.Open "select * from setclass where dataid=0", con, adOpenStatic, adLockBatchOptimistic
'--------------lvwEmployee--------------------------
'OpenSQL rstEmployee, "select * from Employee"
Dim i As Integer
rstEmployee.Requery
If rstEmployee.RecordCount > 0 Then
rstEmployee.MoveFirst
For i = 1 To rstEmployee.RecordCount
lvwEmployee.ListItems.Add , CStr(rstEmployee.Fields("EmployeeID")) & "_", rstEmployee.Fields("Name")
If rstEmployee.Fields("ClassFlag") = True Then lvwEmployee.ListItems.Item(i).ForeColor = &HFF&
rstEmployee.MoveNext
Next
End If
'---------------ClassName----------------------------
'OpenSQL rstClass, "select * from Class"
cmbClass.ShowHeadScale = "0,20"
cmbClass.ShowHeadValue = "ClassID,名称"
cmbClass.ShowIndex = 1
cmbClass.Type = tStatic
cmbClass.SetBtns "刷新"
cmbClass.ButtonHeight = 20
cmbClass.DropWidth = cmbClass.Width \ 15
cmbClass.DataSource = bufClass
cmbTimeMode.ShowHeadScale = "0,20"
cmbTimeMode.ShowHeadValue = "DataID,时间模式"
cmbTimeMode.ShowIndex = 1
cmbTimeMode.Type = tNormal
cmbTimeMode.DropWidth = cmbTimeMode.Width \ 15
cmbTimeMode.AddString "每天" + vbLf
cmbTimeMode.AddString "每周" + vbLf
' cmbTimeMode.SetItemData 0, 0
cmbTimeMode.AddString "每月" + vbLf
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -