📄 frmoutput.frm
字号:
Else
ZwStringGrid = ZwStringGrid & "<TD WIDTH=86 HEIGHT=18 align=Left valign=Top>" & " " & "</TD>"
End If
Next j
ZwStringGrid = ZwStringGrid & "</TR>"
Next i
ZwStringGrid = ZwStringGrid & "</TABLE>"
''' ZwStringGrid = ZwStringGrid & "</BODY>"
''' ZwStringGrid = ZwStringGrid & "</HTML>"
'''
'||||||||||||||||||||||||||||||||||
FrmPrv.Show 1
MousePointer = vbDefault
End Sub
Private Sub SSCommand4_Click() '打印全部
If quxianbiaoji = 2 Then
Call chartalltoprv
End If
If quxianbiaoji = 1 Then
Call MenuZwTotalPrv
End If
End Sub
Public Sub chartalltoprv()
On Error Resume Next
ProBar1.min = 0
ProBar1.max = 6
ProBar1.Value = 1
ProBar1.Visible = True
For k = 1 To 6
Select Case k
Case 1
OutlirunTuChart
Set Image1.Picture = Picture1.Image
Case 2
ZwXingKuiFengXiTuNew
Set Image2.Picture = Picture1.Image
Case 3
Call Zwoutjingxianzhichart
Set Image3.Picture = Picture1.Image
Case 4
Call zeiyouleizengyou
Set Image4.Picture = Picture1.Image
Case 5
OutPutCostList10
ZwJingXianZhiMGanTu
Set Image5.Picture = Picture1.Image
Case 6
OutPutCostList10
shouyilvtu
Set Image6.Picture = Picture1.Image
End Select
CellOrPic = False
'Load FrmPrv
ProBar1.Value = k
Next k
StBar1.Visible = True
ProBar1.Visible = False
'Label2.Visible = False
FrmPrv.Show 1
MousePointer = vbDefaul
End Sub
Public Sub MenuZwTotalPrv()
On Error Resume Next
MousePointer = vbHourglass
Dim i%, j%, k%
ZwStringGrid = ""
ZwStringGrid = ZwStringGrid & "<P" & "" & "</P>"
''' ZwStringGrid = ZwStringGrid & "<HTML>"
''' ZwStringGrid = ZwStringGrid & "<HEAD>"
''' ZwStringGrid = ZwStringGrid & "<TITLE>三次采油经济评价报表</TITLE>"
''' ZwStringGrid = ZwStringGrid & "</HEAD>"
''' ZwStringGrid = ZwStringGrid & "<BODY>"
' ZwStringGrid = ZwStringGrid & "<HR>"
'ZwStringGrid = ZwStringGrid & "<PRE>最新时间" & CStr(Date)
StBar1.Visible = False
ProBar1.min = 1
ProBar1.max = 11
ProBar1.Value = 1
ProBar1.Visible = True
Label2.Visible = True
For k = 1 To 11
Select Case k
Case 1
OutPutCostList1
Case 2
OutPutCostList2
Case 3
OutPutCostList3
Case 4
OutPutCostList4
Case 5
OutPutCostList5
Case 6
OutPutCostList6 '现金流表一
Case 7
OutPutCostList7 '现金流表二
Case 8
OutPutCostList8 '= "总结表"
Case 9
OutPutCostList9 '损益表
Case 10
OutPutCostList10 '敏感分析表
Case 11
OutPutCostList11 '基准平衡分析表
End Select
ZwStringGrid = ZwStringGrid & "<P" & "表" & k & " " & ListItem(k) & "</P>"
'ZwStringGrid = ZwStringGrid & "<P" & label1.Caption & "</P>"
'ZwStringGrid = ZwStringGrid & "<HR>"
'ZwStringGrid = ZwStringGrid & " "
ZwStringGrid = ZwStringGrid & "<TABLE BORDER= 1 WIDTH=800 >"
ZwStringGrid = ZwStringGrid & " "
For i = 1 To MSFlexGrid1.Rows
ZwStringGrid = ZwStringGrid & "<TR>"
For j = 1 To MSFlexGrid1.Cols
If MSFlexGrid1.TextMatrix(i - 1, j - 1) <> "" Then
ZwStringGrid = ZwStringGrid & "<TD WIDTH= 86 HEIGHT=18 ALIGN=Left VALIGN=Top>" _
& "<p align=Left><font size=2>" & Trim(MSFlexGrid1.TextMatrix(i - 1, j - 1)) & "</font></p>" & "</TD>"
Else
ZwStringGrid = ZwStringGrid & "<TD WIDTH=86 HEIGHT=18 align=Left valign=Top>" & " " & "</TD>"
End If
Next j
ZwStringGrid = ZwStringGrid & "</TR>"
Next i
ZwStringGrid = ZwStringGrid & "</TABLE>"
ZwStringGrid = ZwStringGrid & " " & Chr(10)
'''ZwStringGrid = ZwStringGrid & " " & Chr(10)
'''ZwStringGrid = ZwStringGrid & " " & Chr(10)
ProBar1.Value = k
Next k
''' ZwStringGrid = ZwStringGrid & "</BODY>"
''' ZwStringGrid = ZwStringGrid & "</HTML>"
'''
StBar1.Visible = True
ProBar1.Visible = False
FrmPrv.Show 1
MousePointer = vbDefault
End Sub
Private Sub SSCommand5_Click()
Unload Me
End Sub
Private Sub SSCommand6_Click()
Beep
ttt = ttt + 1
If (ttt Mod 2) = 1 Then
SSCommand6.Caption = "返回图形"
MSFlexGrid1.Visible = True
quxianbiaoji = 3
SSCommand4.Enabled = False
End If
If (ttt Mod 2) = 0 Then
MSFlexGrid1.Visible = 0
quxianbiaoji = 2
SSCommand6.Caption = "图形数据"
SSCommand4.Enabled = True
'ttt = 0
'ttt = 0
End If
End Sub
Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node)
Node.Image = "close"
End Sub
Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
Node.Image = "open"
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
On Error Resume Next
'ListItem(1) = "药剂费用表"
' ListItem(3) = "资金来源与运用表"
'ListItem(2) = "成本表"
'ListItem(4) = "投资表"
'ListItem(5) = "税额表"
'ListItem(6) = "现金流量表" '"现金流量表"
' ListItem(7) = "借款还本付息表"
'ListItem(8) = "总结表"
' ListItem(9) = "损益表"
'ListItem(10) = "敏感分析表"
'ListItem(11) = "基准平衡分析表"
'GraphItem(1) = "利润图"
'GraphItem(2) = "盈亏分析图"
'GraphItem(3) = "净现值图"
'GraphItem(4) = "年增油累增油图"
'GraphItem(5) = "净现值敏感图"
'GraphItem(6) = "内部收益敏感图"
'Chartfx1.Decimals = 0
Select Case Node.Text
Case ListItem(1):
Node.Image = "kit"
OutPutCostList1
symbol1 = 1
quxianbiaoji = 1
' '
Case ListItem(2):
Node.Image = "kit"
OutPutCostList2
symbol1 = 2
quxianbiaoji = 1
Case ListItem(3):
Node.Image = "kit"
OutPutCostList3
symbol1 = 3
quxianbiaoji = 1
Case ListItem(4):
Node.Image = "kit"
OutPutCostList4
symbol1 = 4
quxianbiaoji = 1
Case ListItem(5):
Node.Image = "kit"
OutPutCostList5
symbol1 = 5
quxianbiaoji = 1
Case ListItem(6):
Node.Image = "kit"
OutPutCostList6
symbol1 = 6
quxianbiaoji = 1
Case ListItem(7):
Node.Image = "kit"
OutPutCostList7
quxianbiaoji = 1
symbol1 = 7
Case ListItem(8):
Node.Image = "kit"
OutPutCostList8
symbol1 = 8
quxianbiaoji = 1
Case ListItem(9):
Node.Image = "kit"
OutPutCostList9
symbol1 = 9
quxianbiaoji = 1
Case ListItem(10):
Node.Image = "kit"
OutPutCostList10
'OutPutCostList10
symbol1 = 10
quxianbiaoji = 1
Case ListItem(11):
Node.Image = "kit"
OutPutCostList11
symbol1 = 11
quxianbiaoji = 1
Case GraphItem(1): '年增油累增油比例图
Node.Image = "orig"
Call OutlirunTuChart
symbol = 1
quxianbiaoji = 2
Case GraphItem(2): '盈亏分析土
Node.Image = "orig"
Call ZwXingKuiFengXiTuNew
symbol = 2
quxianbiaoji = 2
Case GraphItem(3): '净现值图
Node.Image = "orig"
Call Zwoutjingxianzhichart
symbol = 3
quxianbiaoji = 2
Case GraphItem(4): '净现值图
Node.Image = "orig"
Call zeiyouleizengyou
symbol = 4
quxianbiaoji = 2
Case GraphItem(5): '"净现值敏感图"
Node.Image = "orig"
OutPutCostList10
OutPutCostList10
Call ZwJingXianZhiMGanTu
symbol = 5
quxianbiaoji = 2
Case GraphItem(6): '"净现值敏感图"
Node.Image = "orig"
OutPutCostList10
OutPutCostList10
Call shouyilvtu
symbol = 6
quxianbiaoji = 2
End Select
ttt = 0
SSCommand6.Caption = "图形数据"
If quxianbiaoji = 1 Then
SSCommand6.Enabled = False
SSCommand3.Enabled = True
SSCommand4.Enabled = True
Else
SSCommand6.Enabled = True
SSCommand3.Enabled = True
SSCommand4.Enabled = True
End If
End Sub
Public Sub OutlirunTuChart()
yaxis_num = 1
ReDim yaxis_grnum(yaxis_num), yaxis_type(yaxis_num)
ReDim yaxis_min(yaxis_num), yaxis_max(yaxis_num), yaxis_interval(yaxis_num)
ReDim yaxis_name$(yaxis_num, 3), yaxis_format$(yaxis_num)
Call init_data
xaxis_name$ = "时间（年）": xaxis_format$ = "#0":
xaxis_min = 1#: xaxis_max = VarPingJiaQi + 1: xaxis_interval = 1
axis_fontsize = 8: axisname_fontsize = 9
yaxis_grnum(1) = 4: yaxis_name$(1, 1) = "金 额 ": yaxis_name$(1, 2) = "(万元) ": yaxis_format$(1) = "#0"
For i = 1 To 4
grnote_visible(i) = 0
grpoint(i) = 0
Next i
For i = 1 To 4
Lstyle(i) = 4: Pwidth(i) = 100: Pstyle(i) = i: Lwidth(i) = 1 ''修改部分
Next i
'Pstyle(3) = 5: Pstyle(4) = 6:
Pcolor(1) = QBColor(12): Pcolor(2) = QBColor(9): Pcolor(3) = QBColor(12): Pcolor(4) = QBColor(9)
Lcolor(1) = QBColor(0): Lcolor(2) = QBColor(3): Lcolor(3) = QBColor(3): Lcolor(4) = QBColor(4)
'yaxis_min(1) = 10000000000#: yaxis_max(1) = -1000000000000#
For i = 1 To VarPingJiaQi
grpoint(1) = grpoint(1) + 1: grpoint(2) = grpoint(2) + 1: grpoint(3) = grpoint(3) + 1: grpoint(4) = grpoint(4) + 1:
grdatx(1, grpoint(1)) = i: grdatx(2, grpoint(2)) = i: grdatx(3, grpoint(3)) = i: grdatx(4, grpoint(4)) = i
grdaty(1, grpoint(1)) = VarXiaoShouShouRu(i): grdaty(2, grpoint(2)) = VarZongShui(i): grdaty(3, grpoint(3)) = VarZongChengBenFei(i): grdaty(4, i) = VarLiRunZongE(i)
For j = 1 To 4
' If yaxis_min(1) >= grdaty(j, i) Then yaxis_min(1) = grdaty(j, i)
' If yaxis_max(1) <= grdaty(j, i) Then yaxis_max(1) = grdaty(j, i)
Next j
Next i
'yaxis_min(1) = Int(yaxis_min(1)) + Int(yaxis_min(1)) / 10: yaxis_max(1) = Int(yaxis_max(1)) + Int(yaxis_max(1)) / 10: yaxis_interval(1) = (yaxis_max(1) - yaxis_min(1)) / 10
'drawstep = 4000
formbl_x = 1: formbl_y = 1
px1 = 1900 * formbl_x: py1 = 700# * formbl_y: px2 = 10400 * formbl_x: py2 = 6100 * formbl_y
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -