www.pudn.com > DataCollectionSystem.rar > Frm_About.frm, change:2003-11-13,size:25297b


VERSION 5.00 
Begin VB.Form Frm_About  
   BorderStyle     =   0  'None 
   ClientHeight    =   2835 
   ClientLeft      =   0 
   ClientTop       =   0 
   ClientWidth     =   3915 
   Icon            =   "Frm_About.frx":0000 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   2835 
   ScaleWidth      =   3915 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   2  'CenterScreen 
   Begin VB.PictureBox Picture1  
      Appearance      =   0  'Flat 
      BackColor       =   &H00FFFFC0& 
      ForeColor       =   &H80000008& 
      Height          =   195 
      Left            =   0 
      ScaleHeight     =   165 
      ScaleWidth      =   3885 
      TabIndex        =   1 
      Top             =   2640 
      Width           =   3915 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H80000003& 
         Height          =   105 
         Index           =   0 
         Left            =   30 
         TabIndex        =   25 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H80000003& 
         Height          =   105 
         Index           =   1 
         Left            =   180 
         TabIndex        =   24 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H80000003& 
         Height          =   105 
         Index           =   2 
         Left            =   345 
         TabIndex        =   23 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H80000003& 
         Height          =   105 
         Index           =   3 
         Left            =   495 
         TabIndex        =   22 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   4 
         Left            =   645 
         TabIndex        =   21 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   5 
         Left            =   810 
         TabIndex        =   20 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   6 
         Left            =   960 
         TabIndex        =   19 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   7 
         Left            =   1110 
         TabIndex        =   18 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   8 
         Left            =   1275 
         TabIndex        =   17 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   9 
         Left            =   1425 
         TabIndex        =   16 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   10 
         Left            =   1575 
         TabIndex        =   15 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   11 
         Left            =   1740 
         TabIndex        =   14 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   12 
         Left            =   1890 
         TabIndex        =   13 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   13 
         Left            =   2040 
         TabIndex        =   12 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   14 
         Left            =   2205 
         TabIndex        =   11 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   15 
         Left            =   2355 
         TabIndex        =   10 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   16 
         Left            =   2505 
         TabIndex        =   9 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   17 
         Left            =   2670 
         TabIndex        =   8 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   18 
         Left            =   2820 
         TabIndex        =   7 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   19 
         Left            =   2970 
         TabIndex        =   6 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   20 
         Left            =   3135 
         TabIndex        =   5 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   21 
         Left            =   3285 
         TabIndex        =   4 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   22 
         Left            =   3435 
         TabIndex        =   3 
         Top             =   30 
         Width           =   105 
      End 
      Begin VB.Label Lbl_State  
         AutoSize        =   -1  'True 
         BackStyle       =   0  'Transparent 
         Caption         =   "○" 
         BeginProperty Font  
            Name            =   "宋体" 
            Size            =   5.25 
            Charset         =   134 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H00EEA86F& 
         Height          =   105 
         Index           =   23 
         Left            =   3600 
         TabIndex        =   2 
         Top             =   30 
         Width           =   105 
      End 
   End 
   Begin VB.Timer Tmr_State  
      Enabled         =   0   'False 
      Interval        =   120 
      Left            =   3300 
      Tag             =   "0" 
      Top             =   420 
   End 
   Begin VB.Label Label1  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "数据采集信息子系统" 
      BeginProperty Font  
         Name            =   "楷体_GB2312" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   700 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FFFFFF& 
      Height          =   285 
      Left            =   600 
      TabIndex        =   30 
      Top             =   1200 
      Width           =   2835 
   End 
   Begin VB.Image Img_Logo  
      Appearance      =   0  'Flat 
      Height          =   480 
      Left            =   0 
      Picture         =   "Frm_About.frx":0CCA 
      Top             =   0 
      Width           =   480 
   End 
   Begin VB.Shape Shape1  
      BackColor       =   &H00D5E6C4& 
      BorderStyle     =   0  'Transparent 
      Height          =   525 
      Left            =   0 
      Top             =   0 
      Width           =   525 
   End 
   Begin VB.Label Lbl_Copyright  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "上海市地质调查研究院       版权所有(C)" 
      ForeColor       =   &H00FF8080& 
      Height          =   195 
      Left            =   360 
      MouseIcon       =   "Frm_About.frx":1594 
      MousePointer    =   99  'Custom 
      TabIndex        =   29 
      ToolTipText     =   "Http://www.sgwin.com" 
      Top             =   2130 
      Width           =   3030 
   End 
   Begin VB.Label Lbl_Ver  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "版本: 1.00" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   9.75 
         Charset         =   0 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FFFFFF& 
      Height          =   195 
      Left            =   2760 
      TabIndex        =   28 
      Top             =   1560 
      Width           =   1020 
   End 
   Begin VB.Label Lbl_Close  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "X" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   10.5 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H000000C0& 
      Height          =   210 
      Left            =   3720 
      MouseIcon       =   "Frm_About.frx":189E 
      MousePointer    =   99  'Custom 
      TabIndex        =   27 
      ToolTipText     =   "关闭窗口" 
      Top             =   45 
      Width           =   105 
   End 
   Begin VB.Line Line1  
      X1              =   105 
      X2              =   3840 
      Y1              =   2370 
      Y2              =   2370 
   End 
   Begin VB.Label Lbl_Caption  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "欢迎使用" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   11.25 
         Charset         =   0 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      ForeColor       =   &H00FF0000& 
      Height          =   225 
      Left            =   1560 
      TabIndex        =   26 
      Top             =   120 
      Width           =   900 
   End 
   Begin VB.Label Lbl_State1  
      AutoSize        =   -1  'True 
      BackStyle       =   0  'Transparent 
      Caption         =   "状态:正常" 
      ForeColor       =   &H00FF80FF& 
      Height          =   180 
      Left            =   90 
      TabIndex        =   0 
      Top             =   2430 
      Width           =   900 
   End 
   Begin VB.Shape Shape2  
      BackColor       =   &H00FFC0C0& 
      BackStyle       =   1  'Opaque 
      Height          =   465 
      Left            =   15 
      Top             =   0 
      Width           =   3900 
   End 
   Begin VB.Shape Sha_Border  
      BackColor       =   &H80000001& 
      BackStyle       =   1  'Opaque 
      BorderColor     =   &H00000000& 
      Height          =   2835 
      Left            =   0 
      Top             =   0 
      Width           =   3915 
   End 
