frmselectedzxt.frm

一个用VB写的财务软件源码

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmSelectedZXT 
   AutoRedraw      =   -1  'True
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "财务子系统选择"
   ClientHeight    =   5220
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5190
   Icon            =   "frmSelectedZXT.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5220
   ScaleWidth      =   5190
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   WhatsThisButton =   -1  'True
   WhatsThisHelp   =   -1  'True
   Begin MSComctlLib.ProgressBar pbr 
      Height          =   375
      Left            =   60
      TabIndex        =   7
      Top             =   4260
      Width           =   5055
      _ExtentX        =   8916
      _ExtentY        =   661
      _Version        =   393216
      Appearance      =   1
   End
   Begin VB.CheckBox chkShow 
      Caption         =   "显示结果"
      Height          =   285
      Left            =   60
      TabIndex        =   3
      Top             =   5730
      Width           =   1905
   End
   Begin VB.Frame Frame1 
      Caption         =   "财务子系统:"
      Height          =   4125
      Left            =   60
      TabIndex        =   6
      Top             =   30
      Width           =   5085
      Begin MSComctlLib.ListView lvwReports 
         Height          =   3375
         Left            =   60
         TabIndex        =   0
         Top             =   240
         Width           =   4935
         _ExtentX        =   8705
         _ExtentY        =   5953
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         Checkboxes      =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   0
      End
      Begin VB.CommandButton cmdSelectReport 
         Caption         =   "全选(&A)"
         Height          =   345
         Left            =   960
         TabIndex        =   1
         Top             =   3720
         Width           =   1065
      End
      Begin VB.CommandButton cmdClearReport 
         Caption         =   "清空(&C)"
         Height          =   345
         Left            =   3300
         TabIndex        =   2
         Top             =   3720
         Width           =   1065
      End
   End
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      CausesValidation=   0   'False
      Height          =   345
      Left            =   3840
      TabIndex        =   5
      Top             =   4800
      Width           =   1065
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   345
      Left            =   2190
      TabIndex        =   4
      Top             =   4800
      Width           =   1065
   End
   Begin MSComDlg.CommonDialog dlg 
      Left            =   240
      Top             =   4650
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
End
Attribute VB_Name = "frmSelectedZXT"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim m_cnn As New ADODB.Connection
Dim m_Comment As String
Dim m_Time As String
Dim m_AccountID As String
Dim m_sYear As String
Dim c As New VBA.Collection
Dim g As New GlobalInterface.clsGlobal
Dim gSys As New GlobalInterface.clsGlobalSys
Private WithEvents TB As TableFileForXML.clsTBinfo
Attribute TB.VB_VarHelpID = -1

Private Sub cmdClearReport_Click()
    Dim i As Integer
    
    For i = 1 To lvwReports.ListItems.Count
        lvwReports.ListItems.Item(i).Checked = False
    Next i
End Sub

Private Sub cmdOk_Click()
Dim tNode As Node

Set TB = New TableFileForXML.clsTBinfo

 Call LoadtvwSource
dLg.FileName = ""
dLg.InitDir = App.Path
dLg.Filter = "*.xml|*.xml"
dLg.ShowSave
If dLg.FileName = "" Then Exit Sub
cmdOk.Enabled = False
If Dir(dLg.FileName) <> "" Then
    Kill dLg.FileName
End If
g.cnnMain = m_cnn
g.g_FLAT = g_FLAT
TB.uTables = c
TB.iGlo = g
If TB.Count > 0 Then
   pBr.Max = TB.Count
End If
pBr.Min = 1
pBr.Value = 1
On Error GoTo errorhandle:
TB.uSummary = "时间:" & CStr(m_Time) & ";" & "内容:" & m_Comment
'TB.uSummary = "时间:二00二年内容财务报表"
TB.MakeSoap dLg.FileName

MsgBox "财务子系统备份完成！"
cmdOk.Enabled = True
Unload Me
Exit Sub
errorhandle:
MsgBox Err.Description
End Sub

Private Sub cmdSelectReport_Click()
    Dim i As Integer
    
    For i = 1 To lvwReports.ListItems.Count
        lvwReports.ListItems.Item(i).Checked = True
    Next i
End Sub
Private Sub Form_Load()
Dim lstItem As ListItem
Dim rSt As ADODB.Recordset
Dim adoCnn As ADODB.Connection
Set adoCnn = New ADODB.Connection
If g_FLAT = "SQL" Then
 adoCnn.Open GetConnectString(g_FLAT, gloSys.sServer, "sa", "", "YKcwsysdb")
Else
 adoCnn.Open GetConnectString(g_FLAT, gloSys.sServer, "YkcwSysDB", "horse")
End If
    Set rSt = New ADODB.Recordset
   With lvwReports
        .View = lvwReport
        .HideSelection = False
        .FullRowSelect = True
        .LabelEdit = lvwManual
        With .ColumnHeaders
            .Add , , "子系统代码", 900
            .Add , , "子系统中文名称", 1200
            .Add , , "子系统英文名称", 1800
            .Add , , "启用情况", 2200
        End With
            Set lstItem = .ListItems.Add
            lstItem.text = "ZW"
            lstItem.SubItems(1) = "集成账务"
            lstItem.SubItems(2) = "Account"
            rSt.Open "select * from tSYS_SubSysUsed where SubSysID='ZW' and  AccountID= '" & m_AccountID & "'", _
                      adoCnn, adOpenStatic, adLockReadOnly
            If rSt.RecordCount <> 0 Then
                lstItem.SubItems(3) = rSt.Fields("BeginYear").Value & "年" & _
                        rSt.Fields("BeginMonth").Value & "月启用"
            Else
                lstItem.SubItems(3) = "(尚未启用)"
            End If
            rSt.Close
            
            Set lstItem = .ListItems.Add
            lstItem.text = "GD"
            lstItem.SubItems(1) = "固定资产"
            lstItem.SubItems(2) = "FixedAssets"
            rSt.Open "select * from tSYS_SubSysUsed where SubSysID='GD' and  AccountID= '" & m_AccountID & "'", _
                      adoCnn, adOpenStatic, adLockReadOnly
            If rSt.RecordCount <> 0 Then
                lstItem.SubItems(3) = rSt.Fields("BeginYear").Value & "年" & _
                        rSt.Fields("BeginMonth").Value & "月启用"
            Else
                lstItem.SubItems(3) = "(尚未启用)"
            End If