frmreg.frm

餐饮管理系统数据库设计文档 表名：bzqbj（保质期报警表） 字段名 字段类型 字段长度 （0表示不允许NULL

VERSION 5.00
Begin VB.Form frmReg 
   Caption         =   "软件正版注册"
   ClientHeight    =   7665
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11835
   LinkTopic       =   "Form1"
   ScaleHeight     =   7665
   ScaleWidth      =   11835
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox PicCaption 
      Align           =   1  'Align Top
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BorderStyle     =   0  'None
      Height          =   720
      Left            =   0
      Picture         =   "frmReg.frx":0000
      ScaleHeight     =   720
      ScaleWidth      =   11835
      TabIndex        =   6
      TabStop         =   0   'False
      Top             =   0
      Visible         =   0   'False
      Width           =   11835
      Begin VB.PictureBox PicBorder 
         AutoRedraw      =   -1  'True
         AutoSize        =   -1  'True
         BorderStyle     =   0  'None
         Height          =   150
         Left            =   0
         Picture         =   "frmReg.frx":16844
         ScaleHeight     =   150
         ScaleWidth      =   1050
         TabIndex        =   7
         TabStop         =   0   'False
         Top             =   0
         Visible         =   0   'False
         Width           =   1050
      End
   End
   Begin VB.Frame fmRegN 
      BackColor       =   &H00A56E3A&
      Height          =   7155
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   11655
      Begin VB.Frame Frame2 
         BackColor       =   &H00A56E3A&
         Height          =   1575
         Left            =   60
         TabIndex        =   4
         Top             =   120
         Width           =   11535
         Begin VB.Label Label28 
            BackStyle       =   0  'Transparent
            Caption         =   "本软件注册后，您将成为本软件的合法正版用户，可以长期使用本软件，享受我们的免费升级及技术支持服务。"
            ForeColor       =   &H00FF0000&
            Height          =   315
            Left            =   165
            TabIndex        =   5
            Top             =   1230
            Width           =   10155
         End
         Begin VB.Line Line1 
            X1              =   0
            X2              =   11520
            Y1              =   1080
            Y2              =   1080
         End
      End
      Begin VB.Frame Frame3 
         BackColor       =   &H00A56E3A&
         Height          =   3975
         Left            =   60
         TabIndex        =   3
         Top             =   1740
         Width           =   11535
      End
      Begin VB.Frame Frame6 
         BackColor       =   &H00A56E3A&
         Height          =   1335
         Left            =   60
         TabIndex        =   1
         Top             =   5700
         Width           =   11535
         Begin VB.CommandButton cmdRegN 
            Appearance      =   0  'Flat
            Height          =   450
            Left            =   3900
            Picture         =   "frmReg.frx":16F56
            Style           =   1  'Graphical
            TabIndex        =   8
            Top             =   780
            Width           =   1455
         End
         Begin VB.CommandButton cmdExit_RegN 
            Appearance      =   0  'Flat
            Height          =   450
            Left            =   5640
            Picture         =   "frmReg.frx":1782C
            Style           =   1  'Graphical
            TabIndex        =   2
            Top             =   780
            Width           =   1455
         End
      End
   End
End
Attribute VB_Name = "frmReg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdExit_RegN_Click()
    frmLogin.Show
    Unload Me
End Sub

Private Sub cmdRegN_Click()
On Error Resume Next
    MsgBox "请自己添加软件注册的代码", vbInformation, "信息提示"
    
End Sub

Private Sub Form_Load()
On Error Resume Next
    Dim sGuid As String

    Call Skin(frmReg, m_cN)
    
    
End Sub