frmimport.frm

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

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{86808282-58F4-4B17-BBCA-951931BB7948}#1.3#0"; "U8VouchList.ocx"
Begin VB.Form frmImport 
   Caption         =   "导入结果显示"
   ClientHeight    =   5475
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7410
   LinkTopic       =   "Form1"
   ScaleHeight     =   5475
   ScaleWidth      =   7410
   StartUpPosition =   3  '窗口缺省
   Begin U8VouchList.VouchList ocxVchList 
      Height          =   4815
      Left            =   0
      TabIndex        =   0
      Top             =   600
      Width           =   7455
      _ExtentX        =   13150
      _ExtentY        =   8493
   End
   Begin MSComctlLib.Toolbar tblTool 
      Align           =   1  'Align Top
      Height          =   540
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   7410
      _ExtentX        =   13070
      _ExtentY        =   953
      ButtonWidth     =   820
      ButtonHeight    =   953
      Style           =   1
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   8
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "print"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "预览"
            Key             =   "preview"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "输出"
            Key             =   "output"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "栏目"
            Key             =   "columns"
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "help"
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "quit"
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frmImport"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit
'Private m_objColSet As New U8colset.clsColSet
'Private m_objNB As New U8FDNB.clsFDNB
'Private m_objAid As New U8FDNB.clsFDAid
'
'Public Sub Xml2Table(file As String)
''    On Error GoTo last:
''    Dim inXml As New DOMDocument
''    Dim str As String
''    Dim outXml As New DOMDocument
''    Dim con As New ADODB.Connection
''    Dim rs As New ADODB.Recordset
''
''    con.ConnectionString = g_sDataSourceName
''    con.CursorLocation = adUseClient
''    con.Open
''
''    inXml.Load file
''    m_objAid.xml2rs inXml, rs
''    ocxVchList.SetVchLstRst rs
''    rs.Close
''
''    m_objNB.Transact inXml.xml, str, con
''    outXml.loadXML str
''
''    Exit Sub
''last:
''    MsgBox Error
'End Sub
'
'Private Sub Table2Xml()
'
'End Sub
'
'
'Private Sub Form_Load()
'    m_objColSet.Init g_sDataSourceName, zjLogInfo.cUserName
'    ocxVchList.FillMode = FillOverwrite
'    m_objColSet.setColMode ("fd_import")
'    ocxVchList.InitHead m_objColSet.getColInfo
'    ocxVchList.Rows = 1
'End Sub
'
'Private Sub Form_Unload(Cancel As Integer)
'    Set m_objColSet = Nothing
'End Sub
'
'Private Sub tlbTool_ButtonClick(ByVal Button As MSComctlLib.Button)
'    Select Case Button.Key
'        Case "columns"
'            If Workable Then
'                If m_objColSet.setCol Then
'                    SetSql "col"
'                End If
'            End If
'        Case "preview"
'            If Workable Then
'                ocxVchList.VchLstPreview
'            End If
'        Case "print"
'            If Workable Then
'                ocxVchList.VchLstPrint
'            End If
'        Case "output"
'            If Workable Then
'                ocxVchList.VchLstPrintToFile
'            End If
'        Case "quit"
'            Hide
'        Case Else
'    End Select
'End Sub
'
'Public Function Workable() As Boolean
'    Workable = False
'    If ocxVchList.Rows > 1 Then
'        Workable = True
'    End If
'End Function
'