module1.vb

固定资产管理信息系统,虽然还有些不足,但基本功能已实现!希望大家多多改进!

Imports System.Drawing.Printing


Module Module1

    Public falg As Integer = 1
    Public ObjNoteHeader As New noteHeader

    Public ObjLogin As New Login
    Public ObjAddClass As New AddClass
    Public ObjAddDepartment As New AddDepartment

    Public ObjAssent_main As New Assent_Main
    Public ObjScrap As New Scrap
    Public ObjTransfer As New Transfer

    Dim ObjDataInfor As New DataInfor
    Public StrData As String = "User ID=" & ObjDataInfor.user & ";Password=" & ObjDataInfor.password & ";Trusted_Connection=yes;Initial Catalog=" & ObjDataInfor.database & ";data source=" & ObjDataInfor.server & ""


    Dim print As New PrintDialog
    Friend WithEvents pDocument As New PrintDocument

    Public Sub Pprint()

        print.Document = pDocument
        Dim result As DialogResult = print.ShowDialog
        If result = Windows.Forms.DialogResult.OK Then
            pDocument.Print()
        End If
    End Sub

    '----------------------李雷---------------------------

    Public node1 As String
    Public node2 As String
    Public node3 As String
    Public node4 As String
    Public node5 As String
    Public node6 As String
    Public node7 As String
    Public node8 As String
    Public node9 As String
    Public node10 As String
    Public node11 As String
    Public node12 As String
    Public node13 As String

    Public type1, type2 As String

End Module