Hotel Reservation System

sir, gud day! very good work, ask ko lang po kung gumagana ito sa vista? di ko po kasi alam kung nasan ang RUN ng vista from start menu eh. kaya di ko ma register ung ocx. pls help. Aside from that, I'm trying it to open in Visual Studio Express edition but I can't see the vb project file. thanks again and hope u can reply with my queries.

, , ,zupp ment i like your work good job , , , , , , , ,nice oneee, , , ,

Hi, Can you not use crystal reports 8.5 for the reporting? I'm doing a similar project, and your code is a very good reference! But I'm wondering would you be able to modify the code not to use crystal reports? my email:[email protected] Please let me know your opinions, let's discuss! Thank you very much

why???? Path=F:\Website\Sourcecodester.com\Hotel Management System\Data\data.mdb help me please?

HI, I am allan, can the lynxgrid one of the control in b8Controls4.ocx can merge a column for grouping or a row. Tnx.

Hello Sir, I try to Validate TextBox_KeyPress Event Decimal Point control methord. i have downloaded trought the internet version of VB6. I want to Control TEXTBOXs can enter only 1 decimal point and 2 decimal places only. can u Download this attachment. my email address :- [email protected] '-------------------------------------------------------- Module Module1 Dim pos As Integer Dim RET, a As Integer Public Function DecControl(ByVal KeyAscii As Integer, ByVal Text As TextBox, ByVal NOOFDEC As Integer) As Integer If KeyAscii = 8 Then DecControl = KeyAscii Exit Function End If If NOOFDEC = 0 Then If InStr(1, "0123456789-", Chr(KeyAscii)) = 0 Then DecControl = 0 Exit Function Else DecControl = KeyAscii Exit Function End If Else If InStr(1, "0123456789.-", Chr(KeyAscii)) = 0 Then DecControl = 0 Exit Function End If End If If Len(Text) - Text.SelectionStart > NOOFDEC And Chr(KeyAscii) = "." Then DecControl = 0 Exit Function End If If KeyAscii > 8 Then If InStr(1, Text.Text, ".") > 0 And Chr(KeyAscii) = "." Then DecControl = 0 Exit Function End If pos = InStr(1, Text.Text, ".") If pos = 0 Then If InStr(1, "0123456789.-", Chr(KeyAscii)) = 0 Then RET = 0 Else RET = KeyAscii End If Else 'IF AFTER DECIMAL If Text.SelectionStart + 1 > pos Then 'If Text.SelStart + 1 > pos Then a = Len(Text.Text) - InStr(1, Text.Text, ".") If a >= NOOFDEC Then RET = 0 Else RET = KeyAscii End If Else RET = KeyAscii End If End If Else RET = KeyAscii End If DecControl = RET End Function End Module '----------------------------------------------------------- Private Sub Text1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Text1.KeyPress KeyAscii = DecControl(KeyAscii, (Text1.Text), 2) End Sub