frmeditgoodstype.frm

服装销售系统,VB开发.没有解压密码

VERSION 5.00
Object = "{4A4AA691-3E6F-11D2-822F-00104B9E07A1}#3.0#0"; "ssdw3bo.ocx"
Begin VB.Form frmEditGoodsType 
   Caption         =   "编辑商品类别"
   ClientHeight    =   5250
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9165
   Icon            =   "frmEditGoodsType.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   5250
   ScaleWidth      =   9165
   Begin SSDataWidgets_B_OLEDB.SSOleDBGrid grdDET 
      Align           =   2  'Align Bottom
      Bindings        =   "frmEditGoodsType.frx":000C
      Height          =   4380
      Left            =   0
      TabIndex        =   5
      Top             =   870
      Width           =   9165
      _Version        =   196617
      DataMode        =   2
      AllowAddNew     =   -1  'True
      RowHeight       =   450
      ExtraHeight     =   159
      Columns.Count   =   4
      Columns(0).Width=   3200
      Columns(0).Caption=   "商品编码"
      Columns(0).Name =   "商品编码"
      Columns(0).DataField=   "Column 0"
      Columns(0).DataType=   8
      Columns(0).FieldLen=   256
      Columns(1).Width=   3200
      Columns(1).Caption=   "品名"
      Columns(1).Name =   "品名"
      Columns(1).DataField=   "Column 1"
      Columns(1).DataType=   8
      Columns(1).FieldLen=   256
      Columns(2).Width=   3200
      Columns(2).Caption=   "单位"
      Columns(2).Name =   "单位"
      Columns(2).DataField=   "Column 2"
      Columns(2).DataType=   8
      Columns(2).FieldLen=   256
      Columns(3).Width=   3200
      Columns(3).Caption=   "类别"
      Columns(3).Name =   "类别"
      Columns(3).DataField=   "Column 3"
      Columns(3).DataType=   8
      Columns(3).FieldLen=   256
      Columns(3).Style=   3
      _ExtentX        =   16166
      _ExtentY        =   7726
      _StockProps     =   79
      Caption         =   "编辑商品类别"
      BeginProperty PageFooterFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty PageHeaderFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.CommandButton Command4 
      Caption         =   "保存"
      Height          =   375
      Left            =   5865
      TabIndex        =   4
      Top             =   180
      Width           =   990
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   375
      Left            =   7260
      TabIndex        =   3
      Top             =   195
      Width           =   990
   End
   Begin VB.CommandButton Command1 
      Caption         =   "刷新"
      Height          =   375
      Left            =   4440
      TabIndex        =   2
      Top             =   195
      Width           =   990
   End
   Begin VB.TextBox txtCode 
      Height          =   345
      Left            =   1860
      TabIndex        =   1
      Top             =   210
      Width           =   2550
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "商品编码"
      Height          =   180
      Left            =   645
      TabIndex        =   0
      Top             =   315
      Width           =   720
   End
End
Attribute VB_Name = "frmEditGoodsType"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private RsTemp As New ADODB.Recordset

Private Sub Command1_Click()
    On Error Resume Next
    If txtCode.Text = "" Then Exit Sub
    grdDET.RemoveAll
    sSQL = "select 商品编码,品名,单位,类别 from 商品主档 where 商品编码 like '" & Trim(txtCode.Text) & "'"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockOptimistic
    Set grdDET.DataSource = RsTemp
    While Not RsTemp.EOF
        grdDET.AddItem RsTemp("商品编码") & vbTab & RsTemp("品名") & vbTab & RsTemp("单位") & vbTab & RsTemp("类别")
        RsTemp.MoveNext
    Wend
    grdDET.Refresh
End Sub

Private Sub Command2_Click()
    On Error Resume Next
    RsTemp.Cancel
    Unload Me
End Sub

Private Sub Command3_Click()
    On Error Resume Next
    RsTemp.Delete adAffectCurrent
End Sub

Private Sub Command4_Click()
    On Error Resume Next
    Dim i
    Cmd.ActiveConnection = Conn
    For i = 0 To grdDET.Rows - 1
        sSQL = "update 商品主档 set 类别='" & Trim(grdDET.Columns("类别").Text) & "' where 商品编码='" & Trim(grdDET.Columns("商品编码").Text) & "'"
        Cmd.CommandText = sSQL
        Cmd.Execute
        grdDET.MoveNext
    Next i
End Sub


Private Sub Form_Resize()
    On Error Resume Next
    grdDET.Height = Me.ScaleHeight - 825
    sSQL = "select * from goodstype "
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    While Not RsTemp.EOF
        grdDET.Columns("类别").AddItem RsTemp(0)
        RsTemp.MoveNext
    Wend
End Sub