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         =   "查找下一個(gè)"
      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
'--------------------------------
'時(shí)間:2001.12.26
'版權(quán):北京用友軟件股份有限公司
'界面:魏小黎
'編碼:章景峰(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 "沒有找到對應(yīng)記錄！"
    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