editbookid.frm

电气设备管理系统信息在社会和经济的发展中所起的作用越来越为人们所重视。信息资源的开发利用水平成为衡量一个国家综合国力的重要标志之一

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form EditBookId 
   BackColor       =   &H00E0E0E0&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "编辑查询人"
   ClientHeight    =   5670
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   8370
   Icon            =   "EditBookId.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5670
   ScaleWidth      =   8370
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      BackColor       =   &H005CE764&
      Height          =   60
      Left            =   -45
      TabIndex        =   6
      Top             =   600
      Width           =   9675
   End
   Begin VB.CommandButton cmdSearch 
      Caption         =   "Search"
      Height          =   255
      Left            =   7320
      TabIndex        =   4
      Top             =   480
      Visible         =   0   'False
      Width           =   855
   End
   Begin VB.CommandButton cmdEdit 
      Caption         =   "edit "
      Height          =   255
      Left            =   7320
      TabIndex        =   3
      Top             =   120
      Visible         =   0   'False
      Width           =   615
   End
   Begin VB.CommandButton cmdDelete 
      Caption         =   "delete"
      Height          =   255
      Left            =   6495
      TabIndex        =   2
      Top             =   480
      Visible         =   0   'False
      Width           =   735
   End
   Begin VB.CommandButton cmdAdd 
      Caption         =   "add"
      Height          =   255
      Left            =   6480
      TabIndex        =   1
      Top             =   120
      Visible         =   0   'False
      Width           =   735
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   4920
      Top             =   1800
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   6
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "EditBookId.frx":1042
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "EditBookId.frx":15DC
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "EditBookId.frx":1B76
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "EditBookId.frx":2110
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "EditBookId.frx":26AA
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "EditBookId.frx":2C44
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ListView mLv 
      Height          =   4350
      Left            =   60
      TabIndex        =   0
      Top             =   1155
      Width           =   8265
      _ExtentX        =   14579
      _ExtentY        =   7673
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      FullRowSelect   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      NumItems        =   0
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Height          =   390
      Left            =   60
      TabIndex        =   5
      Top             =   690
      Width           =   3180
      _ExtentX        =   5609
      _ExtentY        =   688
      ButtonWidth     =   1349
      ButtonHeight    =   582
      TextAlignment   =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   6
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "添加"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "修改"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "删除"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Object.Visible         =   0   'False
            Caption         =   "查找"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            ImageIndex      =   6
         EndProperty
      EndProperty
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "查询人编辑"
      ForeColor       =   &H00800000&
      Height          =   180
      Left            =   600
      TabIndex        =   7
      Top             =   345
      Width           =   900
   End
   Begin VB.Image Image1 
      Height          =   480
      Left            =   60
      Picture         =   "EditBookId.frx":2FDE
      Top             =   105
      Width           =   480
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H00D0D0D0&
      BackStyle       =   1  'Opaque
      BorderStyle     =   0  'Transparent
      Height          =   840
      Left            =   -15
      Top             =   -180
      Width           =   9675
   End
   Begin VB.Menu PoMnu 
      Caption         =   "PoMnu"
      Visible         =   0   'False
      Begin VB.Menu AddMnu 
         Caption         =   "添加(&A)"
         Shortcut        =   ^A
      End
      Begin VB.Menu EditMnu 
         Caption         =   "修改(&E)"
         Shortcut        =   ^E
      End
      Begin VB.Menu DeleteMnu 
         Caption         =   "删除(&D)"
         Shortcut        =   ^D
      End
      Begin VB.Menu s1 
         Caption         =   "-"
      End
      Begin VB.Menu SearchMnu 
         Caption         =   "查找(&S)"
         Shortcut        =   ^S
      End
      Begin VB.Menu ShowAllMnu 
         Caption         =   "显示所有人员"
         Shortcut        =   {F3}
      End
      Begin VB.Menu s2 
         Caption         =   "-"
      End
      Begin VB.Menu ExitMnu 
         Caption         =   "退出(&X)"
      End
   End
End
Attribute VB_Name = "EditBookId"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim rst As Recordset
Dim Rec As Integer

Private Sub AddMnu_Click()
CmdAdd_Click
End Sub

Private Sub CmdAdd_Click()
loop1:
AddBookId.Show (1)
If mSave Then
rst.AddNew
rst.Fields("查询证号") = mAddEditId & vbNullString
rst.Fields("姓名") = mAddEditIdName & vbNullString
rst.Fields("班组") = mAddEditIdClass & " "
rst.Fields("部门") = mAddEditIdDepart & " "
rst.Fields("职称") = mAddEditIdZhi & " "
rst.Update
DispId
mSave = False
If MsgBox("已成功添加，要继续添加按回车，否则按取消！", 4 + 32, "添加成功") = vbYes Then
    GoTo loop1
Else
    Exit Sub
