ʰ

VB开发的ERP系统

               End If
               
               If .Fields("BookFlag") Then
                  Lab_Book.Caption = Trim(.Fields("Book") & "")                                         '记帐人
               Else
                  Lab_Book.Caption = ""
               End If
               
               If .Fields("ErrorFlag") Then                                                             '是否为有错凭证
                  Lab_Error.Visible = True
               Else
                  Lab_Error.Visible = False
               End If
               
             TextChangeLock = False
            '<<]
            
         End If
         Jsqte = WglrGrid.FixedRows
         Do While Not .EOF
           If Jsqte >= WglrGrid.Rows Then
              WglrGrid.AddItem ""
           End If
           
           '[>>显示单据分录
           WglrGrid.TextMatrix(Jsqte, 0) = "*"                                                           '行标识
           WglrGrid.TextMatrix(Jsqte, 1) = Trim(.Fields("SScode") & "")                                  '结算方式编码
           WglrGrid.TextMatrix(Jsqte, 2) = Trim(.Fields("SSname") & "")                                  '结算方式名称
           WglrGrid.TextMatrix(Jsqte, 3) = Trim(.Fields("BillNo") & "")                                  '票号
           If IsDate(.Fields("BillDate")) Then
              WglrGrid.TextMatrix(Jsqte, 4) = Format(.Fields("BillDate"), "yyyy-mm-dd")                  '发生日期
           End If
           If .Fields("Jfsl") <> 0 Then
              WglrGrid.TextMatrix(Jsqte, 5) = Trim(Str(.Fields("Jfsl")))                                 '数量
           End If
           If .Fields("Dfsl") <> 0 Then
              WglrGrid.TextMatrix(Jsqte, 5) = Trim(Str(.Fields("Dfsl")))                                 '数量
           End If
           WglrGrid.TextMatrix(Jsqte, 7) = Trim(.Fields("Measure") & "")                                 '计量单位
           WglrGrid.TextMatrix(Jsqte, 8) = Trim(.Fields("ForeignCurrCode") & "")                         '外币编码
           WglrGrid.TextMatrix(Jsqte, 9) = Trim(.Fields("ForeignCurrName") & "")                         '外币名称
           If .Fields("Wbjfje") <> 0 Then
              WglrGrid.TextMatrix(Jsqte, 10) = Trim(Str(.Fields("Wbjfje")))                              '外币金额
           End If
           If .Fields("Wbdfje") <> 0 Then
              WglrGrid.TextMatrix(Jsqte, 10) = Trim(Str(.Fields("Wbdfje")))                              '外币金额
           End If
           If .Fields("AccRate") <> 0 Then
              WglrGrid.TextMatrix(Jsqte, 11) = Trim(Str(.Fields("AccRate")))                             '记帐汇率
           End If
           WglrGrid.TextMatrix(Jsqte, 12) = Trim(.Fields("DeptCode") & "")                               '部门编码
           WglrGrid.TextMatrix(Jsqte, 13) = Trim(.Fields("DeptName") & "")                               '部门名称
           WglrGrid.TextMatrix(Jsqte, 14) = Trim(.Fields("CusCode") & "")                                '单位编码
           WglrGrid.TextMatrix(Jsqte, 15) = Trim(.Fields("CusName") & "")                                '单位名称
           WglrGrid.TextMatrix(Jsqte, 16) = Trim(.Fields("PersonCode") & "")                             '职员编码
           WglrGrid.TextMatrix(Jsqte, 17) = Trim(.Fields("PersonName") & "")                             '职员名称
           WglrGrid.TextMatrix(Jsqte, 18) = Trim(.Fields("ItemClassCode") & "")                          '项目类别编码
           WglrGrid.TextMatrix(Jsqte, 19) = Trim(.Fields("ItemClassName") & "")                          '项目类别名称
           WglrGrid.TextMatrix(Jsqte, 20) = Trim(.Fields("ItemCode") & "")                               '项目编码
           WglrGrid.TextMatrix(Jsqte, 21) = Trim(.Fields("ItemName") & "")                               '项目名称
           If .Fields("ItemJfsl") <> 0 Then
              WglrGrid.TextMatrix(Jsqte, 22) = Trim(Str(.Fields("ItemJfsl")))                            '项目数量
           End If
           If .Fields("ItemDfsl") <> 0 Then
              WglrGrid.TextMatrix(Jsqte, 22) = Trim(Str(.Fields("ItemDfsl")))                            '项目数量
           End If
           WglrGrid.TextMatrix(Jsqte, 24) = Trim(.Fields("TranPerson") & "")                             '经办人
               
           WglrGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("Digest"))           '摘 要
           WglrGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("Ccode"))            '科目编码
           WglrGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("Cname") & "")       '科目名称
           If .Fields("Jfje") <> 0 Then
              WglrGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(Str(.Fields("Jfje")))     '借方金额
           Else
              WglrGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(Str(.Fields("Dfje")))     '贷方金额
           End If
           
           '<<]
           
           WglrGrid.RowHeight(Jsqte) = Sjhgd
           .MoveNext
           Jsqte = Jsqte + 1
         Loop
      End With
            
            
      '调整网格
       Call Sub_AdjustGrid
      
       '显示备注信息
       Call Sub_ShowMemo(WglrGrid.Row)
      
      '计算合计数据
       For Jsqte = Qslz To WglrGrid.Cols - 1
           Call Sjhj(Jsqte)
       Next Jsqte
      
