📄 frmoutput.frm

📁 用于三次采油技术的经济评价
💻 FRM
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
   MSFlexGrid1.Visible = False
   MSFlexGrid1.Clear
   Picture1.Visible = True
   Me.Picture1.Cls
   objBackColor = Me.Picture1.BackColor
   
   Call plotg_main(Me.Picture1)
   ''绘制面板
   pnote_y = 6900 * formbl_y: grnote_name$(1) = "销售收入": grnote_name$(2) = "销售税金": grnote_name$(3) = "成本费用": grnote_name$(4) = "利润总额":
   For i = 1 To 4
    AX = (2900 + (i - 1) * 1500) * formbl_x
    AY = pnote_y
    Call post(AX, AY, Pwidth(i), Pcolor(i), Pstyle(i), Me.Picture1)
    Me.Picture1.FontName = "Arial": Me.Picture1.FontSize = grnote_fontsize * formbl_x * 1.1
    Me.Picture1.CurrentX = (3100 + (i - 1) * 1500) * formbl_x
    Me.Picture1.CurrentY = pnote_y - Me.TextHeight(grnote_name$(i)) / 2 '返回字符串高度
    Me.Picture1.Print grnote_name$(i)
   Next i
   
   ''将数据倒入网格
   
   MSFlexGrid1.FormatString = "^时间|^销售收入|^销售税金|^成本费用|^利润总额"
    MSFlexGrid1.Rows = VarPingJiaQi + 1: MSFlexGrid1.Cols = 5
    MSFlexGrid1.FixedCols = 0: MSFlexGrid1.FixedRows = 1
    MSFlexGrid1.RowHeightMin = 600:
    For i = 0 To 4
    MSFlexGrid1.ColAlignment(i) = 4: MSFlexGrid1.ColWidth(i) = 1400
    Next i
    For i = 1 To VarPingJiaQi
    MSFlexGrid1.TextMatrix(i, 0) = i: MSFlexGrid1.TextMatrix(i, 1) = Format$(VarXiaoShouShouRu(i), "0.000")
        MSFlexGrid1.TextMatrix(i, 2) = Format$(VarZongShui(i), "0.000"): MSFlexGrid1.TextMatrix(i, 3) = Format$(VarZongChengBenFei(i), "0.000")
        MSFlexGrid1.TextMatrix(i, 4) = Format$(VarLiRunZongE(i), "0.000")
    Next i
    symbol1 = 12
  ' SavePicture Picture1.Image, "c:\1.bmp"
End Sub
Public Sub zeiyouleizengyou() '年增油图

 Dim sumzengyou(1 To 200) As Double
 Dim summm As Double
 Dim i As Integer
 Dim xmax, ymax, zmax As Double
  
summm = 0
xmax = VarPingJiaQi
For i = 1 To VarPingJiaQi

summm = summm + VarShengCheng(i, 2)
sumzengyou(i) = summm
Next i

yaxis_num = 2
   
   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) = 1: yaxis_grnum(2) = 1: yaxis_name$(1, 1) = "年增油": yaxis_name$(1, 2) = "(万吨)": yaxis_format$(1) = "#0": yaxis_format$(2) = "#0": yaxis_name$(2, 1) = "累增油": yaxis_name$(2, 2) = "(万吨)"
  
   For i = 1 To 2
    grnote_visible(i) = 0
    grpoint(i) = 0
   Next i
   For i = 1 To 2
   
    Lstyle(i) = 6: 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(12): Lcolor(2) = QBColor(9): Lcolor(3) = QBColor(3): Lcolor(4) = QBColor(4)
   
   'yaxis_min(1) = yaxis(2): yaxis_max(1) = yaxis(2)
   For i = 1 To VarPingJiaQi
    grpoint(1) = grpoint(1) + 1:  grpoint(2) = grpoint(2) + 1:
    grdatx(1, grpoint(1)) = i: grdatx(2, grpoint(2)) = i:
    grdaty(1, grpoint(1)) = VarShengCheng(i, 2): grdaty(2, grpoint(2)) = sumzengyou(i):
 
     
   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 = 1200 * formbl_x: py1 = 700# * formbl_y: px2 = 9700 * formbl_x: py2 = 6100 * formbl_y
   
   
   MSFlexGrid1.Visible = False
   Picture1.Visible = True
   Me.Picture1.Cls
 objBackColor = Me.Picture1.BackColor

    gr_type(1) = 2
   Call plotg_main(Me.Picture1)
   ''绘制面板
   pnote_y = 6900 * formbl_y: grnote_name$(1) = "年增油量": grnote_name$(2) = "累增油量": grnote_name$(3) = "成本费用": grnote_name$(4) = "利润总额":
   For i = 1 To 2
    AX = (3700 + (i - 1) * 2500) * formbl_x
    AY = pnote_y
    Call post(AX, AY, Pwidth(i), Pcolor(i), Pstyle(i), Me.Picture1)
    Me.Picture1.FontName = "Arial": Me.Picture1.FontSize = grnote_fontsize * formbl_x * 1.15
    Me.Picture1.CurrentX = (3900 + (i - 1) * 2500) * formbl_x
    Me.Picture1.CurrentY = pnote_y - Me.TextHeight(grnote_name$(i)) / 2 '返回字符串高度
    Me.Picture1.Print grnote_name$(i)
   Next i

