关于价目器的代码，求高人写个注释

2012-12-14

关于报价器的代码，求高人写个注释本帖最后由 bcrun 于 2012-08-20 20:25:51 编辑Labelzong.Caption 应

关于报价器的代码，求高人写个注释
本帖最后由 bcrun 于 2012-08-20 20:25:51 编辑

            Labelzong.Caption = "应收：    " & Format(nLeijiAmt, "#######0.00") & " 元"
            Labelchenge.Caption = "找零：    " & Format(nYuAmt, "#######0.00") & " 元"
            ComdExit.SetFocus
        Else
            SSorder.Enabled = True
            SSorder.SetFocus
        End If
        gnResvSUNAP = 0
    Else
        LabelDoctor.Enabled = False
        SSorder.SetFocus
    End If

'    Call CashCard_Variable_Clear
'    Call Customer_Clear
    gStrTuYakNo = ""

Exit Sub

[最优解释]

GoSub InputData_Check
  If Check_PrWindow = "NO" Then Exit Sub   '这是什么控件?是checkbox??   总之就是它等于NO时不运行
    
  'GoSub Check_Ills '
    
  G7AMTCT = 0: G7AMTCT1 = 0 
    
  If Option1(1).Value = True Then
  Call Acc_Proc_Main((dtpBdate.Value), (ComboDept.Text), (ComboDoctor), "1")  '这是调用别的过程,根据Option1的选择来得出各种不同的数据
  ElseIf Option1(2).Value = True Then
  Call Acc_Proc_Main((dtpBdate.Value), (ComboDept.Text), (ComboDoctor), "2")
  ElseIf Option1(3).Value = True Then
  Call Acc_Proc_Main((dtpBdate.Value), (ComboDept.Text), (ComboDoctor), "3")
  Else
  Call Acc_Proc_Main((dtpBdate.Value), (ComboDept.Text), (ComboDoctor), "+")
  End If
  'Cts4x1.UseSoftsound = False 显示屏接口
  'Cts4x1.Speak "_H"
    
  FrmViewSunap.Show 1      '弹出一个窗口

  LabelYAmt.Caption = "发票金额 : " & gstrYoungSuAmt   '显示发票金额
    
  If gStrSunapRep = "OK" Then     
  Screen.MousePointer = 11       '移动鼠标到屏幕的某位置
  FrmSunapMain.Enabled = False
  PanelReport.Visible = True       '显示一个面板
  FrmSunapMain.Refresh
    
  'Cts4x1.Speak "_C"
    
  Call Sunap_Data_Process '处理一些数据
    
  gStrPtno = TOM.Ptno
  PanelReport.Visible = False     '处理完成后,不显示那个报告面板
  FrmSunapMain.Enabled = True
  Screen.MousePointer = 0
  'ssPtView.Visible = True
    
  If bSunapFlag = True Then 
 
  Call Ocs_Lock_Delete
  'Call SCREEN_CLEAR
  FrameChenge.Visible = True     '显示一个找零的框
  FrameChenge.Top = 0
  FrameChenge.Left = 1680        '定义框的位置
  CmdOK.Enabled = False
  CmdCancel.Enabled = False
  Labelshouqu.Caption = "实收： " & Format(nShouqu, "#######0.00") & " 元"
  Labelzong.Caption = "应收： " & Format(nLeijiAmt, "#######0.00") & " 元"
  Labelchenge.Caption = "找零： " & Format(nYuAmt, "#######0.00") & " 元"
  ComdExit.SetFocus         '显示上述的三个项目
  Else
  SSorder.Enabled = True
  SSorder.SetFocus
  End If
  gnResvSUNAP = 0
  Else
  LabelDoctor.Enabled = False
  SSorder.SetFocus
  End If
    
' Call CashCard_Variable_Clear
' Call Customer_Clear
  gStrTuYakNo = ""
    
Exit Sub

上下文不清楚,只能给这些注释了
[其他解释]
顶上来~~~~~~~~~~~~~·求高人
[其他解释]
这个似乎不是VB写的啊。
[其他解释]
这个似乎不是VB写的啊。
[其他解释]
是VB写的,单步跟踪可以了解功能
[其他解释]

引用:

VB code
GoSub InputData_Check
  If Check_PrWindow = "NO" Then Exit Sub   '这是什么控件?是checkbox??   总之就是它等于NO时不运行

  'GoSub Check_Ills '

  G7AMTCT = 0: G7AMTCT1 = 0

  If Option1(1).Value = ……

十分感谢！谢了！

热点排行