frmdatacard.frm

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

VERSION 5.00
Object = "{065E6FD1-1BF9-11D2-BAE8-00104B9E0792}#3.0#0"; "SSA3D30.OCX"
Begin VB.Form frmDataCard 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "发数据卡"
   ClientHeight    =   1635
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5145
   Icon            =   "frmDataCard.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   1635
   ScaleWidth      =   5145
   ShowInTaskbar   =   0   'False
   Begin Threed.SSPanel SSPanel1 
      Height          =   1680
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   5175
      _ExtentX        =   9128
      _ExtentY        =   2963
      _Version        =   196610
      PictureBackgroundStyle=   2
      BevelInner      =   1
      RoundedCorners  =   0   'False
      FloodShowPct    =   -1  'True
      Begin Threed.SSFrame SSFrame1 
         Height          =   495
         Left            =   360
         TabIndex        =   1
         Top             =   270
         Width           =   4485
         _ExtentX        =   7911
         _ExtentY        =   873
         _Version        =   196610
         BackStyle       =   1
         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            =   210
            TabIndex        =   2
            Top             =   120
            Width           =   4095
         End
      End
      Begin Threed.SSCommand cmdIssue 
         Height          =   465
         Left            =   1560
         TabIndex        =   3
         Top             =   960
         Width           =   1335
         _ExtentX        =   2355
         _ExtentY        =   820
         _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         =   "frmDataCard.frx":000C
         Caption         =   "发数据卡"
         Alignment       =   4
         ButtonStyle     =   3
         PictureAlignment=   1
      End
   End
End
Attribute VB_Name = "frmDataCard"
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.datacard
   '写卡
   card.hotelcode = 8726
   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 txtCode_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
   cmdIssue.SetFocus
End If
End Sub