module2.bas

供销信息查询系统

Attribute VB_Name = "Module2"
Public mainform1 As Integer
Public unioform1 As Integer
Public unioform2 As Integer
Public chanpincha1 As Integer
Public chunjiacha1 As Integer
Public xiaochuocha1 As Integer
Public chatform11 As Integer
Public chatform21 As Integer
Public wordfindform1 As Integer
Public che1 As Integer
Public xulang1 As Integer
Public xulang2 As Integer
Public pass1 As Integer
Public aaa As Integer
Public loadform1 As Integer
Public Const OFS_MAXPATHNAME = 128
Public Type OFSTRUCT
        cBytes As Byte
        fFixedDisk As Byte
        nErrCode As Integer
        Reserved1 As Integer
        Reserved2 As Integer
        szPathName(OFS_MAXPATHNAME) As Byte
End Type
Public Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long

'Public Type SECURITY_ATTRIBUTES
'        nLength As Long
'        lpSecurityDescriptor As Long
'        bInheritHandle As Long
'End Type
'Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, lpSecurityAttributes As SECURITY_ATTRIBUTES, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
'Sub keyp1()
'Dim di As SECURITY_ATTRIBUTES
'di.nLength = Len(di)
'CreateFile App.Path & "\xu1.chm", GENERIC_READ, 0, di, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0
'End Sub

Sub Main()
xulangForm.Show
'打印表格
'Me.PrintGrid1.DatabaseName = App.Path & "\biblio.mdb"
'Me.PrintGrid1.RecordSource = "select * from publishers"
'Me.PrintGrid1.Refresh
'*********************
'For i = 0 To Me.print1.Cols - 1
'  Me.print1.Col = i
'  For j = 0 To Me.print1.Rows - 1
'    Me.print1.Row = j
'    Me.print1.ColAlignment(i) = 2
'    Me.print1.Text = ""
'  Next
'Next
End Sub

Sub keyp()
On Error Resume Next
Dim xu As OFSTRUCT
xu.cBytes = 136
OpenFile App.Path & "\xu.chm", xu, OF_REOPEN
End Sub