frmtimecard.frm

这是一个银行IC卡门禁系统软件

VERSION 5.00
Object = "{065E6FD1-1BF9-11D2-BAE8-00104B9E0792}#3.0#0"; "SSA3D30.OCX"
Object = "{8C3D4AA0-2599-11D2-BAF1-00104B9E0792}#3.0#0"; "SSSPLT30.OCX"
Begin VB.Form frmTimeCard 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "发时间卡"
   ClientHeight    =   2955
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4380
   Icon            =   "frmTimeCard.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   2955
   ScaleWidth      =   4380
   ShowInTaskbar   =   0   'False
   Begin SSSplitter.SSSplitter SSSplitter1 
      Height          =   2955
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4380
      _ExtentX        =   7726
      _ExtentY        =   5212
      _Version        =   196610
      AutoSize        =   1
      BorderStyle     =   0
      PaneTree        =   "frmTimeCard.frx":000C
      Begin Threed.SSPanel SSPanel1 
         Height          =   2955
         Left            =   0
         TabIndex        =   1
         Top             =   0
         Width           =   4380
         _ExtentX        =   7726
         _ExtentY        =   5212
         _Version        =   196610
         BevelInner      =   1
         RoundedCorners  =   0   'False
         FloodShowPct    =   -1  'True
         Begin VB.Timer Timer1 
            Interval        =   1000
            Left            =   180
            Top             =   150
         End
         Begin Threed.SSFrame fraIC 
            Height          =   1095
            Left            =   360
            TabIndex        =   2
            Top             =   960
            Width           =   3675
            _ExtentX        =   6482
            _ExtentY        =   1931
            _Version        =   196610
            BackStyle       =   1
            Begin VB.TextBox txtDelay 
               Height          =   300
               Left            =   1560
               TabIndex        =   8
               Text            =   "5"
               Top             =   600
               Width           =   1815
            End
            Begin VB.TextBox txtTime 
               Height          =   300
               Left            =   1560
               Locked          =   -1  'True
               TabIndex        =   6
               Top             =   120
               Width           =   1815
            End
            Begin VB.Label Label3 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "卡上提前时间:"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   9.75
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   195
               Left            =   120
               TabIndex        =   7
               Top             =   720
               Width           =   1275
            End
            Begin VB.Label Label1 
               AutoSize        =   -1  'True
               BackStyle       =   0  'Transparent
               Caption         =   "当前时间:"
               BeginProperty Font 
                  Name            =   "宋体"
                  Size            =   9.75
                  Charset         =   134
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   195
               Left            =   480
               TabIndex        =   5
               Top             =   240
               Width           =   885
            End
         End
         Begin Threed.SSCommand cmdIssue 
            Height          =   555
            Left            =   2280
            TabIndex        =   3
            Top             =   2160
            Width           =   1305
            _ExtentX        =   2302
            _ExtentY        =   979
            _Version        =   196610
            PictureFrames   =   1
            BackStyle       =   1
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "宋体"
               Size            =   9.75
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Picture         =   "frmTimeCard.frx":0040
            Caption         =   "发时间卡"
            Alignment       =   4
            ButtonStyle     =   3
            PictureAlignment=   1
         End
         Begin VB.Label Label4 
            AutoSize        =   -1  'True
            BackStyle       =   0  'Transparent
            Caption         =   "时 间 卡"
            BeginProperty Font 
               Name            =   "楷体_GB2312"
               Size            =   18
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   360
            Left            =   1320
            TabIndex        =   4
            Top             =   300
            Width           =   1440
         End
         Begin VB.Line Line1 
            X1              =   330
            X2              =   4080
            Y1              =   810
            Y2              =   810
         End
      End
   End
End
Attribute VB_Name = "frmTimeCard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdIssue_Click()
Dim card As New JalTM.GuestCard
Dim strDate As Date
   
   strDate = DateAdd("n", CLng(txtDelay.Text), Now())
   card.hotelcode = 8726
   card.begindatetime = strDate
   card.twrite
   StatusShow ("制时间卡成功")
   Exit Sub

End Sub

Private Sub Form_Load()
    Me.Top = (mainForm.ScaleHeight - Me.Height) / 2
    Me.Left = (mainForm.ScaleWidth - Me.Width) / 2
    
    SSPanel1.PictureBackground = mainForm.Pic.Picture
    SSPanel1.PictureBackgroundStyle = ssTiled

End Sub

Private Sub Timer1_Timer()
txtTime.Text = Now()
End Sub

Private Sub txtCode_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
   cmdIssue.SetFocus
End If
End Sub