?? frmhuiyi.frm
字號(hào):
VERSION 5.00
Begin VB.Form frmhuiyi
Caption = "會(huì)議管理"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form2"
MDIChild = -1 'True
ScaleHeight = 8595
ScaleWidth = 11880
WindowState = 2 'Maximized
Begin VB.Frame Frame2
Height = 975
Left = 2520
TabIndex = 22
Top = 6840
Width = 6135
Begin VB.CommandButton cmdcancel
Caption = "取消"
Height = 375
Left = 4680
TabIndex = 26
Top = 360
Width = 975
End
Begin VB.CommandButton cmddel
Caption = "刪除記錄"
Height = 375
Left = 3240
TabIndex = 25
Top = 360
Width = 975
End
Begin VB.CommandButton cmdmodify
Caption = "修改記錄"
Height = 375
Left = 1800
TabIndex = 24
Top = 360
Width = 975
End
Begin VB.CommandButton cmdadd
Caption = "增加記錄"
Height = 375
Left = 240
TabIndex = 23
Top = 360
Width = 975
End
End
Begin VB.Frame Frame3
Height = 975
Left = 2520
TabIndex = 1
Top = 5760
Width = 6135
Begin VB.CommandButton cmdlast
Caption = "最后一條"
Height = 375
Left = 4680
TabIndex = 5
Top = 360
Width = 975
End
Begin VB.CommandButton cmdfirst
Caption = "第一條"
Height = 375
Left = 3240
TabIndex = 4
Top = 360
Width = 975
End
Begin VB.CommandButton cmdprevious
Caption = "上一條"
Height = 375
Left = 1800
TabIndex = 3
Top = 360
Width = 975
End
Begin VB.CommandButton cmdnext
Caption = "下一條"
Height = 375
Left = 240
TabIndex = 2
Width = 975
End
End
Begin VB.Frame Frame1
Caption = "會(huì)議管理"
Height = 5415
Left = 480
TabIndex = 0
Top = 240
Width = 10815
Begin VB.TextBox Text1
Height = 2565
Index = 7
Left = 2160
TabIndex = 21
Top = 2160
Width = 6855
End
Begin VB.TextBox Text1
Height = 285
Index = 6
Left = 2160
TabIndex = 20
Top = 1800
Width = 1335
End
Begin VB.TextBox Text1
Height = 285
Index = 5
Left = 7680
TabIndex = 19
Top = 1440
Width = 1335
End
Begin VB.TextBox Text1
Height = 285
Index = 4
Left = 2160
TabIndex = 18
Top = 1440
Width = 1335
End
Begin VB.TextBox Text1
Height = 285
Index = 3
Left = 2160
TabIndex = 17
Top = 1080
Width = 1335
End
Begin VB.TextBox Text1
Height = 285
Index = 2
Left = 7680
TabIndex = 16
Top = 720
Width = 1335
End
Begin VB.TextBox Text1
Height = 285
Index = 1
Left = 2160
TabIndex = 15
Top = 720
Width = 1335
End
Begin VB.TextBox Text1
Height = 285
Index = 0
Left = 2160
TabIndex = 14
Top = 360
Width = 1335
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "主要決議"
Height = 195
Left = 1200
TabIndex = 13
Top = 2160
Width = 720
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "主席"
Height = 195
Left = 1560
TabIndex = 12
Top = 1800
Width = 360
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "人數(shù)"
Height = 195
Left = 7200
TabIndex = 11
Top = 1440
Width = 360
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "參加人員"
Height = 195
Left = 1200
TabIndex = 10
Top = 1440
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "會(huì)議名稱"
Height = 195
Left = 1200
TabIndex = 9
Top = 1080
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "會(huì)議地點(diǎn)"
Height = 195
Left = 6840
TabIndex = 8
Top = 720
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "會(huì)議日期"
Height = 195
Left = 1200
TabIndex = 7
Top = 720
Width = 720
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "會(huì)次"
Height = 195
Left = 1560
TabIndex = 6
Top = 360
Width = 360
End
End
End
Attribute VB_Name = "frmhuiyi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs_huiyi As New ADODB.Recordset
Private Sub cmdnext_Click()
On Error GoTo nexterror
rs_huiyi.MoveNext
If rs_huiyi.EOF Then
MsgBox "這已經(jīng)是最后一條記錄！", vbOKOnly + vbExclamation, ""
rs_huiyi.MovePrevious
Exit Sub
Else
viewdata
End If
nexterror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub cmdcancel_Click()
Dim i As Integer
viewdata
If cmdadd.Caption = "確定" Then
cmdadd.Caption = "增加記錄"
cmdmodify.Enabled = True
cmddel.Enabled = True
cmdcancel.Enabled = False
ElseIf cmdmodify.Caption = "確定" Then
cmdmodify.Caption = "修改記錄"
cmdadd.Enabled = True
cmddel.Enabled = True
cmdcancel.Enabled = False
End If
Frame3.Enabled = True
End Sub
Private Sub cmdprevious_Click()
On Error GoTo previouserror
rs_huiyi.MovePrevious
If rs_huiyi.BOF Then
MsgBox "這已經(jīng)是第一條記錄！", vbOKOnly + vbExclamation, ""
rs_huiyi.MoveNext
Exit Sub
Else
viewdata
End If
previouserror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub cmdfirst_Click()
On Error GoTo firsterror
rs_huiyi.MoveFirst
viewdata
Exit Sub
firsterror:
MsgBox Err.Description
End Sub
Private Sub cmdlast_Click()
On Error GoTo firsterror
rs_huiyi.MoveLast
viewdata
Exit Sub
firsterror:
MsgBox Err.Description
End Sub
Private Sub cmdadd_Click()
Dim i As Integer
Dim rs_add As New ADODB.Recordset
Dim sql As String
On Error GoTo adderror
'huiyi_bm = rs_huiyi.Bookmark
Frame3.Enabled = False
If cmdadd.Caption = "增加記錄" Then '當(dāng)此按鈕的狀態(tài)為為“增加記錄”時(shí)
cmdadd.Caption = "確定" '按鈕名稱改為“確定”
cmdmodify.Enabled = False '刪除與修改按鈕不可用
cmddel.Enabled = False
For i = 0 To 7
Text1(i).Enabled = True '各文本框可用
Text1(i).Text = "" '文本框內(nèi)容設(shè)為空
Next i
Else '當(dāng)按鈕的狀態(tài)為“確定”時(shí)
If Trim(Text1(0).Text) = "" Then
MsgBox "會(huì)次編號(hào)不能為空", vbOKOnly + vbExclamation, ""
Text1(0).SetFocus
Exit Sub
End If
If Not IsDate(Text1(1).Text) Then
MsgBox "請(qǐng)按照yyyy-mm-dd格式輸入日期", vbOKOnly + vbExclamation, ""
Text1(1).SetFocus
Exit Sub
End If
If Not IsNumeric(Text1(5).Text) Then
MsgBox "請(qǐng)輸入數(shù)字！", vbOKOnly + vbExclamation, ""
Text1(5).SetFocus
Exit Sub
End If
'判斷編號(hào)是否有重復(fù)
sql = "select * from 會(huì)議管理 where 會(huì)次 ='" & Text1(0).Text & "'"
rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_add.EOF Then
Text1(1) = Format(Text1(1), "yyyy-mm-dd") '轉(zhuǎn)化為正確的格式
cmdadd.Caption = "增加記錄" '按鈕名稱改為“增加記錄”
cmdmodify.Enabled = True '刪除與修改按鈕可用
cmddel.Enabled = True
cmdcancel.Enabled = False
rs_huiyi.AddNew
For i = 0 To 7
rs_huiyi.Fields(i) = Trim(Text1(i).Text)
Next i
rs_huiyi.Update
MsgBox "增加成功", vbOKOnly + vbExclamation, ""
For i = 0 To 7
Text1(i).Enabled = False
Next i
Frame3.Enabled = True
Else
MsgBox "會(huì)次編號(hào)重復(fù)", vbOKOnly + vbExclamation, ""
Exit Sub
End If
End If
adderror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub cmdmodify_Click()
Dim sql As String
Dim rs_modify As New ADODB.Recordset
Dim i As Integer
On Error GoTo modifyerror
'huiyi_bm = rs_huiyi.Bookmark
Frame3.Enabled = False
If cmdmodify.Caption = "修改記錄" Then '當(dāng)此按鈕的狀態(tài)為為“增加記錄”時(shí)
cmdmodify.Caption = "確定" '按鈕名稱改為“確定”
cmdadd.Enabled = False '刪除與修改按鈕不可用
cmddel.Enabled = False
cmdcancel.Enabled = True
For i = 1 To 7 '編號(hào)不可以改變
Text1(i).Enabled = True '各文本框可用
Next i
ElseIf cmdmodify.Caption = "確定" Then '當(dāng)按鈕的狀態(tài)為“確定”時(shí)
If Trim(Text1(0).Text) = "" Then
MsgBox "會(huì)次編號(hào)不能為空", vbOKOnly + vbExclamation, ""
Text1(0).SetFocus
Exit Sub
End If
If Not IsDate(Text1(1).Text) Then
MsgBox "請(qǐng)按照yyyy-mm-dd格式輸入日期", vbOKOnly + vbExclamation, ""
Text1(1).SetFocus
Exit Sub
End If
If Not IsNumeric(Text1(5).Text) Then
MsgBox "請(qǐng)輸入數(shù)字", vbOKOnly + vbExclamation, ""
Text1(5).SetFocus
Exit Sub
End If
Text1(1) = Format(Text1(1), "yyyy-mm-dd") '轉(zhuǎn)化為正確的格式
cmdmodify.Caption = "修改記錄" '按鈕名稱改為“修改記錄”
cmdadd.Enabled = True '刪除與增加按鈕可用
cmddel.Enabled = True
cmdcancel.Enabled = False
For i = 0 To 7
rs_huiyi.Fields(i) = Trim(Text1(i).Text)
Next i
rs_huiyi.Update
MsgBox "修改成功", vbOKOnly + vbExclamation, ""
Frame3.Enabled = True
End If
modifyerror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub cmddel_Click()
Dim i As Integer
Dim answer As String
On Error GoTo delerror
answer = MsgBox("確定要?jiǎng)h除嗎？", vbYesNo, "")
If answer = vbYes Then
rs_huiyi.Delete
rs_huiyi.MoveNext
If rs_huiyi.EOF Then
rs_huiyi.MoveFirst
End If
viewdata
Else
Exit Sub
End If
delerror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub Form_Load()
Dim sql As String
On Error GoTo loaderror
sql = "select * from 會(huì)議管理"
rs_huiyi.CursorLocation = adUseClient
rs_huiyi.Open sql, conn, adOpenKeyset, adLockPessimistic '打開(kāi)數(shù)據(jù)庫(kù)
If userpow = "guest" Then
Frame2.Enabled = False
End If
If rs_huiyi.EOF = False Then
rs_huiyi.MoveFirst
viewdata
Else
MsgBox "沒(méi)有記錄！", vbOKOnly + vbExclamation, ""
End If
cmdcancel.Enabled = False
loaderror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
rs_huiyi.Close
End Sub
Public Sub viewdata()
Dim i As Integer
On Error GoTo viewerror
For i = 0 To 7
If IsNull(rs_huiyi.Fields(i)) Then
Text1(i).Text = ""
Else
Text1(i).Text = rs_huiyi.Fields(i)
End If
Text1(i).Enabled = False
Next i
viewerror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -