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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 医药行业 > 查看源码
frmManageSk.vb
资源名称：SALEOUTSYSTEM.rar　[点击查看]
上传用户：wj57717022
上传日期：2014-12-16
资源大小：4093k
文件大小：26k
源码类别：

医药行业

开发平台：

Visual Basic

frmManageSk.vb：源码内容
  1. Public Class frmManageSk
  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 ToolBar1 As System.Windows.Forms.ToolBar
  33.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  34.     Friend WithEvents Label1 As System.Windows.Forms.Label
  35.     Friend WithEvents Label2 As System.Windows.Forms.Label
  36.     Friend WithEvents Label3 As System.Windows.Forms.Label
  37.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  38.     Friend WithEvents Label4 As System.Windows.Forms.Label
  39.     Friend WithEvents Label5 As System.Windows.Forms.Label
  40.     Friend WithEvents Label6 As System.Windows.Forms.Label
  41.     Friend WithEvents Label7 As System.Windows.Forms.Label
  42.     Friend WithEvents Label8 As System.Windows.Forms.Label
  43.     Friend WithEvents Label9 As System.Windows.Forms.Label
  44.     Friend WithEvents Label10 As System.Windows.Forms.Label
  45.     Friend WithEvents Label11 As System.Windows.Forms.Label
  46.     Friend WithEvents Label12 As System.Windows.Forms.Label
  47.     Friend WithEvents Label13 As System.Windows.Forms.Label
  48.     Friend WithEvents Label14 As System.Windows.Forms.Label
  49.     Friend WithEvents txtjs As System.Windows.Forms.TextBox
  50.     Friend WithEvents txtdateSK As System.Windows.Forms.DateTimePicker
  51.     Friend WithEvents txtBillnumber As System.Windows.Forms.TextBox
  52.     Friend WithEvents txtCustName As System.Windows.Forms.TextBox
  53.     Friend WithEvents txtCustNumber As System.Windows.Forms.TextBox
  54.     Friend WithEvents txtMoney As System.Windows.Forms.TextBox
  55.     Friend WithEvents txtYmoney As System.Windows.Forms.TextBox
  56.     Friend WithEvents txtyfmoney As System.Windows.Forms.TextBox
  57.     Friend WithEvents txtshy As System.Windows.Forms.ComboBox
  58.     Friend WithEvents txtczy As System.Windows.Forms.ComboBox
  59.     Friend WithEvents txtyemoney As System.Windows.Forms.TextBox
  60.     Friend WithEvents txtdemo As System.Windows.Forms.TextBox
  61.     Friend WithEvents txtfph As System.Windows.Forms.TextBox
  62.     Friend WithEvents txtzy As System.Windows.Forms.TextBox
  63.     Friend WithEvents btnAdd As System.Windows.Forms.ToolBarButton
  64.     Friend WithEvents btnsave As System.Windows.Forms.ToolBarButton
  65.     Friend WithEvents btnprint As System.Windows.Forms.ToolBarButton
  66.     Friend WithEvents btnexit As System.Windows.Forms.ToolBarButton
  67.     Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
  68.     Friend WithEvents txtdate As System.Windows.Forms.DateTimePicker
  69.     Friend WithEvents lstview As System.Windows.Forms.ListBox
  70.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  71.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  72.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  73.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  74.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  75.         Me.components = New System.ComponentModel.Container
  76.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmManageSk))
  77.         Me.ToolBar1 = New System.Windows.Forms.ToolBar
  78.         Me.btnAdd = New System.Windows.Forms.ToolBarButton
  79.         Me.btnsave = New System.Windows.Forms.ToolBarButton
  80.         Me.btnprint = New System.Windows.Forms.ToolBarButton
  81.         Me.btnexit = New System.Windows.Forms.ToolBarButton
  82.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  83.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  84.         Me.txtdate = New System.Windows.Forms.DateTimePicker
  85.         Me.lstview = New System.Windows.Forms.ListBox
  86.         Me.GroupBox4 = New System.Windows.Forms.GroupBox
  87.         Me.txtjs = New System.Windows.Forms.TextBox
  88.         Me.txtzy = New System.Windows.Forms.TextBox
  89.         Me.Label14 = New System.Windows.Forms.Label
  90.         Me.txtdemo = New System.Windows.Forms.TextBox
  91.         Me.Label13 = New System.Windows.Forms.Label
  92.         Me.txtshy = New System.Windows.Forms.ComboBox
  93.         Me.Label12 = New System.Windows.Forms.Label
  94.         Me.txtczy = New System.Windows.Forms.ComboBox
  95.         Me.Label11 = New System.Windows.Forms.Label
  96.         Me.txtyemoney = New System.Windows.Forms.TextBox
  97.         Me.Label10 = New System.Windows.Forms.Label
  98.         Me.txtYmoney = New System.Windows.Forms.TextBox
  99.         Me.Label9 = New System.Windows.Forms.Label
  100.         Me.txtyfmoney = New System.Windows.Forms.TextBox
  101.         Me.Label8 = New System.Windows.Forms.Label
  102.         Me.txtMoney = New System.Windows.Forms.TextBox
  103.         Me.Label7 = New System.Windows.Forms.Label
  104.         Me.txtfph = New System.Windows.Forms.TextBox
  105.         Me.Label6 = New System.Windows.Forms.Label
  106.         Me.txtCustName = New System.Windows.Forms.TextBox
  107.         Me.Label5 = New System.Windows.Forms.Label
  108.         Me.txtCustNumber = New System.Windows.Forms.TextBox
  109.         Me.Label4 = New System.Windows.Forms.Label
  110.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  111.         Me.Label3 = New System.Windows.Forms.Label
  112.         Me.txtdateSK = New System.Windows.Forms.DateTimePicker
  113.         Me.Label2 = New System.Windows.Forms.Label
  114.         Me.txtBillnumber = New System.Windows.Forms.TextBox
  115.         Me.Label1 = New System.Windows.Forms.Label
  116.         Me.Panel1 = New System.Windows.Forms.Panel
  117.         Me.dgview = New System.Windows.Forms.DataGrid
  118.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  119.         Me.GroupBox1.SuspendLayout()
  120.         Me.Panel1.SuspendLayout()
  121.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  122.         Me.SuspendLayout()
  123.         '
  124.         'ToolBar1
  125.         '
  126.         Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  127.         Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.btnAdd, Me.btnsave, Me.btnprint, Me.btnexit})
  128.         Me.ToolBar1.DropDownArrows = True
  129.         Me.ToolBar1.ImageList = Me.ImageList2
  130.         Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
  131.         Me.ToolBar1.Name = "ToolBar1"
  132.         Me.ToolBar1.ShowToolTips = True
  133.         Me.ToolBar1.Size = New System.Drawing.Size(622, 41)
  134.         Me.ToolBar1.TabIndex = 0
  135.         '
  136.         'btnAdd
  137.         '
  138.         Me.btnAdd.ImageIndex = 7
  139.         Me.btnAdd.Text = "添加"
  140.         '
  141.         'btnsave
  142.         '
  143.         Me.btnsave.ImageIndex = 4
  144.         Me.btnsave.Text = "保存"
  145.         '
  146.         'btnprint
  147.         '
  148.         Me.btnprint.ImageIndex = 12
  149.         Me.btnprint.Text = "打印"
  150.         '
  151.         'btnexit
  152.         '
  153.         Me.btnexit.ImageIndex = 11
  154.         Me.btnexit.Text = "退出"
  155.         '
  156.         'ImageList2
  157.         '
  158.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  159.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  160.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  161.         '
  162.         'GroupBox1
  163.         '
  164.         Me.GroupBox1.Controls.Add(Me.txtdate)
  165.         Me.GroupBox1.Controls.Add(Me.lstview)
  166.         Me.GroupBox1.Controls.Add(Me.GroupBox4)
  167.         Me.GroupBox1.Controls.Add(Me.txtjs)
  168.         Me.GroupBox1.Controls.Add(Me.txtzy)
  169.         Me.GroupBox1.Controls.Add(Me.Label14)
  170.         Me.GroupBox1.Controls.Add(Me.txtdemo)
  171.         Me.GroupBox1.Controls.Add(Me.Label13)
  172.         Me.GroupBox1.Controls.Add(Me.txtshy)
  173.         Me.GroupBox1.Controls.Add(Me.Label12)
  174.         Me.GroupBox1.Controls.Add(Me.txtczy)
  175.         Me.GroupBox1.Controls.Add(Me.Label11)
  176.         Me.GroupBox1.Controls.Add(Me.txtyemoney)
  177.         Me.GroupBox1.Controls.Add(Me.Label10)
  178.         Me.GroupBox1.Controls.Add(Me.txtYmoney)
  179.         Me.GroupBox1.Controls.Add(Me.Label9)
  180.         Me.GroupBox1.Controls.Add(Me.txtyfmoney)
  181.         Me.GroupBox1.Controls.Add(Me.Label8)
  182.         Me.GroupBox1.Controls.Add(Me.txtMoney)
  183.         Me.GroupBox1.Controls.Add(Me.Label7)
  184.         Me.GroupBox1.Controls.Add(Me.txtfph)
  185.         Me.GroupBox1.Controls.Add(Me.Label6)
  186.         Me.GroupBox1.Controls.Add(Me.txtCustName)
  187.         Me.GroupBox1.Controls.Add(Me.Label5)
  188.         Me.GroupBox1.Controls.Add(Me.txtCustNumber)
  189.         Me.GroupBox1.Controls.Add(Me.Label4)
  190.         Me.GroupBox1.Controls.Add(Me.GroupBox2)
  191.         Me.GroupBox1.Controls.Add(Me.Label3)
  192.         Me.GroupBox1.Controls.Add(Me.txtdateSK)
  193.         Me.GroupBox1.Controls.Add(Me.Label2)
  194.         Me.GroupBox1.Controls.Add(Me.txtBillnumber)
  195.         Me.GroupBox1.Controls.Add(Me.Label1)
  196.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  197.         Me.GroupBox1.Location = New System.Drawing.Point(0, 41)
  198.         Me.GroupBox1.Name = "GroupBox1"
  199.         Me.GroupBox1.Size = New System.Drawing.Size(622, 180)
  200.         Me.GroupBox1.TabIndex = 1
  201.         Me.GroupBox1.TabStop = False
  202.         Me.GroupBox1.Text = "收款信息："
  203.         '
  204.         'txtdate
  205.         '
  206.         Me.txtdate.Location = New System.Drawing.Point(6, 16)
  207.         Me.txtdate.Name = "txtdate"
  208.         Me.txtdate.Size = New System.Drawing.Size(102, 21)
  209.         Me.txtdate.TabIndex = 32
  210.         Me.txtdate.Value = New Date(2006, 2, 20, 0, 0, 0, 0)
  211.         '
  212.         'lstview
  213.         '
  214.         Me.lstview.ItemHeight = 12
  215.         Me.lstview.Location = New System.Drawing.Point(6, 40)
  216.         Me.lstview.Name = "lstview"
  217.         Me.lstview.Size = New System.Drawing.Size(102, 136)
  218.         Me.lstview.TabIndex = 31
  219.         '
  220.         'GroupBox4
  221.         '
  222.         Me.GroupBox4.Location = New System.Drawing.Point(112, 0)
  223.         Me.GroupBox4.Name = "GroupBox4"
  224.         Me.GroupBox4.Size = New System.Drawing.Size(8, 184)
  225.         Me.GroupBox4.TabIndex = 30
  226.         Me.GroupBox4.TabStop = False
  227.         '
  228.         'txtjs
  229.         '
  230.         Me.txtjs.Location = New System.Drawing.Point(180, 24)
  231.         Me.txtjs.Name = "txtjs"
  232.         Me.txtjs.ReadOnly = True
  233.         Me.txtjs.Size = New System.Drawing.Size(90, 21)
  234.         Me.txtjs.TabIndex = 29
  235.         Me.txtjs.Text = ""
  236.         '
  237.         'txtzy
  238.         '
  239.         Me.txtzy.Location = New System.Drawing.Point(462, 152)
  240.         Me.txtzy.Name = "txtzy"
  241.         Me.txtzy.Size = New System.Drawing.Size(150, 21)
  242.         Me.txtzy.TabIndex = 28
  243.         Me.txtzy.Text = ""
  244.         '
  245.         'Label14
  246.         '
  247.         Me.Label14.AutoSize = True
  248.         Me.Label14.Location = New System.Drawing.Point(432, 160)
  249.         Me.Label14.Name = "Label14"
  250.         Me.Label14.Size = New System.Drawing.Size(42, 17)
  251.         Me.Label14.TabIndex = 27
  252.         Me.Label14.Text = "摘要："
  253.         '
  254.         'txtdemo
  255.         '
  256.         Me.txtdemo.Location = New System.Drawing.Point(462, 120)
  257.         Me.txtdemo.Name = "txtdemo"
  258.         Me.txtdemo.Size = New System.Drawing.Size(150, 21)
  259.         Me.txtdemo.TabIndex = 26
  260.         Me.txtdemo.Text = ""
  261.         '
  262.         'Label13
  263.         '
  264.         Me.Label13.AutoSize = True
  265.         Me.Label13.Location = New System.Drawing.Point(432, 128)
  266.         Me.Label13.Name = "Label13"
  267.         Me.Label13.Size = New System.Drawing.Size(42, 17)
  268.         Me.Label13.TabIndex = 25
  269.         Me.Label13.Text = "备注："
  270.         '
  271.         'txtshy
  272.         '
  273.         Me.txtshy.Location = New System.Drawing.Point(336, 120)
  274.         Me.txtshy.Name = "txtshy"
  275.         Me.txtshy.Size = New System.Drawing.Size(60, 20)
  276.         Me.txtshy.TabIndex = 24
  277.         '
  278.         'Label12
  279.         '
  280.         Me.Label12.AutoSize = True
  281.         Me.Label12.Location = New System.Drawing.Point(296, 128)
  282.         Me.Label12.Name = "Label12"
  283.         Me.Label12.Size = New System.Drawing.Size(54, 17)
  284.         Me.Label12.TabIndex = 23
  285.         Me.Label12.Text = "审核员："
  286.         '
  287.         'txtczy
  288.         '
  289.         Me.txtczy.Location = New System.Drawing.Point(180, 120)
  290.         Me.txtczy.Name = "txtczy"
  291.         Me.txtczy.Size = New System.Drawing.Size(88, 20)
  292.         Me.txtczy.TabIndex = 22
  293.         '
  294.         'Label11
  295.         '
  296.         Me.Label11.AutoSize = True
  297.         Me.Label11.Location = New System.Drawing.Point(138, 128)
  298.         Me.Label11.Name = "Label11"
  299.         Me.Label11.Size = New System.Drawing.Size(54, 17)
  300.         Me.Label11.TabIndex = 21
  301.         Me.Label11.Text = "操作员："
  302.         '
  303.         'txtyemoney
  304.         '
  305.         Me.txtyemoney.Location = New System.Drawing.Point(558, 88)
  306.         Me.txtyemoney.Name = "txtyemoney"
  307.         Me.txtyemoney.ReadOnly = True
  308.         Me.txtyemoney.Size = New System.Drawing.Size(54, 21)
  309.         Me.txtyemoney.TabIndex = 20
  310.         Me.txtyemoney.Text = ""
  311.         '
  312.         'Label10
  313.         '
  314.         Me.Label10.AutoSize = True
  315.         Me.Label10.Location = New System.Drawing.Point(528, 96)
  316.         Me.Label10.Name = "Label10"
  317.         Me.Label10.Size = New System.Drawing.Size(42, 17)
  318.         Me.Label10.TabIndex = 19
  319.         Me.Label10.Text = "余额："
  320.         '
  321.         'txtYmoney
  322.         '
  323.         Me.txtYmoney.Location = New System.Drawing.Point(336, 88)
  324.         Me.txtYmoney.Name = "txtYmoney"
  325.         Me.txtYmoney.ReadOnly = True
  326.         Me.txtYmoney.Size = New System.Drawing.Size(60, 21)
  327.         Me.txtYmoney.TabIndex = 18
  328.         Me.txtYmoney.Text = ""
  329.         '
  330.         'Label9
  331.         '
  332.         Me.Label9.AutoSize = True
  333.         Me.Label9.Location = New System.Drawing.Point(282, 96)
  334.         Me.Label9.Name = "Label9"
  335.         Me.Label9.Size = New System.Drawing.Size(66, 17)
  336.         Me.Label9.TabIndex = 17
  337.         Me.Label9.Text = "已收金额："
  338.         '
  339.         'txtyfmoney
  340.         '
  341.         Me.txtyfmoney.Location = New System.Drawing.Point(462, 88)
  342.         Me.txtyfmoney.Name = "txtyfmoney"
  343.         Me.txtyfmoney.ReadOnly = True
  344.         Me.txtyfmoney.Size = New System.Drawing.Size(60, 21)
  345.         Me.txtyfmoney.TabIndex = 16
  346.         Me.txtyfmoney.Text = ""
  347.         '
  348.         'Label8
  349.         '
  350.         Me.Label8.AutoSize = True
  351.         Me.Label8.Location = New System.Drawing.Point(408, 96)
  352.         Me.Label8.Name = "Label8"
  353.         Me.Label8.Size = New System.Drawing.Size(66, 17)
  354.         Me.Label8.TabIndex = 15
  355.         Me.Label8.Text = "应收金额："
  356.         '
  357.         'txtMoney
  358.         '
  359.         Me.txtMoney.Location = New System.Drawing.Point(180, 88)
  360.         Me.txtMoney.Name = "txtMoney"
  361.         Me.txtMoney.Size = New System.Drawing.Size(88, 21)
  362.         Me.txtMoney.TabIndex = 14
  363.         Me.txtMoney.Text = ""
  364.         '
  365.         'Label7
  366.         '
  367.         Me.Label7.AutoSize = True
  368.         Me.Label7.Location = New System.Drawing.Point(152, 96)
  369.         Me.Label7.Name = "Label7"
  370.         Me.Label7.Size = New System.Drawing.Size(42, 17)
  371.         Me.Label7.TabIndex = 13
  372.         Me.Label7.Text = "金额："
  373.         '
  374.         'txtfph
  375.         '
  376.         Me.txtfph.Location = New System.Drawing.Point(180, 152)
  377.         Me.txtfph.Name = "txtfph"
  378.         Me.txtfph.Size = New System.Drawing.Size(216, 21)
  379.         Me.txtfph.TabIndex = 12
  380.         Me.txtfph.Text = ""
  381.         '
  382.         'Label6
  383.         '
  384.         Me.Label6.AutoSize = True
  385.         Me.Label6.Location = New System.Drawing.Point(138, 160)
  386.         Me.Label6.Name = "Label6"
  387.         Me.Label6.Size = New System.Drawing.Size(60, 17)
  388.         Me.Label6.TabIndex = 11
  389.         Me.Label6.Text = "发票号： "
  390.         '
  391.         'txtCustName
  392.         '
  393.         Me.txtCustName.Location = New System.Drawing.Point(336, 56)
  394.         Me.txtCustName.Name = "txtCustName"
  395.         Me.txtCustName.ReadOnly = True
  396.         Me.txtCustName.Size = New System.Drawing.Size(276, 21)
  397.         Me.txtCustName.TabIndex = 10
  398.         Me.txtCustName.Text = ""
  399.         '
  400.         'Label5
  401.         '
  402.         Me.Label5.AutoSize = True
  403.         Me.Label5.Location = New System.Drawing.Point(282, 62)
  404.         Me.Label5.Name = "Label5"
  405.         Me.Label5.Size = New System.Drawing.Size(66, 17)
  406.         Me.Label5.TabIndex = 9
  407.         Me.Label5.Text = "客户名称："
  408.         '
  409.         'txtCustNumber
  410.         '
  411.         Me.txtCustNumber.Location = New System.Drawing.Point(180, 56)
  412.         Me.txtCustNumber.Name = "txtCustNumber"
  413.         Me.txtCustNumber.ReadOnly = True
  414.         Me.txtCustNumber.Size = New System.Drawing.Size(90, 21)
  415.         Me.txtCustNumber.TabIndex = 8
  416.         Me.txtCustNumber.Text = ""
  417.         '
  418.         'Label4
  419.         '
  420.         Me.Label4.AutoSize = True
  421.         Me.Label4.Location = New System.Drawing.Point(128, 62)
  422.         Me.Label4.Name = "Label4"
  423.         Me.Label4.Size = New System.Drawing.Size(66, 17)
  424.         Me.Label4.TabIndex = 7
  425.         Me.Label4.Text = "客户编号："
  426.         '
  427.         'GroupBox2
  428.         '
  429.         Me.GroupBox2.Location = New System.Drawing.Point(120, 48)
  430.         Me.GroupBox2.Name = "GroupBox2"
  431.         Me.GroupBox2.Size = New System.Drawing.Size(492, 6)
  432.         Me.GroupBox2.TabIndex = 6
  433.         Me.GroupBox2.TabStop = False
  434.         '
  435.         'Label3
  436.         '
  437.         Me.Label3.AutoSize = True
  438.         Me.Label3.Location = New System.Drawing.Point(128, 32)
  439.         Me.Label3.Name = "Label3"
  440.         Me.Label3.Size = New System.Drawing.Size(66, 17)
  441.         Me.Label3.TabIndex = 4
  442.         Me.Label3.Text = "结算方式："
  443.         '
  444.         'txtdateSK
  445.         '
  446.         Me.txtdateSK.Location = New System.Drawing.Point(336, 24)
  447.         Me.txtdateSK.Name = "txtdateSK"
  448.         Me.txtdateSK.Size = New System.Drawing.Size(102, 21)
  449.         Me.txtdateSK.TabIndex = 3
  450.         Me.txtdateSK.Value = New Date(2006, 4, 15, 0, 0, 0, 0)
  451.         '
  452.         'Label2
  453.         '
  454.         Me.Label2.AutoSize = True
  455.         Me.Label2.Location = New System.Drawing.Point(306, 32)
  456.         Me.Label2.Name = "Label2"
  457.         Me.Label2.Size = New System.Drawing.Size(42, 17)
  458.         Me.Label2.TabIndex = 2
  459.         Me.Label2.Text = "日期："
  460.         '
  461.         'txtBillnumber
  462.         '
  463.         Me.txtBillnumber.Location = New System.Drawing.Point(486, 24)
  464.         Me.txtBillnumber.Name = "txtBillnumber"
  465.         Me.txtBillnumber.ReadOnly = True
  466.         Me.txtBillnumber.Size = New System.Drawing.Size(126, 21)
  467.         Me.txtBillnumber.TabIndex = 1
  468.         Me.txtBillnumber.Text = ""
  469.         '
  470.         'Label1
  471.         '
  472.         Me.Label1.AutoSize = True
  473.         Me.Label1.Location = New System.Drawing.Point(456, 32)
  474.         Me.Label1.Name = "Label1"
  475.         Me.Label1.Size = New System.Drawing.Size(42, 17)
  476.         Me.Label1.TabIndex = 0
  477.         Me.Label1.Text = "票号："
  478.         '
  479.         'Panel1
  480.         '
  481.         Me.Panel1.Controls.Add(Me.dgview)
  482.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
  483.         Me.Panel1.Location = New System.Drawing.Point(0, 221)
  484.         Me.Panel1.Name = "Panel1"
  485.         Me.Panel1.Size = New System.Drawing.Size(622, 360)
  486.         Me.Panel1.TabIndex = 2
  487.         '
  488.         'dgview
  489.         '
  490.         Me.dgview.DataMember = ""
  491.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  492.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  493.         Me.dgview.Location = New System.Drawing.Point(0, 0)
  494.         Me.dgview.Name = "dgview"
  495.         Me.dgview.Size = New System.Drawing.Size(622, 360)
  496.         Me.dgview.TabIndex = 0
  497.         '
  498.         'ErrorProvider1
  499.         '
  500.         Me.ErrorProvider1.ContainerControl = Me
  501.         '
  502.         'frmManageSk
  503.         '
  504.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  505.         Me.ClientSize = New System.Drawing.Size(622, 581)
  506.         Me.Controls.Add(Me.Panel1)
  507.         Me.Controls.Add(Me.GroupBox1)
  508.         Me.Controls.Add(Me.ToolBar1)
  509.         Me.Name = "frmManageSk"
  510.         Me.Text = "frmManageSk"
  511.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  512.         Me.GroupBox1.ResumeLayout(False)
  513.         Me.Panel1.ResumeLayout(False)
  514.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  515.         Me.ResumeLayout(False)
  517.     End Sub
  519. #End Region
  520.     Public strquery As String
  521.     Public lsweb As New jxcmanage
  522.     Public dslocal As DataSet = lsweb.returndataset("select 日期,票号,结算方式,客户编号,客户名称,操作员,审核员,金额,应收金额,已收金额,余额,发票号,摘要,备注 from wz_ck_sk", "wz_ck_sk")
  523.    
  525.     Private Sub save()
  527.         lsweb.runSql("update wz_ck_sk set 已收金额=" & CDec(txtYmoney.Text) & ",操作员='" & txtczy.Text & "',审核员='" & txtshy.Text & "',发票号='" & txtfph.Text & "',摘要='" & txtzy.Text & "',备注='" & txtdemo.Text & "' from wz_ck_sk where 票号='" & strquery & "'")
  529.         MessageBox.Show("信息成功保存！", "提示", MessageBoxButtons.OK)
  531.     End Sub
  533.     Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
  534.         Select Case e.Button.Text
  535.             Case "保存"
  536.                 If txtMoney.Text = "" Then
  537.                     MessageBox.Show("信息不完整，保存失败！", "提示", MessageBoxButtons.OK)
  538.                 Else
  539.                     save()
  540.                     btnAdd.Enabled = True
  541.                     btnsave.Enabled = False
  544.                 End If
  546.             Case "添加"
  547.                 add()
  548.                 btnAdd.Enabled = False
  549.                 btnsave.Enabled = True
  550.             Case "退出"
  551.                 Me.Close()
  554.         End Select
  555.     End Sub
  557.     Private Sub txtMoney_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMoney.KeyDown
  558.         If e.KeyCode = Keys.Enter Then
  560.             Me.txtczy.Focus()
  561.         End If
  562.     End Sub
  564.     Private Sub txtczy_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtczy.KeyDown
  565.         If e.KeyCode = Keys.Enter Then
  567.             Me.txtshy.Focus()
  568.         End If
  569.     End Sub
  573.     Private Sub txtshy_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtshy.KeyDown
  574.         If e.KeyCode = Keys.Enter Then
  576.             Me.txtdemo.Focus()
  577.         End If
  578.     End Sub
  582.     Private Sub txtdemo_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtdemo.KeyDown
  583.         If e.KeyCode = Keys.Enter Then
  585.             Me.txtFph.Focus()
  586.         End If
  587.     End Sub
  591.     Private Sub txtFph_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtfph.KeyDown
  592.         If e.KeyCode = Keys.Enter Then
  594.             Me.txtzy.Focus()
  595.         End If
  596.     End Sub
  598.     Private Sub txtMoney_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtMoney.Validating
  599.         If Not IsNumeric(txtMoney.Text) Or txtMoney.Text = String.Empty Then
  600.             ErrorProvider1.SetError(txtMoney, "不是数值类型且不能为空。")
  601.             txtMoney.Focus()
  603.         Else
  604.             ErrorProvider1.SetError(txtMoney, "")
  605.         End If
  606.     End Sub
  608.     Private Sub txtczy_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtczy.Validating
  609.         If txtczy.Text = String.Empty Then
  610.             ErrorProvider1.SetError(txtczy, "不能为空。")
  611.             txtczy.Focus()
  612.         Else
  613.             ErrorProvider1.SetError(txtczy, "")
  614.         End If
  615.     End Sub
  617.     Private Sub txtshy_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtshy.Validating
  618.         If txtshy.Text = String.Empty Then
  619.             ErrorProvider1.SetError(txtshy, "不能为空。")
  620.             txtshy.Focus()
  621.         Else
  622.             ErrorProvider1.SetError(txtshy, "")
  623.         End If
  624.     End Sub
  626.     Private Sub txtdate_ValueChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtdate.ValueChanged
  627.         Dim dslocal As New DataSet
  629.         dslocal = lsweb.runSql("select 票号 from wz_ck_sk where 日期='" & txtdate.Value & "'")
  630.         lstview.DataSource = dslocal.Tables(0).DefaultView
  631.         lstview.DisplayMember = "票号"
  632.         lstview.ValueMember = "票号"
  634.     End Sub
  636.     Private Sub lstview_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstview.SelectedIndexChanged
  637.         strquery = lstview.SelectedValue.ToString()
  639.         Dim dv As New DataView
  640.         Dim dtQuery As New DataTable
  642.         dtQuery = lsweb.runSql("select 日期,票号,结算方式,客户编号,客户名称,操作员,审核员,金额,应收金额,已收金额,余额,发票号,摘要,备注 from wz_ck_sk where 票号='" & strquery & "'").Tables(0)
  644.         dv = dtQuery.DefaultView
  646.         txtjs.Text = dv(0)("结算方式")
  647.         txtdateSK.Text = dv(0)("日期")
  648.         txtBillnumber.Text = dv(0)("票号")
  649.         txtCustNumber.Text = dv(0)("客户编号")
  650.         txtCustName.Text = dv(0)("客户名称")
  651.         txtfph.Text = dv(0)("发票号")
  652.         txtMoney.Text = dv(0)("金额")
  653.         txtYmoney.Text = dv(0)("已收金额")
  654.         txtyfmoney.Text = dv(0)("应收金额")
  655.         txtyemoney.Text = dv(0)("余额")
  656.         txtczy.Text = dv(0)("操作员")
  657.         txtshy.Text = dv(0)("审核员")
  658.         txtdemo.Text = dv(0)("备注")
  659.         txtzy.Text = dv(0)("摘要")
  661.         dtQuery = lsweb.runSql("select * from wz_ck where 票号='" & strquery & "'").Tables(0)
  662.         dgview.DataSource = dtQuery.DefaultView
  665.     End Sub
  666.     Public Sub add()
  668.         txtMoney.Text() = ""
  669.         txtMoney.Focus()
  670.         
  671.         txtdemo.Text = ""
  672.         txtfph.Text = ""
  673.         txtzy.Text = ""
  677.     End Sub
  679.     Private Sub txtMoney_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMoney.TextChanged
  681.     End Sub
  683.     Private Sub txtMoney_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMoney.KeyUp
  684.         txtYmoney.Text = txtMoney.Text
  687.     End Sub
  689.     Private Sub frmManageSk_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  690.         txtdateSK.Value = Today.ToString
  691.         txtdate.Value = Today.ToString
  692.         Dim hwdr As System.Data.SqlClient.SqlDataReader
  693.         hwdr = lsweb.returnDataReader("select 操作员 from wz_mm")
  694.         Do While hwdr.Read()
  695.             txtczy.Items.Add(hwdr("操作员"))
  696.             txtshy.Items.Add(hwdr("操作员"))
  697.         Loop
  698.         btnsave.Enabled = False
  700.     End Sub
  701. End Class