frmmemberz.frm

一套比较简单的POS,只要认真修改收银台的话绝对专业

VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{7FDF243A-2E06-4F93-989D-6C9CC526FFC5}#10.0#0"; "HoverButton.ocx"
Begin VB.Form frmMemberz 
   Appearance      =   0  'Flat
   BackColor       =   &H00A27E66&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   4575
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   9135
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   4575
   ScaleWidth      =   9135
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      DataField       =   "code"
      DataMember      =   "items"
      DataSource      =   "DataEnvironment1"
      Height          =   1035
      Index           =   3
      Left            =   3240
      MultiLine       =   -1  'True
      TabIndex        =   4
      Top             =   1560
      Width           =   4215
   End
   Begin VB.Frame Frame1 
      Appearance      =   0  'Flat
      BackColor       =   &H80000005&
      Caption         =   "Sex"
      ForeColor       =   &H80000008&
      Height          =   1125
      Left            =   7560
      TabIndex        =   30
      Top             =   1470
      Width           =   1335
      Begin VB.OptionButton Option2 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         Caption         =   "Female"
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   360
         TabIndex        =   10
         Top             =   720
         Width           =   855
      End
      Begin VB.OptionButton Option1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         Caption         =   "Male"
         ForeColor       =   &H80000008&
         Height          =   255
         Left            =   360
         TabIndex        =   9
         Top             =   240
         Width           =   735
      End
      Begin VB.Label Label14 
         AutoSize        =   -1  'True
         BackColor       =   &H00A27E66&
         BackStyle       =   0  'Transparent
         Caption         =   "