''将数据倒入网格
   MSFlexGrid1.Clear
   MSFlexGrid1.FormatString = "^时间|^年增油量|^累增油量"
    MSFlexGrid1.Rows = VarPingJiaQi + 1: MSFlexGrid1.Cols = 3
    MSFlexGrid1.FixedCols = 0: MSFlexGrid1.FixedRows = 1
    MSFlexGrid1.RowHeightMin = 600:
    For i = 0 To 2
    MSFlexGrid1.ColAlignment(i) = 4: MSFlexGrid1.ColWidth(i) = 1600
    Next i
    For i = 1 To VarPingJiaQi
    MSFlexGrid1.TextMatrix(i, 0) = i: MSFlexGrid1.TextMatrix(i, 1) = Format$(grdaty(1, i), "0.000")
        MSFlexGrid1.TextMatrix(i, 2) = Format$(grdaty(2, i), "0.000"): 'MSFlexGrid1.TextMatrix(i, 3) = Format$(grdaty(3, i), "0.000")
       ' MSFlexGrid1.TextMatrix(i, 4) = Format$(VarLiRunZongE(i), "0.000")
    Next i
    symbol1 = 15


End Sub
Public Sub ZwXingKuiFengXiTuNew() '"盈亏分析图"NEW Picture
Dim VarYouCLiang(1 To 1000), sum As Single
Dim VarKeBianCBen As Single
Dim VarZongXiaoShouShouRu As Single '总销售收
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) = 3: yaxis_name$(1, 1) = "金 额    ": yaxis_name$(1, 2) = "(万元)    ": yaxis_format$(1) = "#0"
  
   For i = 1 To 3
    grnote_visible(i) = 0
    grpoint(i) = 0
   Next i
   For i = 1 To 3
   
    Lstyle(i) = 2: 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)
   Lcolor(1) = QBColor(0): Lcolor(2) = QBColor(3): Lcolor(3) = QBColor(3)
   
   'yaxis_min(1) = 10000000000#: yaxis_max(1) = -1000000000000#
   
   For j = 1 To VarPingJiaQi
   sum = sum + VarShengCheng(j, 2)
   VarYouCLiang(j) = sum
   Next j
   
   For i = 1 To VarPingJiaQi
    grpoint(1) = grpoint(1) + 1:  grpoint(2) = grpoint(2) + 1: grpoint(3) = grpoint(3) + 1
    grdatx(1, grpoint(1)) = i: grdatx(2, grpoint(2)) = i: grdatx(3, grpoint(3)) = i
   VarKeBianCBen = VarKeBianCBen + VarXiaoShouShouRu(i) * VarQiTa(29) / 100 + VarXiaoShouFei(i) '可变成本
                VarKeBianCBen = VarKeBianCBen + VarChuLiangFei(i) * VarChuLiangFeiBiLi / 100 + VarWeiHuFei(i) * VarWeiHuFeiBiLi / 100  '可变成本
               '在上面一行中  可变成本里 已经 有储量使用费*比例 和 油田维护费*比例
                VarKeBianCBen = VarKeBianCBen + VarDongliFei(i)  '可变成本
                VarKeBianCBen = VarKeBianCBen + VarRanLiaoFei(i) + VarYouQiFei(i) '可变成本
                
            VarKeBianCBen = VarKeBianCBen + VarQingShuiFei(i) + VarWuShuiFei(i) + Varyaojifei(i) '可变成本
    
    VarZongXiaoShouShouRu = VarZongXiaoShouShouRu + VarXiaoShouShouRu(i) '销售收入
    grdaty(1, grpoint(1)) = VarKeBianCBen + VarShuLiang(16): grdaty(2, grpoint(2)) = VarShuLiang(16): grdaty(3, grpoint(3)) = VarZongXiaoShouShouRu: grdaty(4, i) = VarLiRunZongE(i)
  
   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
   
   
   MSFlexGrid1.Visible = False
   Picture1.Visible = True
   Me.Picture1.Cls
   objBackColor = Me.Picture1.BackColor
   
   Call plotg_main(Me.Picture1)
     'Call plotg_tjzf(Me.Picture1)
   ''绘制面板
   pnote_y = 6900 * formbl_y: grnote_name$(1) = "累积成本费用": grnote_name$(2) = "固定成本": grnote_name$(3) = "累积销售收入": grnote_name$(4) = "利润总额":
   For i = 1 To 3
    AX = (2900 + (i - 1) * 2500) * formbl_x
    AY = pnote_y
    Call post(AX, AY, Pwidth(i), Pcolor(i), Pstyle(i), Me.Picture1)
  
    Me.Picture1.FontName = "Arial": Me.Picture1.FontSize = grnote_fontsize * formbl_x * 1.1
    Me.Picture1.CurrentX = (3100 + (i - 1) * 2500) * formbl_x
    Me.Picture1.CurrentY = pnote_y - Me.TextHeight(grnote_name$(i)) / 2 '返回字符串高度
    Me.Picture1.Print grnote_name$(i)
   Next i