End Sub
Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)             '用户点击工具条
     
     '屏蔽文本框,下拉组合框有效性判断
     
     Valilock = True
     
     '屏蔽网格失去焦点产生的有效性判断
     
     changelock = True
     
       Select Case Button.Key
          Case "ymsz"                                          '页面设置
              Dyymctbl.Show 1
          Case "yl"                                            '预 览
             If Fun_Drfrmyxxpd Then
                Call bbyl(True)
             End If
          Case "dy"                                            '打 印
             If Fun_Drfrmyxxpd Then
              Call bbyl(False)
             End If
          Case "xz"                                            '新 增
             Call Sub_AddBill
          Case "xg"                                            '修 改
             Call Sub_EditBill
          Case "sc"                                            '删 除
             Call Sub_DeleteBill
          Case "zh"                                            '增 行
               Call zjlrfl
          Case "sh"                                            '删 行
               Call Scdqfl
          Case "bc"                                            '保 存
             If Fun_Drfrmyxxpd Then
               Call Sub_SaveBill
             End If
          Case "fq"                                            '放 弃
             Call Sub_AbandonBill
          Case "cx"                                            '查 询
             Call Sub_QueryBill
          Case "ye"                                            '余 额
             PZ_FrmYecx.Show 1
          Case "xx"                                            '选 项
             Call Sub_Option
          Case "shsh"                                          '审 核
             Call Sub_CheckBill
          Case "shqs"                                          '弃 审
             Call Sub_AbandonCheck
          Case "shbc"                                          '标 错
             Call Sub_ErrorBill
          Case "qbsh"                                          '全 审
             Call Sub_CheckAllBill
          Case "qbfq"                                          '全 弃
             Call Sub_AbandonAllCheck
          Case "first"                                         '首 张
             Call Sub_First
          Case "prev"                                          '上 张
             Call Sub_Prev
          Case "next"                                          '下 张
             Call Sub_next
          Case "last"                                          '末 张
             Call Sub_Last
          Case "bz"                                            '帮 助
             Call F1bz
          Case "fh"                                            '退 出
             Unload Me
       End Select
       
    '解 锁
    Valilock = False
    changelock = False
        
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)     '支持热键操作
   Select Case KeyCode
      Case vbKeyF5          '增加凭证
        If Tlb_Action.Buttons("xz").Enabled Then
           Call Sub_AddBill
        End If
      Case vbKeyF3          '修改凭证
        If Tlb_Action.Buttons("xg").Enabled Then
           Call Sub_EditBill
        End If
      Case vbKeyF6          '保存凭证
        If Tlb_Action.Buttons("bc").Enabled Then
           Call Sub_SaveBill
        End If
   End Select
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)        '支持热键操作
  If Shift = 2 Then
     Select Case UCase(Chr(KeyCode))
         Case "P"                   'Ctrl+P 打印
          If Tlb_Action.Buttons("dy").Enabled Then
            Call bbyl(False)
          End If
     End Select
  End If