End If
End If
End Sub
Private Sub cmdDelete_Click()
Dim St As String
St = "确实要删除 " & mLv.SelectedItem.Text & " " & mLv.SelectedItem.SubItems(1) & " 吗？"
If MsgBox(St, 4 + 32, "删除") = vbYes Then
    rst.Seek "=", mLv.SelectedItem.Text
    rst.Delete
    DispId
End If
End Sub
Private Sub cmdEdit_Click()
Dim i As Integer
i = mLv.SelectedItem.Index
rst.Seek "=", mLv.SelectedItem.Text
mAddEditId = rst.Fields("查询证号") & vbNullString
mAddEditIdName = rst.Fields("姓名") & vbNullString
mAddEditIdClass = rst.Fields("班组") & vbNullString
mAddEditIdDepart = rst.Fields("部门") & vbNullString
mAddEditIdZhi = rst.Fields("职称") & vbNullString
AEditBookId.Show (1)
If mSave Then
    rst.Edit
    rst.Fields("查询证号") = mAddEditId & vbNullString
    rst.Fields("姓名") = mAddEditIdName & vbNullString
    rst.Fields("班组") = mAddEditIdClass & " "
    rst.Fields("部门") = mAddEditIdDepart & " "
    rst.Fields("职称") = mAddEditIdZhi & " "
    rst.Update
    With mLv.ListItems(i)
        .SubItems(1) = rst.Fields("姓名")
        .SubItems(2) = rst.Fields("班组")
        .SubItems(3) = rst.Fields("部门")
        .SubItems(4) = rst.Fields("职称")
    End With
    'DispId
    mSave = False
End If
End Sub

Private Sub cmdSearch_Click()
'SearchId.Show (1)
If SearchFlag Then
    rst.Seek "=", BookBianHao
    If rst.NoMatch Then
        MsgBox "没有找到匹配记录！", 0 + 48, "查找失败"
        Exit Sub
    End If
    mLv.ListItems.Clear
    mLv.ListItems.Add , , rst.Fields("借书证号")
    With mLv.ListItems(1)
        .SubItems(1) = rst.Fields("姓名")
        .SubItems(2) = rst.Fields("班级")
        .SubItems(3) = rst.Fields("部门")
        .SubItems(4) = rst.Fields("职称")
    End With
    SearchFlag = False
End If
End Sub
Private Sub DeleteMnu_Click()
cmdDelete_Click
End Sub
Private Sub EditMnu_Click()
cmdEdit_Click
End Sub
Private Sub ExitMnu_Click()
Unload Me
End Sub

Private Sub Form_Load()
Set db = Workspaces(0).OpenDatabase(App.Path & "\Database\Data.mdb", False)
Set rst = db.OpenRecordset("Personal", dbOpenTable)
rst.Index = "查询证号"

mLv.View = lvwReport
mLv.GridLines = True

mLv.ColumnHeaders.Add , , "查询证号"
mLv.ColumnHeaders.Add , , "姓名"
mLv.ColumnHeaders.Add , , "班组"
mLv.ColumnHeaders.Add , , "部门"
mLv.ColumnHeaders.Add , , "职称"
If rst.RecordCount <> 0 Then
DispId
End If
End Sub
Public Sub DispId()
mLv.ListItems.Clear
rst.MoveLast
Rec = rst.RecordCount
rst.MoveFirst
For i = 1 To Rec
    mLv.ListItems.Add i, , rst.Fields("查询证号")
    With mLv.ListItems(i)
        .SubItems(1) = rst.Fields("姓名") & vbNullString
        .SubItems(2) = rst.Fields("班组") & vbNullString
        .SubItems(3) = rst.Fields("部门") & vbNullString
        .SubItems(4) = rst.Fields("职称") & vbNullString
    End With
    rst.MoveNext
    If rst.EOF Then Exit For
Next
End Sub

Private Sub Form_Unload(Cancel As Integer)
rst.Close
db.Close
End Sub

Private Sub mLv_DblClick()
cmdEdit_Click
End Sub

Private Sub mLv_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    PopupMenu PoMnu
End If
End Sub

Private Sub SearchMnu_Click()
cmdSearch_Click
End Sub

Private Sub ShowAllMnu_Click()
DispId
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case 1
        CmdAdd_Click
    Case 2
        cmdEdit_Click
    Case 3
        cmdDelete_Click
    Case 4
        cmdSearch_Click
    Case 6
        With FrmPrintPaper
'        rst.Seek "=", mLv.SelectedItem.Text
        If mLv.ListItems.Count = 0 Then Exit Sub
        If mLv.SelectedItem.Index = 0 Then mLv.ListItems(1).Selected = True
        .LabID.Caption = mLv.SelectedItem.Text
        .LabXM.Caption = mLv.SelectedItem.SubItems(1)
        .LabBJ.Caption = mLv.SelectedItem.SubItems(2)
        .LabBM.Caption = mLv.SelectedItem.SubItems(3)
        .LabZW.Caption = mLv.SelectedItem.SubItems(4)
        .Show vbModal
        End With
    End Select
End Sub