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

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

医药行业

开发平台：

Visual Basic

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