English
资源名称：ERPSYS.zip [点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：34k
源码类别：
企业管理
开发平台：
Visual Basic
- VERSION 5.00
- Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
- Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
- Begin VB.Form Book_Parti
- Caption = "固定资产明细帐"
- ClientHeight = 8595
- ClientLeft = 60
- ClientTop = 345
- ClientWidth = 11880
- HelpContextID = 505005
- Icon = "固定资产明细帐.frx":0000
- LinkTopic = "Form1"
- LockControls = -1 'True
- MDIChild = -1 'True
- ScaleHeight = 8595
- ScaleWidth = 11880
- WindowState = 2 'Maximized
- Begin VB.PictureBox Pic_Title
- BackColor = &H00FFFFFF&
- Height = 1065
- Left = -7
- Picture = "固定资产明细帐.frx":1042
- ScaleHeight = 1005
- ScaleWidth = 11835
- TabIndex = 1
- Top = 570
- Width = 11895
- Begin MSComctlLib.ImageList ImageList1
- Left = 4320
- Top = 150
- _ExtentX = 1005
- _ExtentY = 1005
- BackColor = -2147483643
- ImageWidth = 16
- ImageHeight = 16
- MaskColor = 12632256
- _Version = 393216
- BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
- NumListImages = 9
- BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "固定资产明细帐.frx":35106
- Key = "sz"
- EndProperty
- BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "固定资产明细帐.frx":354A0
- Key = "dy"
- EndProperty
- BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "固定资产明细帐.frx":3583A
- Key = "yl"
- EndProperty
- BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "固定资产明细帐.frx":35BD4
- Key = "bz"
- EndProperty
- BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "固定资产明细帐.frx":35F6E
- Key = "tc"
- EndProperty
- BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "固定资产明细帐.frx":36308
- Key = "bcgs"
- EndProperty
- BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "固定资产明细帐.frx":366A2
- Key = "mrlk"
- EndProperty
- BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "固定资产明细帐.frx":36A3C
- Key = "xsxm"
- EndProperty
- BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
- Picture = "固定资产明细帐.frx":36DD6
- Key = "cx"
- EndProperty
- EndProperty
- End
- Begin VB.Label Lbl_Dept
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- ForeColor = &H00000000&
- Height = 180
- Left = 7530
- TabIndex = 9
- Top = 810
- Width = 90
- End
- Begin VB.Label Label3
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "所属部门:"
- Height = 180
- Left = 6690
- TabIndex = 8
- Top = 810
- Width = 810
- End
- Begin VB.Label Lbl_Sort
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- ForeColor = &H00000000&
- Height = 180
- Left = 4230
- TabIndex = 7
- Top = 810
- Width = 90
- End
- Begin VB.Label Label1
- AutoSize = -1 'True
- BackStyle = 0 'Transparent
- Caption = "资产类别:"
- Height = 180
- Left = 3390
- TabIndex = 6
- Top = 810
- Width = 810
- End
- Begin VB.Label tsLabel
- AutoSize = -1 'True
- BackColor = &H80000018&
- BackStyle = 0 'Transparent
- Caption = "固定资产明细帐"
- BeginProperty Font
- Name = "宋体"
- Size = 12
- Charset = 134
- Weight = 700
- Underline = 0 'False
- Italic = 0 'False
- Strikethrough = 0 'False
- EndProperty
- ForeColor = &H00000000&
- Height = 240
- Index = 4
- Left = 585
- TabIndex = 2
- Top = 270
- Width = 1785
- End
- End
- Begin VB.Timer Timer1
- Enabled = 0 'False
- Interval = 1
- Left = 6533
- Top = 60
- End
- Begin VSFlex8Ctl.VSFlexGrid CxbbGrid
- Height = 6915
- Left = 0
- TabIndex = 0
- Top = 1710
- Width = 11895
- _cx = 5080
- _cy = 5080
- 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 = -2147483636
- 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 = 50
- Cols = 10
- FixedRows = 1
- FixedCols = 1
- RowHeightMin = 0
- RowHeightMax = 0
- ColWidthMin = 0
- ColWidthMax = 0
- ExtendLastCol = 0 'False
- FormatString = ""
- ScrollTrack = 0 'False
- ScrollBars = 3
- ScrollTips = 0 'False
- MergeCells = 4
- MergeCompare = 0
- AutoResize = -1 'True
- AutoSizeMode = 0
- AutoSearch = 0
- AutoSearchDelay = 2
- 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
- ShowComboButton = 1
- WordWrap = 0 'False
- TextStyle = 0
- TextStyleFixed = 0
- OleDragMode = 0
- OleDropMode = 0
- DataMode = 0
- VirtualData = -1 'True
- DataMember = ""
- ComboSearch = 3
- AutoSizeMouse = -1 'True
- FrozenRows = 0
- FrozenCols = 0
- AllowUserFreezing= 0
- BackColorFrozen = 0
- ForeColorFrozen = 0
- WallPaperAlignment= 9
- AccessibleName = ""
- AccessibleDescription= ""
- AccessibleValue = ""
- AccessibleRole = 24
- End
- Begin MSComctlLib.Toolbar GsToolbar
- Height = 525
- Left = 9390
- TabIndex = 3
- Top = 30
- Width = 2475
- _ExtentX = 4366
- _ExtentY = 926
- ButtonWidth = 1455
- ButtonHeight = 926
- Appearance = 1
- Style = 1
- ImageList = "ImageList1"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 3
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "保存格式"
- Key = "bcgs"
- ImageKey = "bcgs"
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "默认列宽"
- Key = "hfmrgs"
- ImageKey = "mrlk"
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "显示项目"
- Key = "szxsxm"
- ImageKey = "xsxm"
- EndProperty
- EndProperty
- End
- Begin MSComctlLib.Toolbar SzToolbar
- Align = 1 'Align Top
- Height = 555
- Left = 0
- TabIndex = 4
- Top = 0
- Width = 11880
- _ExtentX = 20955
- _ExtentY = 979
- ButtonWidth = 820
- ButtonHeight = 926
- AllowCustomize = 0 'False
- Appearance = 1
- Style = 1
- ImageList = "ImageList1"
- _Version = 393216
- BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
- NumButtons = 8
- BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "设置"
- Key = "ymsz"
- ImageKey = "sz"
- EndProperty
- BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "打印"
- Key = "dy"
- ImageKey = "dy"
- EndProperty
- BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "预览"
- Key = "yl"
- ImageKey = "yl"
- EndProperty
- BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 3
- EndProperty
- BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Enabled = 0 'False
- Caption = "查询"
- Key = "cx"
- ImageKey = "cx"
- EndProperty
- BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Style = 4
- EndProperty
- BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "帮助"
- Key = "bz"
- ImageKey = "bz"
- EndProperty
- BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
- Caption = "退出"
- Key = "fh"
- ImageKey = "tc"
- EndProperty
- EndProperty
- BorderStyle = 1
- Begin VB.TextBox Txt_Bit
- Height = 270
- Left = 5070
- TabIndex = 5
- Text = "Text1"
- Top = 1230
- Visible = 0 'False
- Width = 1035
- End
- End
- End
- Attribute VB_Name = "Book_Parti"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = False
- Attribute VB_PredeclaredId = True
- Attribute VB_Exposed = False
- '******************************************************************
- '* 模 块 名 称 :资产明细帐列表
- '* 功 能 描 述 :
- '* 程序员姓名 :徐衍民
- '* 最后修改人 :徐衍民
- '* 最后修改时间:2001/12/17
- '* 备 注:
- '******************************************************************
- Dim ReportTitle As String '报表主标题
- Dim Card_Str As String '用户录入查询条件
- Dim rstemp As ADODB.Recordset '临时打开数据集变量
- '以下为固定使用变量
- Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
- Dim GridCode As String '显示网格网格代码
- Dim GridInf() As Variant '整个网格设置信息
- Dim Tsxx As String '系统提示信息
- Dim Qslz As Long '网格隐藏(非操作显示)列数
- Dim Sjhgd As Double '网格数据行高度
- Dim Sfxshjwg As Boolean '是否显示合计网格
- Dim GridBoolean() As Boolean '网格列信息(布尔型)
- Dim GridStr() As String '网格列信息(字符型)
- Dim GridInt() As Integer '网格列信息(整型)
- Dim Szzls As Integer '数组总列数(网格列数-1)
- Private Sub Form_Resize() '根据窗体大小来调整网格,标题栏大小
- On Error Resume Next
- With CxbbGrid
- .Width = Me.Width - 160
- .Height = Me.Height - .Top - 400
- End With
- With Pic_Title
- .Width = Me.Width - 160
- End With
- GsToolbar.Left = Me.Width - GsToolbar.Width - 160
- End Sub
- Private Sub Form_Load() '窗体装入
- '调入打印页面设置窗体
- ReportTitle = "固定资产明细帐"
- XtReportCode = "Gdzc_Book_Parti"
- Load Dyymctbl
- '调整标题栏及网格、格式工具条位置
- Pic_Title.Left = 40
- Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
- CxbbGrid.Left = Pic_Title.Left
- CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
- '调 入 网 格
- GridCode = "Gdzc_Book_Parti"
- Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
- Qslz = GridInf(1)
- Sjhgd = GridInf(2)
- Sfxshjwg = GridInf(7)
- Szzls = CxbbGrid.Cols - 1
- Me.AutoRedraw = False
- End Sub
- Private Sub Form_Unload(Cancel As Integer) '窗体卸载
- '卸载条件窗体
- Book_Parti_Search.UnloadCheck.Value = 1
- Unload Book_Parti_Search
- '卸载打印页面设置窗体
- Unload Dyymctbl
- End Sub
- Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button) '网格格式调整
- Select Case Button.Key
- Case "bcgs" '保存表格格式
- Call Bcwggs(CxbbGrid, GridCode, GridStr)
- Case "hfmrgs" '恢复默认格式
- Call Hfmrgs(CxbbGrid, GridCode, GridStr)
- Case "szxsxm" '设置显示项目
- Call Szxsxm(CxbbGrid, GridCode)
- End Select
- End Sub
- Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
- Select Case Button.Key
- Case "ymsz" '页面设置
- Dyymctbl.Show 1
- Case "yl" '预 览
- Call bbyl(True)
- Case "dy" '打 印
- Call bbyl(False)
- Case "cx"
- Book_Parti_Search.Show 1
- Case "fh" '退 出
- Unload Me
- Case "bz"
- SendKeys "{F1}"
- End Select
- End Sub
- Private Sub Timer1_Timer() '在窗体激活后调入查询程序
- Timer1.Enabled = False
- Xt_Wait.Show
- Xt_Wait.Refresh
- '加快显示速度
- CxbbGrid.Redraw = False
- '生成查询结果
- Call Sub_Query
- CxbbGrid.Redraw = True
- Xt_Wait.Hide
- SzToolbar.Buttons("cx").Enabled = True
- End Sub
- Private Sub Sub_Query() '生成查询结果
- Dim Rec_Query As New ADODB.Recordset '查询结果动态集
- Dim Sqlstr As String '查询字符串
- Dim Coljsq As Long '网格列计数器
- Dim Jsqte As Integer '临时动态计数器
- Dim Str_Temp As String '字符串变量
- Dim SqlStr1, Str_temp1 As String '字符串变量
- Dim Sql_Str As String '字符串变量
- Dim Row_Num As Integer '合计背景色处理变量
- Dim Year As Integer '当前会计年度
- Dim Period As Integer '当前会计期间
- '根据查询条件，为查询条件字符串赋值
- With Book_Parti_Search
- Str_Temp = "where 1=1"
- Str_temp1 = "where 1=1"
- For Jsqte = 1 To 5
- Select Case Jsqte
- Case 1
- If Trim(.LrText(0).Text) <> "" Then '资产类别
- Str_Temp = Str_Temp & " and gdzc_card.FASortCode like '" & Trim(.LrText(0).Tag) & "%'"
- Str_temp1 = Str_temp1 & " and gdzc_card.FASortCode like '" & Trim(.LrText(0).Tag) & "%'"
- Sql_Str = Sql_Str & " and Gdzc_Variation.FASortNew like '" & Trim(.LrText(0).Tag) & "%'"
- Lbl_Sort.Caption = Trim(.LrText(0).Text)
- Else
- Lbl_Sort.Caption = "所有类别"
- End If
- Case 2
- If Trim(.LrText(1).Text) <> "" Then '所属部门
- Str_Temp = Str_Temp & " and gdzc_card.DeptCode like '" & Trim(.LrText(1).Tag) & "%'"
- Str_temp1 = Str_temp1 & " and gdzc_card.DeptCode like '" & Trim(.LrText(1).Tag) & "%'"
- Sql_Str = Sql_Str & " and Gdzc_Variation.deptNew like '" & Trim(.LrText(1).Tag) & "%'"
- Lbl_Dept.Caption = Trim(.LrText(1).Text)
- Else
- Lbl_Dept.Caption = "所有部门"
- End If
- Case 3
- If Trim(.LrText(2).Text) <> "" Then '卡片编号
- Str_Temp = Str_Temp & " and gdzc_Variation.CardCode='" & Trim(.LrText(2).Text) & "'"
- Str_temp1 = Str_temp1 & " and Gdzc_Card.CardCode='" & Trim(.LrText(2).Text) & "'"
- Sql_Str = Sql_Str & " and Gdzc_Variation.cardcode='" & Trim(.LrText(2).Text) & "'"
- End If
- Case 4
- If Trim(.Com_Year(0).Text) <> "" Then '起始会计期间
- Str_Temp = Str_Temp & " and Gdzc_Variation.year>=" & LeftChar(Trim(.Com_Year(0).Text)) & " and Gdzc_Variation.period>=" & RightChar(Trim(.Com_Year(0).Text))
- Str_temp1 = Str_temp1 & " and Gdzc_DetailedForm.year>=" & LeftChar(Trim(.Com_Year(0).Text)) & " and Gdzc_DetailedForm.period>=" & RightChar(Trim(.Com_Year(0).Text))
- End If
- Case 5
- If Trim(.Com_Year(1).Text) <> "" Then '终止会计期间
- Str_Temp = Str_Temp & " and Gdzc_Variation.year<=" & LeftChar(Trim(.Com_Year(1).Text)) & " and Gdzc_Variation.period<=" & RightChar(Trim(.Com_Year(1).Text))
- Str_temp1 = Str_temp1 & " and Gdzc_DetailedForm.year<=" & LeftChar(Trim(.Com_Year(1).Text)) & " and Gdzc_DetailedForm.period<=" & RightChar(Trim(.Com_Year(1).Text))
- End If
- End Select
- Next Jsqte
- End With
- '当用户要求显示“期间合计”时，为合计查询字符串赋值
- If Book_Parti_Search.Opt_Yes = True Then '输出期间合计
- SqlStr1 = "SELECT DISTINCT Gdzc_DetailedForm.Period FROM Gdzc_DetailedForm LEFT OUTER JOIN " _
- & "Gdzc_Card ON Gdzc_DetailedForm.CardCode = Gdzc_Card.CardCode LEFT OUTER JOIN " _
- & "Gdzc_Sort ON Gdzc_DetailedForm.FASortCode = Gdzc_Sort.FASortCode LEFT OUTER JOIN " _
- & "Gy_Department ON Gdzc_Card.DeptCode = Gy_Department.DeptCode " _
- & Str_temp1 & " and (Gdzc_DetailedForm.FAValueEnd > 0) "
- Set rstemp = Cw_DataEnvi.DataConnect.Execute(SqlStr1)
- CxbbGrid.Rows = CxbbGrid.FixedRows
- CxbbGrid.Rows = CxbbGrid.FixedRows + rstemp.RecordCount
- rstemp.Close
- Set rstemp = Nothing
- SqlStr1 = "SELECT Gy_Department.DeptName AS DeptName, Gdzc_Sort.FASortName AS FASortName, " _
- & "Gdzc_DetailedForm.FAValueStart, Gdzc_DetailedForm.DeprSumStart, " _
- & "Gdzc_DetailedForm.FAValueEnd, Gdzc_DetailedForm.DeprSUmEnd, " _
- & "Gdzc_DetailedForm.DeprValue FROM Gdzc_DetailedForm LEFT OUTER JOIN " _
- & "Gdzc_Card ON Gdzc_DetailedForm.CardCode = Gdzc_Card.CardCode LEFT OUTER JOIN " _
- & "Gdzc_Sort ON Gdzc_DetailedForm.FASortCode = Gdzc_Sort.FASortCode LEFT OUTER JOIN " _
- & "Gy_Department ON Gdzc_Card.DeptCode = Gy_Department.DeptCode "
- SqlStr1 = SqlStr1 & Trim(Str_temp1)
- End If
- Sqlstr = "SELECT Gdzc_Variation.CardCode AS CardCode, Gdzc_Variation.[Year] AS Year, " _
- & "Gdzc_Variation.Period AS Period, Gdzc_Variation.VariDate AS VariDate, " _
- & "Gy_Department.DeptName AS DeptName, Gdzc_Sort.FASortName AS FASortName, " _
- & "Gdzc_Variation.FAValueOld AS FAValueOld,Gdzc_Variation.FAValueNew AS FAValueNew, " _
- & "Gdzc_Variation.SumDeprOld AS SumDeprOld,Gdzc_Variation.SumDeprNew AS SumDeprNew, Gdzc_Card.FACode,Gdzc_Card.FAName, " _
- & "Gdzc_Variation.VariationReason AS VariationReaSon FROM Gy_Department RIGHT OUTER JOIN " _
- & "Gdzc_Card ON Gy_Department.DeptCode = Gdzc_Card.DeptCode LEFT OUTER JOIN " _
- & "Gdzc_Sort ON Gdzc_Card.FASortCode = Gdzc_Sort.FASortCode RIGHT OUTER JOIN " _
- & "Gdzc_Variation ON Gdzc_Card.CardCode = Gdzc_Variation.CardCode "
- Sqlstr = Sqlstr & Trim(Str_Temp) & " order by Gdzc_Variation.year,Gdzc_Variation.period,gdzc_Variation.cardcode"
- Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
- With Rec_Query
- If Book_Parti_Search.Opt_No = True Then CxbbGrid.Rows = CxbbGrid.FixedRows
- CxbbGrid.Rows = CxbbGrid.Rows + .RecordCount
- Jsqte = CxbbGrid.FixedRows
- Do While Not .EOF
- If Jsqte >= CxbbGrid.Rows Then
- CxbbGrid.AddItem ""
- End If
- '填充列表
- CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(!Year & "") '会计年度
- CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(Format(!Period, "00") & "") '会计期间
- CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(!varidate & "") '业务日期
- CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(!CardCode & "") '卡片编号
- CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(!FACode & "") '资产编号
- CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(!FAName & "") '资产名称
- CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(!VariationReason & "") '摘要
- If Val(!FAValueNew) > Val(!FAValueOld) Then
- CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(Abs(Val(!FAValueNew) - Val(!FAValueOld)) & "") '资产原值借方
- Else
- CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(Abs(Val(!FAValueNew) - Val(!FAValueOld)) & "") '资产原值贷方
- End If
- CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(!FAValueNew & "") '资产原值余额
- If Val(!SumDeprNew) > Val(!SumDeprOld) Then
- CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(Abs(Val(!SumDeprNew) - Val(!SumDeprOld)) & "") '累计折旧贷方
- Else
- CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(Abs(Val(!SumDeprNew) - Val(!SumDeprOld)) & "") '累计折旧借方
- End If
- If Val(!SumDeprNew) <> 0 Then CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(!SumDeprNew & "") '累计折旧余额
- If Val(Val(!FAValueNew) - Val(!SumDeprNew)) <> 0 Then CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Trim(Val(Val(!FAValueNew) - Val(!SumDeprNew)) & "") '净资产
- CxbbGrid.RowHeight(Jsqte) = Sjhgd
- .MoveNext
- Jsqte = Jsqte + 1
- '本期合计处理
- If Book_Parti_Search.Opt_Yes = True Then
- If Not .EOF Then
- If Trim(!Period) <> Val(Trim(CxbbGrid.TextMatrix(Jsqte - 1, Sydz("002", GridStr(), Szzls)))) Then
- Set rstemp = New ADODB.Recordset
- rstemp.Open SqlStr1 & " and gdzc_detailedform.Year=" & Trim(CxbbGrid.TextMatrix(Jsqte - 1, Sydz("001", GridStr(), Szzls))) & " and gdzc_detailedform.Period=" & Trim(CxbbGrid.TextMatrix(Jsqte - 1, Sydz("002", GridStr(), Szzls))), Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
- While Not rstemp.EOF
- CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = "本期合计"
- If Val(rstemp!FAValueEnd) - Val(rstemp!FAValuestart) > 0 Then
- CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls))) + Val(Abs(Val(rstemp!FAValueEnd) - Val(rstemp!FAValuestart)))
- Else
- If Val(Abs(Val(rstemp!FAValueEnd) - Val(rstemp!FAValuestart))) <> 0 Then CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Abs(Val(rstemp!FAValueEnd) - Val(rstemp!FAValuestart))
- End If
- CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls))) + Val(rstemp!FAValueEnd)
- If Val(Val(rstemp!DeprSumEnd) - Val(rstemp!DeprValue)) < Val(rstemp!DeprSumStart) Then
- CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls))) + Val(rstemp!DeprValue) + Val(rstemp!DeprSumStart) - Val(rstemp!DeprSumEnd)
- End If
- If Val(rstemp!DeprValue) > 0 Then CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls))) + Val(rstemp!DeprValue)
- CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls))) + Val(rstemp!DeprSumEnd)
- CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)))
- rstemp.MoveNext
- Wend
- rstemp.Close
- Set rstemp = Nothing
- For Row_Num = 0 To CxbbGrid.Cols - 1
- CxbbGrid.Cell(flexcpBackColor, Jsqte, Row_Num) = &HFFFF00
- Next Row_Num
- Jsqte = Jsqte + 1
- End If
- Else
- Set rstemp = New ADODB.Recordset
- rstemp.Open "SELECT SUM(FAValueOld) AS FAValueOld, SUM(FAValueNew) AS FAValueNew,SUM(SumDeprOld) AS SumDeprOld, SUM(SumDeprNew) AS SumDeprNew FROM Gdzc_Variation where Year=" & Trim(CxbbGrid.TextMatrix(Jsqte - 1, Sydz("001", GridStr(), Szzls))) & " and Period=" & Trim(CxbbGrid.TextMatrix(Jsqte - 1, Sydz("002", GridStr(), Szzls))) & Sql_Str, Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
- If Not rstemp.EOF Then
- CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = "本期合计"
- If Val(rstemp!FAValueNew & "") > Val(rstemp!FAValueOld & "") Then
- CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Val(rstemp!FAValueNew & "") - Val(rstemp!FAValueOld & "")
- Else
- CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Val(rstemp!FAValueNew & "") - Val(rstemp!FAValueOld & "")
- End If
- If Val(rstemp!SumDeprNew & "") > Val(rstemp!SumDeprOld & "") Then
- CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Val(rstemp!SumDeprNew & "") - Val(rstemp!SumDeprOld & "")
- Else
- CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Val(rstemp!SumDeprNew & "") - Val(rstemp!SumDeprOld & "")
- End If
- End If
- rstemp.Close
- Set rstemp = Nothing
- Set rstemp = New ADODB.Recordset
- rstemp.Open "SELECT SUM(Gdzc_DetailedForm.FAValueStart) AS FAValue, " _
- & "Sum (Gdzc_DetailedForm.DeprSumStart) + Sum(Gdzc_DetailedForm.DeprValue) AS DeprSum " _
- & "FROM Gdzc_Card RIGHT OUTER JOIN Gdzc_DetailedForm ON " _
- & "Gdzc_Card.CardCode = Gdzc_DetailedForm.CardCode " _
- & Str_temp1 _
- & " and Gdzc_DetailedForm.Year=" & Trim(CxbbGrid.TextMatrix(Jsqte - 1, Sydz("001", GridStr(), Szzls))) & " and Gdzc_DetailedForm.Period=" & Trim(CxbbGrid.TextMatrix(Jsqte - 1, Sydz("002", GridStr(), Szzls))), _
- Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
- If Not rstemp.EOF Then
- CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls))) + Val(rstemp!FAValue)
- CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls))) + Val(Trim(rstemp!DeprSum & "")) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)))
- CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Val(CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls))) - Val(CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)))
- End If
- rstemp.Close
- Set rstemp = Nothing
- For Row_Num = 0 To CxbbGrid.Cols - 1
- CxbbGrid.Cell(flexcpBackColor, Jsqte, Row_Num) = &HFFFF00
- Next Row_Num
- Jsqte = Jsqte + 1
- End If
- End If
- Loop
- End With
- '为零时清空单元格
- Call Txt_Clear
- End Sub
- Private Sub bbyl(bbylte As Boolean) '报表打印预览
- Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
- Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
- Bbxbtgs = 1 '报 表 小 标 题 行 数
- Bbbwhgs = 0 '报 表 表 尾 行 数
- ReDim Bbxbt(1 To Bbxbtgs)
- ReDim bbxbtzzxs(1 To Bbxbtgs)
- If Bbbwhgs <> 0 Then
- ReDim Bbbwh(1 To Bbbwhgs)
- ReDim Bbbwhzzxs(1 To Bbbwhgs)
- End If
- Bbzbt = ReportTitle
- Bbxbt(1) = " "
- bbxbtzzxs(1) = 0 '报表行组织形式(0-居左 1-居中 2-居右)
- Bbxbt(1) = Space(2) + Fun_FormatOutPut(Trim(Label1.Caption) & Trim(Lbl_Sort.Caption), 35)
- Bbxbt(1) = Bbxbt(1) + Trim(Trim(Label3.Caption) & Trim(Lbl_Dept.Caption))
- Call Scyxsjb(CxbbGrid) '生成报表数据
- Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
- If Not bbylte Then
- Unload DY_Tybbyldy
- End If
- End Sub
- '*****************************************************
- '[>>自定义函数
- '取右字符串
- Function RightChar(str As String) As String
- If str = "" Then Exit Function
- Dim i As Integer
- i = InStrRev(str, ".")
- RightChar = Mid(str, i + 1)
- End Function
- '取左字符串
- Function LeftChar(str As String) As String
- If str = "" Then Exit Function
- Dim i As Integer
- i = InStr(str, ".")
- LeftChar = Mid(str, 1, i - 1)
- End Function
- '为零时清空单元格
- Function Txt_Clear()
- Dim Row_Integer, Col_Integer As Integer '行数和列数变量
- For Row_Integer = CxbbGrid.FixedRows To CxbbGrid.Rows - 1
- For Col_Integer = 7 To CxbbGrid.Cols - 1
- If Format(Val(CxbbGrid.TextMatrix(Row_Integer, Col_Integer)), "0.00") = 0# Then
- CxbbGrid.TextMatrix(Row_Integer, Col_Integer) = ""
- End If
- Next Col_Integer
- Next Row_Integer
- End Function
- '<<]
- '****************************************************
