kqserver.frm

考勤机的通讯程序

VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form FormKQ 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "上海嘉地仪器有限公司"
   ClientHeight    =   6060
   ClientLeft      =   2835
   ClientTop       =   2835
   ClientWidth     =   9390
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   ScaleHeight     =   6060
   ScaleWidth      =   9390
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame7 
      Caption         =   "上下办时间设置"
      Height          =   1335
      Left            =   120
      TabIndex        =   8
      Top             =   3000
      Width           =   4455
      Begin VB.CommandButton Comeditword 
         Caption         =   "修 改"
         Height          =   375
         Left            =   3000
         TabIndex        =   11
         Top             =   720
         Width           =   1095
      End
      Begin VB.TextBox TexWorkX 
         Height          =   270
         Left            =   1320
         TabIndex        =   10
         Top             =   840
         Width           =   1335
      End
      Begin VB.TextBox TexWorkSH 
         Height          =   270
         Left            =   1320
         TabIndex        =   9
         Top             =   360
         Width           =   1335
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "下班时间："
         Height          =   180
         Left            =   360
         TabIndex        =   31
         Top             =   840
         Width           =   900
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "上班时间："
         Height          =   180
         Left            =   360
         TabIndex        =   30
         Top             =   360
         Width           =   900
      End
   End
   Begin MSCommLib.MSComm MSComm1 
      Left            =   8280
      Top             =   0
      _ExtentX        =   1005
      _ExtentY        =   1005
      _Version        =   393216
      DTREnable       =   -1  'True
   End
   Begin VB.Frame Frame4 
      Caption         =   "从文件中采集"
      Height          =   975
      Left            =   120
      TabIndex        =   12
      Top             =   4560
      Width           =   4455
      Begin VB.CommandButton ComFileCJ 
         Caption         =   "开始采集"
         Height          =   375
         Left            =   2520
         TabIndex        =   14
         Top             =   360
         Width           =   1335
      End
      Begin VB.CommandButton ComOpenFile 
         Caption         =   "打开原数据文件"
         Height          =   375
         Left            =   480
         TabIndex        =   13
         Top             =   360
         Width           =   1575
      End
   End
   Begin VB.Timer TimJianceKQJ 
      Enabled         =   0   'False
      Interval        =   80
      Left            =   8160
      Top             =   1200
   End
   Begin VB.Frame Frame2 
      Caption         =   "手动采集"
      Height          =   4935
      Left            =   4680
      TabIndex        =   15
      Top             =   600
      Width           =   4575
      Begin VB.Timer TimJieSHouData 
         Enabled         =   0   'False
         Interval        =   80
         Left            =   3360
         Top             =   4200
      End
      Begin VB.CommandButton ComjieshouCJ 
         Cancel          =   -1  'True
         Caption         =   "接收考勤数据"
         Height          =   615
         Left            =   360
         TabIndex        =   26
         Top             =   4080
         Width           =   3855
      End
      Begin VB.Frame Frame6 
         Caption         =   "连接数据库"
         Height          =   1695
         Left            =   360
         TabIndex        =   21
         Top             =   2160
         Width           =   3855
         Begin VB.TextBox TexUserpw 
            Height          =   270
            IMEMode         =   3  'DISABLE
            Left            =   960
            PasswordChar    =   "*"
            TabIndex        =   23
            Top             =   840
            Width           =   1695
         End
         Begin VB.CommandButton Comlianjie 
            Caption         =   "连接"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   495
            Left            =   2880
            TabIndex        =   24
            Top             =   600
            Width           =   855
         End
         Begin VB.TextBox TexUsername 
            Height          =   270
            Left            =   960
            TabIndex        =   22
            Top             =   360
            Width           =   1695
         End
         Begin VB.Label Labshjk 
            BackColor       =   &H80000011&
            BorderStyle     =   1  'Fixed Single
            Height          =   255
            Left            =   120
            TabIndex        =   25
            Top             =   1320
            Width           =   3615
         End
         Begin VB.Label Label7 
            Caption         =   "密　码："
            Height          =   255
            Left            =   240
            TabIndex        =   28
            Top             =   960
            Width           =   735
         End
         Begin VB.Label Label6 
            Caption         =   "用户名："
            Height          =   255
            Left            =   240
            TabIndex        =   27
            Top             =   480
            Width           =   735
         End
      End
      Begin VB.Frame Frame5 
         Caption         =   "连接考勤机"
         Height          =   1695
         Left            =   360
         TabIndex        =   16
         Top             =   360
         Width           =   3855
         Begin VB.ComboBox ComboChuankouhao 
            Height          =   300
            ItemData        =   "kqserver.frx":0000
            Left            =   1440
            List            =   "kqserver.frx":000A
            Style           =   2  'Dropdown List
            TabIndex        =   18
            Top             =   360
            Width           =   1455
         End
         Begin VB.CommandButton Comjiance 
            Caption         =   "检 测"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   10.5
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   375
            Left            =   1920
            TabIndex        =   19
            Top             =   840
            Width           =   1695
         End
         Begin VB.Label Labkqj 
            BackColor       =   &H80000011&
            BorderStyle     =   1  'Fixed Single
            Height          =   255
            Left            =   120
            TabIndex        =   20
            Top             =   1320
            Width           =   3615
         End