frmdel.frm

民间标会的会员管理用的软件。是为一个顾客定做的！

VERSION 5.00
Begin VB.Form frmDel 
   Caption         =   "数据删除"
   ClientHeight    =   1305
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   ScaleHeight     =   1305
   ScaleWidth      =   4680
   StartUpPosition =   1  '所有者中心
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Caption         =   "取消"
      Height          =   375
      Left            =   3300
      TabIndex        =   2
      Top             =   840
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定"
      Enabled         =   0   'False
      Height          =   375
      Left            =   2040
      TabIndex        =   1
      Top             =   840
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Height          =   315
      Left            =   420
      TabIndex        =   0
      Top             =   900
      Width           =   1275
   End
   Begin VB.Label Label1 
      Caption         =   "数据删除后将无法在恢复，如果您真的要删除数据就在下面请在这输入“OK”"
      Height          =   555
      Left            =   120
      TabIndex        =   3
      Top             =   180
      Width           =   4275
   End
End
Attribute VB_Name = "frmDel"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

Dim SQL As String

SQL = "DELETE FROM 买会表 WHERE EXISTS(SELECT * FROM 客户表 WHERE 所在帐本=" & frmTj.List1.ItemData(frmTj.txtSc.Tag)
SQL = SQL & " AND 客户表.客户编号=买会表.客户编号)"


ExecSQL SQL
SQL = "DELETE FROM 帐本表 WHERE 帐本编号=" & frmTj.List1.ItemData(frmTj.txtSc.Tag)
ExecSQL SQL
frmTj.List1.RemoveItem frmTj.txtSc.Tag
frmTj.Command3.Enabled = False
frmTj.txtSc.Text = ""
'frmTj.Tag = -1
'frmTj.Adodc1.Recordset.Close
If frmTj.List1.ListCount > 0 Then
    frmTj.List1.ListIndex = 0
Else
frmTj.frmNew.Enabled = False

End If


Unload Me

End Sub

Private Sub Command2_Click()
Unload Me

End Sub

Private Sub Text1_Change()
Dim OK As String
OK = Trim(Text1.Text)
OK = UCase(OK)

If OK = "OK" Then
    Command1.Default = True
    Command1.Enabled = True
Else
    Command1.Enabled = False
End If
End Sub