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

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

医药行业

开发平台：

Visual Basic

frmrk.vb：源码内容
  1. Imports localJxc.jxcmanage
  2. Public Class frmrk
  3.     Inherits System.Windows.Forms.Form
  4.     ' Public weblocal As New WebReference.DataManager
  5. #Region " Windows 窗体设计器生成的代码 "
  7.     Public Sub New()
  8.         MyBase.New()
  10.         '该调用是 Windows 窗体设计器所必需的。
  11.         InitializeComponent()
  13.         '在 InitializeComponent() 调用之后添加任何初始化
  15.     End Sub
  17.     '窗体重写 dispose 以清理组件列表。
  18.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  19.         If disposing Then
  20.             If Not (components Is Nothing) Then
  21.                 components.Dispose()
  22.             End If
  23.         End If
  24.         MyBase.Dispose(disposing)
  25.     End Sub
  27.     'Windows 窗体设计器所必需的
  28.     Private components As System.ComponentModel.IContainer
  30.     '注意: 以下过程是 Windows 窗体设计器所必需的
  31.     '可以使用 Windows 窗体设计器修改此过程。
  32.     '不要使用代码编辑器修改它。
  33.     Friend WithEvents tbrRk As System.Windows.Forms.ToolBar
  34.     Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
  35.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  36.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  37.     Friend WithEvents Label1 As System.Windows.Forms.Label
  38.     Friend WithEvents Label2 As System.Windows.Forms.Label
  39.     Friend WithEvents Label4 As System.Windows.Forms.Label
  40.     Friend WithEvents Label5 As System.Windows.Forms.Label
  41.     Friend WithEvents Label6 As System.Windows.Forms.Label
  42.     Friend WithEvents Label7 As System.Windows.Forms.Label
  43.     Friend WithEvents Label8 As System.Windows.Forms.Label
  44.     Friend WithEvents Label9 As System.Windows.Forms.Label
  45.     Friend WithEvents Label10 As System.Windows.Forms.Label
  46.     Friend WithEvents Label11 As System.Windows.Forms.Label
  47.     Friend WithEvents Label12 As System.Windows.Forms.Label
  48.     Friend WithEvents Label13 As System.Windows.Forms.Label
  49.     Friend WithEvents Label14 As System.Windows.Forms.Label
  50.     Friend WithEvents Label15 As System.Windows.Forms.Label
  51.     Friend WithEvents Label16 As System.Windows.Forms.Label
  52.     Friend WithEvents Label17 As System.Windows.Forms.Label
  53.     Friend WithEvents Label18 As System.Windows.Forms.Label
  54.     Friend WithEvents Label19 As System.Windows.Forms.Label
  55.     Friend WithEvents Label20 As System.Windows.Forms.Label
  56.     Friend WithEvents Label21 As System.Windows.Forms.Label
  57.     Friend WithEvents Label22 As System.Windows.Forms.Label
  58.     Friend WithEvents Label23 As System.Windows.Forms.Label
  59.     Friend WithEvents tbrAdd As System.Windows.Forms.ToolBarButton
  60.     Friend WithEvents tbrSave As System.Windows.Forms.ToolBarButton
  61.     Friend WithEvents tbrPrint As System.Windows.Forms.ToolBarButton
  62.     Friend WithEvents tbrQuery As System.Windows.Forms.ToolBarButton
  63.     Friend WithEvents tbrSeparator As System.Windows.Forms.ToolBarButton
  64.     Friend WithEvents tbrExit As System.Windows.Forms.ToolBarButton
  65.     Friend WithEvents txtNumber As System.Windows.Forms.TextBox
  66.     Friend WithEvents txtName As System.Windows.Forms.TextBox
  67.     Friend WithEvents txtRule As System.Windows.Forms.TextBox
  68.     Friend WithEvents txtUnit As System.Windows.Forms.TextBox
  69.     Friend WithEvents txtPrice As System.Windows.Forms.TextBox
  70.     Friend WithEvents txtCount As System.Windows.Forms.TextBox
  71.     Friend WithEvents txtMoney As System.Windows.Forms.TextBox
  72.     Friend WithEvents txtPackage As System.Windows.Forms.TextBox
  73.     Friend WithEvents txtBatch As System.Windows.Forms.TextBox
  74.     Friend WithEvents txtAvaid As System.Windows.Forms.TextBox
  75.     Friend WithEvents txtAddress As System.Windows.Forms.TextBox
  76.     Friend WithEvents txtPprice As System.Windows.Forms.TextBox
  77.     Friend WithEvents txtLprice As System.Windows.Forms.TextBox
  78.     Friend WithEvents txtJprice As System.Windows.Forms.TextBox
  79.     Friend WithEvents txtZprice As System.Windows.Forms.TextBox
  80.     Friend WithEvents Label24 As System.Windows.Forms.Label
  81.     Friend WithEvents txtSum As System.Windows.Forms.TextBox
  82.     Friend WithEvents cboHw As System.Windows.Forms.ComboBox
  83.     Friend WithEvents cboJs As System.Windows.Forms.ComboBox
  84.     Friend WithEvents txtNo As System.Windows.Forms.TextBox
  85.     Friend WithEvents txtBillNumber As System.Windows.Forms.TextBox
  86.     Friend WithEvents txtCustName As System.Windows.Forms.TextBox
  87.     Friend WithEvents txtCustNumber As System.Windows.Forms.TextBox
  88.     Friend WithEvents dgrk As System.Windows.Forms.DataGrid
  89.     Friend WithEvents MsdnTextboxValidator1 As MSDNTextboxValidator.MSDNTextboxValidator
  90.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  91.     Friend WithEvents txtSzy As System.Windows.Forms.TextBox
  92.     Friend WithEvents Label3 As System.Windows.Forms.Label
  93.     Friend WithEvents txtdate As System.Windows.Forms.DateTimePicker
  94.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  95.     Friend WithEvents tbrTh As System.Windows.Forms.ToolBarButton
  96.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  97.         Me.components = New System.ComponentModel.Container
  98.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmrk))
  99.         Me.tbrRk = New System.Windows.Forms.ToolBar
  100.         Me.tbrAdd = New System.Windows.Forms.ToolBarButton
  101.         Me.tbrSave = New System.Windows.Forms.ToolBarButton
  102.         Me.tbrPrint = New System.Windows.Forms.ToolBarButton
  103.         Me.tbrQuery = New System.Windows.Forms.ToolBarButton
  104.         Me.tbrSeparator = New System.Windows.Forms.ToolBarButton
  105.         Me.tbrTh = New System.Windows.Forms.ToolBarButton
  106.         Me.tbrExit = New System.Windows.Forms.ToolBarButton
  107.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  108.         Me.StatusBar1 = New System.Windows.Forms.StatusBar
  109.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  110.         Me.txtdate = New System.Windows.Forms.DateTimePicker
  111.         Me.Label3 = New System.Windows.Forms.Label
  112.         Me.txtSzy = New System.Windows.Forms.TextBox
  113.         Me.cboHw = New System.Windows.Forms.ComboBox
  114.         Me.cboJs = New System.Windows.Forms.ComboBox
  115.         Me.txtNo = New System.Windows.Forms.TextBox
  116.         Me.txtBillNumber = New System.Windows.Forms.TextBox
  117.         Me.txtCustName = New System.Windows.Forms.TextBox
  118.         Me.txtCustNumber = New System.Windows.Forms.TextBox
  119.         Me.Label8 = New System.Windows.Forms.Label
  120.         Me.Label7 = New System.Windows.Forms.Label
  121.         Me.Label6 = New System.Windows.Forms.Label
  122.         Me.Label5 = New System.Windows.Forms.Label
  123.         Me.Label4 = New System.Windows.Forms.Label
  124.         Me.Label2 = New System.Windows.Forms.Label
  125.         Me.Label1 = New System.Windows.Forms.Label
  126.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  127.         Me.txtSum = New System.Windows.Forms.TextBox
  128.         Me.Label24 = New System.Windows.Forms.Label
  129.         Me.txtZprice = New System.Windows.Forms.TextBox
  130.         Me.txtJprice = New System.Windows.Forms.TextBox
  131.         Me.txtLprice = New System.Windows.Forms.TextBox
  132.         Me.txtPprice = New System.Windows.Forms.TextBox
  133.         Me.txtAddress = New System.Windows.Forms.TextBox
  134.         Me.txtAvaid = New System.Windows.Forms.TextBox
  135.         Me.txtBatch = New System.Windows.Forms.TextBox
  136.         Me.txtPackage = New System.Windows.Forms.TextBox
  137.         Me.txtMoney = New System.Windows.Forms.TextBox
  138.         Me.txtCount = New System.Windows.Forms.TextBox
  139.         Me.txtPrice = New System.Windows.Forms.TextBox
  140.         Me.txtUnit = New System.Windows.Forms.TextBox
  141.         Me.txtRule = New System.Windows.Forms.TextBox
  142.         Me.txtName = New System.Windows.Forms.TextBox
  143.         Me.txtNumber = New System.Windows.Forms.TextBox
  144.         Me.Label23 = New System.Windows.Forms.Label
  145.         Me.Label22 = New System.Windows.Forms.Label
  146.         Me.Label21 = New System.Windows.Forms.Label
  147.         Me.Label20 = New System.Windows.Forms.Label
  148.         Me.Label19 = New System.Windows.Forms.Label
  149.         Me.Label18 = New System.Windows.Forms.Label
  150.         Me.Label17 = New System.Windows.Forms.Label
  151.         Me.Label16 = New System.Windows.Forms.Label
  152.         Me.Label15 = New System.Windows.Forms.Label
  153.         Me.Label14 = New System.Windows.Forms.Label
  154.         Me.Label13 = New System.Windows.Forms.Label
  155.         Me.Label12 = New System.Windows.Forms.Label
  156.         Me.Label11 = New System.Windows.Forms.Label
  157.         Me.Label10 = New System.Windows.Forms.Label
  158.         Me.Label9 = New System.Windows.Forms.Label
  159.         Me.dgrk = New System.Windows.Forms.DataGrid
  160.         Me.MsdnTextboxValidator1 = New MSDNTextboxValidator.MSDNTextboxValidator(Me.components)
  161.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  162.         Me.GroupBox1.SuspendLayout()
  163.         Me.GroupBox2.SuspendLayout()
  164.         CType(Me.dgrk, System.ComponentModel.ISupportInitialize).BeginInit()
  165.         Me.SuspendLayout()
  166.         '
  167.         'tbrRk
  168.         '
  169.         Me.tbrRk.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  170.         Me.tbrRk.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbrAdd, Me.tbrSave, Me.tbrPrint, Me.tbrQuery, Me.tbrSeparator, Me.tbrTh, Me.tbrExit})
  171.         Me.tbrRk.DropDownArrows = True
  172.         Me.tbrRk.ImageList = Me.ImageList2
  173.         Me.tbrRk.Location = New System.Drawing.Point(0, 0)
  174.         Me.tbrRk.Name = "tbrRk"
  175.         Me.tbrRk.ShowToolTips = True
  176.         Me.tbrRk.Size = New System.Drawing.Size(877, 44)
  177.         Me.tbrRk.TabIndex = 0
  178.         '
  179.         'tbrAdd
  180.         '
  181.         Me.tbrAdd.ImageIndex = 7
  182.         Me.tbrAdd.Text = "添加"
  183.         '
  184.         'tbrSave
  185.         '
  186.         Me.tbrSave.ImageIndex = 4
  187.         Me.tbrSave.Text = "保存"
  188.         '
  189.         'tbrPrint
  190.         '
  191.         Me.tbrPrint.ImageIndex = 12
  192.         Me.tbrPrint.Text = "打印"
  193.         '
  194.         'tbrQuery
  195.         '
  196.         Me.tbrQuery.ImageIndex = 13
  197.         Me.tbrQuery.Text = "查询"
  198.         '
  199.         'tbrSeparator
  200.         '
  201.         Me.tbrSeparator.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  202.         '
  203.         'tbrTh
  204.         '
  205.         Me.tbrTh.ImageIndex = 9
  206.         Me.tbrTh.Text = "退货"
  207.         '
  208.         'tbrExit
  209.         '
  210.         Me.tbrExit.ImageIndex = 11
  211.         Me.tbrExit.Text = "退出"
  212.         '
  213.         'ImageList2
  214.         '
  215.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  216.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  217.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  218.         '
  219.         'StatusBar1
  220.         '
  221.         Me.StatusBar1.Location = New System.Drawing.Point(0, 653)
  222.         Me.StatusBar1.Name = "StatusBar1"
  223.         Me.StatusBar1.Size = New System.Drawing.Size(877, 29)
  224.         Me.StatusBar1.TabIndex = 1
  225.         '
  226.         'GroupBox1
  227.         '
  228.         Me.GroupBox1.Controls.Add(Me.txtdate)
  229.         Me.GroupBox1.Controls.Add(Me.Label3)
  230.         Me.GroupBox1.Controls.Add(Me.txtSzy)
  231.         Me.GroupBox1.Controls.Add(Me.cboHw)
  232.         Me.GroupBox1.Controls.Add(Me.cboJs)
  233.         Me.GroupBox1.Controls.Add(Me.txtNo)
  234.         Me.GroupBox1.Controls.Add(Me.txtBillNumber)
  235.         Me.GroupBox1.Controls.Add(Me.txtCustName)
  236.         Me.GroupBox1.Controls.Add(Me.txtCustNumber)
  237.         Me.GroupBox1.Controls.Add(Me.Label8)
  238.         Me.GroupBox1.Controls.Add(Me.Label7)
  239.         Me.GroupBox1.Controls.Add(Me.Label6)
  240.         Me.GroupBox1.Controls.Add(Me.Label5)
  241.         Me.GroupBox1.Controls.Add(Me.Label4)
  242.         Me.GroupBox1.Controls.Add(Me.Label2)
  243.         Me.GroupBox1.Controls.Add(Me.Label1)
  244.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  245.         Me.GroupBox1.Location = New System.Drawing.Point(0, 44)
  246.         Me.GroupBox1.Name = "GroupBox1"
  247.         Me.GroupBox1.Size = New System.Drawing.Size(877, 104)
  248.         Me.GroupBox1.TabIndex = 2
  249.         Me.GroupBox1.TabStop = False
  250.         Me.GroupBox1.Text = "票据信息："
  251.         '
  252.         'txtdate
  253.         '
  254.         Me.txtdate.Location = New System.Drawing.Point(512, 32)
  255.         Me.txtdate.Name = "txtdate"
  256.         Me.txtdate.Size = New System.Drawing.Size(136, 25)
  257.         Me.txtdate.TabIndex = 18
  258.         Me.txtdate.Value = New Date(2006, 3, 31, 0, 0, 0, 0)
  259.         '
  260.         'Label3
  261.         '
  262.         Me.Label3.AutoSize = True
  263.         Me.Label3.Location = New System.Drawing.Point(472, 40)
  264.         Me.Label3.Name = "Label3"
  265.         Me.Label3.Size = New System.Drawing.Size(52, 21)
  266.         Me.Label3.TabIndex = 17
  267.         Me.Label3.Text = "日期："
  268.         '
  269.         'txtSzy
  270.         '
  271.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtSzy, True)
  272.         Me.MsdnTextboxValidator1.SetDataType(Me.txtSzy, MSDNTextboxValidator.DataTypeConstants.StringType)
  273.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtSzy, "")
  274.         Me.txtSzy.Location = New System.Drawing.Point(720, 64)
  275.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtSzy, "")
  276.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtSzy, "")
  277.         Me.txtSzy.Name = "txtSzy"
  278.         Me.txtSzy.ReadOnly = True
  279.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtSzy, "")
  280.         Me.MsdnTextboxValidator1.SetRequired(Me.txtSzy, False)
  281.         Me.txtSzy.Size = New System.Drawing.Size(144, 25)
  282.         Me.txtSzy.TabIndex = 16
  283.         Me.txtSzy.Text = ""
  284.         '
  285.         'cboHw
  286.         '
  287.         Me.cboHw.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte))
  288.         Me.cboHw.Location = New System.Drawing.Point(512, 64)
  289.         Me.cboHw.Name = "cboHw"
  290.         Me.cboHw.Size = New System.Drawing.Size(136, 23)
  291.         Me.cboHw.TabIndex = 15
  292.         '
  293.         'cboJs
  294.         '
  295.         Me.cboJs.ForeColor = System.Drawing.Color.FromArgb(CType(0, Byte), CType(192, Byte), CType(0, Byte))
  296.         Me.cboJs.Items.AddRange(New Object() {"现金", "支票", "记账"})
  297.         Me.cboJs.Location = New System.Drawing.Point(256, 64)
  298.         Me.cboJs.Name = "cboJs"
  299.         Me.cboJs.Size = New System.Drawing.Size(128, 23)
  300.         Me.cboJs.TabIndex = 13
  301.         Me.cboJs.Text = "现金"
  302.         '
  303.         'txtNo
  304.         '
  305.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtNo, True)
  306.         Me.MsdnTextboxValidator1.SetDataType(Me.txtNo, MSDNTextboxValidator.DataTypeConstants.StringType)
  307.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtNo, "")
  308.         Me.txtNo.Location = New System.Drawing.Point(80, 64)
  309.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtNo, "")
  310.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtNo, "")
  311.         Me.txtNo.Name = "txtNo"
  312.         Me.txtNo.ReadOnly = True
  313.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtNo, "")
  314.         Me.MsdnTextboxValidator1.SetRequired(Me.txtNo, False)
  315.         Me.txtNo.Size = New System.Drawing.Size(88, 25)
  316.         Me.txtNo.TabIndex = 12
  317.         Me.txtNo.Text = ""
  318.         '
  319.         'txtBillNumber
  320.         '
  321.         Me.txtBillNumber.BackColor = System.Drawing.SystemColors.Control
  322.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtBillNumber, True)
  323.         Me.MsdnTextboxValidator1.SetDataType(Me.txtBillNumber, MSDNTextboxValidator.DataTypeConstants.StringType)
  324.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtBillNumber, "")
  325.         Me.txtBillNumber.Location = New System.Drawing.Point(720, 32)
  326.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtBillNumber, "")
  327.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtBillNumber, "")
  328.         Me.txtBillNumber.Name = "txtBillNumber"
  329.         Me.txtBillNumber.ReadOnly = True
  330.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtBillNumber, "")
  331.         Me.MsdnTextboxValidator1.SetRequired(Me.txtBillNumber, False)
  332.         Me.txtBillNumber.Size = New System.Drawing.Size(144, 25)
  333.         Me.txtBillNumber.TabIndex = 11
  334.         Me.txtBillNumber.Text = ""
  335.         '
  336.         'txtCustName
  337.         '
  338.         Me.txtCustName.BackColor = System.Drawing.Color.White
  339.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtCustName, True)
  340.         Me.MsdnTextboxValidator1.SetDataType(Me.txtCustName, MSDNTextboxValidator.DataTypeConstants.StringType)
  341.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtCustName, "")
  342.         Me.txtCustName.Location = New System.Drawing.Point(256, 31)
  343.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtCustName, "")
  344.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtCustName, "")
  345.         Me.txtCustName.Name = "txtCustName"
  346.         Me.txtCustName.ReadOnly = True
  347.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtCustName, "")
  348.         Me.MsdnTextboxValidator1.SetRequired(Me.txtCustName, False)
  349.         Me.txtCustName.Size = New System.Drawing.Size(200, 25)
  350.         Me.txtCustName.TabIndex = 9
  351.         Me.txtCustName.Text = ""
  352.         '
  353.         'txtCustNumber
  354.         '
  355.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtCustNumber, True)
  356.         Me.MsdnTextboxValidator1.SetDataType(Me.txtCustNumber, MSDNTextboxValidator.DataTypeConstants.StringType)
  357.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtCustNumber, "")
  358.         Me.txtCustNumber.Location = New System.Drawing.Point(80, 31)
  359.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtCustNumber, "")
  360.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtCustNumber, "")
  361.         Me.txtCustNumber.Name = "txtCustNumber"
  362.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtCustNumber, "<>""""")
  363.         Me.MsdnTextboxValidator1.SetRequired(Me.txtCustNumber, False)
  364.         Me.txtCustNumber.Size = New System.Drawing.Size(88, 25)
  365.         Me.txtCustNumber.TabIndex = 8
  366.         Me.txtCustNumber.Text = ""
  367.         '
  368.         'Label8
  369.         '
  370.         Me.Label8.AutoSize = True
  371.         Me.Label8.Location = New System.Drawing.Point(664, 72)
  372.         Me.Label8.Name = "Label8"
  373.         Me.Label8.Size = New System.Drawing.Size(67, 21)
  374.         Me.Label8.TabIndex = 7
  375.         Me.Label8.Text = "操做员："
  376.         '
  377.         'Label7
  378.         '
  379.         Me.Label7.AutoSize = True
  380.         Me.Label7.Location = New System.Drawing.Point(184, 72)
  381.         Me.Label7.Name = "Label7"
  382.         Me.Label7.Size = New System.Drawing.Size(83, 21)
  383.         Me.Label7.TabIndex = 6
  384.         Me.Label7.Text = "结算方式："
  385.         '
  386.         'Label6
  387.         '
  388.         Me.Label6.AutoSize = True
  389.         Me.Label6.Location = New System.Drawing.Point(472, 72)
  390.         Me.Label6.Name = "Label6"
  391.         Me.Label6.Size = New System.Drawing.Size(52, 21)
  392.         Me.Label6.TabIndex = 5
  393.         Me.Label6.Text = "货位："
  394.         '
  395.         'Label5
  396.         '
  397.         Me.Label5.AutoSize = True
  398.         Me.Label5.Location = New System.Drawing.Point(40, 72)
  399.         Me.Label5.Name = "Label5"
  400.         Me.Label5.Size = New System.Drawing.Size(52, 21)
  401.         Me.Label5.TabIndex = 4
  402.         Me.Label5.Text = "序号："
  403.         '
  404.         'Label4
  405.         '
  406.         Me.Label4.AutoSize = True
  407.         Me.Label4.Location = New System.Drawing.Point(680, 40)
  408.         Me.Label4.Name = "Label4"
  409.         Me.Label4.Size = New System.Drawing.Size(52, 21)
  410.         Me.Label4.TabIndex = 3
  411.         Me.Label4.Text = "票号："
  412.         '
  413.         'Label2
  414.         '
  415.         Me.Label2.AutoSize = True
  416.         Me.Label2.Location = New System.Drawing.Point(184, 40)
  417.         Me.Label2.Name = "Label2"
  418.         Me.Label2.Size = New System.Drawing.Size(83, 21)
  419.         Me.Label2.TabIndex = 1
  420.         Me.Label2.Text = "客户名称："
  421.         '
  422.         'Label1
  423.         '
  424.         Me.Label1.AutoSize = True
  425.         Me.Label1.Location = New System.Drawing.Point(8, 40)
  426.         Me.Label1.Name = "Label1"
  427.         Me.Label1.Size = New System.Drawing.Size(83, 21)
  428.         Me.Label1.TabIndex = 0
  429.         Me.Label1.Text = "客户编号："
  430.         '
  431.         'GroupBox2
  432.         '
  433.         Me.GroupBox2.Controls.Add(Me.txtSum)
  434.         Me.GroupBox2.Controls.Add(Me.Label24)
  435.         Me.GroupBox2.Controls.Add(Me.txtZprice)
  436.         Me.GroupBox2.Controls.Add(Me.txtJprice)
  437.         Me.GroupBox2.Controls.Add(Me.txtLprice)
  438.         Me.GroupBox2.Controls.Add(Me.txtPprice)
  439.         Me.GroupBox2.Controls.Add(Me.txtAddress)
  440.         Me.GroupBox2.Controls.Add(Me.txtAvaid)
  441.         Me.GroupBox2.Controls.Add(Me.txtBatch)
  442.         Me.GroupBox2.Controls.Add(Me.txtPackage)
  443.         Me.GroupBox2.Controls.Add(Me.txtMoney)
  444.         Me.GroupBox2.Controls.Add(Me.txtCount)
  445.         Me.GroupBox2.Controls.Add(Me.txtPrice)
  446.         Me.GroupBox2.Controls.Add(Me.txtUnit)
  447.         Me.GroupBox2.Controls.Add(Me.txtRule)
  448.         Me.GroupBox2.Controls.Add(Me.txtName)
  449.         Me.GroupBox2.Controls.Add(Me.txtNumber)
  450.         Me.GroupBox2.Controls.Add(Me.Label23)
  451.         Me.GroupBox2.Controls.Add(Me.Label22)
  452.         Me.GroupBox2.Controls.Add(Me.Label21)
  453.         Me.GroupBox2.Controls.Add(Me.Label20)
  454.         Me.GroupBox2.Controls.Add(Me.Label19)
  455.         Me.GroupBox2.Controls.Add(Me.Label18)
  456.         Me.GroupBox2.Controls.Add(Me.Label17)
  457.         Me.GroupBox2.Controls.Add(Me.Label16)
  458.         Me.GroupBox2.Controls.Add(Me.Label15)
  459.         Me.GroupBox2.Controls.Add(Me.Label14)
  460.         Me.GroupBox2.Controls.Add(Me.Label13)
  461.         Me.GroupBox2.Controls.Add(Me.Label12)
  462.         Me.GroupBox2.Controls.Add(Me.Label11)
  463.         Me.GroupBox2.Controls.Add(Me.Label10)
  464.         Me.GroupBox2.Controls.Add(Me.Label9)
  465.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
  466.         Me.GroupBox2.Location = New System.Drawing.Point(0, 148)
  467.         Me.GroupBox2.Name = "GroupBox2"
  468.         Me.GroupBox2.Size = New System.Drawing.Size(877, 168)
  469.         Me.GroupBox2.TabIndex = 3
  470.         Me.GroupBox2.TabStop = False
  471.         Me.GroupBox2.Text = "药品信息："
  472.         '
  473.         'txtSum
  474.         '
  475.         Me.txtSum.BackColor = System.Drawing.SystemColors.Control
  476.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtSum, True)
  477.         Me.MsdnTextboxValidator1.SetDataType(Me.txtSum, MSDNTextboxValidator.DataTypeConstants.StringType)
  478.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtSum, "")
  479.         Me.txtSum.ForeColor = System.Drawing.Color.Black
  480.         Me.txtSum.Location = New System.Drawing.Point(768, 129)
  481.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtSum, "")
  482.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtSum, "")
  483.         Me.txtSum.Name = "txtSum"
  484.         Me.txtSum.ReadOnly = True
  485.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtSum, "")
  486.         Me.MsdnTextboxValidator1.SetRequired(Me.txtSum, False)
  487.         Me.txtSum.Size = New System.Drawing.Size(96, 25)
  488.         Me.txtSum.TabIndex = 31
  489.         Me.txtSum.Text = ""
  490.         '
  491.         'Label24
  492.         '
  493.         Me.Label24.AutoSize = True
  494.         Me.Label24.ForeColor = System.Drawing.Color.Red
  495.         Me.Label24.Location = New System.Drawing.Point(696, 136)
  496.         Me.Label24.Name = "Label24"
  497.         Me.Label24.Size = New System.Drawing.Size(83, 21)
  498.         Me.Label24.TabIndex = 30
  499.         Me.Label24.Text = "合计金额："
  500.         '
  501.         'txtZprice
  502.         '
  503.         Me.txtZprice.BackColor = System.Drawing.Color.White
  504.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtZprice, True)
  505.         Me.MsdnTextboxValidator1.SetDataType(Me.txtZprice, MSDNTextboxValidator.DataTypeConstants.DoubleType)
  506.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtZprice, "")
  507.         Me.txtZprice.ForeColor = System.Drawing.Color.Black
  508.         Me.txtZprice.Location = New System.Drawing.Point(544, 129)
  509.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtZprice, "")
  510.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtZprice, "")
  511.         Me.txtZprice.Name = "txtZprice"
  512.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtZprice, "")
  513.         Me.MsdnTextboxValidator1.SetRequired(Me.txtZprice, False)
  514.         Me.txtZprice.Size = New System.Drawing.Size(128, 25)
  515.         Me.txtZprice.TabIndex = 29
  516.         Me.txtZprice.Text = "0.00"
  517.         '
  518.         'txtJprice
  519.         '
  520.         Me.txtJprice.BackColor = System.Drawing.Color.White
  521.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtJprice, True)
  522.         Me.MsdnTextboxValidator1.SetDataType(Me.txtJprice, MSDNTextboxValidator.DataTypeConstants.DoubleType)
  523.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtJprice, "")
  524.         Me.txtJprice.ForeColor = System.Drawing.Color.Black
  525.         Me.txtJprice.Location = New System.Drawing.Point(256, 129)
  526.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtJprice, "")
  527.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtJprice, "")
  528.         Me.txtJprice.Name = "txtJprice"
  529.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtJprice, "")
  530.         Me.MsdnTextboxValidator1.SetRequired(Me.txtJprice, False)
  531.         Me.txtJprice.Size = New System.Drawing.Size(128, 25)
  532.         Me.txtJprice.TabIndex = 28
  533.         Me.txtJprice.Text = "0.00"
  534.         '
  535.         'txtLprice
  536.         '
  537.         Me.txtLprice.BackColor = System.Drawing.Color.White
  538.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtLprice, True)
  539.         Me.MsdnTextboxValidator1.SetDataType(Me.txtLprice, MSDNTextboxValidator.DataTypeConstants.StringType)
  540.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtLprice, "")
  541.         Me.txtLprice.ForeColor = System.Drawing.Color.Black
  542.         Me.txtLprice.Location = New System.Drawing.Point(80, 129)
  543.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtLprice, "")
  544.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtLprice, "")
  545.         Me.txtLprice.Name = "txtLprice"
  546.         Me.txtLprice.ReadOnly = True
  547.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtLprice, "")
  548.         Me.MsdnTextboxValidator1.SetRequired(Me.txtLprice, False)
  549.         Me.txtLprice.Size = New System.Drawing.Size(88, 25)
  550.         Me.txtLprice.TabIndex = 27
  551.         Me.txtLprice.Text = "0.00"
  552.         '
  553.         'txtPprice
  554.         '
  555.         Me.txtPprice.BackColor = System.Drawing.Color.White
  556.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtPprice, True)
  557.         Me.MsdnTextboxValidator1.SetDataType(Me.txtPprice, MSDNTextboxValidator.DataTypeConstants.StringType)
  558.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtPprice, "")
  559.         Me.txtPprice.ForeColor = System.Drawing.Color.Black
  560.         Me.txtPprice.Location = New System.Drawing.Point(768, 96)
  561.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtPprice, "")
  562.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtPprice, "")
  563.         Me.txtPprice.Name = "txtPprice"
  564.         Me.txtPprice.ReadOnly = True
  565.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtPprice, "")
  566.         Me.MsdnTextboxValidator1.SetRequired(Me.txtPprice, False)
  567.         Me.txtPprice.Size = New System.Drawing.Size(96, 25)
  568.         Me.txtPprice.TabIndex = 26
  569.         Me.txtPprice.Text = ""
  570.         '
  571.         'txtAddress
  572.         '
  573.         Me.txtAddress.BackColor = System.Drawing.Color.White
  574.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtAddress, True)
  575.         Me.MsdnTextboxValidator1.SetDataType(Me.txtAddress, MSDNTextboxValidator.DataTypeConstants.StringType)
  576.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtAddress, "")
  577.         Me.txtAddress.ForeColor = System.Drawing.Color.Black
  578.         Me.txtAddress.Location = New System.Drawing.Point(544, 96)
  579.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtAddress, "")
  580.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtAddress, "")
  581.         Me.txtAddress.Name = "txtAddress"
  582.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtAddress, "")
  583.         Me.MsdnTextboxValidator1.SetRequired(Me.txtAddress, False)
  584.         Me.txtAddress.Size = New System.Drawing.Size(128, 25)
  585.         Me.txtAddress.TabIndex = 25
  586.         Me.txtAddress.Text = ""
  587.         '
  588.         'txtAvaid
  589.         '
  590.         Me.txtAvaid.BackColor = System.Drawing.Color.White
  591.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtAvaid, True)
  592.         Me.MsdnTextboxValidator1.SetDataType(Me.txtAvaid, MSDNTextboxValidator.DataTypeConstants.StringType)
  593.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtAvaid, "")
  594.         Me.txtAvaid.ForeColor = System.Drawing.Color.Black
  595.         Me.txtAvaid.Location = New System.Drawing.Point(256, 96)
  596.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtAvaid, "")
  597.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtAvaid, "")
  598.         Me.txtAvaid.Name = "txtAvaid"
  599.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtAvaid, "")
  600.         Me.MsdnTextboxValidator1.SetRequired(Me.txtAvaid, False)
  601.         Me.txtAvaid.Size = New System.Drawing.Size(128, 25)
  602.         Me.txtAvaid.TabIndex = 24
  603.         Me.txtAvaid.Text = ""
  604.         '
  605.         'txtBatch
  606.         '
  607.         Me.txtBatch.BackColor = System.Drawing.Color.White
  608.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtBatch, True)
  609.         Me.MsdnTextboxValidator1.SetDataType(Me.txtBatch, MSDNTextboxValidator.DataTypeConstants.StringType)
  610.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtBatch, "")
  611.         Me.txtBatch.ForeColor = System.Drawing.Color.Black
  612.         Me.txtBatch.Location = New System.Drawing.Point(80, 96)
  613.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtBatch, "")
  614.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtBatch, "")
  615.         Me.txtBatch.Name = "txtBatch"
  616.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtBatch, "")
  617.         Me.MsdnTextboxValidator1.SetRequired(Me.txtBatch, False)
  618.         Me.txtBatch.Size = New System.Drawing.Size(88, 25)
  619.         Me.txtBatch.TabIndex = 23
  620.         Me.txtBatch.Text = ""
  621.         '
  622.         'txtPackage
  623.         '
  624.         Me.txtPackage.BackColor = System.Drawing.Color.White
  625.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtPackage, True)
  626.         Me.MsdnTextboxValidator1.SetDataType(Me.txtPackage, MSDNTextboxValidator.DataTypeConstants.StringType)
  627.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtPackage, "")
  628.         Me.txtPackage.ForeColor = System.Drawing.Color.Black
  629.         Me.txtPackage.Location = New System.Drawing.Point(768, 64)
  630.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtPackage, "")
  631.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtPackage, "")
  632.         Me.txtPackage.Name = "txtPackage"
  633.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtPackage, "")
  634.         Me.MsdnTextboxValidator1.SetRequired(Me.txtPackage, False)
  635.         Me.txtPackage.Size = New System.Drawing.Size(96, 25)
  636.         Me.txtPackage.TabIndex = 22
  637.         Me.txtPackage.Text = ""
  638.         '
  639.         'txtMoney
  640.         '
  641.         Me.txtMoney.BackColor = System.Drawing.SystemColors.Control
  642.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtMoney, True)
  643.         Me.MsdnTextboxValidator1.SetDataType(Me.txtMoney, MSDNTextboxValidator.DataTypeConstants.StringType)
  644.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtMoney, "")
  645.         Me.txtMoney.ForeColor = System.Drawing.Color.Black
  646.         Me.txtMoney.Location = New System.Drawing.Point(544, 64)
  647.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtMoney, "")
  648.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtMoney, "")
  649.         Me.txtMoney.Name = "txtMoney"
  650.         Me.txtMoney.ReadOnly = True
  651.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtMoney, "")
  652.         Me.MsdnTextboxValidator1.SetRequired(Me.txtMoney, False)
  653.         Me.txtMoney.Size = New System.Drawing.Size(128, 25)
  654.         Me.txtMoney.TabIndex = 21
  655.         Me.txtMoney.Text = "0.00"
  656.         '
  657.         'txtCount
  658.         '
  659.         Me.txtCount.BackColor = System.Drawing.Color.White
  660.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtCount, True)
  661.         Me.MsdnTextboxValidator1.SetDataType(Me.txtCount, MSDNTextboxValidator.DataTypeConstants.Int16Type)
  662.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtCount, "")
  663.         Me.txtCount.ForeColor = System.Drawing.Color.Black
  664.         Me.txtCount.Location = New System.Drawing.Point(256, 64)
  665.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtCount, "")
  666.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtCount, "")
  667.         Me.txtCount.Name = "txtCount"
  668.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtCount, "")
  669.         Me.MsdnTextboxValidator1.SetRequired(Me.txtCount, False)
  670.         Me.txtCount.Size = New System.Drawing.Size(128, 25)
  671.         Me.txtCount.TabIndex = 20
  672.         Me.txtCount.Text = ""
  673.         '
  674.         'txtPrice
  675.         '
  676.         Me.txtPrice.BackColor = System.Drawing.Color.White
  677.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtPrice, True)
  678.         Me.MsdnTextboxValidator1.SetDataType(Me.txtPrice, MSDNTextboxValidator.DataTypeConstants.DoubleType)
  679.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtPrice, "")
  680.         Me.txtPrice.ForeColor = System.Drawing.Color.Black
  681.         Me.txtPrice.Location = New System.Drawing.Point(80, 64)
  682.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtPrice, "")
  683.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtPrice, "")
  684.         Me.txtPrice.Name = "txtPrice"
  685.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtPrice, "")
  686.         Me.MsdnTextboxValidator1.SetRequired(Me.txtPrice, False)
  687.         Me.txtPrice.Size = New System.Drawing.Size(88, 25)
  688.         Me.txtPrice.TabIndex = 19
  689.         Me.txtPrice.Text = "0.00"
  690.         '
  691.         'txtUnit
  692.         '
  693.         Me.txtUnit.BackColor = System.Drawing.SystemColors.Control
  694.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtUnit, True)
  695.         Me.MsdnTextboxValidator1.SetDataType(Me.txtUnit, MSDNTextboxValidator.DataTypeConstants.StringType)
  696.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtUnit, "")
  697.         Me.txtUnit.ForeColor = System.Drawing.Color.Black
  698.         Me.txtUnit.Location = New System.Drawing.Point(768, 32)
  699.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtUnit, "")
  700.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtUnit, "")
  701.         Me.txtUnit.Name = "txtUnit"
  702.         Me.txtUnit.ReadOnly = True
  703.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtUnit, "")
  704.         Me.MsdnTextboxValidator1.SetRequired(Me.txtUnit, False)
  705.         Me.txtUnit.Size = New System.Drawing.Size(96, 25)
  706.         Me.txtUnit.TabIndex = 18
  707.         Me.txtUnit.Text = ""
  708.         '
  709.         'txtRule
  710.         '
  711.         Me.txtRule.BackColor = System.Drawing.SystemColors.Control
  712.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtRule, True)
  713.         Me.MsdnTextboxValidator1.SetDataType(Me.txtRule, MSDNTextboxValidator.DataTypeConstants.StringType)
  714.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtRule, "")
  715.         Me.txtRule.ForeColor = System.Drawing.Color.Black
  716.         Me.txtRule.Location = New System.Drawing.Point(544, 32)
  717.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtRule, "")
  718.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtRule, "")
  719.         Me.txtRule.Name = "txtRule"
  720.         Me.txtRule.ReadOnly = True
  721.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtRule, "")
  722.         Me.MsdnTextboxValidator1.SetRequired(Me.txtRule, False)
  723.         Me.txtRule.Size = New System.Drawing.Size(128, 25)
  724.         Me.txtRule.TabIndex = 17
  725.         Me.txtRule.Text = ""
  726.         '
  727.         'txtName
  728.         '
  729.         Me.txtName.BackColor = System.Drawing.SystemColors.Control
  730.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtName, True)
  731.         Me.MsdnTextboxValidator1.SetDataType(Me.txtName, MSDNTextboxValidator.DataTypeConstants.StringType)
  732.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtName, "")
  733.         Me.txtName.ForeColor = System.Drawing.Color.Black
  734.         Me.txtName.Location = New System.Drawing.Point(256, 31)
  735.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtName, "")
  736.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtName, "")
  737.         Me.txtName.Name = "txtName"
  738.         Me.txtName.ReadOnly = True
  739.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtName, "")
  740.         Me.MsdnTextboxValidator1.SetRequired(Me.txtName, False)
  741.         Me.txtName.Size = New System.Drawing.Size(200, 25)
  742.         Me.txtName.TabIndex = 16
  743.         Me.txtName.Text = ""
  744.         '
  745.         'txtNumber
  746.         '
  747.         Me.txtNumber.BackColor = System.Drawing.Color.White
  748.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtNumber, True)
  749.         Me.MsdnTextboxValidator1.SetDataType(Me.txtNumber, MSDNTextboxValidator.DataTypeConstants.StringType)
  750.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtNumber, "")
  751.         Me.txtNumber.ForeColor = System.Drawing.Color.Black
  752.         Me.txtNumber.Location = New System.Drawing.Point(80, 31)
  753.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtNumber, "")
  754.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtNumber, "")
  755.         Me.txtNumber.Name = "txtNumber"
  756.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtNumber, "")
  757.         Me.MsdnTextboxValidator1.SetRequired(Me.txtNumber, False)
  758.         Me.txtNumber.Size = New System.Drawing.Size(88, 25)
  759.         Me.txtNumber.TabIndex = 15
  760.         Me.txtNumber.Text = ""
  761.         '
  762.         'Label23
  763.         '
  764.         Me.Label23.AutoSize = True
  765.         Me.Label23.Location = New System.Drawing.Point(488, 136)
  766.         Me.Label23.Name = "Label23"
  767.         Me.Label23.Size = New System.Drawing.Size(67, 21)
  768.         Me.Label23.TabIndex = 14
  769.         Me.Label23.Text = "最低价："
  770.         '
  771.         'Label22
  772.         '
  773.         Me.Label22.AutoSize = True
  774.         Me.Label22.Location = New System.Drawing.Point(200, 136)
  775.         Me.Label22.Name = "Label22"
  776.         Me.Label22.Size = New System.Drawing.Size(67, 21)
  777.         Me.Label22.TabIndex = 13
  778.         Me.Label22.Text = "建议价："
  779.         '
  780.         'Label21
  781.         '
  782.         Me.Label21.AutoSize = True
  783.         Me.Label21.Location = New System.Drawing.Point(24, 136)
  784.         Me.Label21.Name = "Label21"
  785.         Me.Label21.Size = New System.Drawing.Size(67, 21)
  786.         Me.Label21.TabIndex = 12
  787.         Me.Label21.Text = "零售价："
  788.         '
  789.         'Label20
  790.         '
  791.         Me.Label20.AutoSize = True
  792.         Me.Label20.Location = New System.Drawing.Point(712, 104)
  793.         Me.Label20.Name = "Label20"
  794.         Me.Label20.Size = New System.Drawing.Size(67, 21)
  795.         Me.Label20.TabIndex = 11
  796.         Me.Label20.Text = "批发价："
  797.         '
  798.         'Label19
  799.         '
  800.         Me.Label19.AutoSize = True
  801.         Me.Label19.Location = New System.Drawing.Point(504, 104)
  802.         Me.Label19.Name = "Label19"
  803.         Me.Label19.Size = New System.Drawing.Size(52, 21)
  804.         Me.Label19.TabIndex = 10
  805.         Me.Label19.Text = "产地："
  806.         '
  807.         'Label18
  808.         '
  809.         Me.Label18.AutoSize = True
  810.         Me.Label18.Location = New System.Drawing.Point(200, 104)
  811.         Me.Label18.Name = "Label18"
  812.         Me.Label18.Size = New System.Drawing.Size(67, 21)
  813.         Me.Label18.TabIndex = 9
  814.         Me.Label18.Text = "有效期："
  815.         '
  816.         'Label17
  817.         '
  818.         Me.Label17.AutoSize = True
  819.         Me.Label17.Location = New System.Drawing.Point(40, 104)
  820.         Me.Label17.Name = "Label17"
  821.         Me.Label17.Size = New System.Drawing.Size(52, 21)
  822.         Me.Label17.TabIndex = 8
  823.         Me.Label17.Text = "批号："
  824.         '
  825.         'Label16
  826.         '
  827.         Me.Label16.AutoSize = True
  828.         Me.Label16.Location = New System.Drawing.Point(728, 72)
  829.         Me.Label16.Name = "Label16"
  830.         Me.Label16.Size = New System.Drawing.Size(52, 21)
  831.         Me.Label16.TabIndex = 7
  832.         Me.Label16.Text = "包装："
  833.         '
  834.         'Label15
  835.         '
  836.         Me.Label15.AutoSize = True
  837.         Me.Label15.ForeColor = System.Drawing.Color.Red
  838.         Me.Label15.Location = New System.Drawing.Point(504, 72)
  839.         Me.Label15.Name = "Label15"
  840.         Me.Label15.Size = New System.Drawing.Size(52, 21)
  841.         Me.Label15.TabIndex = 6
  842.         Me.Label15.Text = "金额："
  843.         '
  844.         'Label14
  845.         '
  846.         Me.Label14.AutoSize = True
  847.         Me.Label14.Location = New System.Drawing.Point(216, 72)
  848.         Me.Label14.Name = "Label14"
  849.         Me.Label14.Size = New System.Drawing.Size(52, 21)
  850.         Me.Label14.TabIndex = 5
  851.         Me.Label14.Text = "数量："
  852.         '
  853.         'Label13
  854.         '
  855.         Me.Label13.AutoSize = True
  856.         Me.Label13.Location = New System.Drawing.Point(40, 72)
  857.         Me.Label13.Name = "Label13"
  858.         Me.Label13.Size = New System.Drawing.Size(52, 21)
  859.         Me.Label13.TabIndex = 4
  860.         Me.Label13.Text = "进价："
  861.         '
  862.         'Label12
  863.         '
  864.         Me.Label12.AutoSize = True
  865.         Me.Label12.Location = New System.Drawing.Point(728, 40)
  866.         Me.Label12.Name = "Label12"
  867.         Me.Label12.Size = New System.Drawing.Size(52, 21)
  868.         Me.Label12.TabIndex = 3
  869.         Me.Label12.Text = "单位："
  870.         '
  871.         'Label11
  872.         '
  873.         Me.Label11.AutoSize = True
  874.         Me.Label11.Location = New System.Drawing.Point(472, 40)
  875.         Me.Label11.Name = "Label11"
  876.         Me.Label11.Size = New System.Drawing.Size(83, 21)
  877.         Me.Label11.TabIndex = 2
  878.         Me.Label11.Text = "药品规格："
  879.         '
  880.         'Label10
  881.         '
  882.         Me.Label10.AutoSize = True
  883.         Me.Label10.Location = New System.Drawing.Point(184, 40)
  884.         Me.Label10.Name = "Label10"
  885.         Me.Label10.Size = New System.Drawing.Size(83, 21)
  886.         Me.Label10.TabIndex = 1
  887.         Me.Label10.Text = "药品名称："
  888.         '
  889.         'Label9
  890.         '
  891.         Me.Label9.AutoSize = True
  892.         Me.Label9.Location = New System.Drawing.Point(8, 40)
  893.         Me.Label9.Name = "Label9"
  894.         Me.Label9.Size = New System.Drawing.Size(83, 21)
  895.         Me.Label9.TabIndex = 0
  896.         Me.Label9.Text = "药品编号："
  897.         '
  898.         'dgrk
  899.         '
  900.         Me.dgrk.AlternatingBackColor = System.Drawing.Color.Gainsboro
  901.         Me.dgrk.BackColor = System.Drawing.Color.Silver
  902.         Me.dgrk.BackgroundColor = System.Drawing.Color.Silver
  903.         Me.dgrk.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  904.         Me.dgrk.CaptionBackColor = System.Drawing.Color.DarkSlateBlue
  905.         Me.dgrk.CaptionFont = New System.Drawing.Font("Tahoma", 8.0!)
  906.         Me.dgrk.CaptionForeColor = System.Drawing.Color.White
  907.         Me.dgrk.CaptionVisible = False
  908.         Me.dgrk.DataMember = ""
  909.         Me.dgrk.Dock = System.Windows.Forms.DockStyle.Fill
  910.         Me.dgrk.FlatMode = True
  911.         Me.dgrk.ForeColor = System.Drawing.Color.Black
  912.         Me.dgrk.GridLineColor = System.Drawing.Color.White
  913.         Me.dgrk.HeaderBackColor = System.Drawing.Color.DarkGray
  914.         Me.dgrk.HeaderForeColor = System.Drawing.Color.Black
  915.         Me.dgrk.LinkColor = System.Drawing.Color.DarkSlateBlue
  916.         Me.dgrk.Location = New System.Drawing.Point(0, 316)
  917.         Me.dgrk.Name = "dgrk"
  918.         Me.dgrk.ParentRowsBackColor = System.Drawing.Color.Black
  919.         Me.dgrk.ParentRowsForeColor = System.Drawing.Color.White
  920.         Me.dgrk.RowHeadersVisible = False
  921.         Me.dgrk.SelectionBackColor = System.Drawing.Color.DarkSlateBlue
  922.         Me.dgrk.SelectionForeColor = System.Drawing.Color.White
  923.         Me.dgrk.Size = New System.Drawing.Size(877, 337)
  924.         Me.dgrk.TabIndex = 4
  925.         '
  926.         'MsdnTextboxValidator1
  927.         '
  928.         Me.MsdnTextboxValidator1.DisplayControl = Nothing
  929.         Me.MsdnTextboxValidator1.ErrorProvider = Nothing
  930.         Me.MsdnTextboxValidator1.InvalidBackColor = System.Drawing.Color.Empty
  931.         Me.MsdnTextboxValidator1.TooltipProvider = Nothing
  932.         '
  933.         'ErrorProvider1
  934.         '
  935.         Me.ErrorProvider1.ContainerControl = Me
  936.         '
  937.         'frmrk
  938.         '
  939.         Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
  940.         Me.ClientSize = New System.Drawing.Size(877, 682)
  941.         Me.Controls.Add(Me.dgrk)
  942.         Me.Controls.Add(Me.GroupBox2)
  943.         Me.Controls.Add(Me.GroupBox1)
  944.         Me.Controls.Add(Me.StatusBar1)
  945.         Me.Controls.Add(Me.tbrRk)
  946.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
  947.         Me.Name = "frmrk"
  948.         Me.Text = "药品入库登记"
  949.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  950.         Me.GroupBox1.ResumeLayout(False)
  951.         Me.GroupBox2.ResumeLayout(False)
  952.         CType(Me.dgrk, System.ComponentModel.ISupportInitialize).EndInit()
  953.         Me.ResumeLayout(False)
  955.     End Sub
  957. #End Region
  958.     Public bl As Boolean
  959.     Public lsweb As New jxcmanage
  960.     Public dslocal As DataSet = lsweb.returndataset("select 日期,票号,结算方式,客户编号,客户名称,金额,应付金额,操作员 from wz_rk_fk", "wz_rk_fk")
  962.     Public dslocals As DataSet = lsweb.returndataset("select 序号,药品编号,药品名称,药品规格,单位,进价,数量,金额,批号,有效期,包装,产地,批发价,零售价,建议价,最低价,日期,票号,客户编号,客户名称,货位,结算,操作员 from wz_rk", "wz_rk")
  963.     Public Function getinfo(ByVal strqueryid As String) As String
  964.         Dim strOrderId As String
  965.         strOrderId = strqueryid
  966.         Return strOrderId
  967.     End Function
  968.     Private Sub txtCustNumber_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCustNumber.KeyDown
  969.         If e.KeyCode = Keys.Enter Then
  970.             Dim dlg As frmQuery = New frmQuery
  971.             dlg.PYM = Me.getinfo(txtCustNumber.Text)
  972.             If dlg.PYM = "" Then
  973.                 ErrorProvider1.SetError(txtCustNumber, "不能为空，请输入查询码！")
  974.             Else
  975.                 dlg.ShowDialog()
  976.                 ErrorProvider1.SetError(txtCustNumber, "")
  977.             End If
  978.             Dim CustIdvalue As String
  979.             CustIdvalue = dlg.GetInfo("客户编号")
  980.             If CustIdvalue Is Nothing Then
  981.                 ErrorProvider1.SetError(txtCustNumber, "或没有查到记录，请重新开始！")
  982.             Else
  983.                 Dim runSqlQuery As String
  984.                 runSqlQuery = "select * from wz_kh where 客户编号='" & CustIdvalue & "'"
  985.                 Dim dv As DataView
  986.                 ' Dim mOrderId As New managers
  987.                 '调用mCustomId对象的SPcustomersID函数
  988.                 Dim dtOrder As DataTable = lsweb.runSql(runSqlQuery).Tables(0)
  989.                 'bb为一随意表名
  990.                 dtOrder.TableName = "bb"
  991.                 dv = dtOrder.DefaultView
  992.                 txtCustNumber.Text = dv(0)("客户编号")
  993.                 txtCustName.Text = dv(0)("客户名称")
  994.                 cboJs.Focus()
  995.                 ErrorProvider1.SetError(txtCustNumber, "")
  996.             End If
  997.         End If
  998.     End Sub
  999.     Private Sub txtNumber_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtNumber.KeyDown
  1000.         If e.KeyCode = Keys.Enter Then
  1001.             Dim dlg As frmMedQuery = New frmMedQuery
  1002.             dlg.PYM = Me.getinfo(txtNumber.Text)
  1003.             If dlg.PYM = "" Then
  1004.                 ErrorProvider1.SetError(txtNumber, "不能为空，请输入查询码！")
  1005.             Else
  1006.                 dlg.ShowDialog()
  1007.                 ErrorProvider1.SetError(txtNumber, "")
  1008.             End If
  1009.             Dim medIdvalue As String
  1010.             medIdvalue = dlg.GetInfo("药品编号")
  1011.             If medIdvalue Is Nothing Then
  1012.                 ErrorProvider1.SetError(txtNumber, "不能为空，请输入查询码！或没有查到记录，请重新开始！")
  1013.             Else
  1014.                 Dim runSqlQuery As String
  1015.                 runSqlQuery = "select * from wz_cp where 药品编号='" & medIdvalue & " '"
  1016.                 Dim dv As DataView
  1017.                 ' Dim mOrderId As New managers
  1018.                 '调用mCustomId对象的SPcustomersID函数
  1019.                 Dim dtOrder As DataTable = lsweb.runSql(runSqlQuery).Tables(0)
  1020.                 'bb为一随意表名
  1021.                 dtOrder.TableName = "bb"
  1022.                 dv = dtOrder.DefaultView
  1023.                 txtNumber.Text = dv(0)("药品编号")
  1024.                 txtName.Text = dv(0)("药品名称")
  1025.                 txtRule.Text = dv(0)("药品规格")
  1026.                 txtUnit.Text = dv(0)("单位")
  1027.                 txtPrice.Text = dv(0)("单价")
  1028.                 txtAvaid.Text = dv(0)("有效期")
  1029.                 'txtPackage.Text = dv(0)("包装")
  1030.                 txtAddress.Text = dv(0)("产地")
  1031.                 txtPprice.Text = dv(0)("批发价")
  1032.                 txtLprice.Text = dv(0)("零售价")
  1034.                 ErrorProvider1.SetError(txtNumber, "")
  1035.             End If
  1036.             txtPrice.Focus()
  1037.         End If
  1038.     End Sub
  1039.     Public Sub add()
  1040.         dslocals.Clear()
  1041.         txtCustNumber.Text() = ""
  1042.         txtCustNumber.Enabled = True
  1043.         txtCustNumber.ReadOnly = False
  1045.         cboJs.Enabled = True
  1046.         cboHw.Enabled = True
  1047.         txtdate.Enabled = True
  1049.         txtCustNumber.Focus()
  1050.         txtCustName.Text() = ""
  1051.         txtdate.Value() = Today().ToString()
  1053.         If tbrTh.Enabled = False Then
  1054.             txtBillNumber.Text = lsweb.selectbill("TH").ToString
  1055.             txtBillNumber.ForeColor = System.Drawing.Color.Red
  1056.             txtCount.ForeColor = System.Drawing.Color.Red
  1057.         Else
  1058.             txtBillNumber.Text = lsweb.selectbill("RK").ToString
  1059.             txtBillNumber.ForeColor = System.Drawing.Color.Black
  1060.             txtCount.ForeColor = System.Drawing.Color.Black
  1061.         End If
  1064.         txtNo.Text = 1
  1065.         cboJs.Text = ""
  1067.         txtNumber.Text = ""
  1068.         txtName.Text() = ""
  1069.         txtRule.Text() = ""
  1070.         txtUnit.Text() = ""
  1071.         txtPrice.Text() = ""
  1072.         txtCount.Text() = ""
  1073.         'txtMoney.Text() = ""
  1074.         txtPackage.Text() = ""
  1075.         txtBatch.Text() = ""
  1076.         txtAvaid.Text() = ""
  1077.         txtAddress.Text() = ""
  1078.         txtPprice.Text() = CStr(0)
  1079.         txtLprice.Text() = CStr(0)
  1080.         txtJprice.Text() = CStr(0)
  1081.         txtZprice.Text() = CStr(0)
  1082.     End Sub
  1083.     Public Sub tbnEnable(ByVal strboolean As String, ByVal tbr As ToolBar)
  1084.         If strboolean = "tbrAdd.Enabled = True" Then
  1085.             tbrSave.Enabled = False
  1086.             tbrPrint.Enabled = False
  1087.             tbrExit.Enabled = True
  1088.             tbrTh.Enabled = True
  1089.         ElseIf strboolean = "tbrAdd.Enabled = False" Then
  1090.             tbrAdd.Enabled = False
  1091.             tbrSave.Enabled = True
  1092.             tbrPrint.Enabled = False
  1093.             tbrExit.Enabled = True
  1094.             tbrTh.Enabled = False
  1095.         ElseIf strboolean = "tbrSave.Enabled = True" Then
  1096.             tbrAdd.Enabled = False
  1097.             tbrPrint.Enabled = False
  1098.             tbrExit.Enabled = True
  1099.             tbrTh.Enabled = True
  1101.         ElseIf strboolean = "tbrSave.Enabled = False" Then
  1102.             tbrSave.Enabled = False
  1103.             tbrAdd.Enabled = True
  1104.             tbrPrint.Enabled = True
  1105.             tbrExit.Enabled = True
  1106.             tbrTh.Enabled = True
  1107.         ElseIf strboolean = "tbrTh.Enabled = True" Then
  1108.             tbrSave.Enabled = True
  1109.             tbrAdd.Enabled = True
  1110.             tbrPrint.Enabled = True
  1111.             tbrExit.Enabled = True
  1113.         ElseIf strboolean = "tbrTh.Enabled = False" Then
  1114.             tbrTh.Enabled = False
  1115.             tbrSave.Enabled = False
  1116.             tbrAdd.Enabled = True
  1117.             tbrPrint.Enabled = False
  1118.             tbrExit.Enabled = True
  1120.         End If
  1121.     End Sub
  1122.     Private Sub save()
  1123.         
  1124.             Dim dr As DataRow = dslocal.Tables("wz_rk_fk").NewRow()
  1125.             dr("票号") = Me.txtBillNumber.Text.Trim
  1126.             dr("客户编号") = Me.txtCustNumber.Text.Trim
  1127.             dr("客户名称") = Me.txtCustName.Text.Trim
  1128.             dr("日期") = Me.txtdate.Value
  1129.             dr("结算方式") = Me.cboJs.Text.Trim
  1130.             dr("操作员") = Me.txtSzy.Text.Trim
  1131.             dr("金额") = Me.txtSum.Text.Trim
  1132.             If Me.cboJs.Text = "记账" Or Me.cboJs.Text = "支票" Then
  1133.                 dr("应付金额") = Me.txtSum.Text.Trim
  1134.             Else
  1135.                 dr("应付金额") = 0
  1137.             End If
  1139.             dslocal.Tables("wz_rk_fk").Rows.Add(dr)
  1140.             If lsweb.updatedataset("select 序号,药品编号,药品名称,药品规格,单位,进价,数量,金额,批号,有效期,包装,产地,批发价,零售价,建议价,最低价,日期,票号,客户编号,客户名称,货位,结算,操作员 from wz_rk", "wz_rk", dslocals, DataRowState.Added) = True And lsweb.updatedataset("select 日期,票号,结算方式,客户编号,客户名称,金额,应付金额,操作员 from wz_rk_fk", "wz_rk_fk", dslocal, DataRowState.Added) = True Then
  1141.                 MessageBox.Show("入库信息成功保存！", "提示", MessageBoxButtons.OK)
  1142.             Else
  1143.                 MessageBox.Show("入库信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  1144.             End If
  1145.             txtCustNumber.ReadOnly = False
  1146.             txtCustNumber.Text() = ""
  1147.             txtCustNumber.Focus()
  1148.             txtCustName.ReadOnly = False
  1149.             txtdate.Enabled = True
  1150.             txtBillNumber.ReadOnly = True
  1151.             txtNo.ReadOnly = True
  1152.             cboJs.Enabled = True
  1153.             cboJs.Text = ""
  1154.             cboHw.Enabled = True
  1155.             cboHw.Text = ""
  1157.     End Sub
  1158.     Private Sub frmrk_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  1159.         dslocals.Clear()
  1160.         dgrk.DataSource = dslocals.Tables("wz_rk").DefaultView
  1161.         Dim dslocalmm As DataSet = lsweb.returndataset("select 操作员 from wz_mm", "wz_mm")
  1162.         Dim hwdr As System.Data.SqlClient.SqlDataReader
  1163.         hwdr = lsweb.returnDataReader("select 货位 from wz_hw")
  1164.         Do While hwdr.Read()
  1166.             cboHw.Items.Add(hwdr("货位"))
  1167.         Loop
  1168.         txtdate.Value() = Today().ToString()
  1169.         tbrAdd.Enabled = True
  1170.         tbrSave.Enabled = False
  1171.         tbrPrint.Enabled = False
  1172.         tbrQuery.Enabled = True
  1173.         tbrExit.Enabled = True
  1174.         Dim frmloginer As New frmLogin
  1175.         txtSzy.Text = frmloginer.struser
  1176.         txtdate.Value = Today.ToString
  1177.     End Sub
  1178.     Private Sub txtZprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtZprice.KeyDown
  1179.         If Not IsNumeric(txtZprice.Text) Or txtZprice.Text = String.Empty Then
  1180.             ErrorProvider1.SetError(txtZprice, "不是数值类型且不能为空。")
  1181.             txtZprice.Focus()
  1182.         Else
  1183.             If e.KeyCode = Keys.Enter Then
  1184.                 Static i As Int16
  1185.                 If dslocals.Tables("wz_rk").Rows.Count < 1 Then
  1186.                     i = 1
  1187.                 Else
  1188.                     i = i + 1
  1189.                 End If
  1190.                 txtNo.Text = CStr(i)
  1191.                 Dim dr As DataRow = dslocals.Tables("wz_rk").NewRow()
  1192.                 dr("序号") = CInt(Me.txtNo.Text.Trim)
  1193.                 dr("药品编号") = Me.txtNumber.Text.Trim
  1194.                 dr("药品名称") = Me.txtName.Text.Trim
  1195.                 dr("药品规格") = Me.txtRule.Text.Trim
  1196.                 dr("单位") = Me.txtUnit.Text.Trim
  1197.                 dr("进价") = CDec(Me.txtPrice.Text.Trim)
  1198.                 dr("数量") = Me.txtCount.Text.Trim
  1199.                 dr("金额") = CDec(Me.txtPrice.Text.Trim) * CInt(Me.txtCount.Text.Trim)
  1200.                 dr("批号") = Me.txtBatch.Text.Trim
  1201.                 dr("有效期") = Me.txtAvaid.Text.Trim
  1202.                 dr("包装") = Me.txtPackage.Text.Trim
  1203.                 dr("产地") = Me.txtAddress.Text.Trim
  1204.                 dr("批发价") = Me.txtPprice.Text.Trim
  1205.                 dr("零售价") = Me.txtLprice.Text.Trim
  1206.                 dr("建议价") = CInt(Me.txtJprice.Text.Trim)
  1207.                 dr("最低价") = CInt(Me.txtZprice.Text.Trim)
  1208.                 dr("日期") = Me.txtdate.Text.Trim
  1209.                 dr("票号") = Me.txtBillNumber.Text.Trim
  1210.                 dr("客户编号") = Me.txtCustNumber.Text.Trim
  1211.                 dr("客户名称") = Me.txtCustName.Text.Trim
  1212.                 dr("货位") = Me.cboHw.Text.Trim
  1213.                 dr("结算") = Me.cboJs.Text.Trim
  1214.                 dr("操作员") = Me.txtSzy.Text.Trim
  1215.                 dslocals.Tables("wz_rk").Rows.Add(dr)
  1216.                 CalTotalMoney()
  1217.                 txtNumber.Focus()
  1218.                 clear()
  1220.             End If
  1221.             ErrorProvider1.SetError(txtZprice, "")
  1222.         End If
  1223.         dgrk.DataSource = dslocals.Tables("wz_rk").DefaultView
  1224.     End Sub
  1225.     Private Sub clear()
  1226.         txtCustNumber.ReadOnly = True
  1227.         txtCustName.ReadOnly = True
  1228.         txtdate.Enabled = False
  1229.         txtBillNumber.ReadOnly = True
  1230.         txtNo.ReadOnly = True
  1231.         cboJs.Enabled = False
  1232.         cboHw.Enabled = False
  1233.         txtNumber.Text = ""
  1234.         txtName.Text() = ""
  1235.         txtRule.Text() = ""
  1236.         txtUnit.Text() = ""
  1237.         txtPrice.Text() = 0.0
  1238.         txtCount.Text() = 0
  1239.         txtMoney.Text() = 0.0
  1240.         txtPackage.Text() = ""
  1241.         txtBatch.Text() = ""
  1242.         txtAvaid.Text() = ""
  1243.         txtAddress.Text() = ""
  1244.         txtPprice.Text() = CStr(0.0)
  1245.         txtLprice.Text() = CStr(0.0)
  1246.         txtJprice.Text() = CStr(0.0)
  1247.         txtZprice.Text() = CStr(0.0)
  1248.     End Sub
  1251.     Private Sub clearAll()
  1252.         txtCustNumber.ReadOnly = True
  1253.         txtCustName.ReadOnly = True
  1254.         txtCustName.Text = ""
  1255.         txtSum.Text = ""
  1256.         txtdate.Enabled = False
  1257.         txtBillNumber.ReadOnly = True
  1258.         txtNo.ReadOnly = True
  1259.         cboJs.Enabled = False
  1260.         cboHw.Enabled = False
  1261.         txtNumber.Text = ""
  1262.         txtName.Text() = ""
  1263.         txtRule.Text() = ""
  1264.         txtUnit.Text() = ""
  1265.         txtPrice.Text() = 0.0
  1266.         txtCount.Text() = 0
  1267.         txtMoney.Text() = 0.0
  1268.         txtPackage.Text() = ""
  1269.         txtBatch.Text() = ""
  1270.         txtAvaid.Text() = ""
  1271.         txtAddress.Text() = ""
  1272.         txtPprice.Text() = CStr(0.0)
  1273.         txtLprice.Text() = CStr(0.0)
  1274.         txtJprice.Text() = CStr(0.0)
  1275.         txtZprice.Text() = CStr(0.0)
  1276.     End Sub
  1277.     Private Sub cboJs_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboJs.KeyDown
  1278.         If e.KeyCode = Keys.Enter Then
  1279.             cboHw.Focus()
  1280.         End If
  1281.     End Sub
  1283.     Private Sub cboHw_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboHw.KeyDown
  1284.         If e.KeyCode = Keys.Enter Then
  1285.             txtNumber.Focus()
  1286.         End If
  1287.     End Sub
  1288.     Private Sub txtPrice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPrice.KeyDown
  1289.         If e.KeyCode = Keys.Enter Then
  1290.             txtCount.Focus()
  1291.         End If
  1292.     End Sub
  1293.     Private Sub txtCount_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtCount.KeyDown
  1294.         If e.KeyCode = Keys.Enter Then
  1295.             If txtCount.Text = String.Empty Then
  1296.                 txtCount_Validating(Nothing, Nothing)
  1297.             Else
  1298.                 CalMxMoney()
  1299.                 txtPackage.Focus()
  1300.             End If
  1301.         End If
  1303.     End Sub
  1304.     Private Sub CalTotalMoney()
  1305.         If dslocals.Tables("wz_rk").Rows.Count = 0 Then
  1306.             Me.txtMoney.Text = 0
  1307.         End If
  1308.         Dim money As String = ""
  1309.         Dim dtotal As Double = 0
  1310.         For Each dr As DataRow In dslocals.Tables("wz_rk").Rows
  1311.             money = dr("金额")
  1312.             dtotal = dtotal + CType(money.Trim, Double)
  1313.             txtSum.Text = dtotal.ToString.Trim
  1314.         Next
  1315.     End Sub
  1316.     Private Sub txtPackage_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtPackage.KeyDown
  1317.         If e.KeyCode = Keys.Enter Then
  1318.             txtBatch.Focus()
  1319.         End If
  1320.     End Sub
  1321.     Private Sub txtBatch_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBatch.KeyDown
  1322.         If e.KeyCode = Keys.Enter Then
  1323.             txtAvaid.Focus()
  1324.         End If
  1325.     End Sub
  1326.     Private Sub txtAvaid_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtAvaid.KeyDown
  1327.         If e.KeyCode = Keys.Enter Then
  1328.             txtAddress.Focus()
  1329.         End If
  1330.     End Sub
  1331.     Private Sub txtAddress_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtAddress.KeyDown
  1332.         If e.KeyCode = Keys.Enter Then
  1333.             txtJprice.Focus()
  1334.         End If
  1335.     End Sub
  1336.     Private Sub txtJprice_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtJprice.KeyDown
  1337.         If e.KeyCode = Keys.Enter Then
  1338.             txtZprice.Focus()
  1339.         End If
  1340.     End Sub
  1341.     Private Sub tbrRk_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbrRk.ButtonClick
  1342.         Select Case e.Button.Text
  1343.             Case "添加"
  1344.                 'bool = False
  1345.                 'Dim frminstancer As New frmrk
  1346.                 'frminstancer.Show()
  1347.                 'Me.Hide()
  1348.                 add()
  1349.                 tbnEnable("tbrAdd.Enabled = False", tbrRk)
  1350.             Case "保存"
  1352.                 If Me.txtSum.Text = String.Empty Then
  1353.                     MessageBox.Show("不能保存记录，数据不完整！", "提示：", MessageBoxButtons.OK)
  1354.                 Else
  1356.                     save()
  1357.                     tbnEnable("tbrSave.Enabled = False", tbrRk)
  1358.                     clearAll()
  1359.                     bl = False
  1360.                 End If
  1362.             Case "打印"
  1363.                     Dim frmviewrker As New frmviewrk
  1364.                     frmviewrker.rkbillnumber = txtBillNumber.Text
  1366.                     frmviewrker.Show()
  1367.             Case "查询"
  1368.                     Dim frmrkqueryer As New frmRkQuery
  1369.                     frmrkqueryer.Show()
  1370.             Case "退货"
  1371.                     bl = True
  1372.                     tbnEnable("tbrTh.Enabled = False", tbrRk)
  1373.             Case "退出"
  1376.                     Me.Close()
  1378.         End Select
  1379.     End Sub
  1380.     Private Sub CalMxMoney()
  1381.         Dim price As Double = CType(txtPrice.Text.Trim, Double)
  1382.         Dim count As Int16 = CInt(txtCount.Text.Trim)
  1383.         Me.txtMoney.Text = (price * count).ToString
  1384.     End Sub
  1385.     Private Sub txtCount_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtCount.Validating
  1386.         If bl = True Then
  1387.             If Not IsNumeric(txtCount.Text) Or txtCount.Text = String.Empty Or CDec(txtCount.Text) > 0 Then
  1389.                 ErrorProvider1.SetError(txtCount, "不是数值类型且不能为空,数量不能大于零！")
  1390.                 txtCount.Focus()
  1391.             Else
  1392.                 ErrorProvider1.SetError(txtCount, "")
  1393.             End If
  1395.         Else
  1396.             If Not IsNumeric(txtCount.Text) Or txtCount.Text = String.Empty Or CDec(txtCount.Text) < 0 Then
  1397.                 ErrorProvider1.SetError(txtCount, "不是数值类型且不能为空,数量不能小于零！")
  1398.                 txtCount.Focus()
  1399.             Else
  1400.                 ErrorProvider1.SetError(txtCount, "")
  1401.             End If
  1402.         End If
  1403.     End Sub
  1404.     Private Sub txtPrice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtPrice.Validating
  1405.         If Not IsNumeric(txtPrice.Text) Or txtPrice.Text = String.Empty Then
  1406.             ErrorProvider1.SetError(txtPrice, "不是数值类型且不能为空。")
  1407.             e.Cancel = True
  1408.         Else
  1409.             ErrorProvider1.SetError(txtPrice, "")
  1410.         End If
  1411.     End Sub
  1412.     Private Sub txtBatch_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtBatch.Validating
  1413.         If txtBatch.Text = String.Empty Then
  1414.             ErrorProvider1.SetError(txtBatch, "不能为空。")
  1415.             e.Cancel = True
  1416.         Else
  1417.             ErrorProvider1.SetError(txtBatch, "")
  1418.         End If
  1419.     End Sub
  1420.     Private Sub txtAvaid_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtAvaid.Validating
  1421.         If txtAvaid.Text = String.Empty Then
  1422.             ErrorProvider1.SetError(txtAvaid, "不能为空。")
  1423.             e.Cancel = True
  1424.         Else
  1425.             ErrorProvider1.SetError(txtAvaid, "")
  1426.         End If
  1427.     End Sub
  1428.     Private Sub txtAddress_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtAddress.Validating
  1429.         If txtAddress.Text = String.Empty Then
  1430.             ErrorProvider1.SetError(txtAddress, "不能为空。")
  1431.             e.Cancel = True
  1432.         Else
  1433.             ErrorProvider1.SetError(txtAddress, "")
  1434.         End If
  1435.     End Sub
  1436.     Private Sub txtJprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtJprice.Validating
  1437.         If Not IsNumeric(txtJprice.Text) Or txtJprice.Text = String.Empty Then
  1438.             ErrorProvider1.SetError(txtJprice, "不是数值类型且不能为空。")
  1439.             e.Cancel = True
  1440.         Else
  1441.             ErrorProvider1.SetError(txtJprice, "")
  1442.         End If
  1443.     End Sub
  1444.     Private Sub txtZprice_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtZprice.Validating
  1445.         If Not IsNumeric(txtZprice.Text) Or txtZprice.Text = String.Empty Then
  1446.             ErrorProvider1.SetError(txtZprice, "不是数值类型且不能为空。")
  1447.             e.Cancel = True
  1448.         Else
  1449.             ErrorProvider1.SetError(txtZprice, "")
  1450.         End If
  1451.     End Sub
  1452.     Private Sub txtPackage_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtPackage.Validating
  1453.         If txtPackage.Text = String.Empty Then
  1454.             ErrorProvider1.SetError(txtPackage, "不能为空。")
  1455.             e.Cancel = True
  1456.         Else
  1457.             ErrorProvider1.SetError(txtPackage, "")
  1458.         End If
  1459.     End Sub
  1463.     Private Sub frmrk_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
  1465.         If txtBillNumber.Text <> String.Empty And tbrSave.Enabled = True Then
  1467.             lsweb.cancelbill(txtBillNumber.Text.Trim)
  1468.         End If
  1470.     End Sub
  1472.     Private Sub txtNumber_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtNumber.TextChanged
  1474.     End Sub
  1475. End Class