form2.frm

一个简单的学校信息管理系统

VERSION 5.00
Begin VB.Form Form2 
   Caption         =   "Form2"
   ClientHeight    =   6600
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7545
   LinkTopic       =   "Form2"
   ScaleHeight     =   6600
   ScaleWidth      =   7545
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox txt应发工资 
      DataField       =   "应发工资"
      DataMember      =   "newpay"
      DataSource      =   "DataEnvironment1"
      Height          =   285
      Left            =   2160
      TabIndex        =   14
      Top             =   1545
      Width           =   1320
   End
   Begin VB.CommandButton cmdleft 
      Height          =   420
      Left            =   810
      Picture         =   "Form2.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   11
      Top             =   3255
      Width           =   540
   End
   Begin VB.CommandButton Cmdright 
      Height          =   420
      Left            =   3570
      Picture         =   "Form2.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   10
      Top             =   3255
      Width           =   600
   End
   Begin VB.TextBox txt实发工资 
      DataField       =   "实发工资"
      DataMember      =   "newpay"
      DataSource      =   "DataEnvironment1"
      Height          =   285
      Left            =   2160
      TabIndex        =   9
      Top             =   2335
      Width           =   660
   End
   Begin VB.TextBox txt扣款 
      DataField       =   "扣款"
      DataMember      =   "newpay"
      DataSource      =   "DataEnvironment1"
      Height          =   285
      Left            =   2160
      TabIndex        =   7
      Top             =   1955
      Width           =   1320
   End
   Begin VB.TextBox txt性别 
      DataField       =   "性别"
      DataMember      =   "newpay"
      DataSource      =   "DataEnvironment1"
      Height          =   285
      Left            =   2160
      TabIndex        =   5
      Top             =   1195
      Width           =   330
   End
   Begin VB.TextBox txt姓名 
      DataField       =   "姓名"
      DataMember      =   "newpay"
      DataSource      =   "DataEnvironment1"
      Height          =   285
      Left            =   2160
      TabIndex        =   3
      Top             =   815
      Width           =   990
   End
   Begin VB.TextBox txt编号 
      DataField       =   "编号"
      DataMember      =   "newpay"
      DataSource      =   "DataEnvironment1"
      Height          =   285
      Left            =   2160
      TabIndex        =   1
      Top             =   435
      Width           =   660
   End
   Begin VB.Label lblFieldLabel 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "应发工资:"
      Height          =   255
      Index           =   3
      Left            =   315
      TabIndex        =   13
      Top             =   1590
      Width           =   1815
   End
   Begin VB.Label recno 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   1  'Fixed Single
      Height          =   405
      Left            =   1335
      TabIndex        =   12
      Top             =   3240
      Width           =   2250
   End
   Begin VB.Label lblFieldLabel 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "实发工资:"
      Height          =   255
      Index           =   5
      Left            =   315
      TabIndex        =   8
      Top             =   2380
      Width           =   1815
   End
   Begin VB.Label lblFieldLabel 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "扣款:"
      Height          =   255
      Index           =   4
      Left            =   315
      TabIndex        =   6
      Top             =   2000
      Width           =   1815
   End
   Begin VB.Label lblFieldLabel 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "性别:"
      Height          =   255
      Index           =   2
      Left            =   315
      TabIndex        =   4
      Top             =   1240
      Width           =   1815
   End
   Begin VB.Label lblFieldLabel 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "姓名:"
      Height          =   255
      Index           =   1
      Left            =   315
      TabIndex        =   2
      Top             =   860
      Width           =   1815
   End
   Begin VB.Label lblFieldLabel 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Caption         =   "编号:"
      Height          =   255
      Index           =   0
      Left            =   315
      TabIndex        =   0
      Top             =   480
      Width           =   1815
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdleft_Click()
  If DataEnvironment1.rsnewpay.AbsolutePosition > 1 Then
    DataEnvironment1.rsnewpay.MovePrevious
    recno.Caption = "记录" & DataEnvironment1.rsnewpay.AbsolutePosition
  End If
End Sub

Private Sub Cmdright_Click()
  If DataEnvironment1.rsnewpay.AbsolutePosition < DataEnvironment1.rsnewpay.RecordCount Then
    DataEnvironment1.rsnewpay.MoveNext
    recno.Caption = "记录" & DataEnvironment1.rsnewpay.AbsolutePosition
  End If
End Sub