参照控件.frm

财务信息管理系统,适合做毕业论文的人使用

VERSION 5.00
Object = "{E68144FD-06A3-425D-918C-8967D83973D1}#20.0#0"; "U8FDRef.ocx"
Begin VB.Form frmRefCtl 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "参照控件"
   ClientHeight    =   3600
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   4095
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3600
   ScaleWidth      =   4095
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin U8FDRef.FDRefCtrl FDRefCtrl 
      Height          =   3615
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   4095
      _ExtentX        =   7223
      _ExtentY        =   6376
      ReferenceType   =   0
   End
End
Attribute VB_Name = "frmRefCtl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

'--------------------------------
'时间:2002.01.12
'版权:北京用友软件股份有限公司
'设计:章景峰
'编码:章景峰
'说明:U8资金管理---参照
'--------------------------------
Public FormName    As String
Public ControlName As String

Private Sub FDRefCtrl_AddNew()
    'frmReference.FDRefCtrl.ReferenceType = Me.FDRefCtrl.ReferenceType
    'Unload Me
    'frmReference.FDRefCtrl_AddNew
    Select Case Me.FDRefCtrl.ReferenceType
        Case enmAccount
            Dim oAccountUI  As New clsAccDefUI
            oAccountUI.Show g_sDataSourceName, smAddNew
            Set oAccountUI = Nothing
        Case enmUnit
            Dim oAccUnitUI  As New clsAccUnitUI
            oAccUnitUI.Show g_sDataSourceName, smAddNew
            Set oAccUnitUI = Nothing
        Case enmInterestRate
            Dim oIRateUI  As New clsIRateUI
            oIRateUI.Show smAddNew
            Set oIRateUI = Nothing
        Case enmCad
            Dim oGDayUI As New clsCadUI
            oGDayUI.Show smAddNew
            Set oGDayUI = Nothing
        Case enmPzSign
            MsgBox enmPzSign
    End Select
End Sub

Private Sub FDRefCtrl_Edit(ByVal sOID As String)
    Dim OID As New U8FDEso.OIDObject
    Select Case Me.FDRefCtrl.ReferenceType
        Case enmAccount
            Dim oAccountUI  As New clsAccDefUI
            OID.id = sOID
            oAccountUI.Show g_sDataSourceName, smEdit, OID
            Set oAccountUI = Nothing
        Case enmUnit
            Dim oAccUnitUI  As New clsAccUnitUI
            OID.id = sOID
            oAccUnitUI.Show g_sDataSourceName, smEdit, OID
            Set oAccUnitUI = Nothing
        Case enmInterestRate
            Dim oIRateUI  As New clsIRateUI
            OID.id = sOID
            oIRateUI.Show smEdit, , OID
            Set oIRateUI = Nothing
        Case enmCad
            Dim oGDayUI As New clsCadUI
            OID.id = sOID
            oGDayUI.Show smEdit, OID
            Set oGDayUI = Nothing
        Case enmPzSign
            MsgBox enmPzSign
        
    End Select
End Sub

Private Sub FDRefCtrl_SelectIn(ByVal sOID As String, ByVal sID As String, ByVal sName As String)
    Dim i   As Long
    Dim objForm As Form 'frmAccDef  'Control Form
    Select Case Me.FDRefCtrl.ReferenceType
        Case enmAccount
            For i = 0 To Forms.count - 1
                If Forms(i).Name = Me.FormName Then
                    Set objForm = Forms(i)
                    Exit For
                End If
            Next
            
            objForm.WithEvent sOID, sID, sName, Me.ControlName
        Case enmUnit
            For i = 0 To Forms.count - 1
                If Forms(i).Name = Me.FormName Then
                    Set objForm = Forms(i)
                    Exit For
                End If
            Next
            
            objForm.WithEvent sOID, sID, sName, Me.ControlName
        Case enmInterestRate
            'Dim objForm As frmAccDef
            For i = 0 To Forms.count - 1
                If Forms(i).Name = Me.FormName Then
                    Set objForm = Forms(i)
                    Exit For
                End If
            Next
            
            objForm.WithEvent sOID, sID, sName, Me.ControlName
'            Dim objfrmIRate As frmIRate
'            For i = 0 To Forms.Count - 1
'                If Forms(i).Name = Me.FormName Then
'                    Set objfrmIRate = Forms(i)
'                    Exit For
'                End If
'            Next
'
'            objfrmIRate.WithEvent sOID, sID, sName
        Case enmCad
            'Dim objForm As frmAccDef
            For i = 0 To Forms.count - 1
                If Forms(i).Name = Me.FormName Then
                    Set objForm = Forms(i)
                    Exit For
                End If
            Next
            
            objForm.WithEvent sOID, sID, sName, Me.ControlName
'            Dim objfrmCad As frmCad
'            For i = 0 To Forms.Count - 1
'                If Forms(i).Name = "frmCad" Then
'                    Set objfrmCad = Forms(i)
'                    Exit For
'                End If
'            Next
'
'            objfrmCad.WithEvent sOID, sID, sName
        Case enmPzSign
            
        
    End Select
    Unload Me
End Sub

Private Sub Form_Load()
    Me.FDRefCtrl.ConnectionString = g_sDataSourceName
    'Me.FDRefCtrl.Refresh
End Sub

Private Sub Form_Resize()
    If Me.WindowState <> 1 Then
        If Me.width < 4215 And Me.Height < 4100 Then
            Me.width = 4215: Me.Height = 4100
            Me.FDRefCtrl.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
        ElseIf Me.width < 4215 Then
            Me.width = 4215
            Me.FDRefCtrl.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
        ElseIf Me.Height < 4100 Then
            Me.Height = 4100
            Me.FDRefCtrl.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
        Else
            Me.FDRefCtrl.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
        End If
    End If
End Sub

Public Sub SetRefType(ByVal RefType As ReferenceTypeEnum)
    Me.FDRefCtrl.ReferenceType = RefType
End Sub