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