?? mdiform1.frm

?? 圖書館管理系統代碼圖書館管理系統代碼圖書館管理系統代碼
?? FRM
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.MDIForm MDIMain 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000C&
   Caption         =   "雪蝶圖書館管理系統"
   ClientHeight    =   8310
   ClientLeft      =   165
   ClientTop       =   -255
   ClientWidth     =   11880
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   Moveable        =   0   'False
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   0
      Top             =   7935
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   661
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   8
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
            Object.Width           =   4022
            Picture         =   "MDIForm1.frx":08CA
            Text            =   "雪蝶圖書館管理系統"
            TextSave        =   "雪蝶圖書館管理系統"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
            Picture         =   "MDIForm1.frx":11A6
            Text            =   "當前管理員:"
            TextSave        =   "當前管理員:"
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   1
            Object.Width           =   6059
         EndProperty
         BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   1
            Enabled         =   0   'False
            Object.Width           =   1059
            MinWidth        =   1059
            TextSave        =   "CAPS"
         EndProperty
         BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   2
            Object.Width           =   1058
            MinWidth        =   1058
            TextSave        =   "NUM"
         EndProperty
         BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            Object.Width           =   1588
            MinWidth        =   1588
            TextSave        =   "05-2-11"
         EndProperty
         BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            Object.Width           =   1402
            MinWidth        =   1411
            TextSave        =   "16:33"
         EndProperty
         BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
            Text            =   "版權所有 吳燕"
            TextSave        =   "版權所有 吳燕"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   855
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   11880
      _ExtentX        =   20955
      _ExtentY        =   1508
      ButtonWidth     =   1614
      ButtonHeight    =   1349
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   5
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "讀者登記"
            Key             =   "userregedit"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "讀者一覽"
            Key             =   "usersearch"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "圖書登記"
            Key             =   "bookregedit"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "圖書一覽"
            Key             =   "booksearch"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "借閱/歸還"
            ImageIndex      =   8
         EndProperty
      EndProperty
      Begin VB.PictureBox Picture1 
         Height          =   15
         Left            =   0
         ScaleHeight     =   15
         ScaleWidth      =   12015
         TabIndex        =   2
         Top             =   840
         Width           =   12015
      End
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   8880
         Top             =   120
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   32
         ImageHeight     =   32
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   8
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":1542
               Key             =   ""
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":1E1E
               Key             =   ""
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":21BA
               Key             =   ""
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":2ECA
               Key             =   ""
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":37A6
               Key             =   ""
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":5F5A
               Key             =   ""
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":71DE
               Key             =   ""
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "MDIForm1.frx":7ABA
               Key             =   ""
            EndProperty
         EndProperty
      End
   End
   Begin VB.Menu numfile 
      Caption         =   "文件(&F)"
      Enabled         =   0   'False
      Begin VB.Menu mnubackup 
         Caption         =   "備份數據庫"
         Enabled         =   0   'False
      End
      Begin VB.Menu numexport 
         Caption         =   "導出"
         Enabled         =   0   'False
      End
      Begin VB.Menu mnuprintset 
         Caption         =   "打印設置"
      End
   End
   Begin VB.Menu mnu_manager 
      Caption         =   "管理員信息(&M)"
      Begin VB.Menu mnu_manager_reg 
         Caption         =   "管理員注冊"
      End
      Begin VB.Menu mnu_manager_edit 
         Caption         =   "管理員查詢"
      End
   End
   Begin VB.Menu mnu_user_info 
      Caption         =   "讀者信息(&U)"
      Begin VB.Menu mnu_user_check 
         Caption         =   "讀者登記"
      End
      Begin VB.Menu mnu_user_modify 
         Caption         =   "讀者修改"
      End
      Begin VB.Menu mnu_user_search 
         Caption         =   "讀者查詢"
      End
   End
   Begin VB.Menu mnu_book_info 
      Caption         =   "圖書信息(&B)"
      Begin VB.Menu mnu_book_check 
         Caption         =   "圖書登記"
      End
      Begin VB.Menu mnu_book_modify 
         Caption         =   "圖書修改"
      End
      Begin VB.Menu mnu_book_search 
         Caption         =   "圖書查詢"
      End
      Begin VB.Menu mnu_book_borrow 
         Caption         =   "圖書借閱/歸還"
      End
   End
   Begin VB.Menu mnutools 
      Caption         =   "工具(&T)"
      Begin VB.Menu mnucalc 
         Caption         =   "計算器"
      End
   End
   Begin VB.Menu mnu_relogin 
      Caption         =   "重新登錄(&R)"
   End
   Begin VB.Menu mnu_about 
      Caption         =   "關于(&A)"
   End
   Begin VB.Menu mnuhelp 
      Caption         =   "幫助(&H)"
   End
   Begin VB.Menu mnu_exit 
      Caption         =   "退出(&E)"
   End
End
Attribute VB_Name = "MDIMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim exit_state As String
Private Sub MDIForm_Load()
'Image1.Picture = LoadPicture(App.Path + "\image\library.jpg")
If rds_manager.Fields(0) = "admin" Then
    mnu_manager_reg.Enabled = True '注冊新管理員
    mnu_manager_edit.Enabled = True '管理員一覽
Else
    mnu_manager_reg.Enabled = False
    mnu_manager_edit.Enabled = False
