新建 文本文档 (2).txt

很好用的通用库存管理程序

Private Sub Init_Msfg1()
  With Msfg1
        .Redraw = False
        ' 设置网格样式
        .AllowBigSelection = True
        .FillStyle = flexFillRepeat
       '将标头作成粗体
        .Row = 0
        .Col = 0
        .RowSel = .FixedRows - 1
        .ColSel = .Cols - 1
        .CellFontBold = True
        .AllowBigSelection = False
        .FillStyle = flexFillSingle
        .Redraw = True
        .FormatString = "|项目代码|项目名称|项目型号|项目规格|计划价格|库房|库区|货位"
    End With
     ' 设置网格列宽度
     Msfg1.RowHeight(0) = 300
     Msfg1.ColWidth(0) = 300
     Msfg1.ColWidth(1) = 1200
     Msfg1.ColWidth(2) = 1800
     Msfg1.ColWidth(3) = 1800
     For i = 4 To 8
        Msfg1.ColWidth(i) = 1100
     Next
End Sub

Private Sub CmdModi_Click()
If Msfg1.RowSel < 1 Then
 MsgBox "你没有选择任何纪录，请重新选择", vbOKCancel + vbInformation, "提示"
 Exit Sub
End If
DataEdit = True
NowSelectRec = Msfg1.RowSel - 1
FrmAddMateriel.CmdAddNew.Caption = "修改"
FrmAddMateriel.Show
End Sub