frmabout.frm

VB+SQL SERVER 密码：2222

VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form frmAbout 
   BackColor       =   &H0080C0FF&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "谢谢使用人事管理系统"
   ClientHeight    =   3795
   ClientLeft      =   3795
   ClientTop       =   3045
   ClientWidth     =   4980
   ClipControls    =   0   'False
   Icon            =   "frmAbout.frx":0000
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2619.376
   ScaleMode       =   0  'User
   ScaleWidth      =   4676.478
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox picIcon 
      AutoSize        =   -1  'True
      BackColor       =   &H0080C0FF&
      ClipControls    =   0   'False
      Height          =   540
      Left            =   75
      Picture         =   "frmAbout.frx":030A
      ScaleHeight     =   337.12
      ScaleMode       =   0  'User
      ScaleWidth      =   337.12
      TabIndex        =   0
      Top             =   165
      Width           =   540
   End
   Begin MSForms.Label Label3 
      Height          =   255
      Left            =   1920
      TabIndex        =   6
      Top             =   2880
      Width           =   2175
      ForeColor       =   16711680
      BackColor       =   8438015
      VariousPropertyBits=   8388627
      Caption         =   "[e-mail]"
      Size            =   "3836;450"
      MousePointer    =   99
      FontName        =   "宋体"
      FontEffects     =   1073741829
      FontHeight      =   240
      FontCharSet     =   134
      FontPitchAndFamily=   34
      FontWeight      =   700
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "键盘设置：F1 帮助 F2 开始游戏 F3 设置          F4 暂停 F5 退出游戏 Esc 老板键             移动就由你自己设定吧!"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   675
      Left            =   225
      TabIndex        =   5
      Top             =   1605
      Width           =   4410
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   4
      X1              =   154.944
      X2              =   4422.934
      Y1              =   1604.756
      Y2              =   1604.756
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   3
      X1              =   154.944
      X2              =   4408.848
      Y1              =   1615.109
      Y2              =   1615.109
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   2
      X1              =   154.944
      X2              =   4422.934
      Y1              =   1615.109
      Y2              =   1615.109
   End
   Begin VB.Label Label1 
      BackColor       =   &H0080C0FF&
      BackStyle       =   0  'Transparent
      Caption         =   "程序开发者:许士华 丛菲        山东贸易职工大学02高计4班"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   495
      Left            =   735
      TabIndex        =   4
      Top             =   480
      Width           =   3480
   End
   Begin MSForms.CommandButton CommandButton1 
      Cancel          =   -1  'True
      Default         =   -1  'True
      Height          =   360
      Left            =   1800
      TabIndex        =   3
      Top             =   3225
      Width           =   945
      ForeColor       =   16711680
      BackColor       =   8438015
      Caption         =   "OK"
      Size            =   "1667;635"
      FontName        =   "宋体"
      FontHeight      =   180
      FontCharSet     =   134
      FontPitchAndFamily=   34
      ParagraphAlign  =   3
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00808080&
      BorderStyle     =   6  'Inside Solid
      Index           =   1
      X1              =   140.858
      X2              =   4408.848
      Y1              =   1024.973
      Y2              =   1024.973
   End
   Begin VB.Label lblTitle 
      BackColor       =   &H0080C0FF&
      BackStyle       =   0  'Transparent
      Caption         =   "俄罗斯方块测试版1.0"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   360
      Left            =   735
      TabIndex        =   2
      Top             =   180
      Width           =   3885
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Index           =   0
      X1              =   140.858
      X2              =   4394.762
      Y1              =   1035.327
      Y2              =   1035.327
   End
   Begin VB.Label lblDisclaimer 
      BackColor       =   &H0080C0FF&
      BackStyle       =   0  'Transparent
      Caption         =   "本游戏是属于工作休闲的小游戏！非常感谢您对人事管理系统的使用！！！"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   795
      Left            =   225
      TabIndex        =   1
      Top             =   2460
      Width           =   4545
   End
End
Attribute VB_Name = "frmAbout"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
 
Private Sub CommandButton1_Click()
Unload Me
If LastRow <> 0 Then
With Form1
Form1.Timer1.Interval = 1
Form1.CmdPause.Caption = "暂停(&P)"
.CmdLeft.Enabled = True
.CmdRight.Enabled = True
.CmdRevert.Enabled = True
.CmdDown.Enabled = True
End With
End If
End Sub

Private Sub Form_Load()
picIcon.Picture = LoadPicture(AppFilePath & "Me.ico")
Label3.MouseIcon = LoadPicture(AppFilePath & "point.cur")
End Sub

Private Sub Label3_Click()
EMAIL_ME
End Sub