VB小吃系列源码.docVIP

Option Explicit Dim bolEdit As Boolean Dim bolAAA As Boolean 商品编码不为空 Private Sub BaseToFlex() On Error GoTo ErrLine Dim row1 As Integer Dim col1 As Integer Dim n As Integer Dim MrcBTF As ADODB.Recordset Dim MsgText As String txtSql = select bm,pm,dj,dw,lb from sp Set MrcBTF = ExecuteSQL(txtSql, MsgText) n = MrcBTF.RecordCount Me.MSFlexGridSP.Rows = n + 1 For row1 = 1 To n For col1 = 1 To 5 Me.MSFlexGridSP.TextMatrix(row1, col1 + 1) = MrcBTF.Fields(col1 - 1) Next MrcBTF.MoveNext Next Set MrcBTF = Nothing Exit Sub ErrLine: If Err.Number = 94 Then Resume Next Else MsgBox Err.Description End If Err.Clear End Sub Private Sub Initflex() Me.Show Text1(0).Text = Text1(1).Text = Text1(2).Text = MSFlexGridSP.Clear MSFlexGridSP.FormatString = ||^商品编码|^商品名称|^单价|^单位|^类别 MSFlexGridSP.ColWidth(1) = 0 MSFlexGridSP.ColWidth(2) = 1200 MSFlexGridSP.ColWidth(3) = 1800 MSFlexGridSP.ColWidth(4) = 1000 MSFlexGridSP.ColWidth(5) = 1000 Text1(0).SetFocus End Sub Public Sub BaseToFlexXS() On Error GoTo ErrLine Dim row1 As Integer Dim col1 As Integer Dim n As Integer Dim MrcBTF As ADODB.Recordset Dim MsgText As String SumJe = 0 txtSql = select bm,pm,sl,dw,dj,je,lb,djbh from temxsb Set MrcBTF = ExecuteSQL(txtSql, MsgText) n = MrcBTF.RecordCount Me.MSFlexGridXS.Rows = n + 1 For row1 = 1 To n For col1 = 1 To 8 Me.MSFlexGridXS.TextMatrix(row1, col1 + 1) = MrcBTF.Fields(col1 - 1) Next SumJe = SumJe + Val(MSFlexGridXS.TextMatrix(row1, 7)) MrcBTF.MoveNext Next Set MrcBTF = Nothing LabJe.Caption = 合计金额： Format(SumJe, #######0.00) 元 Exit Sub ErrLine: If Err.Number = 94 Then Resume Next Else MsgBox Err.Description End If Err.Clear End Sub Public Sub InitflexXS() Text1(0).Text = Text1(1).Text = Text1(2).Text = LabSPMC.Caption = LabDW.Caption = LabDJ.Caption = Text1(1).Enabled = True Text1(2).Enabled = True MSFlexGridXS.Clear MSFlexGridXS.FormatString = ||^商品编码|^商品名称|^数量|^单位|^单价|^金额|^类别|^单据编号 MSFlexGridXS.ColWidth(1) = 0 MSFlexGridXS.ColWidth(2) = 1000 MSFlexGridXS.ColWidth(3)