''将数据倒入网格
   MSFlexGrid1.Clear
   MSFlexGrid1.FormatString = "^时间|^累积成本费用|^固定成本|^累积销售收入"
    MSFlexGrid1.Rows = VarPingJiaQi + 1: MSFlexGrid1.Cols = 4
    MSFlexGrid1.FixedCols = 0: MSFlexGrid1.FixedRows = 1
    MSFlexGrid1.RowHeightMin = 600:
    For i = 0 To 3
    MSFlexGrid1.ColAlignment(i) = 4: MSFlexGrid1.ColWidth(i) = 1600
    Next i
    For i = 1 To VarPingJiaQi
    MSFlexGrid1.TextMatrix(i, 0) = i: MSFlexGrid1.TextMatrix(i, 1) = Format$(grdaty(1, i), "0.000")
        MSFlexGrid1.TextMatrix(i, 2) = Format$(grdaty(2, i), "0.000"): MSFlexGrid1.TextMatrix(i, 3) = Format$(grdaty(3, i), "0.000")
       ' MSFlexGrid1.TextMatrix(i, 4) = Format$(VarLiRunZongE(i), "0.000")
    Next i
    symbol1 = 13
End Sub
Public Sub Zwoutjingxianzhichart() '净现值图

  
  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) = 2
   yaxis_name$(1, 1) = "净现值      ": yaxis_name$(1, 2) = "(万元)     ": yaxis_format$(1) = "#0"
  
   For i = 1 To 2
    grnote_visible(i) = 0
    grpoint(i) = 0
   Next i
   For i = 1 To 2
   
    Lstyle(i) = 0: Pwidth(i) = 100: Pstyle(i) = i + 1: Lwidth(i) = 1 ''修改部分
   Next i
   Pstyle(3) = 3: Pstyle(4) = 4: Pcolor(1) = QBColor(12): Pcolor(2) = QBColor(12)
   Lcolor(1) = QBColor(12): Lcolor(2) = QBColor(3)
  'yaxis_min(1) = VarShuiHouLeiJiJing(1): yaxis_max(1) = VarShuiHouLeiJiJing(1)
   For i = 1 To VarPingJiaQi
  grpoint(1) = grpoint(1) + 1:  grpoint(2) = grpoint(2) + 1
   grdatx(1, grpoint(1)) = i: grdatx(2, grpoint(2)) = i  '第n-1条曲线，第n-1个x数据
    grdaty(1, grpoint(2)) = VarShuiHouJing(i)
    grdaty(2, i) = VarShuiHouLeiJiJing(i)
   
   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
   
   
   MSFlexGrid1.Visible = False
   Picture1.Visible = True
   Me.Picture1.Cls
   objBackColor = Me.Picture1.BackColor
   gr_type(1) = 2
   Call plotg_main(Me.Picture1)
   ''绘制面板
   pnote_y = 6900 * formbl_y: grnote_name$(1) = "年净现值": grnote_name$(2) = "累积净现值"
   For i = 1 To 2
    AX = (3700 + (i - 1) * 3000) * formbl_x
    AY = pnote_y
    Call post(AX, AY, Pwidth(i), Pcolor(i), Pstyle(i), Me.Picture1)
    Me.Picture1.FontName = "Arial": Me.Picture1.FontSize = grnote_fontsize * formbl_x * 1.15
    Me.Picture1.CurrentX = (3900 + (i - 1) * 3000) * formbl_x
    Me.Picture1.CurrentY = pnote_y - Me.TextHeight(grnote_name$(i)) / 2 '返回字符串高度
    Me.Picture1.Print grnote_name$(i)
   Next i
    
    ''将数据倒入网格
   MSFlexGrid1.Clear
   MSFlexGrid1.FormatString = "^时间|^年净现值|^累积净现值"
    MSFlexGrid1.Rows = VarPingJiaQi + 1: MSFlexGrid1.Cols = 3
    MSFlexGrid1.FixedCols = 0: MSFlexGrid1.FixedRows = 1
    MSFlexGrid1.RowHeightMin = 600:
    For i = 0 To 2
    MSFlexGrid1.ColAlignment(i) = 4: MSFlexGrid1.ColWidth(i) = 1600
    Next i
    For i = 1 To VarPingJiaQi
    MSFlexGrid1.TextMatrix(i, 0) = i: MSFlexGrid1.TextMatrix(i, 1) = Format$(grdaty(1, i), "0.000")
        MSFlexGrid1.TextMatrix(i, 2) = Format$(grdaty(2, i), "0.000"): 'MSFlexGrid1.TextMatrix(i, 3) = Format$(grdaty(3, i), "0.000")
       ' MSFlexGrid1.TextMatrix(i, 4) = Format$(VarLiRunZongE(i), "0.000")
    Next i
    symbol1 = 14

  
   
 End Sub
 Public Sub ZwJingXianZhiMGanTu()  '' "净现值敏感图"
 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 = -25#: xaxis_max = 25: xaxis_interval = 5
   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 - 1: Lwidth(i) = 1 ''修改部分
   Next i
   'Pstyle(3) = 5: Pstyle(4) = 6:
   Pcolor(1) = QBColor(12): Pcolor(2) = QBColor(9): Pcolor(3) = QBColor(11): Pcolor(4) = QBColor(3)
   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 9
    grpoint(1) = grpoint(1) + 1:  grpoint(2) = grpoint(2) + 1: grpoint(3) = grpoint(3) + 1: grpoint(4) = grpoint(4) + 1:
    grdatx(1, grpoint(1)) = -20 + (i - 1) * 5: grdatx(2, grpoint(2)) = -20 + (i - 1) * 5: grdatx(3, grpoint(3)) = -20 + (i - 1) * 5: grdatx(4, grpoint(4)) = -20 + (i - 1) * 5
    grdaty(1, grpoint(1)) = VarZwMInGan(2, i): grdaty(2, grpoint(2)) = VarZwMInGan(4, i): grdaty(3, grpoint(3)) = VarZwMInGan(6, i): grdaty(4, i) = VarZwMInGan(8, i)
   
     
   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
   
   
   MSFlexGrid1.Visible = False
   Picture1.Visible = True
   Me.Picture1.Cls
   objBackColor = Me.Picture1.BackColor
   
   Call plotg_main(Me.Picture1)
   ''绘制面板
   pnote_y = 6900 * formbl_y: grnote_name$(1) = "油  价": grnote_name$(2) = "增产油量": grnote_name$(3) = "化学剂量": grnote_name$(4) = "增量投资":
   For i = 1 To 4
    AX = (2900 + (i - 1) * 1500) * formbl_x
    AY = pnote_y
    Call post(AX, AY, Pwidth(i), Pcolor(i), Pstyle(i), Me.Picture1)
    Me.Picture1.FontName = "Arial": Me.Picture1.FontSize = grnote_fontsize * formbl_x * 1.15
    Me.Picture1.CurrentX = (3100 + (i - 1) * 1500) * formbl_x
    Me.Picture1.CurrentY = pnote_y - Me.TextHeight(grnote_name$(i)) / 2 '返回字符串高度
    Me.Picture1.Print grnote_name$(i)
   Next i


