frmsell.frm

一个很强悍的网吧计费系统源码,分为客户端和服务端两个部分,采用VB进行编写

VERSION 5.00
Begin VB.Form frmSell 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "零售商品"
   ClientHeight    =   3390
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4500
   Icon            =   "frmSell.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3390
   ScaleWidth      =   4500
   StartUpPosition =   1  '所有者中心
   Begin VB.TextBox Text3 
      Height          =   375
      Left            =   1440
      TabIndex        =   0
      Text            =   "1"
      Top             =   1920
      Width           =   2175
   End
   Begin VB.TextBox Text2 
      Height          =   375
      Left            =   1440
      Locked          =   -1  'True
      TabIndex        =   7
      Top             =   1080
      Width           =   2175
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   1440
      Locked          =   -1  'True
      TabIndex        =   6
      Top             =   360
      Width           =   2175
   End
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   375
      Left            =   2760
      TabIndex        =   2
      Top             =   2760
      Width           =   1215
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Default         =   -1  'True
      Height          =   375
      Left            =   840
      TabIndex        =   1
      Top             =   2760
      Width           =   1215
   End
   Begin VB.Label Label3 
      Caption         =   "商品数量："
      Height          =   255
      Left            =   360
      TabIndex        =   5
      Top             =   2040
      Width           =   975
   End
   Begin VB.Label Label2 
      Caption         =   "商品单价："
      Height          =   255
      Left            =   360
      TabIndex        =   4
      Top             =   1200
      Width           =   975
   End
   Begin VB.Label Label1 
      Caption         =   "商品名称："
      Height          =   255
      Left            =   360
      TabIndex        =   3
      Top             =   360
      Width           =   975
   End
End
Attribute VB_Name = "frmSell"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
With frmMain.Data5.Recordset
 .AddNew
 .Fields("机号") = -1
 .Fields("商品编号") = frmMain.Data3.Recordset.Fields("商品编号")
 .Fields("数量") = Val(Text3.Text)
 .Fields("时间") = Now
 .Update
End With
frmMain.Data3.Recordset.Edit
frmMain.Data3.Recordset.Fields("库存数量") = frmMain.Data3.Recordset.Fields("库存数量") - Val(Text3.Text)
frmMain.Data3.Recordset.Update
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
With frmMain.Data3.Recordset
Text1.Text = .Fields("商品名称")
Text2.Text = .Fields("零售价格")

 
End With

End Sub