ʰ

VB开发的ERP系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form YH_FrmHx 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "核销银行帐"
   ClientHeight    =   1785
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5205
   HelpContextID   =   5106
   Icon            =   "银行_核对银行帐.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1785
   ScaleWidth      =   5205
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Height          =   1785
      Left            =   30
      TabIndex        =   0
      Top             =   -60
      Width           =   5175
      Begin VB.Frame Frame2 
         Caption         =   "注意"
         ForeColor       =   &H00FF0000&
         Height          =   855
         Left            =   60
         TabIndex        =   5
         Top             =   870
         Width           =   3555
         Begin VB.Label Label2 
            Caption         =   "为了防止核销后出现错误无法恢复数据，核销已两清的单位日记帐和银行对帐单之前请做好数据备份工作。"
            ForeColor       =   &H00FF0000&
            Height          =   585
            Left            =   120
            TabIndex        =   6
            Top             =   180
            Width           =   3255
         End
      End
      Begin VB.CommandButton Command2 
         Caption         =   "取消(&C)"
         Height          =   300
         Left            =   3930
         TabIndex        =   4
         Top             =   1410
         Width           =   1120
      End
      Begin VB.CommandButton Command1 
         Caption         =   "确定(&O)"
         Height          =   300
         Left            =   3930
         TabIndex        =   3
         Top             =   990
         Width           =   1120
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   990
         TabIndex        =   1
         Top             =   420
         Width           =   4095
      End
      Begin VB.Label Label1 
         Caption         =   "银行科目:"
         Height          =   255
         Left            =   150
         TabIndex        =   2
         Top             =   450
         Width           =   1125
      End
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   8940
      Top             =   570
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   16
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":1042
            Key             =   "ymsz"
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":10A0
            Key             =   "dy"
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":10FE
            Key             =   "yl"
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":115C
            Key             =   "fh"
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":11BA
            Key             =   "zh"
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":1218
            Key             =   "fq"
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":1276
            Key             =   "xg"
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":12D4
            Key             =   "cx"
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":1332
            Key             =   "bc"
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":1390
            Key             =   "sc"
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":13EE
            Key             =   "sx"
         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":144C
            Key             =   "bz"
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":14AA
            Key             =   "kp"
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":1508
            Key             =   "xsxm"
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":1566
            Key             =   "dw"
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "银行_核对银行帐.frx":15C4
            Key             =   "txfx"
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "YH_FrmHx"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************
'*    模 块 名 称 :核销银行对帐
'*    功 能 描 述 :核销已勾对的银行帐
'*    程序员姓名  : xjl
'*    最后修改人  : xjl
'*    最后修改时间:2000/11/07
'*    备        注:
'*************************************************************
Dim Tsxx As String
'核销银行已达帐
Private Sub Command1_Click()
    Dim Msg As String
    Dim DWYE, YHYE, DWJF, DWDF, YHJF, YHDF As Currency
    Dim RecTemp As New ADODB.Recordset
    If Combo1.ListCount <= 0 Then
        Tsxx = "科目编码不存在!"
        Call Xtxxts(Tsxx, 0, 1)
        Exit Sub
    End If
    '是否是银行帐户
    SQL_Str = "Select * From CWZZ_ACCCODE Where Cproperty='银行' And EndFlag=1 and  Ccode='" & Val(Combo1.Text) & "'"
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SQL_Str)
    If RecTemp.EOF Then
        MsgBox "科目编码输入有误!", vbOKOnly + 16, "百利/ERP5.0-财务总帐"
        Combo1.SetFocus
        Exit Sub
    End If
    '此帐户的余额是否平衡
    DWYE = 0