End Sub
Private Sub Sub_OperStatus(Str_Status As String)                 '工具条依据不同状态所进行的变化
  With Tlb_Action
    Select Case Str_Status
      Case "10"   '浏览(系统进入、放弃新增单据、填制凭证时删除单据,凭证审核)
       '工具条
        .Buttons("dy").Enabled = True      '打印
        .Buttons("yl").Enabled = True      '预览
        .Buttons("xz").Enabled = True      '新增
        .Buttons("xg").Enabled = False     '修改
        .Buttons("sc").Enabled = False     '删除
        .Buttons("zh").Enabled = False     '增行
        .Buttons("sh").Enabled = False     '删行
        .Buttons("cx").Enabled = True      '查询
        .Buttons("bc").Enabled = False     '保存
        .Buttons("fq").Enabled = False     '放弃
        
       '录入文本框
        For Jsqte = Max_Text_Index To 0 Step -1
            LrText(Jsqte).Enabled = False
        Next Jsqte
        
        Combo_Kjqj.Enabled = False
        
        '合计金额大写显示
        HjGrid.TextMatrix(0, Sydz("003", GridStr(), Szzls)) = Fun_Jezh(Val(HjGrid.TextMatrix(0, Sydz("004", GridStr(), Szzls))))
        
      Case "11"   '浏览(放弃修改单据,查询单据)
         '工具条
        .Buttons("dy").Enabled = True      '打印
        .Buttons("yl").Enabled = True      '预览
        .Buttons("xz").Enabled = True      '新增
        .Buttons("xg").Enabled = True      '修改
        .Buttons("sc").Enabled = True      '删除
        .Buttons("zh").Enabled = False     '增行
        .Buttons("sh").Enabled = False     '删行
        .Buttons("cx").Enabled = True      '查询
        .Buttons("bc").Enabled = False     '保存
        .Buttons("fq").Enabled = False     '放弃
        .Buttons("first").Enabled = True   '首张
        .Buttons("prev").Enabled = True    '上张
        .Buttons("next").Enabled = True    '下张
        .Buttons("last").Enabled = True    '末张
        
       '录入文本框
        For Jsqte = Max_Text_Index To 0 Step -1
            LrText(Jsqte).Enabled = False
        Next Jsqte
        
        Combo_Kjqj.Enabled = False
        
        '合计金额大写显示
        HjGrid.TextMatrix(0, Sydz("003", GridStr(), Szzls)) = Fun_Jezh(Val(HjGrid.TextMatrix(0, Sydz("004", GridStr(), Szzls))))
      Case "2"   '新增单据
      
        '工具条
        .Buttons("dy").Enabled = False      '打印
        .Buttons("yl").Enabled = False      '预览
        .Buttons("xz").Enabled = False      '新增
        .Buttons("xg").Enabled = False      '修改
        .Buttons("sc").Enabled = False      '删除
        .Buttons("zh").Enabled = True       '增行
        .Buttons("sh").Enabled = True       '删行
        .Buttons("cx").Enabled = False      '查询
        .Buttons("bc").Enabled = True       '保存
        .Buttons("fq").Enabled = True       '放弃
        
        '录入文本框
        For Jsqte = 0 To Max_Text_Index
            LrText(Jsqte).Enabled = True
        Next Jsqte
        
        Combo_Kjqj.Enabled = True
        
        '清空合计大写
        HjGrid.TextMatrix(0, Sydz("003", GridStr(), Szzls)) = ""
        
      Case "30"   '修改
        
        '工具条
        .Buttons("dy").Enabled = False      '打印
        .Buttons("yl").Enabled = False      '预览
        .Buttons("xz").Enabled = False      '新增
        .Buttons("xg").Enabled = False      '修改
        .Buttons("sc").Enabled = False      '删除
        .Buttons("zh").Enabled = True       '增行
        .Buttons("sh").Enabled = True       '删行
        .Buttons("cx").Enabled = False      '查询
        .Buttons("bc").Enabled = True       '保存
        .Buttons("fq").Enabled = True       '放弃
        .Buttons("first").Enabled = False   '首张
        .Buttons("prev").Enabled = False    '上张
        .Buttons("next").Enabled = False    '下张
        .Buttons("last").Enabled = False    '末张
        
        '录入文本框
        For Jsqte = 0 To Max_Text_Index
            LrText(Jsqte).Enabled = True
        Next Jsqte
        
        LrText(0).Enabled = False
        LrText(3).Enabled = False
        
        Combo_Kjqj.Enabled = False
        
        '清空合计大写
        HjGrid.TextMatrix(0, Sydz("003", GridStr(), Szzls)) = ""
    End Select
  End With
End Sub
Private Sub Wbkcl()                                                 '文本框录入之前处理(根据实际情况)
 Dim xswbrr As String
 With WglrGrid
    Zdlrqnr = Trim(.Text)
    xswbrr = Trim(.Text)
    
    If GridBoolean(.Col, 3) Then   '列表框录入
    
       '填充列表框程序
        Call FillCombo(YdCombo, GridStr(.Col, 5), xswbrr, 0)
    Else
       Wbkbhlock = True
       
         '====以下为用户自定义
           Ydtext.Text = xswbrr
         '====以上为用户自定义
         
       Wbkbhlock = False
       Ydtext.SelStart = Len(Ydtext.Text)
    En