frmcxck.frm

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

   Begin RTPrnLib.RTPrn RTPrn1 
      Left            =   6000
      Top             =   600
      _Version        =   524288
      _ExtentX        =   1323
      _ExtentY        =   609
      _StockProps     =   4
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      m_lngrtpFitRows =   30
   End
   Begin VB.Label Label0 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   240
      Left            =   3495
      TabIndex        =   15
      Top             =   750
      Width           =   150
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   1290
      Top             =   630
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   327682
   End
End
Attribute VB_Name = "frmcxck"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' 软件著作权: 北京用友软件集团有限公司
' 系统名称: 资金计息8。0
' 功能说明: 存、取款单据查询
' 作者: 魏小黎

Option Explicit
Private rsTckd As New UfRecordset
Public sqlst As String
Public djnwb As Byte
Public djcqk As Byte
Public djdqbh As String
Private djbh As String

Private Sub Combo1_Click()
    If Combo1.Text = Editbh.Text Then
        Exit Sub
    End If
    With rsTckd
        .FindFirst IIf(djcqk = 1, "cSavid='", "cFetid='") & djbh & Combo1.Text & "'"
    End With
    Carddata
    ckdbutt
End Sub

' 窗体初始化
Private Sub Form_Load()
    Screen.MousePointer = vbHourglass
    CenterForm Me
    Me.Icon = LoadResPicture(109, vbResIcon)
    Me.Caption = IIf(djnwb = 1 And djcqk = 1, "银行存款单", IIf(djnwb = 1 And djcqk = 0, "银行取款单", IIf(djnwb = 0 And djcqk = 1, "内部存款单", "内部取款单")))
    djbh = right(str(104 - djnwb * 2 - djcqk), 2)
    If djcqk = 1 And djnwb = 1 Then
        Me.HelpContextID = 88000018
    ElseIf djcqk = 0 And djnwb = 1 Then
        Me.HelpContextID = 88000020
    ElseIf djcqk = 1 And djnwb = 0 Then
        Me.HelpContextID = 88000022
    Else
        Me.HelpContextID = 88000024
    End If
    Informtlb Tlbckd, ImageList1, False
    refyhmc.Picture = LoadResPicture(129, vbResBitmap)
    refyhzh.Picture = LoadResPicture(129, vbResBitmap)
    InckForm Me, djnwb, djcqk       ' 窗体工具栏初始化
    Label2.Caption = Ywbhtoname(djbh)
    Set rsTckd = dbsZJ.OpenRecordset(sqlst, dbOpenSnapshot)
    Combo1.clear
    With rsTckd
        If Not .EOF Then
            .MoveFirst
            Do While Not .EOF
                If djcqk = 1 Then
                    Combo1.AddItem right(![cSavID], 10)
                Else
                    Combo1.AddItem right(![cFetID], 10)
                End If
                .MoveNext
            Loop
            .MoveFirst
        End If
    End With
    getckd1 djdqbh
    ckdbutt
    'Me.Show
    Screen.MousePointer = vbDefault
End Sub

Public Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    rsTckd.oClose
    Unload Me
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 vbKeyF4
            If Shift = 4 Then
                Gen_Key "Exit"
            End If
        Case vbKeyF7
            If Shift = 4 And Tlbckd.Buttons("PingZheng").Enabled Then
                Gen_Key "PingZheng"
            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, djcqk
        Case Is = "FirstPage"
            Getckd 1
         Case Is = "PriorPage"
            Getckd 2
        Case Is = "NextPage"
            Getckd 3
        Case Is = "LastPage"
            Getckd 4
        Case Is = "PingZheng"
            With pzInfo
               .pDjrq = Editrq.Text
               .pMoney = Editje(0)
               .pYwID = djbh & Editbh.Text
               .pZhID1 = Edityhzh.Text
               .pZhID2 = pzZhID2
               .pDigest = Editzy.Text
               .pHl = Editje(1)
               .blnFind = True
            End With
            If ZjAccInfo.zjPrnCtrl Then Exit Sub
            ZjAccInfo.zjPrnCtrl = True
            DoVouch
            ZjAccInfo.zjPrnCtrl = False
        Case Is = "Help"
            SendKeys "{F1}"
        Case Is = "Exit"
            Unload Me
            Exit Sub
    End Select
    ckdbutt
