frmgoodinfo.frm

有一些基本的操作

         EndProperty
      EndProperty
      BeginProperty Column11 
         DataField       =   "最低售价"
         Caption         =   "最低售价"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
            ColumnWidth     =   810.142
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   1395.213
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   884.976
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   2025.071
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   524.976
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   494.929
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   524.976
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   1454.74
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   689.953
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   750.047
         EndProperty
         BeginProperty Column10 
            ColumnWidth     =   750.047
         EndProperty
         BeginProperty Column11 
            ColumnWidth     =   824.882
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   7080
      Top             =   600
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   2
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmGoodInfo.frx":001F
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmGoodInfo.frx":0131
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   8130
      _ExtentX        =   14340
      _ExtentY        =   741
      ButtonWidth     =   609
      ButtonHeight    =   582
      Appearance      =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   2
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "btnSave"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Key             =   "btnDelete"
            ImageIndex      =   2
         EndProperty
      EndProperty
   End
   Begin VB.Label lblGoodsPY 
      Caption         =   "商品拼音"
      Height          =   255
      Left            =   120
      TabIndex        =   5
      Top             =   720
      Width           =   735
   End
End
Attribute VB_Name = "frmGoodInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub btnSearch_Click()
    Dim strSQL As String
    strSQL = "SELECT 货号, 条码, 拼音编码, " & _
    " 品名, 规格, 单位,产地, 类别, 进货价, 销售价1" & _
    ", 销售价2, 最低售价 FROM 商品清单"
    If Len(txbGoodPY.Text) <> 0 Then
        '如果商品拼音不为空进行查询
        '生成查询的SQL语句
        strSQL = strSQL & " where 拼音编码 like '"
        strSQL = strSQL & Trim(txbGoodPY.Text) & "%'"
    End If
    '重新填充DataGrid
    datPrimaryRS.RecordSource = strSQL
    datPrimaryRS.Refresh
End Sub

Private Sub Form_Load()
    Dim db As New DataBases
    MyCombo.Visible = False
    '清空MyCombo
    MyCombo.Clear
    '给MyCombo添加项
    MyCombo.AddItem "包"
    MyCombo.AddItem "瓶"
    MyCombo.AddItem "盒"
    MyCombo.AddItem "袋"
    MyCombo.AddItem "箱"
End Sub

Private Sub Form_Resize()
  On Error Resume Next
  '当窗体调整时会调整网格
  grdDataGrid.Height = Me.ScaleHeight - datPrimaryRS.Height - 1000
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Screen.MousePointer = vbDefault
End Sub

Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
  '错误处理程序代码置于此处
  '想要忽略错误，注释掉下一行
  '想要捕获它们，在此添加代码以处理它们
  MsgBox "Data error event hit err:" & Description
End Sub

Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As ADODB.EventReasonEnum, ByVal cRecords As Long, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
  '验证代码置于此处
  '下列动作发生时该事件被调用
  Dim bCancel As Boolean

  Select Case adReason
  Case adRsnAddNew
  Case adRsnClose
  Case adRsnDelete
  Case adRsnFirstChange
  Case adRsnMove
  Case adRsnRequery
  Case adRsnResynch
  Case adRsnUndoAddNew
  Case adRsnUndoDelete
  Case adRsnUndoUpdate
  Case adRsnUpdate
  End Select

  If bCancel Then adStatus = adStatusCancel
End Sub

Private Sub grdDataGrid_Click()
    '设置MyCombo的Visible，Width属性
    MyCombo.Visible = False
    MyCombo.Width = 0
End Sub


Private Sub grdDataGrid_ColResize(ByVal ColIndex As Integer, Cancel As Integer)
    If grdDataGrid.Col = 5 Then
        '设置MyCombo的宽度
        MyCombo.Width = grdDataGrid.Columns(grdDataGrid.Col).Width
    End If
End Sub

Private Sub grdDataGrid_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
    '判断改变的当前单元格是否属于第5列
    If grdDataGrid.Col = 5 Then
        '设置MyCombo的Visible，Width属性
        MyCombo.Visible = False
        MyCombo.Width = 0
        '设置MyCombo的位置和大小
        MyCombo.Left = grdDataGrid.Columns(grdDataGrid.Col).Left
        MyCombo.Top = grdDataGrid.RowTop(grdDataGrid.Row) + grdDataGrid.Top
        MyCombo.Width = grdDataGrid.Columns(grdDataGrid.Col).Width
        '设置MyCombo的文字
        MyCombo.Text = grdDataGrid.Text
        '显示MyCombo
        MyCombo.Visible = True
    Else
        MyCombo.Visible = False
        MyCombo.Width = 0
    End If
End Sub

Private Sub grdDataGrid_Scroll(Cancel As Integer)
    '设置MyCombo的Visible，Width属性
    MyCombo.Visible = False
    MyCombo.Width = 0
End Sub

Private Sub MyCombo_Validate(Cancel As Boolean)
    '判断DataGrid的当前单元格是否属于第5列
    'Datagrid的列是从1开始
    If grdDataGrid.Col = 5 Then
        '设置当前单元格的值为MyCombo选中的项的Text
        grdDataGrid.Text = MyCombo.Text
    End If
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    '判断按下的是否为“Save”按钮
    If StrComp(Button.Key, "btnSave") = 0 Then
        '判断grdDataGrid的数据是否有变化
        '即DataGrid控件上是否有数据更改或新增数据
        If grdDataGrid.DataChanged Then
            '通过datPrimaryRS更新数据库数据
            datPrimaryRS.Recordset.UpdateBatch adAffectAll
            MsgBox "数据修改成功"
        Else
            MsgBox "无修改的数据"
        End If
    '判断按下的是否为“Delete”按钮
    ElseIf StrComp(Button.Key, "btnDelete") = 0 Then
        '获得DataGrid当前被选中的行号
        iRow = grdDataGrid.Row
        '弹出对话框让用户确认要删除记录
        '如果用户确认要删除记录
        If MsgBox("你确认要删除此条记录吗?", vbYesNo) = vbYes Then
            '从商品清单表删除当前被选中记录
            With datPrimaryRS.Recordset
                .Delete
                .MoveNext
                If .EOF Then .MoveLast
            End With
        End If
    End If
End Sub