frmbankstyle.frm

金算盘软件代码

VERSION 5.00
Object = "{D252F124-F62C-11D1-9ABD-444553540000}#1.0#0"; "GADATE.DLL"
Begin VB.Form frmBankStyle 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "选择对帐及参照方式"
   ClientHeight    =   2100
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4395
   HelpContextID   =   60101
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2100
   ScaleWidth      =   4395
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CheckBox chkDate 
      Caption         =   "日期相差"
      Height          =   195
      Left            =   270
      TabIndex        =   8
      Top             =   300
      Value           =   1  'Checked
      Width           =   1032
   End
   Begin VB.OptionButton optMoney 
      Caption         =   "付款方式+票据号+金额"
      Height          =   225
      Index           =   3
      Left            =   240
      TabIndex        =   5
      Top             =   1710
      Width           =   2115
   End
   Begin VB.OptionButton optMoney 
      Caption         =   "付款方式+金额"
      Height          =   195
      Index           =   2
      Left            =   240
      TabIndex        =   4
      Top             =   1356
      Width           =   1635
   End
   Begin GACALENDARLibCtl.SpinEdit sptDiff 
      Height          =   240
      Left            =   1320
      OleObjectBlob   =   "frmBankStyle.frx":0000
      TabIndex        =   0
      Top             =   270
      Width           =   705
   End
   Begin VB.CommandButton cmdOK 
      Cancel          =   -1  'True
      Height          =   350
      Index           =   1
      Left            =   3090
      Style           =   1  'Graphical
      TabIndex        =   7
      Tag             =   "1002"
      Top             =   600
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdOK 
      Height          =   350
      Index           =   0
      Left            =   3090
      Style           =   1  'Graphical
      TabIndex        =   6
      Tag             =   "1001"
      Top             =   210
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.OptionButton optMoney 
      Caption         =   "金额"
      Height          =   195
      Index           =   0
      Left            =   240
      TabIndex        =   2
      Top             =   652
      Value           =   -1  'True
      Width           =   1635
   End
   Begin VB.OptionButton optMoney 
      Caption         =   "票据号 + 金额"
      Height          =   195
      Index           =   1
      Left            =   240
      TabIndex        =   3
      Top             =   1004
      Width           =   1635
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "天之内"
      Height          =   180
      Left            =   2070
      TabIndex        =   1
      Top             =   300
      Width           =   540
   End
End
Attribute VB_Name = "frmBankStyle"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''
'
'对帐方式设置窗体
'
'作者：苏涛
'
'日期：1998-07-03
'
'接口： 全局变量:gintDiff,gblnBySum,gstrEndDate
'
''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Option Compare Text

Private Sub chkDate_Click()
    If chkDate.Value = vbChecked Then
        sptDiff.Enable = True
        sptDiff.BackColor = &H80000005
        sptDiff.Value = gintDiff
'        gblnByDay = True
    Else
        sptDiff.Enable = False
        sptDiff.Text = " "
        sptDiff.BackColor = &H80000004
'        gblnByDay = False
    End If
End Sub

Private Sub cmdOK_Click(Index As Integer)
    Dim i As Integer ', dblBalance As Double
    
    If Index = 0 Then
        If chkDate.Value = vbChecked Then
            gintDiff = sptDiff.Value
            gblnByDay = True
        Else
            gblnByDay = False
        End If
        For i = 0 To 3
            If optMoney(i).Value Then
                gintMatchModel = i + 1
            End If
        Next i
    End If
    Unload Me
End Sub

Private Sub Form_Activate()
    SetHelpID Me.HelpContextID
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
        If Shift = 2 Then
            cmdOk(0).Value = True
        Else
            BKKEY Me.ActiveControl.hwnd, vbKeyTab
        End If
    End If
End Sub

Private Sub Form_Load()
    Dim edtErrReturn As ErrDealType
    
    On Error GoTo ErrHandle
'    SetHelpID hwnd, 60101
    Utility.LoadFormResPicture Me
'    dteEnd.Text = Trim$(gstrEndDate)
    sptDiff.Value = gintDiff
'    If gblnBySum Then
'        optMoney(0).Value = True
'    Else
'        optMoney(1).Value = True
'    End If
    optMoney(gintMatchModel - 1).Value = True
    chkDate.Value = IIf(gblnByDay, Checked, Unchecked)
    Exit Sub
ErrHandle:
    edtErrReturn = Errors.ErrorsDeal
    
    If edtErrReturn = edtResume Then
         Resume
    Else
         On Error Resume Next
         Unload Me
    End If
End Sub

Private Sub Form_Paint()
    FrameBox hwnd, 48, 176, 48 + 2976, 176 + 1776
End Sub

Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    Utility.UnLoadFormResPicture Me
End Sub

Private Sub sptDiff_Change()
    On Error Resume Next
    If Not ContainSpecifyChar(sptDiff.Text) Then
        SendKeys "{BS}"
    Else
        If Left(sptDiff.Text, 1) = "0" And Len(sptDiff.Text) > 1 Then SendKeys "{BS}"
        If sptDiff.Text <> "" Then
            If CInt(sptDiff.Text) > sptDiff.Max Then sptDiff.Text = CStr(sptDiff.Max)
        End If
    End If
End Sub

Private Sub sptDiff_LostFocus()
    If sptDiff.Text = "" Then sptDiff.Text = "0"
End Sub