End Sub

Private Sub Textqk()
    Editbh.Text = ""
    Editrq.Text = ""
    Edityhmc.Text = ""
    Edityhzh.Text = ""
    Textlldm.Text = ""
    Editzy.Text = ""
    Textbb.Text = ""
    Editje(0).Text = ""
    Textje.Text = ""
    Editje(1).Text = ""
    Editmonth.Text = ""
    Editjbr.Text = ""
    Label1(15).Caption = ""
    Label1(17).Caption = ""
    Label1(19).Caption = ""
    Tlbckd.Buttons("Preview").Enabled = False
    Tlbckd.Buttons("Print").Enabled = False
    Tlbckd.Buttons("Dataout").Enabled = False
    Tlbckd.Buttons("PingZheng").Enabled = False
End Sub

Private Sub Carddata()
    With rsTckd
        If Not .EOF Then
            Editrq.Text = Format(![dbill_date], "yyyy-mm-dd")
            If djcqk = 1 Then
                Editbh.Text = right(![cSavID], 10)
            Else
                Editbh.Text = right(![cFetID], 10)
            End If
            Edityhzh.Text = ![cAccId]
            Edityhmc.Text = Zhbhtodwmc(Edityhzh.Text)
            Textlldm.Text = Wgetlldm(Edityhzh.Text)
            Textbb.Text = Wgetwbb(Edityhzh.Text)
            Editje(0).Text = Format(![mMoney], "#0.00")
            Editje(1).Text = ![nFrat]
            Textje.Text = Format(![mMoney_F], "#0.00")
            Editmonth.Text = IIf(![iMonth] = 0, "", ![iMonth])
            Editzy.Text = IIf(IsNull(![cDigest]), "", ![cDigest])
            Editjbr.Text = IIf(IsNull(![ctran_name]), "", ![ctran_name])
            Label1(15).Caption = IIf(IsNull(![cCheckCode]), "", ![cCheckCode])
            Label1(17).Caption = IIf(IsNull(![cBookCode]), "", ![cBookCode])
            Label1(19).Caption = ![cBillCode]
            Option1(0).Value = IIf(![isc] = 0, True, False)
            Option1(1).Value = IIf(![isc] = 0, False, True)
            Tlbckd.Buttons("Preview").Enabled = True
            Tlbckd.Buttons("Print").Enabled = True
            Tlbckd.Buttons("Dataout").Enabled = True
            Tlbckd.Buttons("PingZheng").Enabled = True
        Else
            Textqk
        End If
    End With
End Sub

Private Sub ckdbutt()
    If Editbh.Text <> "" Then
        Combo1.Text = Editbh.Text
    End If
    Pagezt Tlbckd, rsTckd
End Sub

Private Sub Getckd(zt As Integer)
    Select Case zt
    Case Is = 1
        rsTckd.MoveFirst
    Case Is = 2
        rsTckd.MovePrevious
    Case Is = 3
        rsTckd.MoveNext
    Case Is = 4
        rsTckd.MoveLast
    End Select
    Carddata
End Sub

Private Sub getckd1(bhk As String)
    With rsTckd
        If .EOF Then
            Textqk
            Exit Sub
        End If
        .MoveLast
    End With
    With rsTckd
        If djcqk = 1 Then
            .FindFirst "cSavid='" & djbh & bhk & "'"
        Else
            .FindFirst "cFetid='" & djbh & bhk & "'"
        End If
        If .NoMatch Then
            .MoveLast
        End If
    End With
    Carddata
End Sub