frmsalaryputzero.frm

金算盘软件代码

VERSION 5.00
Object = "{81110CCB-022B-11D3-A348-0080C89152FF}#1.3#0"; "ORAGLIST.OCX"
Begin VB.Form frmSalaryPutZero 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "发放扣零"
   ClientHeight    =   2025
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4020
   HelpContextID   =   60125
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2025
   ScaleWidth      =   4020
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdButton 
      Height          =   330
      Index           =   1
      Left            =   2850
      Style           =   1  'Graphical
      TabIndex        =   6
      Top             =   525
      UseMaskColor    =   -1  'True
      Width           =   1095
   End
   Begin VB.CommandButton cmdButton 
      Height          =   330
      Index           =   0
      Left            =   2850
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   165
      UseMaskColor    =   -1  'True
      Width           =   1095
   End
   Begin VB.Frame fra 
      Height          =   1830
      Index           =   0
      Left            =   90
      TabIndex        =   0
      Top             =   90
      Width           =   2670
      Begin VB.Frame fra 
         Caption         =   "说明"
         Height          =   795
         Index           =   2
         Left            =   105
         TabIndex        =   3
         Top             =   915
         Width           =   2430
         Begin VB.Label Label1 
            Caption         =   "    将上次扣零的余额计入本次的扣零发放项目。"
            Height          =   450
            Left            =   105
            TabIndex        =   4
            Top             =   255
            Width           =   2220
         End
      End
      Begin VB.Frame fra 
         Caption         =   "扣零发放项目"
         Height          =   630
         Index           =   1
         Left            =   105
         TabIndex        =   1
         Top             =   225
         Width           =   2430
         Begin ListRefer.ListText litEdit 
            Height          =   285
            Left            =   90
            TabIndex        =   2
            Top             =   240
            Width           =   2220
            _ExtentX        =   3916
            _ExtentY        =   503
            AutoPop         =   0   'False
            BackColor       =   -2147483643
            BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
               Name            =   "宋体"
               Size            =   9
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
         End
      End
   End
End
Attribute VB_Name = "frmSalaryPutZero"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private mstrSql As String
Private mblnOk As Boolean
Private mlngDeductPutFieldID As Long

Private Sub cmdButton_Click(Index As Integer)
    If Index = 0 Then
        If litEdit.ID <= 0 Then
            ShowMsg Me.hwnd, "请选择扣零发放项目.", vbInformation, Me.Caption
            Exit Sub
        End If
        mblnOk = True
    Else
        mblnOk = False
    End If
    Me.Hide
End Sub

Private Sub Form_Activate()
    SetHelpID Me.HelpContextID
End Sub

Private Sub Form_Load()
    '初始化发放扣零项目
    Call InitZeroItem
    Set Me.Icon = Utility.GetFormResPicture(139, vbResIcon)
    cmdButton(0).Picture = Utility.GetFormResPicture(1001, 0)
    cmdButton(1).Picture = Utility.GetFormResPicture(1002, 0)
    Me.Left = (Screen.width - Me.width) / 2
    Me.top = (Screen.Height - Me.Height) / 2
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Utility.RemoveFormResPicture (139)
    Utility.RemoveFormResPicture (1001)
    Utility.RemoveFormResPicture (1002)
    Set frmsalaryputzaro = Nothing
End Sub
'初始化发放扣零项目
Private Sub InitZeroItem()
    Dim strSql As String
    Dim rec As rdoResultset
    
    Set rec = gclsBase.BaseDB.OpenResultset(mstrSql, rdOpenStatic)
    If Not rec.EOF() Then
        rec.MoveLast
        rec.MoveFirst
    Else
        Exit Sub
    End If
    litEdit.SQL = mstrSql
    litEdit.SeekCol = "1,2"
    litEdit.CodeSort = True
    Set litEdit.Recordset = rec
    'Set litEdit.Resultset = Rec
    rec.Close
    Set rec = Nothing
    '扣零发放项目
    If mlngDeductPutFieldID > 0 Then
        litEdit.SeekId mlngDeductPutFieldID
    End If
End Sub
'发放扣零
Public Function PutZero(ByRef blnOK As Boolean, ByRef lngDeductPutFieldID As Long, ByVal strSql As String) As Boolean
    mlngDeductPutFieldID = lngDeductPutFieldID
    mstrSql = strSql
    Me.Show vbModal
    lngDeductPutFieldID = Val(litEdit.TextMatrix(litEdit.ReferRow, 1))
    If lngDeductPutFieldID > 0 Then
        PutZero = True
    End If
    blnOK = mblnOk
    Unload Me
End Function