frmtest.frm

简单库存管理系统

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form frmTest 
   Caption         =   "东信手机售后服务管理系统!!!"
   ClientHeight    =   4980
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   7185
   LinkTopic       =   "Form1"
   Picture         =   "frmTest.frx":0000
   ScaleHeight     =   4980
   ScaleWidth      =   7185
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin ComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   840
      Left            =   0
      TabIndex        =   3
      Top             =   0
      Width           =   7185
      _ExtentX        =   12674
      _ExtentY        =   1482
      ButtonWidth     =   1455
      ButtonHeight    =   1323
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   327682
      BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7} 
         NumButtons      =   4
         BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "用户管理"
            Object.Tag             =   ""
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Caption         =   "退出系统"
            Object.Tag             =   ""
            ImageIndex      =   2
         EndProperty
         BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
         EndProperty
         BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7} 
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Timer Timer1 
      Interval        =   1000
      Left            =   600
      Top             =   1440
   End
   Begin VB.PictureBox PicCaption 
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   720
      Left            =   -120
      Picture         =   "frmTest.frx":549F3
      ScaleHeight     =   720
      ScaleWidth      =   9600
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   600
      Visible         =   0   'False
      Width           =   9600
      Begin VB.PictureBox PicBorder 
         AutoRedraw      =   -1  'True
         AutoSize        =   -1  'True
         BorderStyle     =   0  'None
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   150
         Left            =   0
         Picture         =   "frmTest.frx":6B237
         ScaleHeight     =   150
         ScaleWidth      =   1050
         TabIndex        =   1
         TabStop         =   0   'False
         Top             =   0
         Visible         =   0   'False
         Width           =   1050
      End
   End
   Begin ComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   375
      Left            =   0
      TabIndex        =   2
      Top             =   4605
      Width           =   7185
      _ExtentX        =   12674
      _ExtentY        =   661
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   4
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   5292
            MinWidth        =   5292
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   5292
            MinWidth        =   5292
            Text            =   "用户类型：管理员"
            TextSave        =   "用户类型：管理员"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   5292
            MinWidth        =   5292
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Object.Width           =   14111
            MinWidth        =   14111
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   2160
      Top             =   3960
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   39
      ImageHeight     =   31
      MaskColor       =   12632256
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   2
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmTest.frx":6B949
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "frmTest.frx":6C823
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Menu sys 
      Caption         =   "系统菜单"
      Begin VB.Menu user 
         Caption         =   "用户管理"
      End
      Begin VB.Menu info 
         Caption         =   "信息管理"
      End
      Begin VB.Menu exit 
         Caption         =   "退出系统"
      End
   End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private m_cN As cNeoCaption

Private Sub sub_Skin(fMain As Form, cN As cNeoCaption)
  cN.ActiveCaptionColor = &HFFFFFF '活动窗体的标题前景色
  cN.InActiveCaptionColor = &HC0FFC0 '非活动窗体的标题前景色
  'cN.InActiveCaptionColor = &HC0C0C0
  cN.ActiveMenuColor = &HC00000 '活动菜单前景色
  'cN.ActiveMenuColor = &H0
  cN.ActiveMenuColorOver = &HFF& '激活活动菜单前景色
  'cN.ActiveMenuColorOver = &H0
  cN.InActiveMenuColor = &H0 '非活动菜单前景色
  cN.MenuBackgroundColor = &H8000000F '菜单背景颜色
  'cN.MenuBackgroundColor = RGB(207, 203, 207)
  cN.CaptionFont.Name = "宋体" '标题字体
  cN.CaptionFont.Size = 9 '标题字号
  cN.MenuFont.Name = "宋体" '菜单字体
  cN.MenuFont.Size = 9 '菜单字号
  cN.Attach fMain, fMain.PicCaption.Picture, fMain.PicBorder.Picture, 19, 20, 90, 140, 240, 400 '窗体外观参数
  fMain.BackColor = &H8000000F '窗体背景
  'fMain.BackColor = RGB(208, 207, 192)
  'fMain.BackColor = RGB(207, 203, 207)
End Sub

Private Sub Form_Load()
  StatusBar1.Panels(3).Text = "今天是：" & Date
   StatusBar1.Panels(1).Text = "当前操作员：" & frmlogin.Text1.Text
  Set m_cN = New cNeoCaption
  Call sub_Skin(Me, m_cN) '更改窗体皮肤
End Sub

Private Sub Form_Unload(Cancel As Integer)
  m_cN.Detach '取消窗体皮肤
End Sub

Private Sub Timer1_Timer()
StatusBar1.Panels(4).Text = "当前时间：" & Format(Now, "hh:mm:ss")

End Sub