银行存款.frm

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

                .MoveLast
            End If
            Carddata
            ckdbutt
        End If
    End With
End Sub

Private Sub Editje_KeyPress(Index As Integer, KeyAscii As Integer)
    If KeyAscii = 45 And Index = 1 Then
        KeyAscii = 0
    End If
End Sub

Private Sub Editmonth_KeyPress(KeyAscii As Integer)
    If KeyAscii = 45 Then
        KeyAscii = 0
    End If
End Sub
' 银行名称参照
Private Sub Refyhmc_Initialize()
    RefYhmc.InitSys 0, dbsZJ
    RefYhmc.InitSys 1, Edityhmc.Text
End Sub

Private Sub Refyhmc_RefCancel()
    Edityhmc.SetFocus
End Sub

Private Sub Refyhmc_RefOK(Code As String)
    Edityhmc.Text = Code
    Edityhmc.SetFocus
End Sub

Private Sub Refyhzh_Initialize()
    Refyhzh.InitSys 0, dbsZJ
    Refyhzh.InitSys 1, Edityhzh.Text
    Refyhzh.InitSys 2, Edityhmc.Text
End Sub

Private Sub Refyhzh_RefCancel()
    Edityhzh.SetFocus
End Sub

Private Sub Refyhzh_RefOK(Code As String)
    Edityhzh.Text = Code
    Edityhzh.SetFocus
End Sub
' 业务编号按键
Private Sub Editbh_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys "{Tab}"
    End If
End Sub

Private Sub Editbh_LostFocus()
    If IsNew Then
        If Len(Editbh.Text) > 0 Then
            Editbh.Text = Right("00000000" & Editbh.Text, 8)
        End If
    End If
End Sub
' 业务日期按键
Private Sub Editrq_Change()
    Tbr_Change
    isEnt(0) = True
End Sub

