frmsize.frm

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

VERSION 5.00
Object = "{8D650141-6025-11D1-BC40-0000C042AEC0}#3.0#0"; "ssdw3b32.ocx"
Begin VB.Form frmSize 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "尺寸维护"
   ClientHeight    =   3900
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5295
   Icon            =   "frmSize.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3900
   ScaleWidth      =   5295
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Height          =   3885
      Left            =   0
      ScaleHeight     =   3825
      ScaleWidth      =   5235
      TabIndex        =   0
      Top             =   0
      Width           =   5295
      Begin VB.ListBox List1 
         Height          =   2760
         ItemData        =   "frmSize.frx":000C
         Left            =   315
         List            =   "frmSize.frx":000E
         TabIndex        =   6
         Top             =   900
         Width           =   2100
      End
      Begin VB.CommandButton Command1 
         Caption         =   "增加[&A]"
         Height          =   525
         Left            =   2715
         TabIndex        =   5
         Top             =   1365
         Width           =   1830
      End
      Begin VB.CommandButton Command2 
         Caption         =   "删除[&D]"
         Height          =   525
         Left            =   2715
         TabIndex        =   4
         Top             =   1935
         Width           =   1830
      End
      Begin VB.CommandButton Command3 
         Caption         =   "退出[&X]"
         Height          =   525
         Left            =   2730
         TabIndex        =   3
         Top             =   3120
         Width           =   1830
      End
      Begin VB.CommandButton Command4 
         Caption         =   "更新[&R]"
         Height          =   525
         Left            =   2730
         TabIndex        =   2
         Top             =   2505
         Width           =   1830
      End
      Begin VB.TextBox Text1 
         Height          =   345
         Left            =   2700
         TabIndex        =   1
         Top             =   915
         Width           =   1860
      End
      Begin SSDataWidgets_B.SSDBCombo cmbSizename 
         Height          =   315
         Left            =   2265
         TabIndex        =   7
         Top             =   240
         Width           =   1365
         DataFieldList   =   "Column 0"
         AllowInput      =   0   'False
         _Version        =   196614
         DataMode        =   2
         RowHeight       =   423
         Columns(0).Width=   3757
         Columns(0).Caption=   "码段"
         Columns(0).Name =   "码段"
         Columns(0).CaptionAlignment=   2
         Columns(0).DataField=   "Column 0"
         Columns(0).DataType=   8
         Columns(0).FieldLen=   256
         _ExtentX        =   2408
         _ExtentY        =   556
         _StockProps     =   93
         BackColor       =   -2147483643
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         Caption         =   "码段"
         Height          =   180
         Left            =   1485
         TabIndex        =   8
         Top             =   330
         Width           =   360
      End
   End
End
Attribute VB_Name = "frmSize"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub cmbSizename_Click()
    On Error Resume Next
    sSQL = "select * from ssize where sizename='" & cmbSizename.Text & "'"
    
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    List1.Clear
    While Not RsTemp.EOF
        List1.AddItem RsTemp(1)
        RsTemp.MoveNext
    Wend

End Sub

Private Sub cmbSizename_InitColumnProps()
    On Error Resume Next
    Set RsTemp = Nothing
    RsTemp.Open "SELECT * FROM msize", Conn, adOpenStatic, adLockReadOnly
    If RsTemp.EOF Then Exit Sub
    While Not RsTemp.EOF
        cmbSizename.AddItem RsTemp(0)
        RsTemp.MoveNext
    Wend
    Set RsTemp = Nothing

End Sub

Private Sub Command1_Click()
    List1.AddItem Trim(Text1.Text)
End Sub

Private Sub Command2_Click()
    On Error Resume Next
    If List1.ListIndex = -1 Then Exit Sub
    List1.RemoveItem List1.ListIndex
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Command4_Click()
    On Error GoTo RERR
    Dim s As String
    Dim i As Integer
    s = cmbSizename.Text
    Conn.BeginTrans
    Cmd.ActiveConnection = Conn
    sSQL = "delete ssize where sizename='" & s & "'"
    Cmd.CommandText = sSQL
    Cmd.Execute
    For i = 0 To List1.ListCount - 1
        sSQL = "insert into ssize (sizename,size) values('" & s & "','" & List1.List(i) & "')"
        Cmd.CommandText = sSQL
        Cmd.Execute
    Next i
    Conn.CommitTrans
    Exit Sub
RERR:
    Conn.RollbackTrans
    MsgBox "更新数据发生错误！", vbInformation, "提示窗口"
End Sub

Private Sub optSize_Click(Index As Integer)
    On Error Resume Next
    Select Case Index
        Case 0
            sSQL = "select * from ssize where sizename='童码'"
        Case 1
            sSQL = "select * from ssize where sizename='女码'"
        Case 2
            sSQL = "select * from ssize where sizename='男码'"
    End Select
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    List1.Clear
    While Not RsTemp.EOF
        List1.AddItem RsTemp(1)
        RsTemp.MoveNext
    Wend
End Sub