vcdpro1.frm

原创VB+SQL影音租赁系统 醮简单 具体看里边的文本文档

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm VCDMS 
   BackColor       =   &H8000000C&
   Caption         =   "灵异影片管理系统"
   ClientHeight    =   8310
   ClientLeft      =   2535
   ClientTop       =   1590
   ClientWidth     =   10755
   LinkTopic       =   "MDIForm1"
   WindowState     =   2  'Maximized
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   855
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   10755
      _ExtentX        =   18971
      _ExtentY        =   1508
      ButtonWidth     =   1032
      ButtonHeight    =   1349
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   10
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "设置"
            Key             =   "LoginSet"
            Object.ToolTipText     =   "登陆设置"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "登陆"
            Key             =   "ManagerLogin"
            Object.ToolTipText     =   "管理员登陆"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "连接"
            Key             =   "Connect"
            Object.ToolTipText     =   "连接"
            ImageIndex      =   3
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "影碟"
            Key             =   "VCDview"
            Object.ToolTipText     =   "影碟浏览"
            ImageIndex      =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "会员"
            Key             =   "CustomView"
            Object.ToolTipText     =   "会员浏览"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "租借"
            Key             =   "Lend"
            Object.ToolTipText     =   "租借"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "归还"
            Key             =   "Return"
            Object.ToolTipText     =   "归还"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "Print"
            Object.ToolTipText     =   "打印"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "Help"
            Object.ToolTipText     =   "帮助"
            ImageIndex      =   9
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "Exit"
            Object.ToolTipText     =   "退出"
            ImageIndex      =   10
         EndProperty
      EndProperty
      MousePointer    =   1
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   1320
      Top             =   4440
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      UseMaskColor    =   0   'False
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   10
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "VCDPro1.frx":0000
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "VCDPro1.frx":0738
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "VCDPro1.frx":0E5C
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "VCDPro1.frx":15CC
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "VCDPro1.frx":1D3C
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "VCDPro1.frx":2470
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "VCDPro1.frx":2B7C
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "VCDPro1.frx":3294
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "VCDPro1.frx":39F0
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "VCDPro1.frx":40F4
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu System 
      Caption         =   "系统 (&S)"
      NegotiatePosition=   1  'Left
      Begin VB.Menu Login 
         Caption         =   "登陆"
         Shortcut        =   ^L
      End
      Begin VB.Menu Connect 
         Caption         =   "连接"
         Shortcut        =   ^N
      End
      Begin VB.Menu heng 
         Caption         =   "-"
      End
      Begin VB.Menu Set 
         Caption         =   "设置"
         Shortcut        =   ^A
      End
      Begin VB.Menu Modify 
         Caption         =   "修改信息"
         Shortcut        =   ^M
      End
   End
   Begin VB.Menu Manage 
      Caption         =   "影音信息 (&M)"
      NegotiatePosition=   1  'Left
      Begin VB.Menu movieView 
         Caption         =   "浏览"
         Shortcut        =   ^Y
      End
      Begin VB.Menu movieSearch 
         Caption         =   "查询"
         Shortcut        =   ^S
      End
      Begin VB.Menu movieEdit 
         Caption         =   "编辑"
         Shortcut        =   ^B
      End
      Begin VB.Menu movieAdd 
         Caption         =   "添加"
         Shortcut        =   ^T
      End
   End
   Begin VB.Menu rent 
      Caption         =   "租赁信息 (&R)"
      NegotiatePosition=   1  'Left
      Begin VB.Menu rentbydate 
         Caption         =   "浏览"
         Shortcut        =   ^D
      End
      Begin VB.Menu rentSearch 
         Caption         =   "查询"
         Shortcut        =   ^F
      End
      Begin VB.Menu hang 
         Caption         =   "-"
      End
      Begin VB.Menu Browse 
         Caption         =   "租借"
         Shortcut        =   ^O
      End
      Begin VB.Menu Return 
         Caption         =   "归还"
         Shortcut        =   ^I
      End
      Begin VB.Menu heng2 
         Caption         =   "-"
      End
      Begin VB.Menu PrintRentdetails 
         Caption         =   "打印"
         Shortcut        =   +{F9}
      End
   End
   Begin VB.Menu customer 
      Caption         =   "顾客会员 (&C)"
      NegotiatePosition=   1  'Left
      Begin VB.Menu customerView 
         Caption         =   "浏览"
         Shortcut        =   ^{F9}
      End
      Begin VB.Menu customerSearch 
         Caption         =   "查找"
         Shortcut        =   ^{F8}
      End
      Begin VB.Menu customerAdd 
         Caption         =   "注册"
         Shortcut        =   ^{F7}
      End
      Begin VB.Menu customerEdit 
         Caption         =   "修改"
         Shortcut        =   ^{F6}
      End
   End
   Begin VB.Menu Help 
      Caption         =   "帮助 (&H)"
      NegotiatePosition=   1  'Left
      Begin VB.Menu index 
         Caption         =   "索引"
         Shortcut        =   ^Z
      End
      Begin VB.Menu About 
         Caption         =   "关于"
         Shortcut        =   {F1}
      End
   End
   Begin VB.Menu Exit 
      Caption         =   "离开 (&E)"
      Index           =   3
   End
