📄 main_jbzl_pxkc.frm
字号:
BorderStyle = 1
End
Begin VB.Frame Frame1
Height = 2055
Left = 15
TabIndex = 0
Top = 765
Width = 8175
Begin MSComCtl2.DTPicker DTPicker2
Height = 330
Left = 5040
TabIndex = 23
Top = 1635
Width = 3060
_ExtentX = 5398
_ExtentY = 582
_Version = 393216
Format = 48365569
CurrentDate = 38695
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 330
Left = 1050
TabIndex = 21
Top = 1620
Width = 3060
_ExtentX = 5398
_ExtentY = 582
_Version = 393216
Format = 48365569
CurrentDate = 38695
End
Begin VB.CheckBox Check1
Caption = "是"
Height = 180
Left = 1080
TabIndex = 18
Top = 1335
Width = 480
End
Begin VB.ComboBox Combo2
Height = 300
Left = 5325
TabIndex = 16
Top = 930
Width = 2775
End
Begin VB.ComboBox Combo1
Height = 300
Left = 5325
TabIndex = 14
Top = 555
Width = 2775
End
Begin VB.TextBox Text1
Height = 330
Index = 4
Left = 2340
Locked = -1 'True
TabIndex = 11
Top = 1245
Width = 2055
End
Begin VB.TextBox Text1
Height = 330
Index = 5
Left = 5325
Locked = -1 'True
TabIndex = 10
Top = 1260
Width = 2775
End
Begin VB.TextBox Text1
Height = 330
Index = 3
Left = 915
Locked = -1 'True
TabIndex = 7
Top = 885
Width = 3480
End
Begin VB.TextBox Text1
Height = 330
Index = 2
Left = 915
Locked = -1 'True
TabIndex = 6
Top = 525
Width = 3480
End
Begin VB.TextBox Text1
Height = 330
Index = 1
Left = 3300
Locked = -1 'True
TabIndex = 3
Top = 150
Width = 4815
End
Begin VB.TextBox Text1
Height = 330
Index = 0
Left = 915
Locked = -1 'True
TabIndex = 2
Top = 150
Width = 1530
End
Begin VB.Label Label11
Caption = "结束时间"
Height = 195
Left = 4230
TabIndex = 22
Top = 1710
Width = 765
End
Begin VB.Label Label10
Caption = "开课时间"
Height = 195
Left = 165
TabIndex = 20
Top = 1695
Width = 765
End
Begin VB.Label Label9
Caption = "费用"
Height = 165
Left = 4860
TabIndex = 19
Top = 1365
Width = 360
End
Begin VB.Label Label8
Caption = "是否认证"
Height = 225
Left = 120
TabIndex = 17
Top = 1335
Width = 795
End
Begin VB.Label Label7
Caption = "授课方式"
Height = 165
Left = 4485
TabIndex = 15
Top = 960
Width = 735
End
Begin VB.Label Label6
Caption = "授课对象"
Height = 165
Left = 120
TabIndex = 13
Top = 990
Width = 750
End
Begin VB.Label Label5
Caption = "时数"
Height = 165
Left = 1890
TabIndex = 12
Top = 1350
Width = 465
End
Begin VB.Label Label4
Caption = "主办单位"
Height = 165
Left = 105
TabIndex = 9
Top = 600
Width = 795
End
Begin VB.Label Label3
Caption = "培训方式"
Height = 165
Left = 4515
TabIndex = 8
Top = 585
Width = 735
End
Begin VB.Label Label2
Caption = "课程名称"
ForeColor = &H000000FF&
Height = 165
Left = 2520
TabIndex = 5
Top = 225
Width = 975
End
Begin VB.Label Label1
Caption = "课程编号"
ForeColor = &H000000FF&
Height = 165
Left = 120
TabIndex = 1
Top = 240
Width = 945
End
End
End
Attribute VB_Name = "main_jbzl_pxkc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs1 As New ADODB.Recordset
Public blnAdd As Boolean
Dim mybookmark
Sub view_data()
Dim sdate, edate
Dim i As Integer
If Adodc1.Recordset.RecordCount > 0 Then
For i = 0 To 2
Text1(i) = DataGrid1.Columns(i).text
Next i
Combo1 = DataGrid1.Columns(3)
Text1(3) = DataGrid1.Columns(4)
Combo2 = DataGrid1.Columns(5)
If DataGrid1.Columns(6).text = "是" Then Check1.Value = 1 Else Check1.Value = 0
Text1(4) = DataGrid1.Columns(7)
Text1(5) = DataGrid1.Columns(8)
If DataGrid1.Columns(9) <> "" Then DTPicker1.Value = DataGrid1.Columns(9)
If DataGrid1.Columns(10) <> "" Then DTPicker2.Value = DataGrid1.Columns(10)
End If
End Sub
Sub tlbState(state As Boolean)
With Toolbar1
If state = True Then
.Buttons(1).Enabled = False
.Buttons(2).Enabled = False
.Buttons(3).Enabled = False
.Buttons(5).Enabled = True
.Buttons(6).Enabled = True
For i = 1 To Text1.UBound
Text1(i).Locked = False
Next i
Else
.Buttons(1).Enabled = True
.Buttons(2).Enabled = True
.Buttons(3).Enabled = True
.Buttons(5).Enabled = False
.Buttons(6).Enabled = False
For i = 1 To Text1.UBound
Text1(i).Locked = True
Next i
End If
End With
End Sub
Private Sub Check1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text1(4).SetFocus
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Text1(3).SetFocus
End Sub
Private Sub Combo2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then Check1.SetFocus
End Sub
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
view_data
End Sub
Private Sub DTPicker1_Change()
Text1(4) = DateDiff("h", DTPicker1.Value, DTPicker2.Value)
End Sub
Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then DTPicker2.SetFocus
End Sub
Private Sub DTPicker2_Change()
Text1(4) = DateDiff("h", DTPicker1.Value, DTPicker2.Value)
End Sub
Private Sub Form_Activate()
If sql1 <> "" Then
Adodc1.RecordSource = sql1
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
view_data
Else
MsgBox "没有找到符合条件的记录！", , "提示窗口"
End If
End If
End Sub
Private Sub Form_Load()
Me.Caption = text
tlbState False
Combo1.AddItem "内训"
Combo1.AddItem "外训"
Combo2.AddItem "面授"
Combo2.AddItem "讨论"
Combo2.AddItem "座谈"
Combo2.AddItem "讲座"
Combo2.AddItem "面授+座谈"
Combo2.AddItem "其它"
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
sql1 = ""
End Sub
Private Sub Text1_GotFocus(Index As Integer)
Text1(Index).BackColor = &HFFFF00
Text1(Index).SelStart = 0
Text1(Index).SelLength = Len(Text1(Index))
End Sub
Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And Index < 2 Then Text1(Index + 1).SetFocus
If KeyCode = vbKeyReturn And Index = 2 Then Combo1.SetFocus
If KeyCode = vbKeyReturn And Index = 3 Then Combo2.SetFocus
If KeyCode = vbKeyReturn And Index = 4 Then Text1(5).SetFocus
If KeyCode = vbKeyReturn And Index = 5 Then DTPicker1.SetFocus
End Sub
Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = &H80000005
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "add"
blnAdd = True
tlbState True
rs1.Open "select * from 培训课程表", Cnn, adOpenStatic
If rs1.RecordCount > 0 Then
rs1.MoveLast
Text1(0) = Format(Val(rs1.Fields("课程编号")) + 1, "00")
Else
Text1(0) = "01"
End If
rs1.Close
For i = 1 To Text1.UBound
Text1(i) = ""
Next i
Text1(1).SetFocus
Case "modify"
If Adodc1.Recordset.RecordCount > 0 Then
blnAdd = False
tlbState True
view_data
mybookmark = DataGrid1.Bookmark
Else
MsgBox "系统没有要修改的数据！", , "提示窗口"
End If
Case "delete"
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.Delete
Adodc1.Refresh
Else
MsgBox "系统没有要删除的数据！", , "提示窗口"
End If
Case "save"
Dim strPx As String
If Check1.Value = 1 Then strPx = "是" Else strPx = "否"
On Error GoTo SaveErr
If Text1(0).text = "" Then
MsgBox "系统不允许" & Label1 & "为空！", , "提示窗口"
Exit Sub
End If
For i = 4 To 5
If IsNumeric(Text1(i)) = False Then
Text1(i) = Val(Text1(i))
End If
Next i
If blnAdd = True Then
Cnn.Execute ("insert into 培训课程表(课程编号,课程名称,主办单位,培训方式,授课对象,授课方式,是否认证,授课时数,费用,开课时间,结束时间) values('" + Text1(0) + _
"','" + Text1(1) + "','" + Text1(2) + "','" + Combo1 + "','" + Text1(3) + "','" + Combo2 + "','" + strPx + "'," + Text1(4) + "," + Text1(5) + ",'" + str(DTPicker1) + "','" + str(DTPicker2) + "')")
Adodc1.Refresh
tlbState False
Else
Cnn.Execute ("update 培训课程表 set 课程名称 ='" + Text1(1) + "',主办单位 ='" + Text1(2) + _
"',培训方式 ='" + Combo1 + "',授课对象 ='" + Text1(3) + "', 授课方式='" + Combo2 + _
"',是否认证='" + strPx + "',授课时数=" + Text1(4) + ",费用=" + Text1(5) + ",开课时间='" + _
str(DTPicker1) + "',结束时间='" + str(DTPicker2) + "'where 课程编号='" + Text1(0) + "'")
Adodc1.Refresh
DataGrid1.Bookmark = mybookmark
view_data
tlbState False
End If
Exit Sub
SaveErr:
MsgBox Err.Description
Case "cancel"
tlbState False
Case "find"
tb1 = "培训课程表"
Load main_fzfind
main_fzfind.Show 1
Case "all"
Adodc1.RecordSource = "培训课程表 order by 课程编号"
Adodc1.Refresh
Case "close"
Unload Me
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -