module1.bas

一个国外的宾馆管理程序

Attribute VB_Name = "Module1"
Public i As Integer
Public i1 As Integer
Public i2 As Integer
Public i3 As Integer
Public i4 As Integer
Public i5 As Integer
Public i6 As Integer
Public i7 As Integer
Public i8 As Integer
Public i9 As Integer
Public i10 As Integer
Public i11 As Integer
Public i12 As Integer
Public i13 As Integer
Public i14 As Integer
Public i15 As Integer
Public i16 As Integer
Public i17 As Integer
Public i18 As Integer

Public o1 As Integer
Public o2 As Integer
Public o3 As Integer
Public o4 As Integer
Public o5 As Integer
Public o6 As Integer
Public o7 As Integer
Public o8 As Integer
Public o9 As Integer
Public o10 As Integer
Public o11 As Integer
Public o12 As Integer
Public o13 As Integer
Public o14 As Integer
Public o15 As Integer
Public o16 As Integer
Public o17 As Integer
Public o18 As Integer

Public c1 As Currency
Public c2 As Currency
Public c3 As Currency
Public c4 As Currency
Public c5 As Currency
Public c6 As Currency
Public c7 As Currency
Public c8 As Currency
Public c9 As Currency
Public c10 As Currency
Public c11 As Currency
Public c12 As Currency
Public c13 As Currency
Public c14 As Currency
Public c15 As Currency
Public c16 As Currency
Public c17 As Currency
Public c18 As Currency

Public s1 As String
Public s2 As String
Public s3 As String
Public s4 As String
Public s5 As String
Public s6 As String
Public s7 As String
Public s8 As String
Public s9 As String
Public s10 As String
Public s11 As String
Public s12 As String
Public s13 As String
Public s14 As String
Public s15 As String
Public s16 As String
Public s17 As String
Public s18 As String

Public rSS As Currency
Public rSD As Currency
Public rVS As Currency
Public rVD As Currency
Public rFD As Currency
Public rFT As Currency

Public adm As Integer
Public user As String
Public pass As String