+

VB开发的ERP系统

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Bank_FrmItemChoice 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "选择栏目内容"
   ClientHeight    =   3210
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   2520
   Icon            =   "基础设置_银行栏目选择.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3210
   ScaleWidth      =   2520
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin MSComctlLib.TreeView Tre_Item 
      Height          =   2655
      Left            =   60
      TabIndex        =   2
      Top             =   90
      Width           =   2385
      _ExtentX        =   4207
      _ExtentY        =   4683
      _Version        =   393217
      Style           =   7
      Appearance      =   1
   End
   Begin VB.CommandButton Command1 
      Caption         =   "取消(&C)"
      Height          =   300
      Left            =   1305
      TabIndex        =   1
      Top             =   2835
      Width           =   1120
   End
   Begin VB.CommandButton Cmd_Ok 
      Caption         =   "确定(&O)"
      Height          =   300
      Left            =   105
      TabIndex        =   0
      Top             =   2835
      Width           =   1120
   End
End
Attribute VB_Name = "Bank_FrmItemChoice"
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 ItemName As String
Public ItemCode As String
Public ItemType As Integer
Public OpeStatus As String

Private Sub Cmd_OK_Click()
    With Tre_Item
        For i = 1 To .Nodes.Count
            If .Nodes(i).Selected Then
                ItemName = Trim(.Nodes(i).Text)
                ItemCode = Left(Trim(.Nodes(i).Key), Len(Trim(.Nodes(i).Key)) - 1)
                ItemType = Val(Right(Trim(.Nodes(i).Key), 1))
                Exit For
            End If
        Next
    End With
    If ItemName = "" Then
        Call Xtxxts("必须选择栏目内容!", 0, 1)
        Exit Sub
    End If
    OpeStatus = "ok"
    Unload Me
End Sub

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

Private Sub Form_Load()
    ItemName = ""
    ItemCode = ""
    OpeStatus = "cancel"
    Sql = "select * from Rs_items where FieldName='EmpNO' or FieldName='EmpName'"
    If Rsc.State = 1 Then Rsc.Close
    Set Rsc = Cw_DataEnvi.DataConnect.Execute(Sql)
    With Rsc
        Do While Not .EOF
            Set Nodx = Tre_Item.Nodes.Add(, , "PM_Payroll." & Trim(!FieldName) & !FieldType, Trim(!ChName))
            .MoveNext
        Loop
    End With
    
    Set Nodx = Tre_Item.Nodes.Add(, , "PM_SortEmp.accounts" & "0", "银行账号")
    
    Sql = "select * from Rs_items r ,pm_SortItem p " & _
          " where r.ItemID=p.ItemId and sid=3 " & _
          " and SortID ='" & Bank_FrmColSet.SortId & "' order by DisplayOrder"
    If Rsc.State = 1 Then Rsc.Close
    Set Rsc = Cw_DataEnvi.DataConnect.Execute(Sql)
    With Rsc
        Do While Not .EOF
            Set Nodx = Tre_Item.Nodes.Add(, , "PM_Payroll." & Trim(!FieldName) & !FieldType, Trim(!ChName))
            .MoveNext
        Loop
    End With
End Sub

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

Private Sub Tre_Item_DblClick()
    Call Cmd_OK_Click
End Sub