test33.frm

这个商品销售管理系统实现了几乎所有的功能,并通过验收

VERSION 5.00
Begin VB.Form test33 
   Caption         =   "Form1"
   ClientHeight    =   3300
   ClientLeft      =   60
   ClientTop       =   420
   ClientWidth     =   8445
   LinkTopic       =   "Form1"
   ScaleHeight     =   3300
   ScaleWidth      =   8445
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "删 除 信 息"
      Height          =   495
      Left            =   1920
      TabIndex        =   11
      Top             =   2640
      Width           =   1575
   End
   Begin VB.CommandButton Command14 
      Caption         =   "退    出"
      Height          =   495
      Left            =   4200
      TabIndex        =   10
      Top             =   2640
      Width           =   1575
   End
   Begin VB.TextBox Text16 
      Height          =   375
      Index           =   0
      Left            =   960
      TabIndex        =   9
      Top             =   240
      Width           =   1575
   End
   Begin VB.TextBox Text17 
      Height          =   375
      Left            =   960
      TabIndex        =   8
      Top             =   840
      Width           =   1455
   End
   Begin VB.TextBox Text18 
      Height          =   375
      Left            =   960
      TabIndex        =   7
      Top             =   1440
      Width           =   1455
   End
   Begin VB.TextBox Text19 
      Height          =   375
      Left            =   960
      TabIndex        =   6
      Top             =   2040
      Width           =   1455
   End
   Begin VB.TextBox Text20 
      Height          =   375
      Left            =   4320
      TabIndex        =   5
      Top             =   120
      Width           =   1215
   End
   Begin VB.TextBox Text21 
      Height          =   375
      Left            =   4320
      TabIndex        =   4
      Top             =   840
      Width           =   1455
   End
   Begin VB.TextBox Text22 
      Height          =   375
      Left            =   4320
      TabIndex        =   3
      Top             =   1440
      Width           =   1815
   End
   Begin VB.TextBox Text23 
      Height          =   375
      Left            =   4320
      TabIndex        =   2
      Top             =   2040
      Width           =   1575
   End
   Begin VB.TextBox Text24 
      Height          =   375
      Left            =   6960
      TabIndex        =   1
      Top             =   240
      Width           =   1215
   End
   Begin VB.TextBox Text25 
      Height          =   375
      Left            =   6960
      TabIndex        =   0
      Top             =   840
      Width           =   1335
   End
   Begin VB.Label Label27 
      Caption         =   "客户编号"
      Height          =   375
      Index           =   0
      Left            =   120
      TabIndex        =   21
      Top             =   240
      Width           =   735
   End
   Begin VB.Label Label28 
      Caption         =   "客户全称"
      Height          =   255
      Left            =   120
      TabIndex        =   20
      Top             =   840
      Width           =   735
   End
   Begin VB.Label Label29 
      Caption         =   "简称"
      Height          =   375
      Left            =   240
      TabIndex        =   19
      Top             =   1320
      Width           =   615
   End
   Begin VB.Label Label30 
      Caption         =   "地址"
      Height          =   375
      Left            =   240
      TabIndex        =   18
      Top             =   2040
      Width           =   495
   End
   Begin VB.Label Label31 
      Caption         =   "电话"
      Height          =   375
      Left            =   3360
      TabIndex        =   17
      Top             =   240
      Width           =   735
   End
   Begin VB.Label Label32 
      Caption         =   "联系人"
      Height          =   375
      Left            =   3120
      TabIndex        =   16
      Top             =   840
      Width           =   975
   End
   Begin VB.Label Label33 
      Caption         =   "联系人电话"
      Height          =   375
      Left            =   3000
      TabIndex        =   15
      Top             =   1440
      Width           =   1095
   End
   Begin VB.Label Label34 
      Caption         =   "应收金额"
      Height          =   375
      Left            =   3240
      TabIndex        =   14
      Top             =   2040
      Width           =   735
   End
   Begin VB.Label Label35 
      Caption         =   "实际欠款"
      Height          =   255
      Left            =   6120
      TabIndex        =   13
      Top             =   240
      Width           =   735
   End
   Begin VB.Label Label36 
      Caption         =   "网址邮箱"
      Height          =   375
      Left            =   6000
      TabIndex        =   12
      Top             =   840
      Width           =   735
   End
End
Attribute VB_Name = "test33"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
test1.Adodc3.RecordSource = "delete 客户信息表 where 客户编号=" + Text16(0).Text + ""
With test1.Adodc3.Recordset
If test1.Adodc3.Recordset.RecordCount > 0 Then
MsgBox "确认要删除该条信息吗?", 17, "销售管理系统"
.Delete
.Update
End If
End With

End Sub

Private Sub Command2_Click()
test13.Visible = False

End Sub

Private Sub Command14_Click()
test33.Visible = False
End Sub

Private Sub Form_Load()
Text16(0).Text = sale.Text16(0).Text
Text17.Text = sale.Text17.Text
Text18.Text = sale.Text18.Text
Text19.Text = sale.Text19.Text
Text20.Text = sale.Text20.Text
Text21.Text = sale.Text21.Text
Text22.Text = sale.Text22.Text
Text23.Text = sale.Text23.Text
Text24.Text = sale.Text24.Text
Text25.Text = sale.Text25.Text
End Sub