''将数据倒入网格
   MSFlexGrid1.Clear
   MSFlexGrid1.FormatString = "^变化率（％）|^油  价|^增产油量|^化学剂量|^增量投资"
    MSFlexGrid1.Rows = VarPingJiaQi + 1: MSFlexGrid1.Cols = 5
    MSFlexGrid1.FixedCols = 0: MSFlexGrid1.FixedRows = 1
    MSFlexGrid1.RowHeightMin = 600:
    For i = 0 To 4
    MSFlexGrid1.ColAlignment(i) = 4: MSFlexGrid1.ColWidth(i) = 1600
    Next i
    For i = 1 To VarPingJiaQi
    MSFlexGrid1.TextMatrix(i, 0) = -20 + 5 * (i - 1): MSFlexGrid1.TextMatrix(i, 1) = Format$(grdaty(1, i), "0.000")
        MSFlexGrid1.TextMatrix(i, 2) = Format$(grdaty(2, i), "0.000"): MSFlexGrid1.TextMatrix(i, 3) = Format$(grdaty(3, i), "0.000"): MSFlexGrid1.TextMatrix(i, 4) = Format$(grdaty(4, i), "0.000")
       ' MSFlexGrid1.TextMatrix(i, 4) = Format$(VarLiRunZongE(i), "0.000")
    Next i
    symbol1 = 16
 End Sub
 Public Sub shouyilvtu()  '' "收益率图"
 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)
上一页 1 2 3 45
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -