frm临发查询.frm

(VB)事业单位工资管理系统 +源码+25000字论文+开题+文献+外文翻译+论文答辩稿

VERSION 5.00
Begin VB.Form frm临发查询 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "临时发放汇总查询"
   ClientHeight    =   1695
   ClientLeft      =   1095
   ClientTop       =   330
   ClientWidth     =   5550
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1695
   ScaleWidth      =   5550
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox picButtons 
      Align           =   2  'Align Bottom
      Appearance      =   0  'Flat
      BorderStyle     =   0  'None
      ForeColor       =   &H80000008&
      Height          =   450
      Left            =   0
      ScaleHeight     =   450
      ScaleWidth      =   5550
      TabIndex        =   6
      Top             =   870
      Width           =   5550
      Begin VB.CommandButton cmd关闭 
         Caption         =   "关闭(&C)"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   12
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   390
         Left            =   2315
         TabIndex        =   7
         Top             =   30
         Width           =   1155
      End
   End
   Begin VB.Data datPrimaryRS 
      Align           =   2  'Align Bottom
      Caption         =   " "
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  '缺省游标
      DefaultType     =   2  '使用 ODBC
      Exclusive       =   0   'False
      Height          =   375
      Left            =   0
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   "select * from [lfhzk]"
      Top             =   1320
      Width           =   5550
   End
   Begin VB.TextBox txtFields 
      DataField       =   "实发现金"
      DataSource      =   "datPrimaryRS"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Index           =   2
      Left            =   1410
      TabIndex        =   5
      Top             =   465
      Width           =   1935
   End
   Begin VB.TextBox txtFields 
      DataField       =   "部门"
      DataSource      =   "datPrimaryRS"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Index           =   1
      Left            =   3210
      MaxLength       =   10
      TabIndex        =   3
      Top             =   75
      Width           =   1365
   End
   Begin VB.TextBox txtFields 
      DataField       =   "性质"
      DataSource      =   "datPrimaryRS"
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Index           =   0
      Left            =   930
      MaxLength       =   4
      TabIndex        =   1
      Top             =   60
      Width           =   1395
   End
   Begin VB.Label lblLabels 
      Caption         =   "实发现金:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   2
      Left            =   120
      TabIndex        =   4
      Top             =   495
      Width           =   1185
   End
   Begin VB.Label lblLabels 
      Caption         =   "部门:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   2400
      TabIndex        =   2
      Top             =   75
      Width           =   705
   End
   Begin VB.Label lblLabels 
      Caption         =   "性质:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   60
      Width           =   705
   End
End
Attribute VB_Name = "frm临发查询"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmd关闭_Click()
  Screen.MousePointer = vbDefault
  Unload Me
End Sub
Private Sub datPrimaryRS_Error(DataErr As Integer, Response As Integer)
  '错误处理程序代码置于此处
  '想要忽略错误，注释掉下一行
  '想要俘获它们，在此添加代码处理它们
  MsgBox "Data error event hit err:" & Error$(DataErr)
  Response = 0  '忽略错误
End Sub
Private Sub datPrimaryRS_Reposition()
  Screen.MousePointer = vbDefault
  On Error Resume Next
  '为 dynasets 和快照显示当前记录位置
  datPrimaryRS.Caption = "Record: " & (datPrimaryRS.Recordset.AbsolutePosition + 1)
End Sub
Private Sub datPrimaryRS_Validate(Action As Integer, Save As Integer)
  '验证代码置于此处
  '下列动作发生时该事件被调用
  Select Case Action
    Case vbDataActionMoveFirst
    Case vbDataActionMovePrevious
    Case vbDataActionMoveNext
    Case vbDataActionMoveLast
    Case vbDataActionAddNew
    Case vbDataActionUpdate
    Case vbDataActionDelete
    Case vbDataActionFind
    Case vbDataActionBookmark
    Case vbDataActionClose
      Screen.MousePointer = vbDefault
  End Select
      Screen.MousePointer = vbHourglass
End Sub
Private Sub Form_Unload(Cancel As Integer)
  Screen.MousePointer = vbDefault
End Sub