单位查找.frm

u8

VERSION 5.00
Object = "{A0C292A3-118E-11D2-AFDF-000021730160}#1.0#0"; "UFEDIT.OCX"
Begin VB.Form frmAccUnitFind 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "单位定义---查找"
   ClientHeight    =   2085
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   5775
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2085
   ScaleWidth      =   5775
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdOK 
      Caption         =   "查找下一个"
      Default         =   -1  'True
      Height          =   345
      Left            =   4560
      TabIndex        =   5
      Top             =   255
      Width           =   1155
   End
   Begin VB.CommandButton cmdCancel 
      Caption         =   "放弃"
      Height          =   345
      Left            =   4560
      TabIndex        =   6
      Top             =   705
      Width           =   1155
   End
   Begin VB.Frame fraAccUnitFind 
      Height          =   2025
      Left            =   70
      TabIndex        =   0
      Top             =   0
      Width           =   4395
      Begin VB.ComboBox cboType 
         BackColor       =   &H00FFFFFF&
         Height          =   315
         Left            =   705
         Style           =   2  'Dropdown List
         TabIndex        =   1
         Top             =   300
         Width           =   1815
      End
      Begin EDITLib.Edit txtCode 
         Height          =   270
         Left            =   705
         TabIndex        =   2
         Top             =   720
         Width           =   3390
         _Version        =   65536
         _ExtentX        =   5980
         _ExtentY        =   476
         _StockProps     =   253
         ForeColor       =   0
         BackColor       =   16777215
         Appearance      =   1
         Property        =   1
         MaxLength       =   20
         BadStr          =   "|"
      End
      Begin EDITLib.Edit txtName 
         Height          =   270
         Left            =   705
         TabIndex        =   3
         Top             =   1125
         Width           =   3375
         _Version        =   65536
         _ExtentX        =   5953
         _ExtentY        =   476
         _StockProps     =   253
         ForeColor       =   0
         BackColor       =   16777215
         Appearance      =   1
         Property        =   1
         BadStr          =   "|"
      End
      Begin EDITLib.Edit txtDigest 
         Height          =   270
         Left            =   705
         TabIndex        =   4
         Top             =   1500
         Width           =   3375
         _Version        =   65536
         _ExtentX        =   5953
         _ExtentY        =   476
         _StockProps     =   253
         ForeColor       =   0
         BackColor       =   16777215
         Appearance      =   1
         Property        =   1
         BadStr          =   "|"
      End
      Begin VB.Label lblDigest 
         AutoSize        =   -1  'True
         Caption         =   "备注"
         Height          =   180
         Left            =   240
         TabIndex        =   10
         Top             =   1545
         Width           =   360
      End
      Begin VB.Label lblName 
         AutoSize        =   -1  'True
         Caption         =   "名称"
         Height          =   180
         Left            =   240
         TabIndex        =   9
         Top             =   1170
         Width           =   360
      End
      Begin VB.Label lblCode 
         AutoSize        =   -1  'True
         Caption         =   "编码"
         Height          =   180
         Left            =   240
         TabIndex        =   8
         Top             =   765
         Width           =   360
      End
      Begin VB.Label lblType 
         AutoSize        =   -1  'True
         Caption         =   "类型"
         Height          =   180
         Left            =   240
         TabIndex        =   7
         Top             =   360
         Width           =   360
      End
   End
End
Attribute VB_Name = "frmAccUnitFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'--------------------------------
'时间:2001.12.26
'版权:北京用友软件股份有限公司
'界面:魏小黎
'编码:章景峰(8.30)
'说明:U8资金管理---单位定义查找
'--------------------------------
Option Explicit

Private Const m_conBIStyle As Long = 9

Private Sub CmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdOK_Click()
    On Error Resume Next
    Dim objAccUnitBI As New U8FDBso.clsAccUnitBI
    Dim objOID       As New U8FDEso.OIDObject
    Dim FindID       As String
    
    FindID = objAccUnitBI.Find(g_sDataSourceName, frmAccUnit.EO, Me.cboType.ListIndex, Me.txtCode, Me.txtName, Me.txtDigest)
    
    If Len(FindID) > 1 Then
        frmAccUnit.treStyle.Nodes("K" & FindID).Expanded = True
        frmAccUnit.treStyle.Nodes("K" & FindID).Selected = True
        objOID.id = Mid(FindID, 2)
        Set frmAccUnit.EO = objAccUnitBI.MoveTo(g_sDataSourceName, U8FDEso.esoCurrent, m_conBIStyle, objOID)
        Set objOID = Nothing
        frmAccUnit.SetUI
    Else
        MsgBox "没有找到对应记录！"
    End If
    Set objAccUnitBI = Nothing
End Sub

Private Sub Form_Load()
    Dim i As Integer
    
    CenterForm Me
        
    cboType.AddItem ""
    
    For i = 0 To frmAccUnit.cboType.ListCount - 1
        cboType.AddItem frmAccUnit.cboType.List(i)
    Next
    
    cboType.ListIndex = 0
    
    Me.txtCode.Property = EditNormal
    Me.txtCode.MaxLength = frmAccUnit.txtCode.MaxLength
    
    Me.txtName.Property = EditNormal
    Me.txtName.MaxLength = frmAccUnit.txtName.MaxLength
    
    Me.txtDigest.Property = EditNormal
    Me.txtDigest.MaxLength = frmAccUnit.txtDigest.MaxLength
End Sub