www.pudn.com > netserver.zip > frmSell.frm

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