ʰ

VB开发的ERP系统

VERSION 5.00
Begin VB.Form YH_FrmXzkm 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "选择科目编码   "
   ClientHeight    =   1335
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4200
   Icon            =   "银行_选择科目编码.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1335
   ScaleWidth      =   4200
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   3005
      TabIndex        =   4
      Top             =   960
      Width           =   1120
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   1800
      TabIndex        =   3
      Top             =   960
      Width           =   1120
   End
   Begin VB.Frame Frame1 
      Caption         =   "选择银行科目编码"
      Height          =   735
      Left            =   60
      TabIndex        =   0
      Top             =   120
      Width           =   4065
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   1050
         TabIndex        =   1
         Top             =   270
         Width           =   2835
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "科目编码:"
         Height          =   180
         Left            =   180
         TabIndex        =   2
         Top             =   330
         Width           =   810
      End
   End
End
Attribute VB_Name = "YH_FrmXzkm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*************************************************************
'*    模 块 名 称 :银行对帐科目选择
'*    功 能 描 述 :选择银行帐科目
'*    程序员姓名  : xjl
'*    最后修改人  : xjl
'*    最后修改时间:2000/11/07
'*    备        注:
'*************************************************************
Dim RecTemp As New ADODB.Recordset  '临时数据集
Dim Tsxx As String
'银行窗体选择
Private Sub Command1_Click()
    If Combo1.ListCount <= 0 Then
        Tsxx = "科目编码不存在!"
        Call Xtxxts(Tsxx, 0, 1)
        Exit Sub
    End If
    '是否为银行编码
    Sqlstr = "Select * From CWZZ_ACCCODE Where Cproperty='银行' And EndFlag=1 and  Ccode='" & Val(Combo1.Text) & "'"
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    If RecTemp.EOF Then
        Tsxx = "科目编码输入有误!"
        Call Xtxxts(Tsxx, 0, 1)
        Combo1.SetFocus
        Exit Sub
    End If
    '显示银行科目
    Sqlstr = "Select * From CWZZ_ACCCODE Where Ccode='" & Val(Combo1.Text) & "'"
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    If RecTemp.EOF = False Then
        Combo1.Text = Trim(RecTemp.Fields!cCode) + Space(2) + Trim(RecTemp.Fields!cname)
        Select Case Glo_Variable.YH_XTXZ
        Case "Cwzz_yhdzqc"     '银行对帐期初
            YH_FrmQcsj.HelpContextID = "0115001"
            Load YH_FrmQcsj
            If Glo_Variable.Unload_TF = True Then
                YH_FrmQcsj.Show 1
            Else
                Call YH_FrmQcsj.Form_Load
            End If
        Case "Cwzz_yhdzd"      '银行对帐单录入
            YH_FrmDzd.HelpContextID = "0115002"
            Load YH_FrmDzd
            If Glo_Variable.Unload_TF = True Then
                YH_FrmDzd.Show
            Else
                Call YH_FrmDzd.Form_Load
            End If
        Case "Cwzz_yhzddz"     '银行自动对帐
            YH_FrmZddz.HelpContextID = "0115004"
            Load YH_FrmZddz
            If Glo_Variable.Unload_TF = True Then
                YH_FrmZddz.Show
            Else
                Call YH_FrmZddz.Form_Load
            End If
        Case "Cwzz_yhgdqk"     '银行勾对情况
            YH_FrmDzcx.HelpContextID = "0115006"
            Load YH_FrmDzcx
            If Glo_Variable.Unload_TF = True Then
                YH_FrmDzcx.Show
            Else
                Call YH_FrmDzcx.Form_Load
            End If
        Case "Cwzz_yhDzdCx"    '银行对帐单查询
            YH_FrmDzdCx.HelpContextID = "0115003"
            Load YH_FrmDzdCx
            If Glo_Variable.Unload_TF = True Then
                YH_FrmDzdCx.Show
            Else
                Call YH_FrmDzdCx.Form_Load
            End If
        End Select
    Else
        Tsxx = "没有此科目编码!"
        Call Xtxxts(Tsxx, 0, 1)
        Exit Sub
    End If
End Sub

'退出
Private Sub Command2_Click()
    Unload Me
End Sub

'添加银行科目编码
Private Sub Form_Load()
    '查询银行记录
    Sqlstr = "Select * From CWZZ_ACCCODE Where Cproperty='银行' And EndFlag=1 Order By Ccode"
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    If Not RecTemp.EOF Then
    Combo1.Text = Trim(RecTemp.Fields!cCode) + Space(2) + Trim(RecTemp.Fields!cname)
    Do While Not RecTemp.EOF()
        Combo1.AddItem Trim(RecTemp.Fields!cCode) + Space(2) + Trim(RecTemp.Fields!cname)
        RecTemp.MoveNext
    Loop
    End If
End Sub