开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 打印编程 > 查看源码
frmInvoice.vb
资源名称：GOLDPRINT.rar　[点击查看]
上传用户：jx_fiona
上传日期：2014-03-08
资源大小：1387k
文件大小：50k
源码类别：

打印编程

开发平台：

Others

frmInvoice.vb：源码内容
  1. Public Class frmInvoice
  2.     Inherits System.Windows.Forms.Form
  4. #Region " Windows 窗体设计器生成的代码 "
  6.     Public Sub New()
  7.         MyBase.New()
  9.         '该调用是 Windows 窗体设计器所必需的。
  10.         InitializeComponent()
  12.         '在 InitializeComponent() 调用之后添加任何初始化
  14.     End Sub
  16.     '窗体重写 dispose 以清理组件列表。
  17.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  18.         If disposing Then
  19.             If Not (components Is Nothing) Then
  20.                 components.Dispose()
  21.             End If
  22.         End If
  23.         MyBase.Dispose(disposing)
  24.     End Sub
  26.     'Windows 窗体设计器所必需的
  27.     Private components As System.ComponentModel.IContainer
  29.     '注意: 以下过程是 Windows 窗体设计器所必需的
  30.     '可以使用 Windows 窗体设计器修改此过程。
  31.     '不要使用代码编辑器修改它。
  32.     Friend WithEvents txtTaxControlCode As System.Windows.Forms.TextBox
  33.     Friend WithEvents cldSelect As System.Windows.Forms.MonthCalendar
  34.     Friend WithEvents txtWriter As System.Windows.Forms.TextBox
  35.     Friend WithEvents btnCasePrint As System.Windows.Forms.Button
  36.     Friend WithEvents btnPreview As System.Windows.Forms.Button
  37.     Friend WithEvents btnPrint As System.Windows.Forms.Button
  38.     Friend WithEvents panel1 As System.Windows.Forms.Panel
  39.     Friend WithEvents cboTaxRate As System.Windows.Forms.ComboBox
  40.     Friend WithEvents label24 As System.Windows.Forms.Label
  41.     Friend WithEvents txtTaxLower As System.Windows.Forms.TextBox
  42.     Friend WithEvents txtTotalLower As System.Windows.Forms.TextBox
  43.     Friend WithEvents label20 As System.Windows.Forms.Label
  44.     Friend WithEvents label21 As System.Windows.Forms.Label
  45.     Friend WithEvents label19 As System.Windows.Forms.Label
  46.     Friend WithEvents txtTaxUpper As System.Windows.Forms.TextBox
  47.     Friend WithEvents label18 As System.Windows.Forms.Label
  48.     Friend WithEvents txtTotalUpper As System.Windows.Forms.TextBox
  49.     Friend WithEvents label16 As System.Windows.Forms.Label
  50.     Friend WithEvents label15 As System.Windows.Forms.Label
  51.     Friend WithEvents label14 As System.Windows.Forms.Label
  52.     Friend WithEvents txtMemo As System.Windows.Forms.TextBox
  53.     Friend WithEvents txtJ10 As System.Windows.Forms.TextBox
  54.     Friend WithEvents txtP10 As System.Windows.Forms.TextBox
  55.     Friend WithEvents txtJ9 As System.Windows.Forms.TextBox
  56.     Friend WithEvents txtP9 As System.Windows.Forms.TextBox
  57.     Friend WithEvents txtJ8 As System.Windows.Forms.TextBox
  58.     Friend WithEvents txtP8 As System.Windows.Forms.TextBox
  59.     Friend WithEvents txtJ7 As System.Windows.Forms.TextBox
  60.     Friend WithEvents txtP7 As System.Windows.Forms.TextBox
  61.     Friend WithEvents txtJ6 As System.Windows.Forms.TextBox
  62.     Friend WithEvents txtP6 As System.Windows.Forms.TextBox
  63.     Friend WithEvents txtJ5 As System.Windows.Forms.TextBox
  64.     Friend WithEvents txtP5 As System.Windows.Forms.TextBox
  65.     Friend WithEvents txtJ4 As System.Windows.Forms.TextBox
  66.     Friend WithEvents txtP4 As System.Windows.Forms.TextBox
  67.     Friend WithEvents txtJ3 As System.Windows.Forms.TextBox
  68.     Friend WithEvents txtP3 As System.Windows.Forms.TextBox
  69.     Friend WithEvents txtJ2 As System.Windows.Forms.TextBox
  70.     Friend WithEvents txtP2 As System.Windows.Forms.TextBox
  71.     Friend WithEvents txtJ1 As System.Windows.Forms.TextBox
  72.     Friend WithEvents txtP1 As System.Windows.Forms.TextBox
  73.     Friend WithEvents label34 As System.Windows.Forms.Label
  74.     Friend WithEvents label33 As System.Windows.Forms.Label
  75.     Friend WithEvents txtCollecterID As System.Windows.Forms.TextBox
  76.     Friend WithEvents txtInvoiceApplicationNo As System.Windows.Forms.TextBox
  77.     Friend WithEvents label31 As System.Windows.Forms.Label
  78.     Friend WithEvents label32 As System.Windows.Forms.Label
  79.     Friend WithEvents label29 As System.Windows.Forms.Label
  80.     Friend WithEvents label30 As System.Windows.Forms.Label
  81.     Friend WithEvents txtCollecterAddTel As System.Windows.Forms.TextBox
  82.     Friend WithEvents txtCollecter As System.Windows.Forms.TextBox
  83.     Friend WithEvents txtPayer As System.Windows.Forms.TextBox
  84.     Friend WithEvents pictureBox1 As System.Windows.Forms.PictureBox
  85.     Friend WithEvents label17 As System.Windows.Forms.Label
  86.     Friend WithEvents label13 As System.Windows.Forms.Label
  87.     Friend WithEvents label12 As System.Windows.Forms.Label
  88.     Friend WithEvents label11 As System.Windows.Forms.Label
  89.     Friend WithEvents label10 As System.Windows.Forms.Label
  90.     Friend WithEvents label9 As System.Windows.Forms.Label
  91.     Friend WithEvents label8 As System.Windows.Forms.Label
  92.     Friend WithEvents btnRefDate As System.Windows.Forms.Button
  93.     Friend WithEvents btnExit As System.Windows.Forms.Button
  94.     Friend WithEvents label23 As System.Windows.Forms.Label
  95.     Friend WithEvents label22 As System.Windows.Forms.Label
  96.     Friend WithEvents label7 As System.Windows.Forms.Label
  97.     Friend WithEvents label6 As System.Windows.Forms.Label
  98.     Friend WithEvents label5 As System.Windows.Forms.Label
  99.     Friend WithEvents txtDay As System.Windows.Forms.TextBox
  100.     Friend WithEvents txtMonth As System.Windows.Forms.TextBox
  101.     Friend WithEvents txtYear As System.Windows.Forms.TextBox
  102.     Friend WithEvents txtInvoiceSerialNo As System.Windows.Forms.TextBox
  103.     Friend WithEvents txtInvoiceCode As System.Windows.Forms.TextBox
  104.     Friend WithEvents label4 As System.Windows.Forms.Label
  105.     Friend WithEvents label3 As System.Windows.Forms.Label
  106.     Friend WithEvents label2 As System.Windows.Forms.Label
  107.     Friend WithEvents label1 As System.Windows.Forms.Label
  108.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  109.         Me.txtTaxControlCode = New System.Windows.Forms.TextBox
  110.         Me.cldSelect = New System.Windows.Forms.MonthCalendar
  111.         Me.txtWriter = New System.Windows.Forms.TextBox
  112.         Me.btnCasePrint = New System.Windows.Forms.Button
  113.         Me.btnPreview = New System.Windows.Forms.Button
  114.         Me.btnPrint = New System.Windows.Forms.Button
  115.         Me.panel1 = New System.Windows.Forms.Panel
  116.         Me.cboTaxRate = New System.Windows.Forms.ComboBox
  117.         Me.label24 = New System.Windows.Forms.Label
  118.         Me.txtTaxLower = New System.Windows.Forms.TextBox
  119.         Me.txtTotalLower = New System.Windows.Forms.TextBox
  120.         Me.label20 = New System.Windows.Forms.Label
  121.         Me.label21 = New System.Windows.Forms.Label
  122.         Me.label19 = New System.Windows.Forms.Label
  123.         Me.txtTaxUpper = New System.Windows.Forms.TextBox
  124.         Me.label18 = New System.Windows.Forms.Label
  125.         Me.txtTotalUpper = New System.Windows.Forms.TextBox
  126.         Me.label16 = New System.Windows.Forms.Label
  127.         Me.label15 = New System.Windows.Forms.Label
  128.         Me.label14 = New System.Windows.Forms.Label
  129.         Me.txtMemo = New System.Windows.Forms.TextBox
  130.         Me.txtJ10 = New System.Windows.Forms.TextBox
  131.         Me.txtP10 = New System.Windows.Forms.TextBox
  132.         Me.txtJ9 = New System.Windows.Forms.TextBox
  133.         Me.txtP9 = New System.Windows.Forms.TextBox
  134.         Me.txtJ8 = New System.Windows.Forms.TextBox
  135.         Me.txtP8 = New System.Windows.Forms.TextBox
  136.         Me.txtJ7 = New System.Windows.Forms.TextBox
  137.         Me.txtP7 = New System.Windows.Forms.TextBox
  138.         Me.txtJ6 = New System.Windows.Forms.TextBox
  139.         Me.txtP6 = New System.Windows.Forms.TextBox
  140.         Me.txtJ5 = New System.Windows.Forms.TextBox
  141.         Me.txtP5 = New System.Windows.Forms.TextBox
  142.         Me.txtJ4 = New System.Windows.Forms.TextBox
  143.         Me.txtP4 = New System.Windows.Forms.TextBox
  144.         Me.txtJ3 = New System.Windows.Forms.TextBox
  145.         Me.txtP3 = New System.Windows.Forms.TextBox
  146.         Me.txtJ2 = New System.Windows.Forms.TextBox
  147.         Me.txtP2 = New System.Windows.Forms.TextBox
  148.         Me.txtJ1 = New System.Windows.Forms.TextBox
  149.         Me.txtP1 = New System.Windows.Forms.TextBox
  150.         Me.label34 = New System.Windows.Forms.Label
  151.         Me.label33 = New System.Windows.Forms.Label
  152.         Me.txtCollecterID = New System.Windows.Forms.TextBox
  153.         Me.txtInvoiceApplicationNo = New System.Windows.Forms.TextBox
  154.         Me.label31 = New System.Windows.Forms.Label
  155.         Me.label32 = New System.Windows.Forms.Label
  156.         Me.label29 = New System.Windows.Forms.Label
  157.         Me.label30 = New System.Windows.Forms.Label
  158.         Me.txtCollecterAddTel = New System.Windows.Forms.TextBox
  159.         Me.txtCollecter = New System.Windows.Forms.TextBox
  160.         Me.txtPayer = New System.Windows.Forms.TextBox
  161.         Me.pictureBox1 = New System.Windows.Forms.PictureBox
  162.         Me.label17 = New System.Windows.Forms.Label
  163.         Me.label13 = New System.Windows.Forms.Label
  164.         Me.label12 = New System.Windows.Forms.Label
  165.         Me.label11 = New System.Windows.Forms.Label
  166.         Me.label10 = New System.Windows.Forms.Label
  167.         Me.label9 = New System.Windows.Forms.Label
  168.         Me.label8 = New System.Windows.Forms.Label
  169.         Me.btnRefDate = New System.Windows.Forms.Button
  170.         Me.btnExit = New System.Windows.Forms.Button
  171.         Me.label23 = New System.Windows.Forms.Label
  172.         Me.label22 = New System.Windows.Forms.Label
  173.         Me.label7 = New System.Windows.Forms.Label
  174.         Me.label6 = New System.Windows.Forms.Label
  175.         Me.label5 = New System.Windows.Forms.Label
  176.         Me.txtDay = New System.Windows.Forms.TextBox
  177.         Me.txtMonth = New System.Windows.Forms.TextBox
  178.         Me.txtYear = New System.Windows.Forms.TextBox
  179.         Me.txtInvoiceSerialNo = New System.Windows.Forms.TextBox
  180.         Me.txtInvoiceCode = New System.Windows.Forms.TextBox
  181.         Me.label4 = New System.Windows.Forms.Label
  182.         Me.label3 = New System.Windows.Forms.Label
  183.         Me.label2 = New System.Windows.Forms.Label
  184.         Me.label1 = New System.Windows.Forms.Label
  185.         Me.panel1.SuspendLayout()
  186.         Me.SuspendLayout()
  187.         '
  188.         'txtTaxControlCode
  189.         '
  190.         Me.txtTaxControlCode.Location = New System.Drawing.Point(62, 489)
  191.         Me.txtTaxControlCode.Name = "txtTaxControlCode"
  192.         Me.txtTaxControlCode.Size = New System.Drawing.Size(324, 21)
  193.         Me.txtTaxControlCode.TabIndex = 56
  194.         Me.txtTaxControlCode.Text = ""
  195.         '
  196.         'cldSelect
  197.         '
  198.         Me.cldSelect.Location = New System.Drawing.Point(169, 70)
  199.         Me.cldSelect.MaxDate = New Date(2999, 12, 31, 0, 0, 0, 0)
  200.         Me.cldSelect.MaxSelectionCount = 1
  201.         Me.cldSelect.MinDate = New Date(1949, 1, 1, 0, 0, 0, 0)
  202.         Me.cldSelect.Name = "cldSelect"
  203.         Me.cldSelect.TabIndex = 62
  204.         Me.cldSelect.TabStop = False
  205.         Me.cldSelect.Visible = False
  206.         '
  207.         'txtWriter
  208.         '
  209.         Me.txtWriter.Location = New System.Drawing.Point(458, 489)
  210.         Me.txtWriter.Name = "txtWriter"
  211.         Me.txtWriter.Size = New System.Drawing.Size(324, 21)
  212.         Me.txtWriter.TabIndex = 57
  213.         Me.txtWriter.Text = ""
  214.         '
  215.         'btnCasePrint
  216.         '
  217.         Me.btnCasePrint.Location = New System.Drawing.Point(400, 515)
  218.         Me.btnCasePrint.Name = "btnCasePrint"
  219.         Me.btnCasePrint.TabIndex = 58
  220.         Me.btnCasePrint.Tag = "套打"
  221.         Me.btnCasePrint.Text = "套打(&T)"
  222.         '
  223.         'btnPreview
  224.         '
  225.         Me.btnPreview.Location = New System.Drawing.Point(562, 515)
  226.         Me.btnPreview.Name = "btnPreview"
  227.         Me.btnPreview.TabIndex = 60
  228.         Me.btnPreview.Tag = "预览"
  229.         Me.btnPreview.Text = "预览(&V)"
  230.         '
  231.         'btnPrint
  232.         '
  233.         Me.btnPrint.Location = New System.Drawing.Point(480, 515)
  234.         Me.btnPrint.Name = "btnPrint"
  235.         Me.btnPrint.TabIndex = 59
  236.         Me.btnPrint.Tag = "打印"
  237.         Me.btnPrint.Text = "打印(&P)"
  238.         '
  239.         'panel1
  240.         '
  241.         Me.panel1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  242.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  243.         Me.panel1.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
  244.         Me.panel1.Controls.Add(Me.cboTaxRate)
  245.         Me.panel1.Controls.Add(Me.label24)
  246.         Me.panel1.Controls.Add(Me.txtTaxLower)
  247.         Me.panel1.Controls.Add(Me.txtTotalLower)
  248.         Me.panel1.Controls.Add(Me.label20)
  249.         Me.panel1.Controls.Add(Me.label21)
  250.         Me.panel1.Controls.Add(Me.label19)
  251.         Me.panel1.Controls.Add(Me.txtTaxUpper)
  252.         Me.panel1.Controls.Add(Me.label18)
  253.         Me.panel1.Controls.Add(Me.txtTotalUpper)
  254.         Me.panel1.Controls.Add(Me.label16)
  255.         Me.panel1.Controls.Add(Me.label15)
  256.         Me.panel1.Controls.Add(Me.label14)
  257.         Me.panel1.Controls.Add(Me.txtMemo)
  258.         Me.panel1.Controls.Add(Me.txtJ10)
  259.         Me.panel1.Controls.Add(Me.txtP10)
  260.         Me.panel1.Controls.Add(Me.txtJ9)
  261.         Me.panel1.Controls.Add(Me.txtP9)
  262.         Me.panel1.Controls.Add(Me.txtJ8)
  263.         Me.panel1.Controls.Add(Me.txtP8)
  264.         Me.panel1.Controls.Add(Me.txtJ7)
  265.         Me.panel1.Controls.Add(Me.txtP7)
  266.         Me.panel1.Controls.Add(Me.txtJ6)
  267.         Me.panel1.Controls.Add(Me.txtP6)
  268.         Me.panel1.Controls.Add(Me.txtJ5)
  269.         Me.panel1.Controls.Add(Me.txtP5)
  270.         Me.panel1.Controls.Add(Me.txtJ4)
  271.         Me.panel1.Controls.Add(Me.txtP4)
  272.         Me.panel1.Controls.Add(Me.txtJ3)
  273.         Me.panel1.Controls.Add(Me.txtP3)
  274.         Me.panel1.Controls.Add(Me.txtJ2)
  275.         Me.panel1.Controls.Add(Me.txtP2)
  276.         Me.panel1.Controls.Add(Me.txtJ1)
  277.         Me.panel1.Controls.Add(Me.txtP1)
  278.         Me.panel1.Controls.Add(Me.label34)
  279.         Me.panel1.Controls.Add(Me.label33)
  280.         Me.panel1.Controls.Add(Me.txtCollecterID)
  281.         Me.panel1.Controls.Add(Me.txtInvoiceApplicationNo)
  282.         Me.panel1.Controls.Add(Me.label31)
  283.         Me.panel1.Controls.Add(Me.label32)
  284.         Me.panel1.Controls.Add(Me.label29)
  285.         Me.panel1.Controls.Add(Me.label30)
  286.         Me.panel1.Controls.Add(Me.txtCollecterAddTel)
  287.         Me.panel1.Controls.Add(Me.txtCollecter)
  288.         Me.panel1.Controls.Add(Me.txtPayer)
  289.         Me.panel1.Controls.Add(Me.pictureBox1)
  290.         Me.panel1.Controls.Add(Me.label17)
  291.         Me.panel1.Controls.Add(Me.label13)
  292.         Me.panel1.Controls.Add(Me.label12)
  293.         Me.panel1.Controls.Add(Me.label11)
  294.         Me.panel1.Controls.Add(Me.label10)
  295.         Me.panel1.Controls.Add(Me.label9)
  296.         Me.panel1.Controls.Add(Me.label8)
  297.         Me.panel1.Location = New System.Drawing.Point(4, 95)
  298.         Me.panel1.Name = "panel1"
  299.         Me.panel1.Size = New System.Drawing.Size(784, 390)
  300.         Me.panel1.TabIndex = 50
  301.         '
  302.         'cboTaxRate
  303.         '
  304.         Me.cboTaxRate.Items.AddRange(New Object() {"7", "13", "15", "17"})
  305.         Me.cboTaxRate.Location = New System.Drawing.Point(616, 306)
  306.         Me.cboTaxRate.Name = "cboTaxRate"
  307.         Me.cboTaxRate.Size = New System.Drawing.Size(52, 20)
  308.         Me.cboTaxRate.TabIndex = 27
  309.         Me.cboTaxRate.TabStop = False
  310.         Me.cboTaxRate.Text = "7"
  311.         '
  312.         'label24
  313.         '
  314.         Me.label24.Location = New System.Drawing.Point(538, 306)
  315.         Me.label24.Name = "label24"
  316.         Me.label24.Size = New System.Drawing.Size(88, 22)
  317.         Me.label24.TabIndex = 68
  318.         Me.label24.Text = "税率设置(%)："
  319.         Me.label24.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
  320.         '
  321.         'txtTaxLower
  322.         '
  323.         Me.txtTaxLower.Location = New System.Drawing.Point(618, 362)
  324.         Me.txtTaxLower.Name = "txtTaxLower"
  325.         Me.txtTaxLower.Size = New System.Drawing.Size(158, 21)
  326.         Me.txtTaxLower.TabIndex = 31
  327.         Me.txtTaxLower.Text = ""
  328.         '
  329.         'txtTotalLower
  330.         '
  331.         Me.txtTotalLower.Location = New System.Drawing.Point(618, 336)
  332.         Me.txtTotalLower.Name = "txtTotalLower"
  333.         Me.txtTotalLower.Size = New System.Drawing.Size(158, 21)
  334.         Me.txtTotalLower.TabIndex = 29
  335.         Me.txtTotalLower.Text = ""
  336.         '
  337.         'label20
  338.         '
  339.         Me.label20.Location = New System.Drawing.Point(534, 362)
  340.         Me.label20.Name = "label20"
  341.         Me.label20.Size = New System.Drawing.Size(80, 18)
  342.         Me.label20.TabIndex = 63
  343.         Me.label20.Text = "完税凭证号码"
  344.         Me.label20.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  345.         '
  346.         'label21
  347.         '
  348.         Me.label21.Location = New System.Drawing.Point(534, 336)
  349.         Me.label21.Name = "label21"
  350.         Me.label21.Size = New System.Drawing.Size(80, 18)
  351.         Me.label21.TabIndex = 62
  352.         Me.label21.Text = "(小写)"
  353.         Me.label21.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  354.         '
  355.         'label19
  356.         '
  357.         Me.label19.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  358.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  359.         Me.label19.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
  360.         Me.label19.Location = New System.Drawing.Point(6, 356)
  361.         Me.label19.Name = "label19"
  362.         Me.label19.Size = New System.Drawing.Size(768, 3)
  363.         Me.label19.TabIndex = 61
  364.         '
  365.         'txtTaxUpper
  366.         '
  367.         Me.txtTaxUpper.Location = New System.Drawing.Point(114, 360)
  368.         Me.txtTaxUpper.Name = "txtTaxUpper"
  369.         Me.txtTaxUpper.Size = New System.Drawing.Size(416, 21)
  370.         Me.txtTaxUpper.TabIndex = 30
  371.         Me.txtTaxUpper.Text = ""
  372.         '
  373.         'label18
  374.         '
  375.         Me.label18.Location = New System.Drawing.Point(6, 362)
  376.         Me.label18.Name = "label18"
  377.         Me.label18.Size = New System.Drawing.Size(104, 18)
  378.         Me.label18.TabIndex = 59
  379.         Me.label18.Text = "税额(大写)"
  380.         Me.label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  381.         '
  382.         'txtTotalUpper
  383.         '
  384.         Me.txtTotalUpper.Location = New System.Drawing.Point(114, 334)
  385.         Me.txtTotalUpper.Name = "txtTotalUpper"
  386.         Me.txtTotalUpper.Size = New System.Drawing.Size(416, 21)
  387.         Me.txtTotalUpper.TabIndex = 28
  388.         Me.txtTotalUpper.Text = ""
  389.         '
  390.         'label16
  391.         '
  392.         Me.label16.Location = New System.Drawing.Point(6, 336)
  393.         Me.label16.Name = "label16"
  394.         Me.label16.Size = New System.Drawing.Size(104, 18)
  395.         Me.label16.TabIndex = 57
  396.         Me.label16.Text = "合计人民币(大写)"
  397.         Me.label16.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  398.         '
  399.         'label15
  400.         '
  401.         Me.label15.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  402.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  403.         Me.label15.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
  404.         Me.label15.Location = New System.Drawing.Point(6, 328)
  405.         Me.label15.Name = "label15"
  406.         Me.label15.Size = New System.Drawing.Size(768, 3)
  407.         Me.label15.TabIndex = 56
  408.         '
  409.         'label14
  410.         '
  411.         Me.label14.Location = New System.Drawing.Point(666, 308)
  412.         Me.label14.Name = "label14"
  413.         Me.label14.Size = New System.Drawing.Size(102, 18)
  414.         Me.label14.TabIndex = 55
  415.         Me.label14.Text = "代开单位盖章"
  416.         Me.label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  417.         '
  418.         'txtMemo
  419.         '
  420.         Me.txtMemo.Location = New System.Drawing.Point(538, 126)
  421.         Me.txtMemo.Multiline = True
  422.         Me.txtMemo.Name = "txtMemo"
  423.         Me.txtMemo.ScrollBars = System.Windows.Forms.ScrollBars.Both
  424.         Me.txtMemo.Size = New System.Drawing.Size(230, 178)
  425.         Me.txtMemo.TabIndex = 27
  426.         Me.txtMemo.Text = ""
  427.         '
  428.         'txtJ10
  429.         '
  430.         Me.txtJ10.Font = New System.Drawing.Font("宋体", 8.0!)
  431.         Me.txtJ10.Location = New System.Drawing.Point(440, 304)
  432.         Me.txtJ10.Name = "txtJ10"
  433.         Me.txtJ10.Size = New System.Drawing.Size(88, 20)
  434.         Me.txtJ10.TabIndex = 26
  435.         Me.txtJ10.Text = ""
  436.         Me.txtJ10.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
  437.         '
  438.         'txtP10
  439.         '
  440.         Me.txtP10.Font = New System.Drawing.Font("宋体", 8.0!)
  441.         Me.txtP10.Location = New System.Drawing.Point(6, 304)
  442.         Me.txtP10.Name = "txtP10"
  443.         Me.txtP10.Size = New System.Drawing.Size(430, 20)
  444.         Me.txtP10.TabIndex = 25
  445.         Me.txtP10.Text = ""
  446.         '
  447.         'txtJ9
  448.         '
  449.         Me.txtJ9.Font = New System.Drawing.Font("宋体", 8.0!)
  450.         Me.txtJ9.Location = New System.Drawing.Point(440, 284)
  451.         Me.txtJ9.Name = "txtJ9"
  452.         Me.txtJ9.Size = New System.Drawing.Size(88, 20)
  453.         Me.txtJ9.TabIndex = 24
  454.         Me.txtJ9.Text = ""
  455.         Me.txtJ9.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
  456.         '
  457.         'txtP9
  458.         '
  459.         Me.txtP9.Font = New System.Drawing.Font("宋体", 8.0!)
  460.         Me.txtP9.Location = New System.Drawing.Point(6, 284)
  461.         Me.txtP9.Name = "txtP9"
  462.         Me.txtP9.Size = New System.Drawing.Size(430, 20)
  463.         Me.txtP9.TabIndex = 23
  464.         Me.txtP9.Text = ""
  465.         '
  466.         'txtJ8
  467.         '
  468.         Me.txtJ8.Font = New System.Drawing.Font("宋体", 8.0!)
  469.         Me.txtJ8.Location = New System.Drawing.Point(440, 264)
  470.         Me.txtJ8.Name = "txtJ8"
  471.         Me.txtJ8.Size = New System.Drawing.Size(88, 20)
  472.         Me.txtJ8.TabIndex = 22
  473.         Me.txtJ8.Text = ""
  474.         Me.txtJ8.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
  475.         '
  476.         'txtP8
  477.         '
  478.         Me.txtP8.Font = New System.Drawing.Font("宋体", 8.0!)
  479.         Me.txtP8.Location = New System.Drawing.Point(6, 264)
  480.         Me.txtP8.Name = "txtP8"
  481.         Me.txtP8.Size = New System.Drawing.Size(430, 20)
  482.         Me.txtP8.TabIndex = 21
  483.         Me.txtP8.Text = ""
  484.         '
  485.         'txtJ7
  486.         '
  487.         Me.txtJ7.Font = New System.Drawing.Font("宋体", 8.0!)
  488.         Me.txtJ7.Location = New System.Drawing.Point(440, 244)
  489.         Me.txtJ7.Name = "txtJ7"
  490.         Me.txtJ7.Size = New System.Drawing.Size(88, 20)
  491.         Me.txtJ7.TabIndex = 20
  492.         Me.txtJ7.Text = ""
  493.         Me.txtJ7.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
  494.         '
  495.         'txtP7
  496.         '
  497.         Me.txtP7.Font = New System.Drawing.Font("宋体", 8.0!)
  498.         Me.txtP7.Location = New System.Drawing.Point(6, 244)
  499.         Me.txtP7.Name = "txtP7"
  500.         Me.txtP7.Size = New System.Drawing.Size(430, 20)
  501.         Me.txtP7.TabIndex = 19
  502.         Me.txtP7.Text = ""
  503.         '
  504.         'txtJ6
  505.         '
  506.         Me.txtJ6.Font = New System.Drawing.Font("宋体", 8.0!)
  507.         Me.txtJ6.Location = New System.Drawing.Point(440, 224)
  508.         Me.txtJ6.Name = "txtJ6"
  509.         Me.txtJ6.Size = New System.Drawing.Size(88, 20)
  510.         Me.txtJ6.TabIndex = 18
  511.         Me.txtJ6.Text = ""
  512.         Me.txtJ6.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
  513.         '
  514.         'txtP6
  515.         '
  516.         Me.txtP6.Font = New System.Drawing.Font("宋体", 8.0!)
  517.         Me.txtP6.Location = New System.Drawing.Point(6, 224)
  518.         Me.txtP6.Name = "txtP6"
  519.         Me.txtP6.Size = New System.Drawing.Size(430, 20)
  520.         Me.txtP6.TabIndex = 17
  521.         Me.txtP6.Text = ""
  522.         '
  523.         'txtJ5
  524.         '
  525.         Me.txtJ5.Font = New System.Drawing.Font("宋体", 8.0!)
  526.         Me.txtJ5.Location = New System.Drawing.Point(440, 204)
  527.         Me.txtJ5.Name = "txtJ5"
  528.         Me.txtJ5.Size = New System.Drawing.Size(88, 20)
  529.         Me.txtJ5.TabIndex = 16
  530.         Me.txtJ5.Text = ""
  531.         Me.txtJ5.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
  532.         '
  533.         'txtP5
  534.         '
  535.         Me.txtP5.Font = New System.Drawing.Font("宋体", 8.0!)
  536.         Me.txtP5.Location = New System.Drawing.Point(6, 204)
  537.         Me.txtP5.Name = "txtP5"
  538.         Me.txtP5.Size = New System.Drawing.Size(430, 20)
  539.         Me.txtP5.TabIndex = 15
  540.         Me.txtP5.Text = ""
  541.         '
  542.         'txtJ4
  543.         '
  544.         Me.txtJ4.Font = New System.Drawing.Font("宋体", 8.0!)
  545.         Me.txtJ4.Location = New System.Drawing.Point(440, 184)
  546.         Me.txtJ4.Name = "txtJ4"
  547.         Me.txtJ4.Size = New System.Drawing.Size(88, 20)
  548.         Me.txtJ4.TabIndex = 14
  549.         Me.txtJ4.Text = ""
  550.         Me.txtJ4.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
  551.         '
  552.         'txtP4
  553.         '
  554.         Me.txtP4.Font = New System.Drawing.Font("宋体", 8.0!)
  555.         Me.txtP4.Location = New System.Drawing.Point(6, 184)
  556.         Me.txtP4.Name = "txtP4"
  557.         Me.txtP4.Size = New System.Drawing.Size(430, 20)
  558.         Me.txtP4.TabIndex = 13
  559.         Me.txtP4.Text = ""
  560.         '
  561.         'txtJ3
  562.         '
  563.         Me.txtJ3.Font = New System.Drawing.Font("宋体", 8.0!)
  564.         Me.txtJ3.Location = New System.Drawing.Point(440, 164)
  565.         Me.txtJ3.Name = "txtJ3"
  566.         Me.txtJ3.Size = New System.Drawing.Size(88, 20)
  567.         Me.txtJ3.TabIndex = 12
  568.         Me.txtJ3.Text = ""
  569.         Me.txtJ3.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
  570.         '
  571.         'txtP3
  572.         '
  573.         Me.txtP3.Font = New System.Drawing.Font("宋体", 8.0!)
  574.         Me.txtP3.Location = New System.Drawing.Point(6, 164)
  575.         Me.txtP3.Name = "txtP3"
  576.         Me.txtP3.Size = New System.Drawing.Size(430, 20)
  577.         Me.txtP3.TabIndex = 11
  578.         Me.txtP3.Text = ""
  579.         '
  580.         'txtJ2
  581.         '
  582.         Me.txtJ2.Font = New System.Drawing.Font("宋体", 8.0!)
  583.         Me.txtJ2.Location = New System.Drawing.Point(440, 144)
  584.         Me.txtJ2.Name = "txtJ2"
  585.         Me.txtJ2.Size = New System.Drawing.Size(88, 20)
  586.         Me.txtJ2.TabIndex = 10
  587.         Me.txtJ2.Text = ""
  588.         Me.txtJ2.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
  589.         '
  590.         'txtP2
  591.         '
  592.         Me.txtP2.Font = New System.Drawing.Font("宋体", 8.0!)
  593.         Me.txtP2.Location = New System.Drawing.Point(6, 144)
  594.         Me.txtP2.Name = "txtP2"
  595.         Me.txtP2.Size = New System.Drawing.Size(430, 20)
  596.         Me.txtP2.TabIndex = 9
  597.         Me.txtP2.Text = ""
  598.         '
  599.         'txtJ1
  600.         '
  601.         Me.txtJ1.Font = New System.Drawing.Font("宋体", 8.0!)
  602.         Me.txtJ1.Location = New System.Drawing.Point(440, 124)
  603.         Me.txtJ1.Name = "txtJ1"
  604.         Me.txtJ1.Size = New System.Drawing.Size(88, 20)
  605.         Me.txtJ1.TabIndex = 8
  606.         Me.txtJ1.Text = ""
  607.         Me.txtJ1.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
  608.         '
  609.         'txtP1
  610.         '
  611.         Me.txtP1.Font = New System.Drawing.Font("宋体", 8.0!)
  612.         Me.txtP1.Location = New System.Drawing.Point(6, 124)
  613.         Me.txtP1.Name = "txtP1"
  614.         Me.txtP1.Size = New System.Drawing.Size(430, 20)
  615.         Me.txtP1.TabIndex = 7
  616.         Me.txtP1.Text = ""
  617.         '
  618.         'label34
  619.         '
  620.         Me.label34.Location = New System.Drawing.Point(538, 94)
  621.         Me.label34.Name = "label34"
  622.         Me.label34.Size = New System.Drawing.Size(230, 22)
  623.         Me.label34.TabIndex = 33
  624.         Me.label34.Text = "备           注"
  625.         Me.label34.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  626.         '
  627.         'label33
  628.         '
  629.         Me.label33.Location = New System.Drawing.Point(8, 94)
  630.         Me.label33.Name = "label33"
  631.         Me.label33.Size = New System.Drawing.Size(520, 22)
  632.         Me.label33.TabIndex = 32
  633.         Me.label33.Text = "品       目       及       金       额"
  634.         Me.label33.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  635.         '
  636.         'txtCollecterID
  637.         '
  638.         Me.txtCollecterID.Location = New System.Drawing.Point(494, 58)
  639.         Me.txtCollecterID.Name = "txtCollecterID"
  640.         Me.txtCollecterID.Size = New System.Drawing.Size(282, 21)
  641.         Me.txtCollecterID.TabIndex = 6
  642.         Me.txtCollecterID.Text = ""
  643.         '
  644.         'txtInvoiceApplicationNo
  645.         '
  646.         Me.txtInvoiceApplicationNo.Location = New System.Drawing.Point(494, 18)
  647.         Me.txtInvoiceApplicationNo.Name = "txtInvoiceApplicationNo"
  648.         Me.txtInvoiceApplicationNo.Size = New System.Drawing.Size(282, 21)
  649.         Me.txtInvoiceApplicationNo.TabIndex = 3
  650.         Me.txtInvoiceApplicationNo.Text = ""
  651.         '
  652.         'label31
  653.         '
  654.         Me.label31.Location = New System.Drawing.Point(398, 70)
  655.         Me.label31.Name = "label31"
  656.         Me.label31.Size = New System.Drawing.Size(92, 18)
  657.         Me.label31.TabIndex = 29
  658.         Me.label31.Text = "或 证 件 号 码"
  659.         Me.label31.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  660.         '
  661.         'label32
  662.         '
  663.         Me.label32.Location = New System.Drawing.Point(398, 50)
  664.         Me.label32.Name = "label32"
  665.         Me.label32.Size = New System.Drawing.Size(92, 18)
  666.         Me.label32.TabIndex = 28
  667.         Me.label32.Text = "收款方识别号"
  668.         Me.label32.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  669.         '
  670.         'label29
  671.         '
  672.         Me.label29.Location = New System.Drawing.Point(398, 26)
  673.         Me.label29.Name = "label29"
  674.         Me.label29.Size = New System.Drawing.Size(92, 18)
  675.         Me.label29.TabIndex = 27
  676.         Me.label29.Text = "申 请 表 号 码"
  677.         Me.label29.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  678.         '
  679.         'label30
  680.         '
  681.         Me.label30.Location = New System.Drawing.Point(398, 6)
  682.         Me.label30.Name = "label30"
  683.         Me.label30.Size = New System.Drawing.Size(92, 18)
  684.         Me.label30.TabIndex = 26
  685.         Me.label30.Text = "代开普通发票"
  686.         Me.label30.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  687.         '
  688.         'txtCollecterAddTel
  689.         '
  690.         Me.txtCollecterAddTel.Location = New System.Drawing.Point(104, 68)
  691.         Me.txtCollecterAddTel.Name = "txtCollecterAddTel"
  692.         Me.txtCollecterAddTel.Size = New System.Drawing.Size(282, 21)
  693.         Me.txtCollecterAddTel.TabIndex = 5
  694.         Me.txtCollecterAddTel.Text = ""
  695.         '
  696.         'txtCollecter
  697.         '
  698.         Me.txtCollecter.Location = New System.Drawing.Point(104, 48)
  699.         Me.txtCollecter.Name = "txtCollecter"
  700.         Me.txtCollecter.Size = New System.Drawing.Size(282, 21)
  701.         Me.txtCollecter.TabIndex = 4
  702.         Me.txtCollecter.Text = ""
  703.         '
  704.         'txtPayer
  705.         '
  706.         Me.txtPayer.Location = New System.Drawing.Point(104, 12)
  707.         Me.txtPayer.Name = "txtPayer"
  708.         Me.txtPayer.Size = New System.Drawing.Size(282, 21)
  709.         Me.txtPayer.TabIndex = 2
  710.         Me.txtPayer.Text = ""
  711.         '
  712.         'pictureBox1
  713.         '
  714.         Me.pictureBox1.Location = New System.Drawing.Point(390, 8)
  715.         Me.pictureBox1.Name = "pictureBox1"
  716.         Me.pictureBox1.Size = New System.Drawing.Size(3, 80)
  717.         Me.pictureBox1.TabIndex = 22
  718.         Me.pictureBox1.TabStop = False
  719.         '
  720.         'label17
  721.         '
  722.         Me.label17.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  723.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  724.         Me.label17.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
  725.         Me.label17.Location = New System.Drawing.Point(6, 116)
  726.         Me.label17.Name = "label17"
  727.         Me.label17.Size = New System.Drawing.Size(768, 3)
  728.         Me.label17.TabIndex = 10
  729.         '
  730.         'label13
  731.         '
  732.         Me.label13.Location = New System.Drawing.Point(8, 70)
  733.         Me.label13.Name = "label13"
  734.         Me.label13.Size = New System.Drawing.Size(92, 18)
  735.         Me.label13.TabIndex = 6
  736.         Me.label13.Text = "及地址、电话"
  737.         Me.label13.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  738.         '
  739.         'label12
  740.         '
  741.         Me.label12.Location = New System.Drawing.Point(8, 50)
  742.         Me.label12.Name = "label12"
  743.         Me.label12.Size = New System.Drawing.Size(92, 18)
  744.         Me.label12.TabIndex = 5
  745.         Me.label12.Text = "收款方名称"
  746.         Me.label12.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  747.         '
  748.         'label11
  749.         '
  750.         Me.label11.Location = New System.Drawing.Point(8, 6)
  751.         Me.label11.Name = "label11"
  752.         Me.label11.Size = New System.Drawing.Size(92, 36)
  753.         Me.label11.TabIndex = 4
  754.         Me.label11.Text = "付款方名称"
  755.         Me.label11.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  756.         '
  757.         'label10
  758.         '
  759.         Me.label10.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  760.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  761.         Me.label10.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
  762.         Me.label10.Location = New System.Drawing.Point(6, 88)
  763.         Me.label10.Name = "label10"
  764.         Me.label10.Size = New System.Drawing.Size(768, 3)
  765.         Me.label10.TabIndex = 2
  766.         Me.label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  767.         '
  768.         'label9
  769.         '
  770.         Me.label9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  771.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  772.         Me.label9.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
  773.         Me.label9.Location = New System.Drawing.Point(6, 44)
  774.         Me.label9.Name = "label9"
  775.         Me.label9.Size = New System.Drawing.Size(768, 3)
  776.         Me.label9.TabIndex = 1
  777.         '
  778.         'label8
  779.         '
  780.         Me.label8.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  781.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  782.         Me.label8.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
  783.         Me.label8.Location = New System.Drawing.Point(4, -10)
  784.         Me.label8.Name = "label8"
  785.         Me.label8.Size = New System.Drawing.Size(768, 10)
  786.         Me.label8.TabIndex = 0
  787.         '
  788.         'btnRefDate
  789.         '
  790.         Me.btnRefDate.Location = New System.Drawing.Point(134, 69)
  791.         Me.btnRefDate.Name = "btnRefDate"
  792.         Me.btnRefDate.Size = New System.Drawing.Size(32, 23)
  793.         Me.btnRefDate.TabIndex = 40
  794.         Me.btnRefDate.TabStop = False
  795.         Me.btnRefDate.Text = "..."
  796.         '
  797.         'btnExit
  798.         '
  799.         Me.btnExit.DialogResult = System.Windows.Forms.DialogResult.Cancel
  800.         Me.btnExit.Location = New System.Drawing.Point(708, 515)
  801.         Me.btnExit.Name = "btnExit"
  802.         Me.btnExit.TabIndex = 61
  803.         Me.btnExit.Text = "退出(&X)"
  804.         '
  805.         'label23
  806.         '
  807.         Me.label23.Location = New System.Drawing.Point(402, 489)
  808.         Me.label23.Name = "label23"
  809.         Me.label23.Size = New System.Drawing.Size(54, 22)
  810.         Me.label23.TabIndex = 55
  811.         Me.label23.Text = "开票人："
  812.         Me.label23.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
  813.         '
  814.         'label22
  815.         '
  816.         Me.label22.Location = New System.Drawing.Point(6, 489)
  817.         Me.label22.Name = "label22"
  818.         Me.label22.Size = New System.Drawing.Size(54, 22)
  819.         Me.label22.TabIndex = 54
  820.         Me.label22.Text = "税控码："
  821.         Me.label22.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
  822.         '
  823.         'label7
  824.         '
  825.         Me.label7.Location = New System.Drawing.Point(112, 71)
  826.         Me.label7.Name = "label7"
  827.         Me.label7.Size = New System.Drawing.Size(16, 20)
  828.         Me.label7.TabIndex = 53
  829.         Me.label7.Text = "日"
  830.         Me.label7.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  831.         '
  832.         'label6
  833.         '
  834.         Me.label6.Location = New System.Drawing.Point(72, 71)
  835.         Me.label6.Name = "label6"
  836.         Me.label6.Size = New System.Drawing.Size(16, 20)
  837.         Me.label6.TabIndex = 52
  838.         Me.label6.Text = "月"
  839.         Me.label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  840.         '
  841.         'label5
  842.         '
  843.         Me.label5.Location = New System.Drawing.Point(36, 71)
  844.         Me.label5.Name = "label5"
  845.         Me.label5.Size = New System.Drawing.Size(16, 20)
  846.         Me.label5.TabIndex = 51
  847.         Me.label5.Text = "年"
  848.         Me.label5.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  849.         '
  850.         'txtDay
  851.         '
  852.         Me.txtDay.Location = New System.Drawing.Point(88, 69)
  853.         Me.txtDay.Name = "txtDay"
  854.         Me.txtDay.ReadOnly = True
  855.         Me.txtDay.Size = New System.Drawing.Size(20, 21)
  856.         Me.txtDay.TabIndex = 41
  857.         Me.txtDay.TabStop = False
  858.         Me.txtDay.Text = "01"
  859.         '
  860.         'txtMonth
  861.         '
  862.         Me.txtMonth.Location = New System.Drawing.Point(52, 69)
  863.         Me.txtMonth.Name = "txtMonth"
  864.         Me.txtMonth.ReadOnly = True
  865.         Me.txtMonth.Size = New System.Drawing.Size(20, 21)
  866.         Me.txtMonth.TabIndex = 42
  867.         Me.txtMonth.TabStop = False
  868.         Me.txtMonth.Text = "01"
  869.         '
  870.         'txtYear
  871.         '
  872.         Me.txtYear.Location = New System.Drawing.Point(4, 69)
  873.         Me.txtYear.Name = "txtYear"
  874.         Me.txtYear.ReadOnly = True
  875.         Me.txtYear.Size = New System.Drawing.Size(32, 21)
  876.         Me.txtYear.TabIndex = 43
  877.         Me.txtYear.TabStop = False
  878.         Me.txtYear.Text = "2005"
  879.         '
  880.         'txtInvoiceSerialNo
  881.         '
  882.         Me.txtInvoiceSerialNo.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  883.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  884.         Me.txtInvoiceSerialNo.Location = New System.Drawing.Point(592, 61)
  885.         Me.txtInvoiceSerialNo.Name = "txtInvoiceSerialNo"
  886.         Me.txtInvoiceSerialNo.Size = New System.Drawing.Size(184, 21)
  887.         Me.txtInvoiceSerialNo.TabIndex = 47
  888.         Me.txtInvoiceSerialNo.Text = ""
  889.         '
  890.         'txtInvoiceCode
  891.         '
  892.         Me.txtInvoiceCode.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  893.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  894.         Me.txtInvoiceCode.Location = New System.Drawing.Point(592, 37)
  895.         Me.txtInvoiceCode.Name = "txtInvoiceCode"
  896.         Me.txtInvoiceCode.Size = New System.Drawing.Size(184, 21)
  897.         Me.txtInvoiceCode.TabIndex = 44
  898.         Me.txtInvoiceCode.Text = ""
  899.         '
  900.         'label4
  901.         '
  902.         Me.label4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  903.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  904.         Me.label4.Location = New System.Drawing.Point(528, 65)
  905.         Me.label4.Name = "label4"
  906.         Me.label4.Size = New System.Drawing.Size(124, 23)
  907.         Me.label4.TabIndex = 49
  908.         Me.label4.Text = "发票号码："
  909.         '
  910.         'label3
  911.         '
  912.         Me.label3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  913.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  914.         Me.label3.Location = New System.Drawing.Point(528, 41)
  915.         Me.label3.Name = "label3"
  916.         Me.label3.Size = New System.Drawing.Size(124, 23)
  917.         Me.label3.TabIndex = 48
  918.         Me.label3.Text = "发票代码："
  919.         '
  920.         'label2
  921.         '
  922.         Me.label2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  923.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  924.         Me.label2.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
  925.         Me.label2.Location = New System.Drawing.Point(8, 31)
  926.         Me.label2.Name = "label2"
  927.         Me.label2.Size = New System.Drawing.Size(776, 32)
  928.         Me.label2.TabIndex = 46
  929.         Me.label2.Text = "记  账  联"
  930.         Me.label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  931.         '
  932.         'label1
  933.         '
  934.         Me.label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
  935.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  936.         Me.label1.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
  937.         Me.label1.Location = New System.Drawing.Point(8, 5)
  938.         Me.label1.Name = "label1"
  939.         Me.label1.Size = New System.Drawing.Size(776, 32)
  940.         Me.label1.TabIndex = 45
  941.         Me.label1.Text = "税 务 机 关 代 开 统 一 发 票（国 税）"
  942.         Me.label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
  943.         '
  944.         'frmInvoice
  945.         '
  946.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  947.         Me.ClientSize = New System.Drawing.Size(792, 542)
  948.         Me.Controls.Add(Me.txtTaxControlCode)
  949.         Me.Controls.Add(Me.txtWriter)
  950.         Me.Controls.Add(Me.txtDay)
  951.         Me.Controls.Add(Me.txtMonth)
  952.         Me.Controls.Add(Me.txtYear)
  953.         Me.Controls.Add(Me.txtInvoiceSerialNo)
  954.         Me.Controls.Add(Me.txtInvoiceCode)
  955.         Me.Controls.Add(Me.cldSelect)
  956.         Me.Controls.Add(Me.btnCasePrint)
  957.         Me.Controls.Add(Me.btnPreview)
  958.         Me.Controls.Add(Me.btnPrint)
  959.         Me.Controls.Add(Me.panel1)
  960.         Me.Controls.Add(Me.btnRefDate)
  961.         Me.Controls.Add(Me.btnExit)
  962.         Me.Controls.Add(Me.label23)
  963.         Me.Controls.Add(Me.label22)
  964.         Me.Controls.Add(Me.label7)
  965.         Me.Controls.Add(Me.label6)
  966.         Me.Controls.Add(Me.label5)
  967.         Me.Controls.Add(Me.label4)
  968.         Me.Controls.Add(Me.label3)
  969.         Me.Controls.Add(Me.label2)
  970.         Me.Controls.Add(Me.label1)
  971.         Me.KeyPreview = True
  972.         Me.Name = "frmInvoice"
  973.         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
  974.         Me.Text = "黑龙江省大庆市国家税务局[代 开 统 一 发 票（国 税）]"
  975.         Me.panel1.ResumeLayout(False)
  976.         Me.ResumeLayout(False)
  978.     End Sub
  980. #End Region
  982.     Enum PrintFlag
  983.         CasePrint       '套打，只打印没有印刷的部分
  984.         PrintAll        '打印全部
  985.         PreviewAll      '预览全部
  986.     End Enum
  988.     Private Sub Print_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPreview.Click, btnPrint.Click, btnCasePrint.Click
  989.         Dim btn As Button = CType(sender, Button)
  991.         Select Case btn.Tag.ToString()
  992.             Case "套打"
  993.                 Print(PrintFlag.CasePrint)
  994.             Case "打印"
  995.                 Print(PrintFlag.PrintAll)
  996.             Case "预览"
  997.                 Print(PrintFlag.PreviewAll)
  998.         End Select
  999.     End Sub
  1001.     '套打、打印预览实现
  1002.     Private Sub Print(ByVal p_printFlag As PrintFlag)
  1004.         '制作步骤：
  1005.         '/* 1、用Excel作出与要打印的样式一样的电子表格存为模板；
  1006.         ' *     技巧：最好把第一行与第一列作为空行，以利于调整边距（虽然Excel、打印机可调整页边距）， 尽量的在需要调整的地方多空几行与几列，以利于调整套打对准
  1007.         ' * 
  1008.         ' *  2、如同本程序一样，将Excel作为套打的模板，直接将要打印的数据写入；
  1009.         ' * 
  1010.         ' *  3、打印，根据实际的效果调整Excel模板行高列宽及空出的行列， 直到能够准确的套上。将模板拷贝一份，清除模板上的文字也网格线，做成套打的模板。
  1011.         ' */
  1013.         '用Excel打印，步骤为：打开、写数据、打印预览、关闭
  1014.         Dim excel As New GoldPrinter.ExcelAccess
  1015.         Dim strFileName As String = "invoice.xlt"   '模板文件名
  1017.         If (p_printFlag = PrintFlag.CasePrint) Then
  1018.             strFileName = "invoiceCase.xlt"         '套打模板文件名
  1019.         End If
  1020.         Dim strExcelTemplateFile As String = System.IO.Path.GetFullPath("..ExcelTemplate" + strFileName)
  1022.         excel.Open(strExcelTemplateFile)            '用模板文件
  1023.         excel.IsVisibledExcel = True
  1024.         excel.FormCaption = "税 务 机 关 代 开 统 一 发 票（国 税）" '"MIS金质打印通  通打天下报表"
  1027.         '在模板中写入要打印的数据
  1029.         '***发票抬头***
  1031.         '年月日
  1032.         excel.SetCellText(7, "B", txtYear.Text + "年" + txtMonth.Text + "月" + txtDay.Text + "日")
  1034.         '付款方名称
  1035.         excel.SetCellText(8, "D", txtPayer.Text)
  1036.         '收款方名称
  1037.         excel.SetCellText(9, "D", txtCollecter.Text)
  1038.         '及地址、电话
  1039.         excel.SetCellText(11, "D", txtCollecterAddTel.Text)
  1042.         ' 代开普通发票    申 请 表 号 码
  1043.         excel.SetCellText(8, "J", txtInvoiceApplicationNo.Text)
  1044.         '收款方识别号或 证 件 号 码
  1045.         excel.SetCellText(9, "J", txtCollecterID.Text)
  1048.         '***品名及金额、备注***
  1049.         'B14到B23是品名   F14到F23为金额
  1051.         excel.SetCellText(14, "B", txtP1.Text)
  1052.         excel.SetCellText(14, "F", txtJ1.Text)
  1054.         excel.SetCellText(15, "B", txtP2.Text)
  1055.         excel.SetCellText(15, "F", txtJ2.Text)
  1057.         excel.SetCellText(16, "B", txtP3.Text)
  1058.         excel.SetCellText(16, "F", txtJ3.Text)
  1060.         excel.SetCellText(17, "B", txtP4.Text)
  1061.         excel.SetCellText(17, "F", txtJ4.Text)
  1063.         excel.SetCellText(18, "B", txtP5.Text)
  1064.         excel.SetCellText(18, "F", txtJ5.Text)
  1066.         excel.SetCellText(19, "B", txtP6.Text)
  1067.         excel.SetCellText(19, "F", txtJ6.Text)
  1069.         excel.SetCellText(20, "B", txtP7.Text)
  1070.         excel.SetCellText(20, "F", txtJ7.Text)
  1072.         excel.SetCellText(21, "B", txtP8.Text)
  1073.         excel.SetCellText(21, "F", txtJ8.Text)
  1075.         excel.SetCellText(22, "B", txtP9.Text)
  1076.         excel.SetCellText(22, "F", txtJ9.Text)
  1078.         excel.SetCellText(23, "B", txtP10.Text)
  1079.         excel.SetCellText(23, "F", txtJ10.Text)
  1082.         '备注
  1083.         excel.SetCellText(14, "I", txtMemo.Text)
  1087.         '***发票总金额***
  1089.         '合计人民币   （大写）
  1090.         excel.SetCellText(24, "D", txtTotalUpper.Text)
  1091.         '合计人民币   （小写）
  1092.         excel.SetCellText(24, "K", txtTotalLower.Text)
  1095.         '税额   （大写）
  1096.         excel.SetCellText(25, "D", txtTaxUpper.Text)
  1097.         '税额   （小写）
  1098.         excel.SetCellText(25, "L", txtTaxLower.Text)
  1101.         '***发票尾***
  1102.         '税控码
  1103.         excel.SetCellText(26, "C", txtTaxControlCode.Text)
  1104.         '开票人：
  1105.         excel.SetCellText(26, "H", txtWriter.Text)
  1109.         If (p_printFlag = PrintFlag.CasePrint Or p_printFlag = PrintFlag.PrintAll) Then
  1110.             excel.Print()           '打印
  1111.         Else
  1112.             excel.PrintPreview()    '预览
  1113.         End If
  1114.         excel.Close()               '关闭并释放
  1116.     End Sub
  1119.     Private Sub frmInvoice_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
  1120.         '初始当日日期
  1121.         Dim dt As System.DateTime = System.DateTime.Now
  1122.         SetToday(dt)
  1123.     End Sub
  1125.     Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
  1126.         Me.Close()
  1127.     End Sub
  1130.     '回车
  1131.     Private Sub frmInvoice_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
  1132.         If (e.KeyChar = vbCr) Then
  1133.             SendKeys.Send("{TAB}")
  1134.         End If
  1136.     End Sub
  1139.     '金额小写转人民币大写
  1140.     Private Sub txtTotalLower_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTotalLower.KeyUp
  1141.         SetUpperMoney()
  1142.     End Sub
  1145.     '重新总计
  1146.     Private Sub txtJX_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtJ1.TextChanged, txtJ2.TextChanged, txtJ3.TextChanged, txtJ4.TextChanged, txtJ5.TextChanged, txtJ6.TextChanged, txtJ7.TextChanged, txtJ8.TextChanged, txtJ9.TextChanged, txtJ10.TextChanged
  1147.         Dim dblMoney As Double = 0
  1149.         dblMoney += GetInputMoney(txtJ1.Text)
  1150.         dblMoney += GetInputMoney(txtJ2.Text)
  1151.         dblMoney += GetInputMoney(txtJ3.Text)
  1152.         dblMoney += GetInputMoney(txtJ4.Text)
  1153.         dblMoney += GetInputMoney(txtJ5.Text)
  1154.         dblMoney += GetInputMoney(txtJ6.Text)
  1155.         dblMoney += GetInputMoney(txtJ7.Text)
  1156.         dblMoney += GetInputMoney(txtJ8.Text)
  1157.         dblMoney += GetInputMoney(txtJ9.Text)
  1158.         dblMoney += GetInputMoney(txtJ10.Text)
  1160.         txtTotalLower.Text = dblMoney.ToString()
  1161.         SetUpperMoney()
  1163.     End Sub
  1166.     '改变税率重算
  1167.     Private Sub cboTaxRate_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboTaxRate.TextChanged
  1168.         SetUpperMoney()
  1169.     End Sub
  1171.     Private Sub btnRefDate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefDate.Click
  1172.         cldSelect.Visible = True
  1173.         cldSelect.SetDate(New DateTime(Int32.Parse(txtYear.Text), Int32.Parse(txtMonth.Text), Int32.Parse(txtDay.Text)))
  1174.         cldSelect.Focus()
  1175.     End Sub
  1177.     Private Sub cldSelect_DateSelected(ByVal sender As Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles cldSelect.DateSelected
  1178.         SetToday(e.End)
  1179.         cldSelect.Visible = False
  1180.     End Sub
  1182.     '大写合计人民币、税额
  1183.     Private Sub SetUpperMoney()
  1184.         Try
  1185.             Dim strUpper As String
  1186.             strUpper = GoldPrinter.ChineseNum.GetUpperMoney(Double.Parse(txtTotalLower.Text))
  1187.             '合计人民币
  1188.             txtTotalUpper.Text = strUpper
  1190.             strUpper = GoldPrinter.ChineseNum.GetUpperMoney(Double.Parse(txtTotalLower.Text) * Double.Parse(cboTaxRate.Text) / 100)
  1192.             '税额 = 合计人民币 * 税率
  1193.             txtTaxUpper.Text = strUpper
  1194.         Catch ex As Exception
  1196.         End Try
  1197.     End Sub
  1199.     Private Function GetInputMoney(ByVal p_text As String) As Double
  1201.         Dim dblReturn As Double = 0
  1202.         Try
  1203.             dblReturn = Double.Parse(p_text)
  1204.         Catch ex As Exception
  1206.         End Try
  1208.         Return dblReturn
  1210.     End Function
  1212.     Private Sub SetToday(ByVal dt As System.DateTime)
  1213.         txtYear.Text = dt.Year.ToString()
  1215.         txtMonth.Text = GetLengthTwoDate(dt.Month.ToString())
  1216.         txtDay.Text = GetLengthTwoDate(dt.Day.ToString())
  1218.     End Sub
  1220.     Private Function GetLengthTwoDate(ByVal p_MonthOrDay As String) As String
  1221.         Dim strReturn As String = p_MonthOrDay
  1222.         If (strReturn.Length = 1) Then
  1223.             strReturn = "0" + strReturn
  1224.         End If
  1226.         Return strReturn
  1227.     End Function
  1230. End Class