+

VB开发的ERP系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Class_FrmBank 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "选择代发银行"
   ClientHeight    =   3135
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   2670
   Icon            =   "基础设置_选择代发银行.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3135
   ScaleWidth      =   2670
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Cmd_Cancel 
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   1470
      TabIndex        =   2
      Top             =   2760
      Width           =   1120
   End
   Begin VB.CommandButton Cmd_Ok 
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   270
      TabIndex        =   1
      Top             =   2760
      Width           =   1120
   End
   Begin MSComctlLib.TreeView Tre_Bank 
      Height          =   2595
      Left            =   90
      TabIndex        =   0
      Top             =   75
      Width           =   2505
      _ExtentX        =   4419
      _ExtentY        =   4577
      _Version        =   393217
      Style           =   7
      Appearance      =   1
   End
End
Attribute VB_Name = "Class_FrmBank"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'*    模 块 名 称 :选择代发银行
'*    功 能 描 述 :在类别人员选择模块中使用。选择人员的代发银行。
'*    程序员姓名  :田建秀
'*    最后修改人  :田建秀
'*    最后修改时间:2002/01/04
'*    备        注:
'*******************************************************

Option Explicit
Dim Rsc As New ADODB.Recordset
Dim Sql As String
Dim nodX As Node
Dim I As Long
Public BankCode As String
Public BankName As String
Public OpeStatus As String             '"ok" "cancel"

Private Sub Cmd_Cancel_Click()
    OpeStatus = "cancel"
    Unload Me
End Sub

Private Sub Cmd_OK_Click()
    
    With Tre_Bank
        
        For I = 1 To .Nodes.Count
            If .Nodes(I).Selected = True Then
                BankCode = Right(Trim(.Nodes(I).Key), Len(Trim(.Nodes(I).Key)) - 1)
                BankName = Trim(.Nodes(I).Text)
            End If
        Next
    End With
    If Trim(BankCode) = "" Then
        Call Xtxxts("必须选择代发银行!", 0, 1)
        Exit Sub
    End If
    OpeStatus = "ok"
    Unload Me
End Sub

Private Sub Form_Load()
    BankCode = ""
    BankName = ""
    Set nodX = Tre_Bank.Nodes.Add(, , "Bc", "清空代发银行")
    If Rsc.State = 1 Then Rsc.Close
    Sql = "select * from PM_Bank order by BankCode"
    Set Rsc = Cw_DataEnvi.DataConnect.Execute(Sql)
    With Rsc
        Do While Not .EOF
            Set nodX = Tre_Bank.Nodes.Add(, , "B" & Trim(!BankCode), Trim(!BankName))
            .MoveNext
        Loop
    End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set Rsc = Nothing
End Sub