Private Sub Editrq_Keyup(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 And isEnt(0) Then
        SendKeys "{Tab}"
    End If
    If Not isFh And KeyCode = 113 Then    'F2
        View_Calendar Me, Editrq, Picture1.Top
    End If
    isEnt(0) = True
End Sub

Private Sub Editrq_LostFocus()
    If Not isSave And Editrq.Text <> "" And isEnt(0) Then
        Editrq.Text = ForDate(Editrq.Text)
        If IsDate(Editrq.Text) Then
            Editrq.Text = Format(Editrq.Text, "yyyy-mm-dd")
        Else
            Beep
            MsgBox "日期非法，请检查！", vbCritical, zjGl_Name
            SetTxtFocus Editrq
            isEnt(0) = False
        End If
    End If
End Sub
' 银行名称按键
Private Sub Edityhmc_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 And isEnt(1) Then
        SendKeys "{Tab}"
    End If
    If Not isFh And KeyCode = 113 Then    'F2
        RefYhmc.RunReference
    End If
    isEnt(1) = True
End Sub

Private Sub Edityhmc_LostFocus()
    If Not isSave And isEnt(1) And Edityhmc.Text <> "" Then
        If Yhmc_err(Edityhmc, Edityhzh, djnwb, IIf(Option1(0).Value, 0, 1)) Then
            SetTxtFocus Edityhmc
            isEnt(1) = False
        End If
    End If
End Sub

Private Sub Edityhmc_Change()
    Tbr_Change
    isEnt(1) = True
End Sub

Private Sub Edityhmc_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Edityhmc.ToolTipText = Edityhmc.Text
End Sub
' 银行账号按键
Private Sub Edityhzh_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 And isEnt(2) Then
        SendKeys "{Tab}"
    End If
    If Not isFh And KeyCode = 113 Then   'F2
        Refyhzh.RunReference
    End If
    isEnt(2) = True
End Sub

Private Sub Edityhzh_LostFocus()
    If Not isSave And isEnt(2) And Edityhzh.Text <> "" Then
        If Ckzh_err(Editrq.Text, Edityhmc, Edityhzh, Editbh.Text, Textlldm, Textbb, False, djnwb, IIf(Option1(0).Value, 0, 1)) Then
            '章景峰  中国工程物理研究院 2001.10.22
            '------------------------------------------------
            If Option1(0).Value = True Then
               frmAddAcc.bfrmAddAccVisible = True
               frmAddAcc.nwb = djnwb
               If djnwb = 1 Then
                   frmAddAcc.RefCmd2.RefAccMode = RefOutsideAcc
                   frmAddAcc.RefCmd2.RefMode = Enter
                   frmAddAcc.RefCmd2.RefUnitMode = RefBank
                   frmAddAcc.RefCmd3.RefAccMode = RefOutsideAcc
                   frmAddAcc.RefCmd3.RefMode = account
                   frmAddAcc.RefCmd3.RefUnitMode = RefBank
               ElseIf djnwb = 0 Then
                   frmAddAcc.RefCmd2.RefAccMode = RefInsideAcc
                   frmAddAcc.RefCmd2.RefMode = Enter
                   frmAddAcc.RefCmd2.RefUnitMode = RefNotBank
                   frmAddAcc.RefCmd3.RefAccMode = RefInsideAcc
                   frmAddAcc.RefCmd3.RefMode = account
                   frmAddAcc.RefCmd3.RefUnitMode = RefNotBank
               End If
               frmAddAcc.ShowAddAcc Edityhzh, Edityhmc
            End If
            '------------------------------------------------
            SetTxtFocus Edityhzh
            isEnt(2) = False
        End If
    End If
End Sub

Private Sub Edityhzh_Change()
    Tbr_Change
    isEnt(2) = True
End Sub
' 计算汇率小数位
Private Sub Textbb_Change()
    Editje(1).NumPoint = Gethldec(Textbb.Text)
    Editje(1).Locked = IIf(Textbb.Text = ZjAccInfo.zjStandExch, True, False)
    If Not Frtin And Textbb.Text <> "" Then
        Editje(1).Text = GetCurHl(Textbb.Text, Editrq.Text)
    End If
End Sub
' 汇率按键
Private Sub Editje_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys "{Tab}"
    End If
End Sub

Private Sub Editje_Change(Index As Integer)
    If Not Frtin Then
        If IsNumeric(Editje(1).Text) And IsNumeric(Editje(0).Text) Then
            Textje.Text = Format(CDbl(Editje(0).Text) * CDbl(Editje(1).Text), "#0.00")
        Else
            Textje.Text = ""
        End If
    End If
    Tbr_Change
End Sub
' 经办人按键
Private Sub Editjbr_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys "{Tab}"
    End If
End Sub

Private Sub Editjbr_Change()
    Tbr_Change
End Sub
' 利率代码按键
Private Sub Textlldm_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys "{Tab}"
    End If
End Sub
' 定期存款存期按键
Private Sub Editmonth_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys "{Tab}"
    End If
End Sub

Private Sub Editmonth_Change()
    Tbr_Change
End Sub
' 摘要按键
Private Sub Editzy_Change()
    Tbr_Change
End Sub

Private Sub Editzy_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Editzy.ToolTipText = Editzy.Text
End Sub
' 定期、活期设置
Private Sub Option1_Click(Index As Integer)
    If Not Frtin Then
        If Option1(1).Value Then
            Editmonth.Text = ""
            Editmonth.Enabled = False
            UpDown1.Enabled = False
        Else
            Editmonth.Enabled = True
            UpDown1.Enabled = True
        End If
    End If
    Tbr_Change
End Sub
' 窗体初始
Private Sub Form_Load()
    Screen.MousePointer = vbHourglass
    Me.RefYhmc.RefMode = Enter
    Me.Refyhzh.RefMode = account
    CenterForm Me
    Me.Caption = IIf(djnwb = 1, "银行存款单", "内部存款单")
    RefYhmc.RefUnitMode = IIf(djnwb = 1, RefBank, RefNotBank)
    Refyhzh.RefAccMode = IIf(djnwb = 1, RefOutsideAcc, RefInsideAcc)
    Checkqx = Informtlb(Tlbckd, ImageList1, True, IIf(djnwb = 1, 1, 3))
    InckForm Me, djnwb, 1      ' 窗体标题中、英文设置
    Label2.Caption = Ywbhtoname(IIf(djnwb = 1, "01", "03")) '业务编号赋值
    Set rsTckd = oV.getUnBookRst
    If Not rsTckd.EOF Then
        rsTckd.MoveLast
        rsTckd.MoveFirst
    End If
    Carddata
    ckdbutt
    isEnt(0) = True
    isEnt(1) = True
    isEnt(2) = True
    Combo1_GotFocus
    Screen.MousePointer = vbDefault
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    On Error Resume Next
    If Not isSave Then
        Select Case PromptSav
            Case vbYes:
                If Ckdquit() Then
                    CkdSave
                    If isSave Then
                        rsTckd.Close
                    Else
                        Cancel = True
                    End If
                Else
                    Cancel = True
                End If
            Case vbNo:
                rsTckd.Close
            Case vbCancel
                Cancel = True
        End Select
    Else
        rsTckd.Close
    End If
End Sub
' 工具栏
Private Sub tlbckd_ButtonClick(ByVal Button As ComctlLib.Button)
    Gen_Key Button.Key
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyF3
            If Shift = 0 And Tlbckd.Buttons("Check").Enabled Then
                Gen_Key "Check"
            End If
        Case vbKeyF4
            If Shift = 4 Then
                Gen_Key "Exit"
            ElseIf Shift = 0 And Tlbckd.Buttons("CheckCancel").Enabled Then
                Gen_Key "CheckCancel"
            End If
        Case vbKeyF5
            If Shift = 0 And Tlbckd.Buttons("AddRecord").Enabled Then
                Gen_Key "AddRecord"
            End If
        Case vbKeyF6
            If Shift = 0 And Tlbckd.Buttons("SaveRecord").Enabled Then
                Gen_Key "SaveRecord"
            End If
        Case vbKeyF7
            If Shift = 4 And Tlbckd.Buttons("PingZheng").Enabled Then
                Gen_Key "PingZheng"
            End If
        Case vbKeyC
            If Shift = 2 And Tlbckd.Buttons("CopyRecord").Enabled And Tlbckd.Buttons("CopyRecord").ToolTipText = "Ctrl+C" Then
                Gen_Key "CopyRecord"
                KeyCode = 0
            End If
        Case vbKeyV
            If Shift = 2 And Tlbckd.Buttons("CopyRecord").Enabled And Tlbckd.Buttons("CopyRecord").ToolTipText = "Ctrl+V" Then
                Gen_Key "CopyRecord"
                KeyCode = 0
            End If
        Case vbKeyY
            If Shift = 2 And Tlbckd.Buttons("DeleteRecord").Enabled And Tlbckd.Buttons("DeleteRecord").ToolTipText = "Ctrl+Y" Then
                Gen_Key "DeleteRecord"
                KeyCode = 0
            End If
        Case vbKeyR
            If Shift = 2 And Tlbckd.Buttons("DeleteRecord").Enabled And Tlbckd.Buttons("DeleteRecord").ToolTipText = "Ctrl+R" Then
                Gen_Key "DeleteRecord"
                KeyCode = 0
            End If
        Case vbKeyP
            If Shift = 2 And Tlbckd.Buttons("Print").Enabled Then
                Gen_Key "Print"
                KeyCode = 0
            End If
        Case vbKeyS
'            cuidong 2001.01.15
'            If Shift = 2 And Tlbckd.Buttons("Preview").Enabled Then
'                Gen_Key "Preview"
'                KeyCode = 0
'            End If
        Case vbKeyW
            If Shift = 2 And Tlbckd.Buttons("Dataout").Enabled Then
                Gen_Key "Dataout"
                KeyCode = 0
            End If
        Case vbKeyPageUp
            If Shift = 0 And Tlbckd.Buttons("PriorPage").Enabled Then
                Gen_Key "PriorPage"
            ElseIf Shift = 2 And Tlbckd.Buttons("FirstPage").Enabled Then
                Gen_Key "FirstPage"
            End If
        Case vbKeyPageDown
            If Shift = 0 And Tlbckd.Buttons("NextPage").Enabled Then
                Gen_Key "NextPage"
            ElseIf Shift = 2 And Tlbckd.Buttons("LastPage").Enabled Then
                Gen_Key "LastPage"
            End If
    End Select
End Sub

Private Sub Gen_Key(TLB_Key As String)
    On Error Resume Next
    Select Case TLB_Key
        Case Is = "Print", "Preview", "Dataout"
            zjPrnViewOut Me, "yhckdj", TLB_Key, djnwb, 1
        Case Is = "AddRecord"   '增加
            Dim xf As Boolean
            xf = True
            If Not isSave Then
                Select Case PromptSav
                    Case vbYes:
                        If Ckdquit() Then '新增单据存盘合法性检查
                            CkdSave
                            xf = isSave
                        Else
                            xf = False
                        End If