End 
Attribute VB_Name = "Frm_About" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Dim i As Integer 
 
Private Sub Form_Load() 
   Call SetWindowPos(Frm_About.hwnd, -1, 0, 0, 0, 0, 3) 
   Frm_About.Show 
   Frm_About.Tmr_State.Enabled = True 
   Frm_About.Lbl_State1.Caption = "正在载入系统,请稍候...." 
   Call Delay(2) 
   Frm_About.Lbl_State1.Caption = "正在读取数据库信息...." 
   Call Delay(2) 
   Frm_About.Lbl_State1.Caption = "正在读取其他信息...." 
   Call Delay(2) 
   Frm_About.Hide 
   frmMain.Show 
End Sub 
 
'拖动窗口 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
   Me.MousePointer = 15 
   ReleaseCapture 
   SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0 
   Me.MousePointer = 0 
End Sub 
 
'拖动窗口 
Private Sub Lbl_Caption_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
   Me.MousePointer = 15 
   ReleaseCapture 
   SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0 
   Me.MousePointer = 0 
End Sub 
 
'关闭窗口 
Private Sub Lbl_Close_Click() 
   Unload Me 
   End 
End Sub 
 
'动态显示状态 
Private Sub Tmr_State_Timer() 
   For i = 0 To Lbl_State.Count - 1 
      If Lbl_State(i).Caption <> "○" Then 
         Lbl_State(i).ForeColor = &HEEA86F 
         Lbl_State(i).Caption = "○" 
         Exit For 
      End If 
   Next i 
   Lbl_State(CInt(Tmr_State.Tag)).ForeColor = vbBlue 
   Lbl_State(CInt(Tmr_State.Tag)).Caption = "●" 
   Tmr_State.Tag = CInt(Tmr_State.Tag) + 1 
   If CInt(Tmr_State.Tag) >= Lbl_State.Count Then 
      Tmr_State.Tag = 0 
   End If 
End Sub