frmhuiyi.frm

档案管理

VERSION 5.00
Begin VB.Form frmhuiyi 
   Caption         =   "会议管理"
   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
         Top             =   360
         Width           =   975
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "会议管理"
      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         =   "人数"
         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         =   "会议名称"
         Height          =   195
         Left            =   1200
         TabIndex        =   9
         Top             =   1080
         Width           =   720
      End
      Begin VB.Label Label3 
         AutoSize        =   -1  'True
         Caption         =   "会议地点"
         Height          =   195
         Left            =   6840
         TabIndex        =   8
         Top             =   720
         Width           =   720
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "会议日期"
         Height          =   195
         Left            =   1200
         TabIndex        =   7
         Top             =   720
         Width           =   720
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "会次"
         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 "这已经是最后一条记录！", 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 "这已经是第一条记录！", 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      '当此按钮的状态为为“增加记录”时
   cmdadd.Caption = "确定"               '按钮名称改为“确定”
   cmdmodify.Enabled = False             '删除与修改按钮不可用
   cmddel.Enabled = False
   cmdcancel.Enabled = True
   For i = 0 To 7
       Text1(i).Enabled = True           '各文本框可用
       Text1(i).Text = ""                '文本框内容设为空
   Next i
Else                                     '当按钮的状态为“确定”时
   If Trim(Text1(0).Text) = "" Then
      MsgBox "会次编号不能为空", vbOKOnly + vbExclamation, ""
      Text1(0).SetFocus
      Exit Sub
   End If
   If Not IsDate(Text1(1).Text) Then
      MsgBox "请按照yyyy-mm-dd格式输入日期", vbOKOnly + vbExclamation, ""
      Text1(1).SetFocus
      Exit Sub
   End If
   If Not IsNumeric(Text1(5).Text) Then
      MsgBox "请输入数字！", vbOKOnly + vbExclamation, ""
      Text1(5).SetFocus
      Exit Sub
   End If
'判断编号是否有重复
   sql = "select * from 会议管理 where 会次 ='" & Text1(0).Text & "'"
   rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
   If rs_add.EOF Then
      Text1(1) = Format(Text1(1), "yyyy-mm-dd")                 '转化为正确的格式
      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 "会次编号重复", 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                        '当此按钮的状态为为“增加记录”时
   cmdmodify.Caption = "确定"                                 '按钮名称改为“确定”
   cmdadd.Enabled = False                                  '删除与修改按钮不可用
   cmddel.Enabled = False
   cmdcancel.Enabled = True
   For i = 1 To 7                                           '编号不可以改变
       Text1(i).Enabled = True                               '各文本框可用
   Next i
ElseIf cmdmodify.Caption = "确定" Then                        '当按钮的状态为“确定”时
   If Trim(Text1(0).Text) = "" Then
      MsgBox "会次编号不能为空", vbOKOnly + vbExclamation, ""
      Text1(0).SetFocus
      Exit Sub
   End If
   If Not IsDate(Text1(1).Text) Then
      MsgBox "请按照yyyy-mm-dd格式输入日期", vbOKOnly + vbExclamation, ""
      Text1(1).SetFocus
      Exit Sub
   End If
   If Not IsNumeric(Text1(5).Text) Then
      MsgBox "请输入数字", vbOKOnly + vbExclamation, ""
      Text1(5).SetFocus
      Exit Sub
   End If
   Text1(1) = Format(Text1(1), "yyyy-mm-dd")              '转化为正确的格式
   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("确定要删除吗？", 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 会议管理"
rs_huiyi.CursorLocation = adUseClient
rs_huiyi.Open sql, conn, adOpenKeyset, adLockPessimistic     '打开数据库
If userpow = "guest" Then
   Frame2.Enabled = False
End If
If rs_huiyi.EOF = False Then
   rs_huiyi.MoveFirst
   viewdata
Else
   MsgBox "没有记录！", 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