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

Question

本帖最后由 bcrun 于 2012-08-20 20:25:51 编辑

Answer 1

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
上下文不清楚,只能给这些注释了