mdiform1.frm

***** 展会管理系统 V1.1 共享版 ************** 一、安装 1.运行setup.exe文件； 2.如果不同意默认安装目录

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H00808000&
   Caption         =   "东宝化学有限公司—展会处理系统"
   ClientHeight    =   4170
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8100
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin ComctlLib.StatusBar StatusBar 
      Align           =   2  'Align Bottom
      Height          =   330
      Left            =   0
      TabIndex        =   0
      Top             =   3840
      Width           =   8100
      _ExtentX        =   14288
      _ExtentY        =   582
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   6
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   2
            Bevel           =   2
            Object.Width           =   2470
            MinWidth        =   2470
            Text            =   "工具栏提示："
            TextSave        =   "工具栏提示："
            Key             =   ""
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   3528
            MinWidth        =   3528
            Text            =   ""
            TextSave        =   ""
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "工具栏的提示信息"
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            Object.Width           =   2822
            MinWidth        =   2822
            Text            =   ""
            TextSave        =   ""
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "当前的日期"
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Style           =   5
            Alignment       =   1
            Object.Width           =   2117
            MinWidth        =   2117
            Text            =   ""
            TextSave        =   "20:19"
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "当前的时间"
         EndProperty
         BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            Enabled         =   0   'False
            Object.Width           =   4480
            MinWidth        =   4480
            Text            =   "设计：东化科技开发组"
            TextSave        =   "设计：东化科技开发组"
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "0577-8269005 [e-mail]"
         EndProperty
         BeginProperty Panel6 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            Enabled         =   0   'False
            Object.Width           =   5997
            MinWidth        =   5997
            Text            =   "制作单位：东宝化学有限公司"
            TextSave        =   "制作单位：东宝化学有限公司"
            Key             =   ""
            Object.Tag             =   ""
            Object.ToolTipText     =   "电话：[phone]  6269098  传真：6269096"
         EndProperty
      EndProperty
      MousePointer    =   99
      MouseIcon       =   "MDIForm1.frx":030A
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MDIForm_Load()
   Dim InNum As Integer
   Browser = App.Path
'定义temp dir
 '  Browser = "e:\source\fair"
    If Right(Browser, 1) <> "\" Then
       Browser = Browser + "\"
    End If
If App.PrevInstance = True Then
   RepeatS = True
   InNum = FreeFile
   FileName = Browser + "trans.sys"
   On Error Resume Next
   Open FileName For Output As #InNum
   Write #InNum, "yusilong"
   Close #InNum
   'MsgBox "展会主程序已经启动，请按 Alt+Tab 切换！", vbOKOnly + 48, "警告..."
   Unload Me
   Exit Sub
End If
'配置图片
  Menu.Show
Dim Ltp As Long, ConfigFile As String
Ltp = GetSetting(App.EXEName, "Options", "Show Tips at Startup", 1)
If Ltp = 1 Then
   frmTip.Show
End If
RepeatS = False
StatusBar.Panels.Item(3).Text = "日期:" & Date
'配置
ConfigFile = Browser + "Config.ysl"
If Dir(ConfigFile) = "" Then
   MsgBox "配置文件 Config.ysl 没有找到，请与管理员联系！", vbOKOnly + 16, "配置出错"
   Exit Sub
End If
Dim ConfigCol As New Collection
Dim LineStr As String
    InNum = FreeFile
  Open ConfigFile For Input As #InNum
  While Not EOF(InNum)
    Line Input #InNum, LineStr
    ConfigCol.Add LineStr
  Wend
  Close #InNum
If ConfigCol.Count < 3 Or ConfigCol.Count > 3 Then
   MsgBox "配置文件遭破坏，请重新配置该系统。", vbOKOnly + 16, "文件破坏"
   'Default value
   MDIForm1.Caption = "东宝化学有限公司-展会处理系统"
   MDIForm1.StatusBar.Panels.Item(6).Text = "制作单位：东宝化学有限公司"
   MDIForm1.StatusBar.Panels.Item(6).ToolTipText = "欢迎使用本软件"
   On Error GoTo Nophoto
   MDIForm1.Picture = LoadPicture(Browser + "setup.bmp")
   Else
'Application set value
   MDIForm1.Caption = ConfigCol.Item(1) + "-展会处理系统"
   MDIForm1.StatusBar.Panels.Item(6).Text = "制作单位：" + ConfigCol.Item(1)
   MDIForm1.StatusBar.Panels.Item(6).ToolTipText = "欢迎使用本软件"
   On Error GoTo Nophoto
   MDIForm1.Picture = LoadPicture(ConfigCol.Item(3))
   GoTo Havephoto
Nophoto:
   MDIForm1.Picture = LoadPicture()
Havephoto:
  If ConfigCol.Item(2) = "过期删除" Then
     'Delete code
     Dim Db As Database, TempStr As String
        Set Db = OpenDatabase(Browser + "Fair.mdb")
            TempStr = "展会时间<#" & Date & "#"
            TempStr = "Delete * From Fair Where " + TempStr
            Db.Execute TempStr
     Db.Close
  End If
End If
   InNum = FreeFile
   FileName = Browser + "trans.sys"
   On Error GoTo NoFile
   Open FileName For Input As #InNum
   While Not EOF(InNum)
      Line Input #InNum, FileName
   Wend
   Close #InNum
   FileName = Left(FileName, Len(FileName) - 1)
   FileName = Right(FileName, Len(FileName) - 1)
If FileName = "yusilong" Or FileName = "" Then
   Exit Sub
End If
   MDIForm1.MousePointer = 11
   Load SearchDisplay
   SearchDisplay.Show 1
   MDIForm1.MousePointer = 0
   Exit Sub
NoFile:
  Exit Sub
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If RepeatS = False Then
Dim SureQ As Integer
SureQ = MsgBox("真的退出该系统吗(Y/N)？", vbYesNo + 32, "请确认...")
  If SureQ = 6 Then
     Cancel = 0
     Else
     Cancel = -1
     Menu.Show
     Menu.Left = 0
     Menu.Top = 0
  End If
End If

End Sub