libmainstart.bas

本系统是给大庆油田做的一个示例程序

Attribute VB_Name = "LibMainStart"
Option Explicit
Sub Main()
    Dim Path1 As String
    Path1 = GetSetting(App.EXEName, "path", "path1", "")
    If Len(Path1) = 0 Then DataBasePath False, App.Path, App.Path, App.Path
    
    Call PrintSet(True, Print_XLeftPercent, Print_YTopPercent, Print_Director)
    If Print_Director = 0 Then
        Print_XLeftPercent = 0.06: Print_YTopPercent = 0.06: Print_Director = 2
        PrintSet False, Print_XLeftPercent, Print_YTopPercent, Print_Director
    End If
    
    MainStart.Show 1
End Sub
Rem 数据库路径
Sub DataBasePath(read As Boolean, Path1 As String, Path2 As String, Path3 As String)
    If read Then
        Path1 = GetSetting(App.EXEName, "path", "path1", App.Path)
        Path2 = GetSetting(App.EXEName, "path", "path2", App.Path)
        Path3 = GetSetting(App.EXEName, "path", "path3", App.Path)
    Else
        SaveSetting App.EXEName, "path", "path1", Path1
        SaveSetting App.EXEName, "path", "path2", Path2
        SaveSetting App.EXEName, "path", "path3", Path3
    End If
End Sub