frmcxnbjs.frm

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

         Index           =   17
         Left            =   780
         TabIndex        =   33
         Top             =   2910
         Width           =   90
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Height          =   180
         Index           =   18
         Left            =   3195
         TabIndex        =   32
         Top             =   2910
         Width           =   90
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Height          =   180
         Index           =   20
         Left            =   6195
         TabIndex        =   31
         Top             =   2910
         Width           =   90
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Height          =   180
         Index           =   16
         Left            =   240
         TabIndex        =   30
         Top             =   2910
         Width           =   90
      End
   End
   Begin RTPrnLib.RTPrn RTPrn1 
      Left            =   5595
      Top             =   525
      _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 ComctlLib.ImageList ImageList1 
      Left            =   1350
      Top             =   450
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      MaskColor       =   12632256
      _Version        =   327682
   End
End
Attribute VB_Name = "frmcxnbjs"
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 djdqbh As String

Private Sub Combo1_Click()
    If Combo1.Text = Editbh.Text Then
        Exit Sub
    End If
    With rsTckd
        .FindFirst "cSetid='15" & Combo1.Text & "'"
    End With
    Carddata
    ckdbutt
End Sub

Private Sub Form_Load()
    Screen.MousePointer = vbHourglass
    CenterForm Me
    InjsForm
    Refyhmc(0).Picture = LoadResPicture(129, vbResBitmap)
    Refyhmc(1).Picture = LoadResPicture(129, vbResBitmap)
    Refyhzh(0).Picture = LoadResPicture(129, vbResBitmap)
    Refyhzh(1).Picture = LoadResPicture(129, vbResBitmap)
    Label2.Caption = Ywbhtoname("15")
    Set rsTckd = dbsZJ.OpenRecordset(sqlst, dbOpenDynaset)
    Combo1.clear
    With rsTckd
        If Not .EOF Then
            .MoveFirst
            Do While Not .EOF
                Combo1.AddItem right(![cSetid], 10)
                .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, "nbjsdj", TLB_Key
        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 = "15" & Editbh.Text
                .pZhID1 = Edityhzh(0).Text
                .pZhID2 = Edityhzh(1).Text
                .pDigest = Editzy(0).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 Carddata()
    With rsTckd
        If Not .EOF Then
            Editrq.Text = Format(![dbill_date], "yyyy-mm-dd")
            Editbh.Text = right(![cSetid], 10)
            Edityhzh(0).Text = ![cGAccID]
            Edityhmc(0).Text = Zhbhtodwmc(Edityhzh(0).Text)
            Edityhzh(1).Text = ![cPAccID]
            Edityhmc(1).Text = Zhbhtodwmc(Edityhzh(1).Text)
            Textbb.Text = Wgetwbb(Edityhzh(0).Text)
            Editje(0).Text = Format(![mMoney], "#0.00")
            Editje(1).Text = ![nFrat]
            Textje.Text = Format(![mMoney_F], "#0.00")
            Editzy(0).Text = IIf(IsNull(![cDigest]), "", ![cDigest])
            Editzy(1).Text = IIf(IsNull(![crun_name]), "", ![crun_name])
            Editzy(2).Text = IIf(IsNull(![cpay_name]), "", ![cpay_name])
            Editzy(3).Text = IIf(IsNull(![cset_name]), "", ![cset_name])
                        
            Label1(17).Caption = IIf(IsNull(![cCheckCode]), "", ![cCheckCode])
            Label1(19).Caption = IIf(IsNull(![cBookCode]), "", ![cBookCode])
            Label1(21).Caption = ![cBillCode]
            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 Textqk()
    Editbh.Text = ""
    Edityhmc(0).Text = ""
    Edityhzh(0).Text = ""
    Edityhmc(1).Text = ""
    Edityhzh(1).Text = ""
    Textbb.Text = ""
    Editje(0).Text = ""
    Editje(1).Text = ""
    Textje.Text = ""
    Editzy(0).Text = ""
    Editzy(1).Text = ""
    Editzy(2).Text = ""
    Editzy(3).Text = ""
    Label1(17).Caption = ""
    Label1(19).Caption = ""
    Label1(21).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 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

Public Sub getckd1(bhk As String)
    With rsTckd
        If .EOF Then
            Textqk
            Exit Sub
        End If
        .MoveLast
    End With
    With rsTckd
        .FindFirst "cSetid='15" & bhk & "'"
        If .NoMatch Then
            .MoveLast
        End If
    End With
    Carddata
End Sub

Private Sub InjsForm()
    Informtlb Tlbckd, ImageList1, False
    Me.Icon = LoadResPicture(109, vbResIcon)
    Me.Caption = "内部结算单"
    cmdrq.Picture = LoadResPicture(1108, vbResBitmap)
    Label1(0).Caption = "内部结算单"
    Label1(1).Caption = "业务编号"
    Label1(2).Caption = "日期"
    Label1(3).Caption = "收款单位"
    Label1(4).Caption = "收款账号"
    Label1(5).Caption = "付款单位"
    Label1(6).Caption = "付款账号"
    Label1(7).Caption = "结算金额"
    Label1(8).Caption = "币别"
    Label1(9).Caption = "汇率"
    Label1(10).Caption = "本位币金额"
    Label1(11).Caption = "摘要"
    Label1(12).Caption = "收款经办"
    Label1(13).Caption = "付款经办"
    Label1(14).Caption = "中心经办"
    Label1(16).Caption = "审核:"
    Label1(18).Caption = "记账:"
    Label1(20).Caption = "制单:"
End Sub