End
Attribute VB_Name = "VCDMS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Dim com As Command
Dim rst As Recordset

Private Sub Connect_Click()
Call ServerConnect.Connect
End Sub

Private Sub customerAdd_Click()
On Error GoTo err
MemberRE.Show
Exit Sub
err:
VCDMS.Show
End Sub

Private Sub customerEdit_Click()
On Error GoTo err
MemberEditer.Show
Exit Sub
err:
VCDMS.Show
End Sub

Private Sub customerView_Click()
On Error GoTo err
MemberView.Show
Exit Sub
err:
MsgBox "请检查数据库是否连接！"
End Sub

Private Sub Exit_Click(index As Integer)
Dim a As Integer
a = MsgBox("   确定要离开本系统吗？", vbYesNo, "系统提示")
If a = 6 Then
   Close All
   End
Else
   VCDMS.Show
End If

End Sub

Private Sub Login_Click()
managerlogin.Show
'VCDMS Enabled = False
End Sub

Private Sub MDIForm_Load()
On Error GoTo err
'Set com = New Command
Set rst = New Recordset
'Call ServerConnect.Connect
'LoginSet.Show
'LoginSet.SetFocus
'LoginSet.Enabled = True
'VCDPro1.VCDMS.Visible = True
'VCDPro1.VCDMS.Enabled = True

Exit Sub
err:
MsgBox "请检查数据表是否建立！"
LoginSet.Show
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
Dim a As Integer
a = MsgBox("   确定要离开本系统吗？", vbYesNo, "系统提示")
If a = 6 Then
   Close All
   End
Else
   VCDMS.Show
End If
End Sub

Private Sub Modify_Click()
ManagerView.Show
End Sub

Private Sub movieAdd_Click()
On Error GoTo err
VCDAdd.Show
Exit Sub
err:
VCDMS.Show
End Sub

Private Sub movieEdit_Click()
MemberEditer.Show
End Sub

Private Sub movieView_Click()
On Error GoTo err
VCDView.Show
'VCDView.SetFocus
Exit Sub
err:
MsgBox ""
End Sub

Private Sub rentbydate_Click()
OrderView.Show

End Sub

Private Sub rentSearch_Click()
OrderSearch.Show
End Sub

Private Sub Return_Click()
VCDReturn.Show
End Sub

Private Sub Set_Click()
LoginSet.Show
'VCDMS Enabled = False
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
'On Error GoTo err
Select Case Button.Key
    Case "Exit"
        Dim a As Integer
        a = MsgBox("   确定要离开本系统吗？", vbYesNo, "系统提示")
        If a = 6 Then
         End
        Else
            VCDMS.Show
        End If
    Case "LoginSet"
        LoginSet.Show
        'MainForm= False
    Case "ManagerLogin"
        managerlogin.Show
    Case "Connect"
        Call ServerConnect.Connect
        MsgBox "数据库连接成功！"
    Case "VCDview"
        On Error GoTo MemViewerr
        VCDView.Show
        'VCDView.SetFocus
    Case "CustomView"
        On Error GoTo MemViewerr
        MemberView.Show
    Case "Return"
        VCDReturn.Show
End Select
Exit Sub
err:
MsgBox err.Description
viewerr:
MsgBox "数据表未建立！或数据表里没有数据！请返回登陆设置窗口建立数据表或添加数据！"
'LoginSet.Show
MemViewerr:
VCDMS.Show
End Sub
'Public Function Connection()
'Dim strserver As String
'Dim struser As String
'Dim strpass As String
'Dim strbase As String
'On Error GoTo err
'strserver = GetSetting("ServerInfo", "Sql server", "ServerName")
'struser = GetSetting("ServerInfo", "Sql server", "ServerUser")
'strpass = GetSetting("ServerInfo", "Sql server", "ServerPassword")
'strbase = GetSetting("ServerInfo", "Sql server", "ServerBase")
'With con
'    .ConnectionString = "user id =" & struser & ";password=" & strpass & ";data source=" & strserver & ";initial catalog =" & strbase
'    .Provider = "sqloledb"
'    .Open
'End With

'rst.Open "select * from manager", con, adOpenDynamic, adLockOptimistic
'rst.Close
'display (0)
'Formmember.Visible = False
'Exit Function
'err:
'MsgBox err.Description
'con.Close
'End Function