frmlaike.frm

浴馆管理软件（包括IC卡的操作、动态库的调用等内容）

VERSION 5.00
Begin VB.Form frmlaike 
   BackColor       =   &H00C0E0FF&
   Caption         =   "来客登记"
   ClientHeight    =   2880
   ClientLeft      =   3795
   ClientTop       =   2070
   ClientWidth     =   5115
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   ScaleHeight     =   2880
   ScaleWidth      =   5115
   Begin VB.CommandButton Command2 
      BackColor       =   &H00C0E0FF&
      Caption         =   "取  消"
      Height          =   375
      Left            =   2760
      MaskColor       =   &H00C0E0FF&
      Style           =   1  'Graphical
      TabIndex        =   8
      Top             =   2280
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H00C0E0FF&
      Caption         =   "确  定"
      Height          =   375
      Left            =   960
      MaskColor       =   &H00C0E0FF&
      Style           =   1  'Graphical
      TabIndex        =   7
      Top             =   2280
      Width           =   1215
   End
   Begin VB.ComboBox Combo1 
      Height          =   300
      ItemData        =   "frmlaike.frx":0000
      Left            =   1920
      List            =   "frmlaike.frx":000A
      TabIndex        =   1
      Text            =   "男"
      Top             =   1680
      Width           =   2175
   End
   Begin VB.TextBox Text2 
      BeginProperty DataFormat 
         Type            =   1
         Format          =   "m/d/yy h:nn"
         HaveTrueFalseNull=   0
         FirstDayOfWeek  =   0
         FirstWeekOfYear =   0
         LCID            =   2052
         SubFormatType   =   3
      EndProperty
      Height          =   270
      Left            =   1920
      TabIndex        =   6
      Top             =   1200
      Width           =   2175
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   1920
      TabIndex        =   0
      Top             =   720
      Width           =   2175
   End
   Begin VB.Label Label4 
      BackColor       =   &H00C0E0FF&
      Caption         =   "顾客性别："
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   840
      TabIndex        =   5
      Top             =   1680
      Width           =   975
   End
   Begin VB.Label Label3 
      BackColor       =   &H00C0E0FF&
      Caption         =   "登记时间："
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   840
      TabIndex        =   4
      Top             =   1200
      Width           =   975
   End
   Begin VB.Label Label2 
      BackColor       =   &H00C0E0FF&
      Caption         =   "衣柜号："
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   840
      TabIndex        =   3
      Top             =   720
      Width           =   975
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0E0FF&
      Caption         =   " 欢迎光临富美洗浴中心"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   14.25
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   840
      TabIndex        =   2
      Top             =   120
      Width           =   3495
   End
End
Attribute VB_Name = "frmlaike"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text1.Text = "" Then
     MsgBox "衣柜号不能为空!", vbInformation, "错误"
Else
     If Text2.Text = "" Then
         MsgBox "请输入顾客进场日期.", vbInformation, "错误!"
     Else
     
        Dim lidicnn As New ADODB.Connection
        Dim lidirs As New ADODB.Recordset
        lidicnn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = 数据库.mdb;"
        lidirs.Open " 客户表", lidicnn, adOpenKeyset, adLockOptimistic
        lidirs.AddNew
        lidirs!衣柜号 = CInt(Text1.Text)
        lidirs!进场时间 = CStr(Text2.Text)
        lidirs!男女 = CStr(Combo1.Text)
        lidirs!是否结算 = "NO"
        lidirs.Update
        lidirs.Close
        
        If Combo1.Text = "男" Then
           Form1.List2.AddItem Text1.Text
        Else
           Form1.List3.AddItem Text1.Text
        End If
        

        'Form1.show
         ' Form1.mnuaddworker.Enabled = False
         'Form1.mnudeleteworker.Enabled = False
         'Form1.mnuadditem.Enabled = False
         'Form1.mnudeletitem.Enabled = False
         'Form1.mnuviewworker.Enabled = False
         'Form1.mnuchangitem.Enabled = False
        ' Form1.mnuday.Enabled = False
         'Form1.mnumouth.Enabled = False
         'Form1.mnuworker.Enabled = False
         'Form1.mnudoller.Enabled = False
         'Form1.mnucard.Enabled = False
         'Form1.mnumenpiao.Enabled = False
        'Unload frm1
        
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
     End If
End If
End Sub

Private Sub Command2_Click()
Unload frmlaike

End Sub

Private Sub Form_Load()
'Text2.Text = Str(Data)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
   MsgBox "请输入数字", vbInformation, "提示"
   KeyAscii = 0
   
End If

End Sub

Private Sub Text1_LostFocus()
Text2.Text = Str(Date)
Combo1.SetFocus
End Sub