frmsetsystem.frm

智能门锁的程序,用于控制门锁发卡程序,是科布尔的

VERSION 5.00
Begin VB.Form FrmSetSystem 
   Caption         =   "系统设置"
   ClientHeight    =   3810
   ClientLeft      =   1680
   ClientTop       =   2535
   ClientWidth     =   6465
   BeginProperty Font 
      Name            =   "宋体"
      Size            =   10.5
      Charset         =   134
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   3810
   ScaleWidth      =   6465
   Begin VB.TextBox TxtHotelName 
      Height          =   375
      Left            =   2160
      MaxLength       =   30
      TabIndex        =   9
      Top             =   2160
      Width           =   3615
   End
   Begin VB.TextBox TxtComN 
      Height          =   375
      Left            =   2160
      TabIndex        =   7
      Text            =   "1"
      Top             =   1560
      Width           =   1935
   End
   Begin VB.PictureBox PicMSG 
      BackColor       =   &H00C0C0C0&
      BorderStyle     =   0  'None
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   120
      ScaleHeight     =   375
      ScaleWidth      =   4455
      TabIndex        =   6
      Top             =   3360
      Width           =   4452
   End
   Begin VB.TextBox TxtRoomICCount 
      Height          =   375
      Left            =   2160
      TabIndex        =   4
      Text            =   "8"
      Top             =   960
      Visible         =   0   'False
      Width           =   1935
   End
   Begin VB.CommandButton CmdCancel 
      Caption         =   "取消"
      Height          =   495
      Left            =   4680
      TabIndex        =   3
      Top             =   960
      Width           =   1215
   End
   Begin VB.CommandButton CmdSave 
      Caption         =   "保存"
      Height          =   495
      Left            =   4680
      TabIndex        =   2
      Top             =   240
      Width           =   1215
   End
   Begin VB.TextBox TxtCheckOutTime 
      Height          =   375
      Left            =   2160
      TabIndex        =   1
      Text            =   "12:00:00"
      Top             =   360
      Width           =   1935
   End
   Begin VB.Line Line1 
      X1              =   2040
      X2              =   5760
      Y1              =   3240
      Y2              =   3240
   End
   Begin VB.Label LblReadICNo 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2160
      TabIndex        =   12
      Top             =   2760
      Width           =   3615
   End
   Begin VB.Label Label5 
      Caption         =   "发卡机编号"
      Height          =   255
      Left            =   720
      TabIndex        =   11
      Top             =   2760
      Width           =   1335
   End
   Begin VB.Label Label4 
      Caption         =   "酒店名称"
      Height          =   255
      Left            =   1080
      TabIndex        =   10
      Top             =   2160
      Width           =   975
   End
   Begin VB.Label Label3 
      Caption         =   "通讯口(Com1,Com2)"
      Height          =   255
      Left            =   240
      TabIndex        =   8
      Top             =   1680
      Width           =   1935
   End
   Begin VB.Label Label2 
      Caption         =   "房间发卡数"
      Height          =   255
      Left            =   840
      TabIndex        =   5
      Top             =   1080
      Visible         =   0   'False
      Width           =   1095
   End
   Begin VB.Label Label1 
      Caption         =   "客人预定退房时间"
      Height          =   375
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   1935
   End
End
Attribute VB_Name = "FrmSetSystem"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCancel_Click()
   Unload Me
End Sub
Private Sub CmdSave_Click()
    Dim tTmp  As Date
    Dim iTmp As Integer
    Dim sTmp As String
    On Error GoTo ErrHand:
       tTmp = Time
       tTmp = Format(TxtCheckOutTime.Text, "long time")
       iTmp = Val(TxtRoomICCount.Text)
       If TxtComN.Text = 1 Or TxtComN.Text = 2 Then
            sTmp = TxtComN.Text
          Else
            MsgBox "串口输入错误，您只可以输入1 or 2"
            Exit Sub
       End If
               gCheckOutTime = tTmp
               gRoomICCount = iTmp
               gComN = sTmp
               gHotelName = TxtHotelName.Text
               'gRegisterNo = lblReadICNo.Text
               SysParaWrite
        Call RC_EventLog_Add("修改退房时间或每房间发卡数", gUserName, "")
        PicMSG.Cls
        PicMSG.Print "保存成功！"
        Exit Sub
ErrHand:
        PicMSG.Cls
        PicMSG.Print "保存失败！"
End Sub

Private Sub Form_Load()
              TxtCheckOutTime.Text = gCheckOutTime
              TxtRoomICCount.Text = gRoomICCount
              TxtComN.Text = gComN
              TxtHotelName.Text = gHotelName
              LblReadICNo.Caption = ReadRegisterNo
End Sub
Private Sub TxtRoomICCount_Change()
    If StrComp(TxtRoomICCount.Text, "99", vbTextCompare) = -1 And StrComp(TxtRoomICCount.Text, "0", vbTextCompare) = 1 Then
          CmdSave.Enabled = True
       Else
          MsgBox "请输入1~99的数据", vbInformation + vbOKOnly, "提示"
          CmdSave.Enabled = False
    End If
End Sub
Private Sub TxtSetTime_Change()
    If TxtSetTime.Text = "" Then
       CmdSave.Enabled = False
       Else
       CmdSave.Enabled = True
    End If
End Sub