调整积数.frm

财务信息管理系统,适合做毕业论文的人使用

            Height          =   180
            Index           =   5
            Left            =   2940
            TabIndex        =   22
            Top             =   450
            Width           =   900
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "总积数"
            Height          =   180
            Index           =   2
            Left            =   450
            TabIndex        =   20
            Top             =   450
            Width           =   540
         End
      End
   End
   Begin EDITLib.Edit edtRq 
      Height          =   270
      Left            =   4680
      TabIndex        =   1
      Top             =   195
      Width           =   1065
      _Version        =   65536
      _ExtentX        =   1879
      _ExtentY        =   476
      _StockProps     =   253
      ForeColor       =   0
      BackColor       =   16777215
      Appearance      =   1
      Property        =   5
      MaxLength       =   10
   End
   Begin EDITLib.Edit edtAcc 
      Height          =   270
      Left            =   1080
      TabIndex        =   0
      Top             =   195
      Width           =   1605
      _Version        =   65536
      _ExtentX        =   2831
      _ExtentY        =   476
      _StockProps     =   253
      ForeColor       =   0
      BackColor       =   16777215
      Appearance      =   1
      MaxLength       =   60
      BadStr          =   "|'"""
   End
   Begin UsRefBut.RefCmd RefCmd1 
      Height          =   270
      Left            =   2730
      TabIndex        =   13
      Top             =   210
      Width           =   270
      _ExtentX        =   476
      _ExtentY        =   476
      RefMode         =   1
      RefUnitMode     =   0
      RefAccMode      =   0
      Enabled         =   -1  'True
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "日  期"
      Height          =   180
      Index           =   1
      Left            =   4050
      TabIndex        =   16
      Top             =   240
      Width           =   540
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "账户号"
      Height          =   180
      Index           =   0
      Left            =   480
      TabIndex        =   15
      Top             =   240
      Width           =   540
   End
End
Attribute VB_Name = "frmTuneJS"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private WithEvents m_oAccSum As CAccSum
Attribute m_oAccSum.VB_VarHelpID = -1

Private Sub cmdChange_Click()
   Dim cJs     As Currency
   Dim cJs_cad As Currency
   
   If optIncrease.Value Then
      If edtInJs = "" Then
         MsgBox "请输入积数！", vbInformation, zjGl_Name
         edtInJs.SetFocus
         Exit Sub
      End If
      If edtInJs_Cad = "" Then
         MsgBox "请输入积数！", vbInformation, zjGl_Name
         edtInJs_Cad.SetFocus
         Exit Sub
      End If
      cJs = edtInJs
      cJs_cad = edtInJs_Cad
   Else
      If edtAbsJs = "" Then
         MsgBox "请输入积数！", vbInformation, zjGl_Name
         edtAbsJs.SetFocus
         Exit Sub
      End If
      If edtAbsJs_Cad = "" Then
         MsgBox "请输入积数！", vbInformation, zjGl_Name
         edtAbsJs_Cad.SetFocus
         Exit Sub
      End If
      cJs = edtAbsJs - edtJs
      cJs_cad = edtAbsJs_Cad - edtJs_Cad
   End If
   
   If m_oAccSum.TuneJs(cJs, cJs_cad) = 0 Then
      MsgBox "成功地完成对账户 [" & m_oAccSum.AccID & "] 的积数调整！", vbInformation, zjGl_Name
      ReadJs
   Else
      MsgBox "在积数调整过程中出现错误，请过一会儿再试！", vbInformation, zjGl_Name
   End If
End Sub

Private Sub cmdExit_Click()
   Unload Me
End Sub

Private Sub cmdrq_Click()
   DisplayCalendar edtRq, Me.hWnd
End Sub

Private Sub edtAbsJs_Cad_GotFocus()
   SetTxtFocus edtAbsJs_Cad
End Sub

Private Sub edtAbsJs_GotFocus()
   SetTxtFocus edtAbsJs
End Sub

Private Sub edtAcc_Change()
   ReadJs
End Sub

Private Sub edtInJs_Cad_GotFocus()
   SetTxtFocus edtInJs_Cad
End Sub

Private Sub edtInJs_GotFocus()
   SetTxtFocus edtInJs
End Sub

Private Sub edtRq_Change()
   ReadJs
End Sub

Private Sub edtRq_LostFocus()
   edtRq = ForDate(edtRq)
End Sub

Private Sub Form_Initialize()
   Set m_oAccSum = New CAccSum
End Sub

Private Sub Form_Load()
   m_oAccSum.Init dbsZJ
   
   edtAbsJs.Enabled = False
   edtAbsJs_Cad.Enabled = False
   cmdrq.Picture = LoadResPicture(1108, vbResBitmap)
   
   NotMatched
   
   CenterForm Me
End Sub

Private Sub Form_Terminate()
   Set m_oAccSum = Nothing
End Sub

Private Sub m_oAccSum_IsMatched(bMatched As Boolean)
   If bMatched Then
      IsMatched
   Else
      NotMatched
   End If
End Sub

Private Sub optAbs_Click()
   edtInJs.Enabled = False
   edtInJs_Cad.Enabled = False
   edtAbsJs.Enabled = True
   edtAbsJs_Cad.Enabled = True
   
   If edtAbsJs = "" Then edtAbsJs = "0.00"
   If edtAbsJs_Cad = "" Then edtAbsJs_Cad = "0.00"
   
   edtAbsJs.SetFocus
End Sub

Private Sub optIncrease_Click()
   edtInJs.Enabled = True
   edtInJs_Cad.Enabled = True
   edtAbsJs.Enabled = False
   edtAbsJs_Cad.Enabled = False
   
   If edtInJs = "" Then edtInJs = "0.00"
   If edtInJs_Cad = "" Then edtInJs_Cad = "0.00"
   
   edtInJs.SetFocus
End Sub

Private Sub RefCmd1_Initialize()
   RefCmd1.InitSys 0, dbsZJ
   RefCmd1.InitSys 1, edtAcc
End Sub

Private Sub RefCmd1_RefCancel()
   edtAcc.SetFocus
End Sub

Private Sub RefCmd1_RefOK(Code As String)
   edtAcc = Code
   edtAcc.SetFocus
End Sub

Private Sub ReadJs()
   Dim sRq  As String
   
   sRq = ForDate(edtRq)
   If IsDate(sRq) Then
      m_oAccSum.Retrieve edtAcc, CDate(sRq)
   Else
      NotMatched
   End If
End Sub

Private Sub NotMatched()
   edtJs = ""
   edtJs_Cad = ""
   edtAbsJs = ""
   edtAbsJs_Cad = ""
   cmdChange.Enabled = False
End Sub

Private Sub IsMatched()
   edtJs = FormatCur(m_oAccSum.Mh)
   edtJs_Cad = FormatCur(m_oAccSum.Mcdeh)
   edtAbsJs = Format(m_oAccSum.Mh, "#0.00")
   edtAbsJs_Cad = Format(m_oAccSum.Mcdeh, "#0.00")
   cmdChange.Enabled = True
End Sub