formupdata.frm

源程序职业中专图书管理系统

      Begin VB.Label Label9 
         Caption         =   "单      位"
         Height          =   240
         Left            =   225
         TabIndex        =   21
         Top             =   1440
         Width           =   945
      End
      Begin VB.Label Label8 
         Caption         =   "姓      名"
         Height          =   240
         Left            =   240
         TabIndex        =   19
         Top             =   975
         Width           =   900
      End
      Begin VB.Label Label7 
         Caption         =   "请输入学号"
         Height          =   195
         Left            =   225
         TabIndex        =   17
         Top             =   555
         Width           =   915
      End
      Begin VB.Image Image2 
         Height          =   480
         Left            =   3930
         Picture         =   "Formupdata.frx":054C
         ToolTipText     =   "点击搜索"
         Top             =   400
         Width           =   480
      End
      Begin VB.Image Image1 
         Height          =   480
         Left            =   -71070
         Picture         =   "Formupdata.frx":098E
         ToolTipText     =   "点击搜索"
         Top             =   400
         Width           =   480
      End
      Begin VB.Label Label6 
         Caption         =   "简 介"
         Height          =   210
         Left            =   -74670
         TabIndex        =   10
         Top             =   2175
         Width           =   450
      End
      Begin VB.Label Label5 
         Caption         =   "出版社"
         Height          =   270
         Left            =   -74685
         TabIndex        =   9
         Top             =   1785
         Width           =   705
      End
      Begin VB.Label Label4 
         Caption         =   "类 别"
         Height          =   210
         Left            =   -72645
         TabIndex        =   7
         Top             =   1380
         Width           =   450
      End
      Begin VB.Label Label3 
         BackColor       =   &H80000004&
         Caption         =   "作 者"
         Height          =   255
         Left            =   -74700
         TabIndex        =   5
         Top             =   1365
         Width           =   465
      End
      Begin VB.Label Label2 
         Caption         =   "书 名"
         Height          =   210
         Left            =   -74700
         TabIndex        =   3
         Top             =   975
         Width           =   885
      End
      Begin VB.Label Label1 
         Caption         =   "请输入书号："
         Height          =   255
         Left            =   -74745
         TabIndex        =   2
         Top             =   555
         Width           =   1095
      End
   End
End
Attribute VB_Name = "Formupdate"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*****************************************
                 '记录更新窗体
'****************************************
'所调用的API函数,自定义过程,类型,常数请参阅相应模块
Option Explicit
'Dim Adodc1.Recordset As Recordset    '窗体级变量,ADO控件的当前记录

Private Sub Form_Load()
loadmdb Adodc1    '连接 数据库
End Sub
'更新书籍记录
'确定要更新的记录
Private Sub Image1_Click()
If Text1.Enabled = False Then
    Text1.Enabled = True
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    Combo1.Enabled = False
    Command1.Enabled = False
    Text2.Text = ""
    Text3.Text = ""
    Text4.Text = ""
    Text5.Text = ""
    Combo1.Text = ""
    Exit Sub
Else
    lockrecord Adodc1, "书籍总表", "书号", Text1.Text
    Set Adodc1.Recordset = Adodc1.Recordset
    If Adodc1.Recordset.RecordCount = 0 Then
        MsgBox "无该记录或输入数据有误。请查正。"
        Exit Sub
    Else
        Text2.Text = Adodc1.Recordset!书名
        Text3.Text = Adodc1.Recordset!作者
        Combo1.Text = Adodc1.Recordset!类别
        Combo1.Enabled = True
        Text4.Text = Adodc1.Recordset!出版社
        Text5.Text = "" & Adodc1.Recordset!简介
        Text1.Enabled = False
        Text2.Enabled = True
        Text3.Enabled = True
        Text4.Enabled = True
        Text5.Enabled = True
        Command1.Enabled = True
    End If
End If
End Sub
'执行更新书籍记录操作
Private Sub Command1_Click()
If Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Combo1.Text = "" Then
    MsgBox "请完整填写必要字段，简介可不填。"
    Exit Sub
Else
    Adodc1.Recordset!书名 = Text2.Text
    Adodc1.Recordset!作者 = Text3.Text
    Adodc1.Recordset!类别 = Combo1.Text
    Adodc1.Recordset!出版社 = Text4.Text
    Adodc1.Recordset!简介 = Text5.Text
    Adodc1.Recordset.update
    Adodc1.Refresh
    MsgBox "更新记录成功。"
    Command1.Enabled = False
    Text1.Enabled = True
    Text2.Enabled = False
    Text3.Enabled = False
    Text4.Enabled = False
    Text5.Enabled = False
    Combo1.Enabled = False
End If
End Sub

'更新学生记录
'确定要更新的记录
Private Sub Image2_Click()
If Text6.Enabled = False Then
    Text6.Enabled = True
    Text7.Enabled = False
    Text8.Enabled = False
    Combo2.Enabled = False
    Command4.Enabled = False
    Text7.Text = ""
    Text8.Text = ""
    Combo2.Text = ""
    Exit Sub
Else
    lockrecord Adodc1, "学生总表", "学号", Text6.Text
    Set Adodc1.Recordset = Adodc1.Recordset
    If Adodc1.Recordset.RecordCount = 0 Then
        MsgBox "无该记录或输入数据有误。请查正。"
        Exit Sub
    Else
        Text7.Text = Adodc1.Recordset!姓名
        Combo2.Text = Adodc1.Recordset!单位
        Text8.Text = "" & Adodc1.Recordset!备注
        Combo2.Enabled = True
        Text6.Enabled = False
        Text7.Enabled = True
        Text8.Enabled = True
        Command4.Enabled = True
    End If
End If
End Sub

'执行更新学生记录操作
Private Sub Command4_Click()
If Text7.Text = "" Or Combo2.Text = "" Then
    MsgBox "请完整填写必要字段，简介可不填。"
    Exit Sub
Else
    Adodc1.Recordset!姓名 = Text7.Text
    Adodc1.Recordset!备注 = Text8.Text
    Adodc1.Recordset!单位 = Combo2.Text
    Adodc1.Recordset.update
    Adodc1.Refresh
    MsgBox "更新记录成功。"
    Command4.Enabled = False
    Text6.Enabled = True
    Text7.Enabled = False
    Text8.Enabled = False
    Combo2.Enabled = False
End If
End Sub




Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Unload Me
End Sub


Private Sub Image2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.BorderStyle = 1
End Sub

Private Sub Image2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.BorderStyle = 0
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.BorderStyle = 1
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.BorderStyle = 0
End Sub