Next Chapter 24 Bed Detail
Dim rst As New ADODB.Recordset
Dim Conn1 As New ADODB.Connection
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
Unload Me
ElseIf KeyCode = vbKeyReturn Then
Call MSFlexGrid1_DblClick
End If
End Sub
Private Sub Form_Load()
Me.Top = (MDIForm1.ScaleHeight - Me.Height) / 2
Me.Left = (MDIForm1.ScaleWidth - Me.Width) / 2
Set Conn1 = New ADODB.Connection
Conn1.CursorLocation = adUseClient
Conn1.Open ConnectString
Call refreshGrid
End Sub
Private Sub Form_Unload(Cancel As Integer)
Admission.Enabled = True
Conn1.Close
Set Conn1 = Nothing
End Sub
Private Sub MSFlexGrid1_DblClick()
Dim EDITREF As String
EDITREF = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 0))
If Not MSFlexGrid1.RowSel = 0 Or Not EDITREF = "" Then
Admission.TxtBedNo.Text = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 1))
Admission.TxtBedCategory.Text = Trim(MSFlexGrid1.TextMatrix(MSFlexGrid1.RowSel, 2))
Admission.Show
Unload Me
Else
MsgBox "No Record Found ", vbInformation
End If
Admission.Enabled = True
End Sub
Public Sub refreshGrid()
On Error Resume Next
MSFlexGrid1.Clear
MSFlexGrid1.Rows = 1
MSFlexGrid1.FormatString = "Category |Bed No. |Detail |Status "
Set rst = New ADODB.Recordset
rst.Open "select catcode,bedno,detail,status from beddetail where status = 'Empty'", Conn1, adOpenDynamic, adLockOptimistic
Do While Not rst.EOF = True
MSFlexGrid1.AddItem rst!catcode & " " & Chr(9) & rst!bedno & " " & Chr(9) & rst!detail & " " & Chr(9) & rst!Status
rst.MoveNext
Loop
MSFlexGrid1.RowSel = 1
End Sub
Sponsored Links