End If
If rds_manager.Fields("MANAGER_USER") Then
    mnu_user_info.Enabled = True '讀者管理
    Toolbar1.Buttons(1).Enabled = True
    Toolbar1.Buttons(2).Enabled = True
Else
    mnu_user_info.Enabled = False
    Toolbar1.Buttons(1).Enabled = False
    Toolbar1.Buttons(2).Enabled = False
End If
If rds_manager.Fields("MANAGER_BOOK") Then
    mnu_book_info.Enabled = True '圖書管理
    Toolbar1.Buttons(3).Enabled = True
    Toolbar1.Buttons(4).Enabled = True
    Toolbar1.Buttons(5).Enabled = True
Else
    mnu_book_info.Enabled = False
    Toolbar1.Buttons(3).Enabled = False
    Toolbar1.Buttons(4).Enabled = False
    Toolbar1.Buttons(5).Enabled = False
End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
exit_state = MsgBox("確認要退出本系統嗎?", vbOKCancel)
If exit_state = vbCancel Then Cancel = 1
End Sub
Private Sub mnu_manager_reg_Click()
Frmmanager_regedit.Tag = "regedit"
Frmmanager_regedit.Show vbModal
End Sub
Private Sub mnu_manager_edit_Click()
frmmanager_list.Show vbModal
End Sub

Private Sub mnu_relogin_Click()
Unload Me
If exit_state = vbOK Then frmLogin.Show vbModal

End Sub

Private Sub mnu_user_check_Click()
frmuser_check.Tag = "check"
frmuser_check.Show vbModal

End Sub

Private Sub mnu_user_modify_Click()
Dim uid As String
uid = InputBox("請輸入讀者編號", "讀者信息修改")
If uid = "" Then Exit Sub
If rds_user.State = adStateOpen Then rds_user.Close
rds_user.Open "select * from 讀者信息 where USER_ID='" + uid + "'", myconn, adOpenKeyset, adLockOptimistic, 1
If rds_user.Fields(0) = "" Then MsgBox "該讀者不存在": Exit Sub
frmuser_check.Tag = "modify"
frmuser_check.txt_user(0).Enabled = False
Dim i As Integer
    For i = 0 To 5
        If i <> 2 Then frmuser_check.txt_user(i) = rds_user.Fields(i)
        If i = 3 Then frmuser_check.txt_user(3).Tag = rds_user.Fields(i)
    Next i
    '性別
    If rds_user.Fields(2) = "男" Then
        frmuser_check.Option1(0).Value = 1
    Else
        frmuser_check.Option1(1).Value = 1
    End If
On Error GoTo err1:
    frmuser_check.Image1.Picture = LoadPicture(rds_user.Fields(6))
    frmuser_check.CommonDialog1.FileName = rds_user.Fields(6)
    '登記日期
    frmuser_check.lbl_CHECK_DATE = rds_user.Fields(7)
    rds_user.Close
    frmuser_check.Show vbModal
Exit Sub
err1:
    MsgBox "相片加載錯誤,請檢查路徑" + Mid(Err.Description, 7), vbCritical: Resume Next

End Sub

Private Sub mnu_user_search_Click()
frmuser_search.Show
End Sub
Private Sub mnu_book_check_Click()
frmbook_check.Tag = "check"
frmbook_check.Show vbModal
End Sub

Private Sub mnu_book_modify_Click()
Dim i As Integer
Dim bid As String
'Debug.Print "frmbook_check.Tag:"; frmbook_check.Tag
bid = InputBox("請輸入圖書編號", "圖書信息修改")
If bid = "" Then Exit Sub
With rds_book
    If .State = adStateOpen Then .Close
    .Open "select * from 圖書信息 where BOOK_ID='" + bid + "'", myconn, adOpenKeyset, adLockPessimistic, adCmdText
If rds_book.Fields(0) = "" Then MsgBox "該圖書不存在": Exit Sub
    For i = 0 To 8
        If i <> 3 And Not IsNull(.Fields(i)) Then
            frmbook_check.txt_book(i) = .Fields(i)
            'Debug.Print i
        ElseIf IsNull(.Fields(i)) Then
            frmbook_check.txt_book(i) = Date
        End If
    Next i
    frmbook_check.DTPicker1.Value = CDate(.Fields(3))
frmbook_check.Tag = "modify"
frmbook_check.txt_book(0).Enabled = False
frmbook_check.Show vbModal
End With
End Sub
Private Sub mnu_book_search_Click()
frmbook_search.Show
End Sub
Private Sub mnu_book_borrow_Click()
frmbook_borrow.Show vbModal
End Sub

Private Sub mnu_about_Click()
Frmabout.Show vbModal
End Sub
Private Sub mnu_exit_Click()
End
End Sub


Private Sub mnucalc_Click()
Shell "calc.exe"
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button
Case "讀者登記"
    Call mnu_user_check_Click
Case "讀者一覽"
    Call mnu_user_search_Click
Case "圖書登記"
    Call mnu_book_check_Click
Case "圖書一覽"
    Call mnu_book_search_Click
Case "借閱/歸還"
    Call mnu_book_borrow_Click
End Select

End Sub
?? 文件大小 205 K
?? 上傳用戶 yitiaojin135
?? 所屬分類 SCSI/ASPI
??? 相關標簽

#圖書館 #代碼 #管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? mdiform1.frm

?? 快捷鍵說明
