English
- Visual C++源码
- Visual Basic源码
- C++ Builder源码
- Java源码
- Delphi源码
- C/C++源码
- PHP源码
- Perl源码
- Python源码
- Asm源码
- Pascal源码
- Borland C++源码
- Others源码
- SQL源码
- VBScript源码
- JavaScript源码
- ASP/ASPX源码
- C#源码
- Flash/ActionScript源码
- matlab源码
- PowerBuilder源码
- LabView源码
- Flex源码
- MathCAD源码
- VBA源码
- IDL源码
- Lisp/Scheme源码
- VHDL源码
- Objective-C源码
- Fortran源码
- tcl/tk源码
- QT源码
ʰ
资源名称：ERPSYS.zip [点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：7k
源码类别：
企业管理
开发平台：
Visual Basic
- VERSION 5.00
- Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
- Begin VB.Form YH_FrmDzjc
- BorderStyle = 3 'Fixed Dialog
- Caption = "平衡检查"
- ClientHeight = 1785
- ClientLeft = 45
- ClientTop = 330
- ClientWidth = 5325
- HelpContextID = 5103
- Icon = "银行_对帐检查.frx":0000
- LinkTopic = "Form1"
- MaxButton = 0 'False
- MinButton = 0 'False
- ScaleHeight = 1785
- ScaleWidth = 5325
- ShowInTaskbar = 0 'False
- StartUpPosition = 2 '屏幕中心
- Begin VB.CommandButton Command1
- Caption = "确定(&O)"
- Height = 300
- Left = 4140
- TabIndex = 1
- Top = 1410
- Width = 1120
- End
- Begin VSFlex8Ctl.VSFlexGrid vsFlexGrid1
- Height = 1125
- Left = 90
- TabIndex = 0
- Top = 120
- Width = 5175
- _ExtentX = 9128
- _ExtentY = 1984
- Appearance = 1
- BorderStyle = 1
- Enabled = -1 'True
- BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
- Name = "宋体"
- Size = 9
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- MousePointer = 0
- BackColor = -2147483643
- ForeColor = -2147483640
- BackColorFixed = -2147483633
- ForeColorFixed = -2147483630
- BackColorSel = -2147483635
- ForeColorSel = -2147483634
- BackColorBkg = 12632256
- BackColorAlternate= -2147483643
- GridColor = -2147483633
- GridColorFixed = -2147483632
- TreeColor = -2147483632
- FloodColor = 192
- SheetBorder = -2147483642
- FocusRect = 1
- HighLight = 1
- AllowSelection = -1 'True
- AllowBigSelection= -1 'True
- AllowUserResizing= 0
- SelectionMode = 0
- GridLines = 1
- GridLinesFixed = 2
- GridLineWidth = 1
- Rows = 3
- Cols = 3
- FixedRows = 1
- FixedCols = 1
- RowHeightMin = 350
- RowHeightMax = 0
- ColWidthMin = 1700
- ColWidthMax = 0
- ExtendLastCol = 0 'False
- FormatString = ""
- ScrollTrack = 0 'False
- ScrollBars = 3
- ScrollTips = 0 'False
- MergeCells = 0
- MergeCompare = 0
- AutoResize = -1 'True
- AutoSizeMode = 0
- AutoSearch = 0
- MultiTotals = -1 'True
- SubtotalPosition= 1
- OutlineBar = 0
- OutlineCol = 0
- Ellipsis = 0
- ExplorerBar = 0
- PicturesOver = 0 'False
- FillStyle = 0
- RightToLeft = 0 'False
- PictureType = 0
- TabBehavior = 0
- OwnerDraw = 0
- Editable = 0 'False
- ShowComboButton = -1 'True
- WordWrap = 0 'False
- TextStyle = 0
- TextStyleFixed = 0
- OleDragMode = 0
- OleDropMode = 0
- DataMode = 0
- VirtualData = -1 'True
- End
- Begin VB.Label Label3
- Caption = ":"
- Height = 225
- Left = 690
- TabIndex = 4
- Top = 1440
- Width = 135
- End
- Begin VB.Label Label2
- AutoSize = -1 'True
- Caption = "提示"
- BeginProperty Font
- Name = "宋体"
- Size = 10.5
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- Height = 210
- Left = 240
- TabIndex = 3
- Top = 1440
- Width = 420
- End
- Begin VB.Label Label1
- Appearance = 0 'Flat
- AutoSize = -1 'True
- BackColor = &H8000000A&
- BackStyle = 0 'Transparent
- Caption = "平衡"
- BeginProperty Font
- Name = "宋体"
- Size = 10.5
- Charset = 134
- Weight = 400
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00FF0000&
- Height = 210
- Left = 870
- TabIndex = 2
- Top = 1425
- Width = 420
- End
- End
- Attribute VB_Name = "YH_FrmDzjc"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- '*************************************************************
- '* 模 块 名 称 :银行对帐检查
- '* 功 能 描 述 :检查对帐是否平衡
- '* 程序员姓名 : xjl
- '* 最后修改人 : xjl
- '* 最后修改时间:2000/11/07
- '* 备 注:
- '*************************************************************
- '退出
- Private Sub Command1_Click()
- Unload Me
- End Sub
- '查询平衡结果
- Private Sub Form_Load()
- '定以网格行
- Dim Coljsq As Integer
- '定义合计数据
- Dim YhSum, Yhsum1
- With vsFlexGrid1
- .FormatString = "平衡检查|单位日记帐|银行对帐单"
- .TextMatrix(1, 0) = "收入合计"
- .TextMatrix(2, 0) = "支出合计"
- For Coljsq = 0 To .Cols - 1
- .ColAlignment(Coljsq) = flexAlignCenterCenter
- Next Coljsq
- End With
- '银行对帐单
- YhSum = 0: Yhsum1 = 0
- With YH_FrmZddz.CXBBGrid
- For Coljsq = 1 To .Rows - 1
- If .TextMatrix(Coljsq, 5) <> "" Then
- If .TextMatrix(Coljsq, 3) = "借" Then
- YhSum = YhSum + Val(Format(.TextMatrix(Coljsq, 4), "0.00"))
- Else
- Yhsum1 = Yhsum1 + Val(Format(.TextMatrix(Coljsq, 4), "0.00"))
- End If
- End If
- Next Coljsq
- End With
- vsFlexGrid1.TextMatrix(1, 2) = Yhsum1
- vsFlexGrid1.TextMatrix(2, 2) = YhSum
- '单位日记帐
- YhSum = 0: Yhsum1 = 0
- With YH_FrmZddz.vsFlexGrid1
- For Coljsq = 1 To .Rows - 1
- If .TextMatrix(Coljsq, 6) <> "" Then
- If .TextMatrix(Coljsq, 4) = "借" Then
- YhSum = YhSum + Val(Format(.TextMatrix(Coljsq, 5), "0.00"))
- Else
- Yhsum1 = Yhsum1 + Val(Format(.TextMatrix(Coljsq, 5), "0.00"))
- End If
- End If
- Next Coljsq
- End With
- vsFlexGrid1.TextMatrix(1, 1) = YhSum
- vsFlexGrid1.TextMatrix(2, 1) = Yhsum1
- If vsFlexGrid1.TextMatrix(1, 1) - vsFlexGrid1.TextMatrix(2, 1) = vsFlexGrid1.TextMatrix(1, 2) - vsFlexGrid1.TextMatrix(2, 2) Then
- Label1.ForeColor = &HFF0000
- Label1.Caption = "平衡"
- Else
- Label1.ForeColor = vbRed
- Label1.Caption = "不平衡！"
- End If
- End Sub
