开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > 其他数据库 > 查看源码
frmSelPos.frm
资源名称：考勤6.rar　[点击查看]
上传用户：djzm888
上传日期：2013-02-15
资源大小：867k
文件大小：2k
源码类别：

其他数据库

开发平台：

Visual Basic

frmSelPos.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form frmSelPos 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "考勤机选择"
  5.    ClientHeight    =   1740
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4500
  9.    BeginProperty Font 
  10.       Name            =   "宋体"
  11.       Size            =   10.5
  12.       Charset         =   134
  13.       Weight          =   400
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    Icon            =   "frmSelPos.frx":0000
  19.    LinkTopic       =   "Form1"
  20.    MaxButton       =   0   'False
  21.    MinButton       =   0   'False
  22.    ScaleHeight     =   1740
  23.    ScaleWidth      =   4500
  24.    ShowInTaskbar   =   0   'False
  25.    StartUpPosition =   1  '所有者中心
  26.    Begin VB.CommandButton cmdPos 
  27.       Height          =   435
  28.       Index           =   1
  29.       Left            =   2558
  30.       Picture         =   "frmSelPos.frx":000C
  31.       Style           =   1  'Graphical
  32.       TabIndex        =   3
  33.       Top             =   1005
  34.       Width           =   1215
  35.    End
  36.    Begin VB.CommandButton cmdPos 
  37.       Height          =   435
  38.       Index           =   0
  39.       Left            =   728
  40.       Picture         =   "frmSelPos.frx":1D4B
  41.       Style           =   1  'Graphical
  42.       TabIndex        =   2
  43.       Top             =   1005
  44.       Width           =   1215
  45.    End
  46.    Begin VB.ComboBox cboPos 
  47.       Height          =   330
  48.       Left            =   1935
  49.       Style           =   2  'Dropdown List
  50.       TabIndex        =   1
  51.       Top             =   270
  52.       Width           =   2100
  53.    End
  54.    Begin VB.Label Label1 
  55.       AutoSize        =   -1  'True
  56.       Caption         =   "请选择考勤机:"
  57.       Height          =   210
  58.       Left            =   300
  59.       TabIndex        =   0
  60.       Top             =   330
  61.       Width           =   1365
  62.    End
  63. End
  64. Attribute VB_Name = "frmSelPos"
  65. Attribute VB_GlobalNameSpace = False
  66. Attribute VB_Creatable = False
  67. Attribute VB_PredeclaredId = True
  68. Attribute VB_Exposed = False
  69. Option Explicit
  70. Dim mSql As String
  71. Dim mRst As Recordset
  72. Public mIsOk As Boolean
  73. Public mPosName As String
  75. Private Sub cmdPos_Click(Index As Integer)
  76.     If Index = 0 Then
  77.         Dim intNumber As Integer
  78.         getItemData cboPos, intNumber
  79.         gPosNumber = intNumber
  80.         mPosName = Trim(cboPos.Text)
  81.     End If
  82.     mIsOk = (Index = 0)
  83.     Me.Hide
  84. End Sub
  86. Private Sub Form_Load()
  87.     GetPosToCbo cboPos
  88. End Sub