frm颜色维护.frm

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

VERSION 5.00
Object = "{8D650141-6025-11D1-BC40-0000C042AEC0}#3.0#0"; "SSDW3B32.OCX"
Begin VB.Form frm颜色维护 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "颜色维护"
   ClientHeight    =   4065
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4620
   Icon            =   "frm颜色维护.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4065
   ScaleWidth      =   4620
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      Height          =   585
      Left            =   0
      ScaleHeight     =   525
      ScaleWidth      =   4560
      TabIndex        =   1
      Top             =   0
      Width           =   4620
      Begin VB.CommandButton cmdExit 
         Caption         =   "退出[&X]"
         Height          =   540
         Left            =   1170
         TabIndex        =   3
         Top             =   -15
         Width           =   1170
      End
      Begin VB.CommandButton cmdSave 
         Caption         =   "保存[&S]"
         Height          =   540
         Left            =   0
         TabIndex        =   2
         Top             =   -15
         Width           =   1170
      End
   End
   Begin SSDataWidgets_B.SSDBGrid grdColor 
      Height          =   3390
      Left            =   60
      TabIndex        =   0
      Top             =   645
      Width           =   4425
      _Version        =   196614
      DataMode        =   2
      Col.Count       =   2
      AllowAddNew     =   -1  'True
      AllowDelete     =   -1  'True
      RowHeight       =   450
      Columns.Count   =   2
      Columns(0).Width=   3200
      Columns(0).Caption=   "颜色编码"
      Columns(0).Name =   "颜色编码"
      Columns(0).CaptionAlignment=   2
      Columns(0).DataField=   "Column 0"
      Columns(0).DataType=   8
      Columns(0).FieldLen=   2
      Columns(1).Width=   3200
      Columns(1).Caption=   "颜色名称"
      Columns(1).Name =   "颜色名称"
      Columns(1).CaptionAlignment=   2
      Columns(1).DataField=   "Column 1"
      Columns(1).DataType=   8
      Columns(1).FieldLen=   10
      _ExtentX        =   7805
      _ExtentY        =   5980
      _StockProps     =   79
      Caption         =   "颜色编码维护"
   End
End
Attribute VB_Name = "frm颜色维护"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub cmdSave_Click()
    On Error GoTo SaveErr
    Dim I
    Conn.BeginTrans
    sSQL = "DELETE COLOR"
    Cmd.ActiveConnection = Conn
    Cmd.CommandText = sSQL
    Cmd.Execute
    grdColor.MoveFirst
    For I = 0 To grdColor.Rows - 1
        sSQL = "INSERT INTO COLOR VALUES('" & Trim(grdColor.Columns(0).Text) & "','" & Trim(grdColor.Columns(1).Text) & "')"
        Cmd.CommandText = sSQL
        Cmd.Execute
        grdColor.MoveNext
    Next I
    Conn.CommitTrans
    Exit Sub
SaveErr:
    MsgBox "保存数据错误!!", vbExclamation, "错误窗口"
    Conn.RollbackTrans
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then SendKeys "{TAB}"
End Sub

Private Sub Form_Load()
    On Error GoTo LoadErr
    sSQL = "SELECT * FROM COLOR"
    Set RsTemp = Nothing
    RsTemp.Open sSQL, Conn, adOpenStatic, adLockReadOnly
    While Not RsTemp.EOF
        grdColor.AddItem RsTemp("COLORCODE") & vbTab & RsTemp("COLORNAME")
        RsTemp.MoveNext
    Wend
    Exit Sub
LoadErr:
    MsgBox "载入颜色信息错误!", vbExclamation, "错误窗口"
End Sub