www.pudn.com > vb-sql-server.rar > frmWZLB1.frm, change:2003-01-11,size:6728b


VERSION 5.00 
Begin VB.Form frmWZLB1  
   BorderStyle     =   3  'Fixed Dialog 
   Caption         =   "商品类别设置信息" 
   ClientHeight    =   3150 
   ClientLeft      =   45 
   ClientTop       =   330 
   ClientWidth     =   6015 
   LinkTopic       =   "Form1" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   ScaleHeight     =   3150 
   ScaleWidth      =   6015 
   ShowInTaskbar   =   0   'False 
   StartUpPosition =   1  'CenterOwner 
   Begin VB.Frame Frame1  
      Caption         =   "商类别品设置:" 
      Height          =   2412 
      Left            =   120 
      TabIndex        =   4 
      Top             =   120 
      Width           =   5772 
      Begin VB.TextBox txtItem  
         Height          =   1560 
         Index           =   2 
         Left            =   960 
         MaxLength       =   80 
         MultiLine       =   -1  'True 
         ScrollBars      =   2  'Vertical 
         TabIndex        =   7 
         Top             =   600 
         Width           =   4572 
      End 
      Begin VB.TextBox txtItem  
         Height          =   270 
         Index           =   0 
         Left            =   960 
         MaxLength       =   8 
         TabIndex        =   0 
         Top             =   240 
         Width           =   1572 
      End 
      Begin VB.TextBox txtItem  
         Height          =   270 
         Index           =   1 
         Left            =   3480 
         MaxLength       =   20 
         TabIndex        =   1 
         Top             =   240 
         Width           =   2052 
      End 
      Begin VB.Label Label2  
         Caption         =   "备注信息:" 
         Height          =   252 
         Index           =   10 
         Left            =   120 
         TabIndex        =   8 
         Top             =   600 
         Width           =   1092 
      End 
      Begin VB.Label Label2  
         Caption         =   "类别编号:" 
         Height          =   252 
         Index           =   0 
         Left            =   120 
         TabIndex        =   6 
         Top             =   240 
         Width           =   1092 
      End 
      Begin VB.Label Label2  
         Caption         =   "类别名称:" 
         Height          =   252 
         Index           =   1 
         Left            =   2640 
         TabIndex        =   5 
         Top             =   240 
         Width           =   1092 
      End 
   End 
   Begin VB.CommandButton cmdExit  
      Caption         =   "返回 (&X)" 
      Height          =   375 
      Left            =   3000 
      TabIndex        =   3 
      Top             =   2640 
      Width           =   1215 
   End 
   Begin VB.CommandButton cmdSave  
      Caption         =   "保存 (&S)" 
      Height          =   375 
      Left            =   1560 
      TabIndex        =   2 
      Top             =   2640 
      Width           =   1215 
   End 
End 
Attribute VB_Name = "frmWZLB1" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
'是否改动过记录,ture为改过 
Dim mblChange As Boolean 
Dim mrc As ADODB.Recordset 
Public txtSQL As String 
 
Private Sub cmdExit_Click() 
    If mblChange And cmdSave.Enabled Then 
        If MsgBox("保存当前记录的变化吗?", vbOKCancel + vbExclamation, "警告") = vbOK Then 
            '保存 
            Call cmdSave_Click 
        End If 
    End If 
    Unload Me 
End Sub 
 
Private Sub cmdSave_Click() 
    Dim intCount As Integer 
    Dim sMeg As String 
    Dim MsgText As String 
     
   
    For intCount = 0 To 1 
        If Trim(txtItem(intCount) & " ") = "" Then 
            Select Case intCount 
                Case 0 
                    sMeg = "类别编号" 
                Case 1 
                    sMeg = "类别名称" 
            End Select 
            sMeg = sMeg & "不能为空!" 
            MsgBox sMeg, vbOKOnly + vbExclamation, "警告" 
            txtItem(intCount).SetFocus 
            Exit Sub 
        End If 
    Next intCount 
     
    
    '添加判断是否有相同的ID记录 
    If gintWZLBSmode = 1 Then 
        txtSQL = "select * from dm_wzlb where lbcode ='" & Trim(txtItem(0)) & "'" 
        Set mrc = ExecuteSQL(txtSQL, MsgText) 
        If mrc.EOF = False Then 
            MsgBox "已经存在此类别编号的记录!", vbOKOnly + vbExclamation, "警告" 
            txtItem(0).SetFocus 
            Exit Sub 
        End If 
        mrc.Close 
    End If 
     
     
    '先删除已有记录 
    txtSQL = "delete from dm_wzlb where lbcode ='" & Trim(txtItem(0)) & "'" 
    Set mrc = ExecuteSQL(txtSQL, MsgText) 
    
     
    '再加入新记录 
    txtSQL = "insert dm_wzlb values  ('" 
    For intCount = 0 To 1 
        txtSQL = txtSQL & Trim(txtItem(intCount)) & "','" 
    Next intCount 
     
     
    txtSQL = txtSQL & Trim(txtItem(2)) & "')" 
     
    Set mrc = ExecuteSQL(txtSQL, MsgText) 
         
    If gintWZLBSmode = 1 Then 
        MsgBox "添加记录成功!", vbOKOnly + vbExclamation, "添加记录" 
        For intCount = 0 To 2 
            txtItem(intCount) = "" 
        Next intCount 
         
         
        mblChange = False 
         
        Unload frmWZLB 
        frmWZLB.txtSQL = "select * from dm_wzlb" 
        frmWZLB.Show 
         
    ElseIf gintWZLBSmode = 2 Then 
        Unload Me 
        Unload frmWZLB 
         
        frmWZLB.txtSQL = "select * from dm_wzlb" 
        frmWZLB.Show 
    End If 
     
End Sub 
 
 
Private Sub Form_Load() 
    Dim intCount As Integer 
    Dim MsgText As String 
    Dim i As Integer 
    Dim mrcc As ADODB.Recordset 
   
    If gintWZLBSmode = 1 Then 
        Me.Caption = Me.Caption & "添加" 
        For i = 0 To 2 
            txtItem(i).Text = "" 
        Next i 
         
    ElseIf gintWZLBSmode = 2 Then 
        Set mrc = ExecuteSQL(txtSQL, MsgText) 
         
        If mrc.EOF = False Then 
            With mrc 
                For intCount = 0 To 2 
                    txtItem(intCount) = .Fields(intCount) 
                Next intCount 
            End With 
            txtItem(0).Enabled = False 
        End If 
         
        Me.Caption = Me.Caption & "修改" 
    End If 
     
    mblChange = False 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
    gintWZLBSmode = 0 
End Sub 
 
 
 
Private Sub txtItem_Change(Index As Integer) 
    '有变化设置gblchange 
    mblChange = True 
End Sub 
 
Private Sub txtItem_GotFocus(Index As Integer) 
    txtItem(Index).SelStart = 0 
    txtItem(Index).SelLength = Len(txtItem(Index)) 
End Sub 
 
Private Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) 
    EnterToTab KeyCode 
End Sub