frmpsoderinfo.frm

金算盘软件代码

        grdList.TextMatrix(i, 7) = Format(IIf(C2Dbl(grdList.TextMatrix(i, 7)) = 0, "", C2Dbl(grdList.TextMatrix(i, 7))), FormatString(gclsBase.NaturalCurDec))
        grdList.TextMatrix(i, 8) = Format(IIf(C2Dbl(grdList.TextMatrix(i, 8)) = 0, "", C2Dbl(grdList.TextMatrix(i, 8))), FormatString(C2Dbl(grdList.TextMatrix(i, 13))))
        grdList.TextMatrix(i, 9) = Format(IIf(C2Dbl(grdList.TextMatrix(i, 9)) = 0, "", C2Dbl(grdList.TextMatrix(i, 9))), FormatString(gclsBase.NaturalCurDec))
        grdList.TextMatrix(i, 10) = Format(IIf(C2Dbl(grdList.TextMatrix(i, 10)) = 0, "", C2Dbl(grdList.TextMatrix(i, 10))), FormatString(C2Dbl(grdList.TextMatrix(i, 13))))
    Next
    grdList.ColWidth(0) = 0
    grdList.ColWidth(4) = 2000
    grdList.ColWidth(7) = 1200
    grdList.ColWidth(11) = 0
    grdList.ColWidth(12) = 0
    grdList.ColWidth(13) = 0
    grdList.ColWidth(14) = 0
    
    mclsGrid.SetupStyle
    grdList.ColSel = grdList.Cols - 1
    For i = 0 To grdList.Cols - 1
        If grdList.ColWidth(i) > 0 Then
            If InStr(grdList.TextMatrix(0, i), "额") <> 0 Or _
                InStr(grdList.TextMatrix(0, i), "价") <> 0 Or _
                InStr(grdList.TextMatrix(0, i), "量") <> 0 Then
                grdList.ColAlignment(i) = flexAlignRightCenter
            End If
        End If
    Next
    
    blnRelat = False
    If grdList.Rows > 1 Then
       Set mlhls = recTemp
       inittext
    End If
    Set recTemp = Nothing
    frm.MousePointer = vbDefault
    On Error Resume Next
   
    Me.Show vbModal
    Exit Sub
'    Exit Sub
'Err:
'    ShowMsg Me.hwnd, "系统出错！", MB_SYSTEMMODAL + MB_ICONEXCLAMATION, "提示信息"
'    If blnBz Then
'        FrmPurchaseOrder.MousePointer = vbDefault
'    Else
'        FrmSaleOrder.MousePointer = vbDefault
'    End If
End Sub
'初始化各text框中数据
Private Sub inittext()
Dim intCount As Integer, dx As Double, dy As Double, dz As Double
Dim cgje As Double, l As Integer, wdje As Double, n As Integer
Dim intDec As Integer
    Dim recRecordset As rdoResultset
    dx = 0
    dz = 0
    Set datGrid.Resultset = mlhls
    mlhls.MoveFirst
    Do While Not mlhls.EOF()
        cgje = C2Dbl(IIf(IsNull(mlhls.rdoColumns("不含税金额")), 0, mlhls.rdoColumns("不含税金额")))
        wdje = C2Dbl(IIf(IsNull(mlhls.rdoColumns("税额")), 0, mlhls.rdoColumns("税额")))
        dx = dx + cgje    '不含税金额
        dz = dz + wdje    '税额
        intDec = mlhls.rdoColumns(13).Value '保存其小数位数
        mlhls.MoveNext
     Loop
     
    '标记“不含税金额”LABEL的下标
     For l = 0 To grdList.Cols - 1
        If grdList.TextMatrix(0, l) Like "不含税金额" Then
            Exit For
        End If
     Next l
    '标记“税额”LABEL的下标
     For n = 0 To grdList.Cols - 1
        If grdList.TextMatrix(0, n) Like "税额" Then
            Exit For
        End If
     Next n
     
     hLb(l).Caption = Format(CStr(dx), FormatString(intDec)) '将不含税金额写入对应的LABEL
     hLb(n).Caption = Format(CStr(dz), FormatString(intDec)) '将税额写入对应的LABEL
     hLb(l).Refresh
     hLb(n).Refresh
End Sub

Private Sub Form_Activate()
    SetHelpID C2lng(Me.HelpContextID)
End Sub

Private Sub Form_Load()
    Set mclsGrid = New NewGrid
    Set mclsGrid.Grid = grdList
    Set mclsGrid.Form = Me
    If blnBz Then
        Me.Caption = "采购订单执行情况"
        Label2.Caption = "采购订单信息"
        Label3.Caption = "采购情况"
        Me.HelpContextID = 10205
'        SetHelpID Me.hwnd, 10205
    Else
        Me.Caption = "销售订单执行情况"
        Label2.Caption = "销售订单信息"
        Label3.Caption = "销售情况"
        Me.HelpContextID = 10206
'        SetHelpID Me.hwnd, 10206
    End If
'    With grdList
'        If .Rows > 1 Then .Row = 1
'        .Col = 0
'        .ColSel = .Cols - 1
'    End With
    cmdButton(0).Picture = Utility.GetFormResPicture(1022, 0)
    cmdButton(1).Picture = Utility.GetFormResPicture(1010, 0)

    Set Me.Icon = Utility.GetFormResPicture(139, vbResIcon)
    Me.top = (Screen.Height - Me.Height) / 2 ' 2000
    Me.Left = (Screen.width - Me.width) / 2 '2000
