home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / A_Simple_M2127789222008.psc / DatabaseEx / frmViewAll.frm < prev    next >
Text File  |  2008-09-22  |  11KB  |  386 lines
  1. VERSION 5.00
  2. Object = "{0ECD9B60-23AA-11D0-B351-00A0C9055D8E}#6.0#0"; "MSHFLXGD.OCX"
  3. Begin VB.Form frmViewAll 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   6615
  7.    ClientLeft      =   45
  8.    ClientTop       =   435
  9.    ClientWidth     =   7335
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   6615
  14.    ScaleWidth      =   7335
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.Frame Frame1 
  17.       Height          =   6375
  18.       Left            =   120
  19.       TabIndex        =   0
  20.       Top             =   120
  21.       Width           =   7095
  22.       Begin VB.CommandButton cmdDetails 
  23.          Height          =   255
  24.          Left            =   1080
  25.          TabIndex        =   10
  26.          Top             =   360
  27.          Width           =   1695
  28.       End
  29.       Begin VB.CommandButton cmdLast 
  30.          Caption         =   ">>"
  31.          Height          =   375
  32.          Left            =   6240
  33.          TabIndex        =   8
  34.          Top             =   5880
  35.          Width           =   615
  36.       End
  37.       Begin VB.CommandButton cmdNext 
  38.          Caption         =   ">"
  39.          Height          =   375
  40.          Left            =   5520
  41.          TabIndex        =   7
  42.          Top             =   5880
  43.          Width           =   615
  44.       End
  45.       Begin VB.CommandButton cmdPrev 
  46.          Caption         =   "<"
  47.          Height          =   375
  48.          Left            =   960
  49.          TabIndex        =   6
  50.          Top             =   5880
  51.          Width           =   615
  52.       End
  53.       Begin VB.CommandButton cmdFirst 
  54.          Caption         =   "<<"
  55.          Height          =   375
  56.          Left            =   240
  57.          TabIndex        =   5
  58.          Top             =   5880
  59.          Width           =   615
  60.       End
  61.       Begin MSHierarchicalFlexGridLib.MSHFlexGrid MSHFlexGrid1 
  62.          Height          =   4695
  63.          Left            =   240
  64.          TabIndex        =   4
  65.          Top             =   1080
  66.          Width           =   6615
  67.          _ExtentX        =   11668
  68.          _ExtentY        =   8281
  69.          _Version        =   393216
  70.          _NumberOfBands  =   1
  71.          _Band(0).Cols   =   2
  72.       End
  73.       Begin VB.Label lblRecordNo 
  74.          Alignment       =   2  'Center
  75.          Caption         =   "Label1"
  76.          Height          =   375
  77.          Left            =   1680
  78.          TabIndex        =   9
  79.          Top             =   5880
  80.          Width           =   3735
  81.       End
  82.       Begin VB.Label lblCustName 
  83.          Height          =   255
  84.          Index           =   1
  85.          Left            =   1200
  86.          TabIndex        =   3
  87.          Top             =   720
  88.          Width           =   3495
  89.       End
  90.       Begin VB.Label lblCustName 
  91.          Caption         =   "Name"
  92.          Height          =   255
  93.          Index           =   0
  94.          Left            =   240
  95.          TabIndex        =   2
  96.          Top             =   720
  97.          Width           =   855
  98.       End
  99.       Begin VB.Label lblCustNo 
  100.          Caption         =   "Cust No."
  101.          Height          =   255
  102.          Index           =   0
  103.          Left            =   240
  104.          TabIndex        =   1
  105.          Top             =   360
  106.          Width           =   855
  107.       End
  108.    End
  109. End
  110. Attribute VB_Name = "frmViewAll"
  111. Attribute VB_GlobalNameSpace = False
  112. Attribute VB_Creatable = False
  113. Attribute VB_PredeclaredId = True
  114. Attribute VB_Exposed = False
  115. Option Explicit
  116.  
  117. Dim topID, bottomID, currentID As Long
  118.  
  119. Private Sub cmdDetails_Click()
  120. On Error GoTo Err_Handler
  121.     
  122.     frmDetails.Prompt cmdDetails.Caption
  123.     
  124.     Exit Sub
  125.     
  126. Err_Handler:
  127.     LogError "frmViewAll", "cmdDetails_Click", Err.Number, Err.Description, Erl()
  128.     Resume Next
  129. End Sub
  130.  
  131. Private Sub cmdFirst_Click()
  132. On Error GoTo Err_Handler
  133.     
  134.     If currentID <> topID Then
  135.         currentID = topID
  136.         Call DisplayData(currentID)
  137.     End If
  138.     
  139.     Exit Sub
  140.     
  141. Err_Handler:
  142.     LogError "frmViewAll", "cmdFirst_Click", Err.Number, Err.Description, Erl()
  143.     Resume Next
  144. End Sub
  145.  
  146. Private Sub cmdLast_Click()
  147. On Error GoTo Err_Handler
  148.  
  149.     If currentID <> bottomID Then
  150.         currentID = bottomID
  151.         Call DisplayData(currentID)
  152.     End If
  153.     
  154.     Exit Sub
  155.     
  156. Err_Handler:
  157.     LogError "frmViewAll", "cmdLast_Click", Err.Number, Err.Description, Erl()
  158.     Resume Next
  159. End Sub
  160.  
  161. Private Sub cmdNext_Click()
  162. On Error GoTo Err_Handler
  163.  
  164.     If currentID < bottomID Then
  165.         currentID = currentID + 1
  166.         Call DisplayData(currentID)
  167.     End If
  168.     
  169.     Exit Sub
  170.     
  171. Err_Handler:
  172.     LogError "frmViewAll", "cmdNext_Click", Err.Number, Err.Description, Erl()
  173.     Resume Next
  174. End Sub
  175.  
  176. Private Sub cmdPrev_Click()
  177. On Error GoTo Err_Handler
  178.  
  179.     If currentID > topID Then
  180.         currentID = currentID - 1
  181.         Call DisplayData(currentID)
  182.     End If
  183.     
  184.     Exit Sub
  185.     
  186. Err_Handler:
  187.     LogError "frmViewAll", "cmdPrev_Click", Err.Number, Err.Description, Erl()
  188.     Resume Next
  189. End Sub
  190.  
  191. Private Sub Form_Load()
  192. On Error GoTo Err_Handler
  193.     
  194.     currentID = 1
  195.     
  196.     Call InitializeAll
  197.     
  198.     Call GetDataBorder
  199.     Call DisplayData(currentID)
  200.     
  201.     Exit Sub
  202.  
  203. Err_Handler:
  204.     LogError "frmViewAll", "Form_Load", Err.Number, Err.Description, Erl()
  205.     End
  206. End Sub
  207.  
  208. Private Function GetDataBorder()
  209. On Error GoTo Err_Handler
  210.  
  211.     Dim strSQL As String
  212.     
  213.     Set connDB = New Connection
  214.     Set recSet = New Recordset
  215.     
  216.     strSQL = "SELECT COUNT(*) AS totalRegistered FROM Customer"
  217.     connDB.Open VIDEO_DB
  218.     recSet.Open strSQL, connDB, adOpenKeyset, adLockReadOnly
  219.     If Not recSet.EOF Then
  220.         topID = 1
  221.         bottomID = recSet.Fields("totalRegistered")
  222.     Else
  223.         topID = 0
  224.         bottomID = 0
  225.     End If
  226.     recSet.Close
  227.     connDB.Close
  228.     
  229.     Set recSet = Nothing
  230.     Set connDB = Nothing
  231.     
  232.     Exit Function
  233.  
  234. Err_Handler:
  235.     LogError "frmViewAll", "GetDataBorder", Err.Number, Err.Description, Erl()
  236.     End
  237. End Function
  238.  
  239. Private Function DisplayData(ByVal curID As Long)
  240. On Error GoTo Err_Handler
  241.  
  242.     Dim count As Long
  243.     Dim strSQL As String
  244.     
  245.     count = 0
  246.  
  247.     If topID > 0 Then
  248.         Set connDB = New Connection
  249.         Set recSet = New Recordset
  250.         
  251.         strSQL = "SELECT * FROM Customer ORDER BY c_id"
  252.         connDB.Open VIDEO_DB
  253.         recSet.Open strSQL, connDB, adOpenKeyset, adLockReadOnly
  254.         Do While Not recSet.EOF
  255.             count = count + 1
  256.             If count = curID Then
  257.                 cmdDetails.Caption = recSet.Fields("c_id")
  258.                 lblCustName(1).Caption = recSet.Fields("c_firstName") & " " & recSet.Fields("c_lastName")
  259.                 GoTo exit_loop
  260.             End If
  261.             recSet.MoveNext
  262.         Loop
  263.         
  264. exit_loop:
  265.         recSet.Close
  266.         connDB.Close
  267.         
  268.         Set recSet = Nothing
  269.         Set connDB = Nothing
  270.         
  271.         Call DisplayTable(Trim(cmdDetails.Caption))
  272.     Else
  273.         MsgBox "No data to be displayed!"
  274.     End If
  275.     
  276.     Call RefreshUI
  277.     
  278.     Exit Function
  279.  
  280. Err_Handler:
  281.     LogError "frmViewAll", "DisplayData", Err.Number, Err.Description, Erl()
  282.     End
  283. End Function
  284.  
  285. Private Function DisplayTable(ByVal cID As String)
  286. On Error GoTo Err_Handler
  287.  
  288.     Dim Index As Long
  289.  
  290.     Dim strSQL As String
  291.     
  292.     Set connDB = New Connection
  293.     Set recSet = New Recordset
  294.     
  295.     strSQL = "SELECT m_name, r_payment, r_dateBorrowed, r_dateReturned, r_billNo FROM Rent_Info " & _
  296.              "INNER JOIN Movie " & _
  297.              "ON Rent_Info.m_id = Movie.m_id " & _
  298.              "WHERE c_id = '" & cID & "'"
  299.     connDB.Open VIDEO_DB
  300.     recSet.Open strSQL, connDB, adOpenKeyset, adLockReadOnly
  301.     
  302.     MSHFlexGrid1.FixedRows = 1
  303.     MSHFlexGrid1.FixedCols = 1
  304.     
  305.     MSHFlexGrid1.AllowUserResizing = flexResizeColumns
  306.     
  307.     If recSet.RecordCount = 0 Then
  308.         MSHFlexGrid1.Rows = recSet.RecordCount + 2
  309.         MSHFlexGrid1.Cols = recSet.Fields.count + 1
  310.         
  311.         MSHFlexGrid1.TextMatrix(1, 0) = ""
  312.         MSHFlexGrid1.TextMatrix(1, 1) = ""
  313.         MSHFlexGrid1.TextMatrix(1, 2) = ""
  314.         MSHFlexGrid1.TextMatrix(1, 3) = ""
  315.         MSHFlexGrid1.TextMatrix(1, 4) = ""
  316.         MSHFlexGrid1.TextMatrix(1, 5) = ""
  317.     Else
  318.         MSHFlexGrid1.Rows = recSet.RecordCount + 1
  319.         MSHFlexGrid1.Cols = recSet.Fields.count + 1
  320.     End If
  321.     
  322.     MSHFlexGrid1.ColWidth(0) = 400
  323.     MSHFlexGrid1.ColWidth(1) = 2000
  324.     MSHFlexGrid1.ColWidth(2) = 1000
  325.     MSHFlexGrid1.ColWidth(3) = 1000
  326.     MSHFlexGrid1.ColWidth(4) = 1000
  327.     MSHFlexGrid1.ColWidth(5) = 1000
  328.     
  329.     MSHFlexGrid1.TextMatrix(0, 0) = "No."
  330.     MSHFlexGrid1.TextMatrix(0, 1) = "Movie Name"
  331.     MSHFlexGrid1.TextMatrix(0, 2) = "Borrowed"
  332.     MSHFlexGrid1.TextMatrix(0, 3) = "Returned"
  333.     MSHFlexGrid1.TextMatrix(0, 4) = "Payment"
  334.     MSHFlexGrid1.TextMatrix(0, 5) = "Bill No."
  335.     
  336.     Index = 1
  337.     Do While Not recSet.EOF
  338.         MSHFlexGrid1.TextMatrix(Index, 0) = Index
  339.         MSHFlexGrid1.TextMatrix(Index, 1) = IIf(IsNull(recSet.Fields("m_name").Value), "", recSet.Fields("m_name").Value)
  340.         MSHFlexGrid1.TextMatrix(Index, 2) = IIf(IsNull(recSet.Fields("r_dateBorrowed").Value), "", recSet.Fields("r_dateBorrowed").Value)
  341.         MSHFlexGrid1.TextMatrix(Index, 3) = IIf(IsNull(recSet.Fields("r_dateReturned").Value), "", recSet.Fields("r_dateReturned").Value)
  342.         MSHFlexGrid1.TextMatrix(Index, 4) = IIf(IsNull(recSet.Fields("r_payment").Value), "", recSet.Fields("r_payment").Value)
  343.         MSHFlexGrid1.TextMatrix(Index, 5) = IIf(IsNull(recSet.Fields("r_billNo").Value), "", recSet.Fields("r_billNo").Value)
  344.         
  345.         Index = Index + 1
  346.         recSet.MoveNext
  347.     Loop
  348.         
  349.     recSet.Close
  350.     connDB.Close
  351.     
  352.     Exit Function
  353.  
  354. Err_Handler:
  355.     LogError "frmViewAll", "DisplayTable", Err.Number, Err.Description, Erl()
  356.     End
  357. End Function
  358.  
  359. Private Function RefreshUI()
  360. On Error GoTo Err_Handler
  361.  
  362.     If currentID = bottomID Then
  363.         cmdNext.Enabled = False
  364.         cmdPrev.Enabled = True
  365.     ElseIf currentID = topID Then
  366.         cmdNext.Enabled = True
  367.         cmdPrev.Enabled = False
  368.     ElseIf topID = 0 Then
  369.         cmdNext.Enabled = False
  370.         cmdPrev.Enabled = False
  371.         cmdFirst.Enabled = False
  372.         cmdLast.Enabled = False
  373.     Else
  374.         cmdNext.Enabled = True
  375.         cmdPrev.Enabled = True
  376.     End If
  377.         
  378.     lblRecordNo.Caption = currentID & " / " & bottomID
  379.     
  380.     Exit Function
  381.  
  382. Err_Handler:
  383.     LogError "frmViewAll", "RefreshUI", Err.Number, Err.Description, Erl()
  384.     Resume Next
  385. End Function
  386.