gzxt2.frm

工资管理系统 使用VB写的一个基于文件存取的简单工资管理系统 主要演示了VB的文件操作功能 拥有个性的窗体与程序写的渐变背景

VERSION 5.00
Begin VB.Form Form2 
   BorderStyle     =   0  'None
   Caption         =   "Form2"
   ClientHeight    =   4575
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6390
   LinkTopic       =   "Form2"
   ScaleHeight     =   4575
   ScaleWidth      =   6390
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox Text1 
      BackColor       =   &H00C0FFC0&
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3735
      Left            =   240
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   2
      Top             =   480
      Width           =   5535
   End
   Begin VB.Label Label2 
      BackStyle       =   0  'Transparent
      Caption         =   "×"
      BeginProperty Font 
         Name            =   "黑体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   3120
      TabIndex        =   1
      Top             =   120
      Width           =   375
   End
   Begin VB.Label Label1 
      Caption         =   "工资管理系统"
      BeginProperty Font 
         Name            =   "楷体_GB2312"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   6375
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_load()
Dim i As Integer
Me.Top = 4000
Me.Left = 4000
Me.Height = 4500
Me.Width = 6000
Me.BackColor = RGB(230, 250, 230)
x1 = CreateRoundRectRgn(0, 0, 400, 17, 5, 5)
x2 = CreateRoundRectRgn(0, 18, 400, 300, 5, 5)
CombineRgn x1, x1, x2, 2
SetWindowRgn hwnd, x1, 1
Label1.Top = 0
Label1.Left = 0
Label1.Height = 250
Label1.Width = Me.Width
Label1.BackColor = RGB(230, 255, 230)
Label2.Top = 20
Label2.Left = Me.Width - 300
Label2.ForeColor = QBColor(11)
Label2.ZOrder 0
Text1.Top = 480
Text1.Left = 240
Text1.Height = Me.Height - 720
Text1.Width = Me.Width - 480
Text1.Text = "姓名" + Space(8) + "单位" + Space(13) + "年龄" + Space(2) + "工资" + Chr$(13) + Chr$(10)
For i = 1 To recordnumber
Get #1, i + 1, gzrecordvar
Text1.Text = Text1.Text + gzrecordvar.gname + Space(2) + gzrecordvar.gunit + Space(2) + gzrecordvar.gage + Space(4) + gzrecordvar.salary + Chr$(13) + Chr$(10)
Next i
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call formcolor1
Label2.ForeColor = QBColor(12)
End Sub


Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
                     Dim ReturnVal As Long
                     X = ReleaseCapture()
                     ReturnVal = SendMessage(Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
              End If
              Label2.ForeColor = QBColor(12)
              End Sub

Private Sub Label2_Click()
Unload Me
Form1.Show
End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label2.ForeColor = QBColor(11)
End Sub
Private Sub formcolor1()
Dim a1 As Integer
For i = 25 To 600
a1 = Int(i / 3)
Me.Line (Me.ScaleWidth, 10 * i)-(0, 10 * i), RGB(255 - a1, 255, 255 - a1)
Next i
End Sub

Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call formcolor1
End Sub