End Sub
Private Sub Form_Unload(Cancel As Integer)
    Utility.RemoveFormResPicture 1022
    Utility.RemoveFormResPicture 1010
    Utility.RemoveFormResPicture 139
    Set mclsGrid = Nothing
    If Not mlhls Is Nothing Then
        Set mlhls = Nothing
    End If
End Sub
Private Sub cmdButton_Click(Index As Integer)
    Select Case Index
    Case 0
        cmdOK_Click
    Case 1
        CmdRelating_Click
    End Select
End Sub

Private Sub Form_Resize()
    Dim i As Integer
    If Me.WindowState = 1 Then Exit Sub
    If Me.Height < 4800 Then Me.Height = 4800
    If Me.width < 7400 Then Me.width = 7400
    For i = 0 To cmdButton.Count - 1
        cmdButton(i).Visible = False
    Next i
    Label2.Visible = False
    Label3.Visible = False
    Shape1(0).Visible = False
    Shape1(1).Visible = False
    For i = 0 To lblField.Count - 1
        Label1(i).Visible = False
        lblField(i).Visible = False
    Next i

    Label2.Move 50, 0, 1155, 210
    Shape1(1).Move 50, Label2.Height, Me.ScaleWidth - cmdButton(0).width - 300
    Shape1(0).Move 85, Shape1(1).top + 75, Shape1(1).width, Shape1(1).Height
    Label3.Move 50, Shape1(0).top + Shape1(0).Height, 1035, 270

    grdList.Move 50, Label3.top + Label3.Height, _
            Me.ScaleWidth - cmdButton(0).width - 225, _
            Me.ScaleHeight - Label3.top - Label3.Height - 320

    Label1(0).Left = 165
    Label1(0).width = 420
    lblField(0).Left = Label1(0).Left + Label1(0).width
    lblField(0).width = Shape1(1).width * 2 / 3 - Label1(0).width
    Label1(1).Left = 165
    Label1(1).width = 675
    lblField(1).Left = Label1(1).Left + Label1(1).width
    lblField(1).width = (Label1(0).width + lblField(0).width) \ 2 - Label1(1).width
    Label1(2).Left = 165
    Label1(2).width = 752
    lblField(2).Left = Label1(2).Left + Label1(2).width + 50
    lblField(2).width = (Label1(0).width + lblField(0).width) \ 2 - Label1(1).width - 140
    Label1(3).Left = lblField(1).Left + lblField(1).width
    Label1(3).width = 420
    lblField(3).Left = Label1(3).Left + Label1(3).width
    lblField(3).width = (Label1(0).width + lblField(0).width) \ 2 - Label1(3).width
    Label1(4).Left = Label1(3).Left
    Label1(4).width = 420
    lblField(4).Left = Label1(4).Left + Label1(4).width
    lblField(4).width = (Label1(0).width + lblField(0).width) \ 2 - Label1(4).width
    Label1(5).Left = lblField(0).Left + lblField(0).width
    Label1(5).width = 420
    lblField(5).Left = Label1(5).Left + Label1(5).width
    lblField(5).width = Shape1(1).width - Label1(5).Left - Label1(5).width - 180
    Label1(6).Left = lblField(3).Left + lblField(3).width
    Label1(6).width = 675
    lblField(6).Left = Label1(6).Left + Label1(6).width
    lblField(6).width = Shape1(1).width - Label1(6).Left - Label1(6).width - 180
    Label1(7).Left = lblField(4).Left + lblField(4).width
    Label1(7).width = 420
    lblField(7).Left = Label1(7).Left + Label1(7).width
    lblField(7).width = Shape1(1).width - Label1(7).Left - Label1(7).width - 180

    cmdButton(0).top = Shape1(1).top
    cmdButton(0).Left = Me.ScaleWidth - cmdButton(0).width - 100
    
    cmdButton(1).top = cmdButton(0).top + cmdButton(0).Height + 100
    cmdButton(1).Left = cmdButton(0).Left
'    Cmdbutton(0).top = 260
'    Cmdbutton(1).top = 870
    'Cmdbutton(2).top = 1755
    For i = 0 To cmdButton.Count - 1
        cmdButton(i).Left = grdList.Left + grdList.width + 75
        cmdButton(i).Visible = True
    Next i
    Label2.Visible = True
    Label3.Visible = True
    Shape1(0).Visible = True
    Shape1(1).Visible = True
    For i = 0 To lblField.Count - 1
        Label1(i).Visible = True
        lblField(i).Visible = True
    Next i
    mclsGrid.TotalRowAdjust
    Me.Refresh
End Sub
Private Sub grdList_DblClick()
    If grdList.MouseRow <= 0 Then Exit Sub
    '效果等同于单击“关联”按纽
    CmdRelating_Click
End Sub

Private Sub cmdOK_Click()
    Unload Me
End Sub
Private Sub CmdRelating_Click()
     If grdList.Rows > 1 And grdList.ColSel <> 0 Then
        blnRelat = True
        ActivityID1 = C2lng(grdList.TextMatrix(grdList.Row, 0))
        ActiviTypeID1 = C2lng(grdList.TextMatrix(grdList.Row, 12))
        Unload Me
        ShowBill ActiviTypeID1, ActivityID1
    End If
End Sub

Private Sub grdList_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        CmdRelating_Click
    End If
End Sub