frmphpassgl.frm

这是用Visual Basic6开发的大型喷绘业务管理系统,数据库采用Access数据库

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmPHpassGL 
   BorderStyle     =   0  'None
   ClientHeight    =   5415
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6510
   LinkTopic       =   "Form1"
   Picture         =   "frmPHpassGL.frx":0000
   ScaleHeight     =   5415
   ScaleWidth      =   6510
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox Picture4 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   345
      Left            =   3930
      Picture         =   "frmPHpassGL.frx":7492E
      ScaleHeight     =   23
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   95
      TabIndex        =   5
      Top             =   3360
      Width           =   1425
   End
   Begin VB.PictureBox Picture3 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   345
      Left            =   3930
      Picture         =   "frmPHpassGL.frx":76350
      ScaleHeight     =   23
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   95
      TabIndex        =   4
      Top             =   2670
      Width           =   1425
   End
   Begin VB.PictureBox Picture2 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   345
      Left            =   3900
      Picture         =   "frmPHpassGL.frx":77D72
      ScaleHeight     =   23
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   95
      TabIndex        =   3
      Top             =   1980
      Width           =   1425
   End
   Begin VB.PictureBox Picture1 
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   345
      Left            =   3900
      Picture         =   "frmPHpassGL.frx":79794
      ScaleHeight     =   23
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   95
      TabIndex        =   2
      Top             =   1290
      Width           =   1425
   End
   Begin MSComctlLib.TreeView TreeView1 
      Height          =   3855
      Left            =   840
      TabIndex        =   1
      Top             =   960
      Width           =   2145
      _ExtentX        =   3784
      _ExtentY        =   6800
      _Version        =   393217
      Style           =   7
      BorderStyle     =   1
      Appearance      =   0
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   0
      Top             =   0
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   14
      ImageHeight     =   17
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   2
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmPHpassGL.frx":7B1B6
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmPHpassGL.frx":7B4FA
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Image Image1 
      Height          =   330
      Left            =   5970
      Picture         =   "frmPHpassGL.frx":7B84E
      Top             =   210
      Width           =   330
   End
   Begin VB.Label Label1 
      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       =   &H0000FFFF&
      Height          =   255
      Left            =   870
      TabIndex        =   0
      Top             =   300
      Width           =   1515
   End
End
Attribute VB_Name = "frmPHpassGL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim n As Integer
Dim jframe As New dframe

Private Sub Form_Load()
   rgn1 = 0
   n = 0
   Dim Ma As Dat
   Show
   Open App.Path & "\PHpassGL.dat" For Random As #1 Len = Len(Ma)
   Do While Not EOF(1)
      n = n + 1
      Get #1, n, Ma
      If rgn1 = 0 Then rgn1 = CreateRectRgn(Ma.sx, Ma.sy, Ma.ex, Ma.ey)
      If rgn1 <> 0 Then
            rgn2 = CreateRectRgn(Ma.sx, Ma.sy, Ma.ex, Ma.ey)
            CombineRgn rgn1, rgn1, rgn2, 2
                  '释放系统资源
            DeleteObject rgn2
      End If
  Loop
'关闭文件
    Close #1
    SetWindowRgn hwnd, rgn1, True
    DeleteObject rgn1
    '''''''''
    Set TreeView1.ImageList = ImageList1
    Set Tree = TreeView1.Nodes.Add(, , "ffff", "用户名列表", 1)
     Dim HeTongNumber(3) As String
        HeTongNumber(0) = "张涛"
        HeTongNumber(1) = "姜民"
        HeTongNumber(2) = "李亮"
        For i = 0 To 2
            Set TreeView1.ImageList = ImageList1
            Set TreeSub1 = TreeView1.Nodes.Add(Tree, tvwChild, "ffff" & Str(i), HeTongNumber(i))
            TreeSub1.Image = 1
            TreeSub1.EnsureVisible
        Next i
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture1
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture2
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture3
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture4
End Sub

Private Sub Form_Paint()
       '''''商品编号'''
    jframe.danum = 3
    jframe.rtop = 50
    jframe.rleft = 35
    jframe.rright = 406
    jframe.rbottom = 337
    jframe.ddraw frmPHpassGL
End Sub

Private Sub Image1_Click()
    Unload Me
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Picture2.Cls
    jframe.danum = 6
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture1
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture2
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture3
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture4
End Sub

Private Sub Picture1_Paint()
    'Picture2.Cls
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture1
End Sub

Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture1
    jframe.danum = 6
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture2
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture3
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture4
End Sub

Private Sub Picture2_Paint()
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture2
End Sub

Private Sub Picture3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture1
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture2
    jframe.danum = 6
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture3
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture4
End Sub

Private Sub Picture3_Paint()
     jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture3
End Sub

Private Sub Picture4_Click()
    Unload Me
    
End Sub

Private Sub Picture4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture1
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture2
    jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture3
    jframe.danum = 6
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture4
End Sub

Private Sub Picture4_Paint()
     jframe.danum = 8
    jframe.rtop = 1
    jframe.rleft = 1
    jframe.rright = 94
    jframe.rbottom = 23
    jframe.ddrawc Picture4
End Sub