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

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

医药行业

开发平台：

Visual Basic

frmMdManage.vb：源码内容
  1. Public Class frmMdManage
  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 tbnAdd As System.Windows.Forms.ToolBarButton
  33.     Friend WithEvents tbnSave As System.Windows.Forms.ToolBarButton
  34.     Friend WithEvents tbnModify As System.Windows.Forms.ToolBarButton
  35.     Friend WithEvents tbndelete As System.Windows.Forms.ToolBarButton
  36.     Friend WithEvents tbnexit As System.Windows.Forms.ToolBarButton
  37.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  38.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  39.     Friend WithEvents txttax As System.Windows.Forms.TextBox
  40.     Friend WithEvents txtfzr As System.Windows.Forms.TextBox
  41.     Friend WithEvents txtdate As System.Windows.Forms.DateTimePicker
  42.     Friend WithEvents Label17 As System.Windows.Forms.Label
  43.     Friend WithEvents Label15 As System.Windows.Forms.Label
  44.     Friend WithEvents Label14 As System.Windows.Forms.Label
  45.     Friend WithEvents Label13 As System.Windows.Forms.Label
  46.     Friend WithEvents Label12 As System.Windows.Forms.Label
  47.     Friend WithEvents Label10 As System.Windows.Forms.Label
  48.     Friend WithEvents Label9 As System.Windows.Forms.Label
  49.     Friend WithEvents Label7 As System.Windows.Forms.Label
  50.     Friend WithEvents Label6 As System.Windows.Forms.Label
  51.     Friend WithEvents Label4 As System.Windows.Forms.Label
  52.     Friend WithEvents Label3 As System.Windows.Forms.Label
  53.     Friend WithEvents Label2 As System.Windows.Forms.Label
  54.     Friend WithEvents Label1 As System.Windows.Forms.Label
  55.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  56.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  57.     Friend WithEvents tbnmd As System.Windows.Forms.ToolBar
  58.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  59.     Friend WithEvents txtprice As System.Windows.Forms.TextBox
  60.     Friend WithEvents txtjs As System.Windows.Forms.TextBox
  61.     Friend WithEvents txtys As System.Windows.Forms.TextBox
  62.     Friend WithEvents txtpym As System.Windows.Forms.TextBox
  63.     Friend WithEvents txtcjz As System.Windows.Forms.TextBox
  64.     Friend WithEvents txtarea As System.Windows.Forms.TextBox
  65.     Friend WithEvents txttele As System.Windows.Forms.TextBox
  66.     Friend WithEvents txtnumber As System.Windows.Forms.TextBox
  67.     Friend WithEvents txtname As System.Windows.Forms.TextBox
  68.     Friend WithEvents txtdemo As System.Windows.Forms.TextBox
  69.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  70.         Me.components = New System.ComponentModel.Container
  71.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMdManage))
  72.         Me.tbnmd = New System.Windows.Forms.ToolBar
  73.         Me.tbnAdd = New System.Windows.Forms.ToolBarButton
  74.         Me.tbnSave = New System.Windows.Forms.ToolBarButton
  75.         Me.tbnModify = New System.Windows.Forms.ToolBarButton
  76.         Me.tbndelete = New System.Windows.Forms.ToolBarButton
  77.         Me.tbnexit = New System.Windows.Forms.ToolBarButton
  78.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  79.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  80.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  81.         Me.txtdemo = New System.Windows.Forms.TextBox
  82.         Me.txtname = New System.Windows.Forms.TextBox
  83.         Me.txtnumber = New System.Windows.Forms.TextBox
  84.         Me.txttele = New System.Windows.Forms.TextBox
  85.         Me.txtarea = New System.Windows.Forms.TextBox
  86.         Me.txtcjz = New System.Windows.Forms.TextBox
  87.         Me.txtpym = New System.Windows.Forms.TextBox
  88.         Me.txtys = New System.Windows.Forms.TextBox
  89.         Me.txtjs = New System.Windows.Forms.TextBox
  90.         Me.txtprice = New System.Windows.Forms.TextBox
  91.         Me.txttax = New System.Windows.Forms.TextBox
  92.         Me.txtfzr = New System.Windows.Forms.TextBox
  93.         Me.txtdate = New System.Windows.Forms.DateTimePicker
  94.         Me.Label17 = New System.Windows.Forms.Label
  95.         Me.Label15 = New System.Windows.Forms.Label
  96.         Me.Label14 = New System.Windows.Forms.Label
  97.         Me.Label13 = New System.Windows.Forms.Label
  98.         Me.Label12 = New System.Windows.Forms.Label
  99.         Me.Label10 = New System.Windows.Forms.Label
  100.         Me.Label9 = New System.Windows.Forms.Label
  101.         Me.Label7 = New System.Windows.Forms.Label
  102.         Me.Label6 = New System.Windows.Forms.Label
  103.         Me.Label4 = New System.Windows.Forms.Label
  104.         Me.Label3 = New System.Windows.Forms.Label
  105.         Me.Label2 = New System.Windows.Forms.Label
  106.         Me.Label1 = New System.Windows.Forms.Label
  107.         Me.Panel1 = New System.Windows.Forms.Panel
  108.         Me.dgview = New System.Windows.Forms.DataGrid
  109.         Me.GroupBox1.SuspendLayout()
  110.         Me.Panel1.SuspendLayout()
  111.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  112.         Me.SuspendLayout()
  113.         '
  114.         'tbnmd
  115.         '
  116.         Me.tbnmd.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  117.         Me.tbnmd.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbnAdd, Me.tbnSave, Me.tbnModify, Me.tbndelete, Me.tbnexit})
  118.         Me.tbnmd.DropDownArrows = True
  119.         Me.tbnmd.ImageList = Me.ImageList2
  120.         Me.tbnmd.Location = New System.Drawing.Point(0, 0)
  121.         Me.tbnmd.Name = "tbnmd"
  122.         Me.tbnmd.ShowToolTips = True
  123.         Me.tbnmd.Size = New System.Drawing.Size(520, 41)
  124.         Me.tbnmd.TabIndex = 1
  125.         '
  126.         'tbnAdd
  127.         '
  128.         Me.tbnAdd.ImageIndex = 7
  129.         Me.tbnAdd.Text = "添加"
  130.         '
  131.         'tbnSave
  132.         '
  133.         Me.tbnSave.ImageIndex = 4
  134.         Me.tbnSave.Text = "保存"
  135.         '
  136.         'tbnModify
  137.         '
  138.         Me.tbnModify.ImageIndex = 5
  139.         Me.tbnModify.Text = "修改"
  140.         '
  141.         'tbndelete
  142.         '
  143.         Me.tbndelete.ImageIndex = 6
  144.         Me.tbndelete.Text = "删除"
  145.         '
  146.         'tbnexit
  147.         '
  148.         Me.tbnexit.ImageIndex = 11
  149.         Me.tbnexit.Text = "退出"
  150.         '
  151.         'ImageList2
  152.         '
  153.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  154.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  155.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  156.         '
  157.         'ErrorProvider1
  158.         '
  159.         Me.ErrorProvider1.ContainerControl = Me
  160.         '
  161.         'GroupBox1
  162.         '
  163.         Me.GroupBox1.Controls.Add(Me.txtdemo)
  164.         Me.GroupBox1.Controls.Add(Me.txtname)
  165.         Me.GroupBox1.Controls.Add(Me.txtnumber)
  166.         Me.GroupBox1.Controls.Add(Me.txttele)
  167.         Me.GroupBox1.Controls.Add(Me.txtarea)
  168.         Me.GroupBox1.Controls.Add(Me.txtcjz)
  169.         Me.GroupBox1.Controls.Add(Me.txtpym)
  170.         Me.GroupBox1.Controls.Add(Me.txtys)
  171.         Me.GroupBox1.Controls.Add(Me.txtjs)
  172.         Me.GroupBox1.Controls.Add(Me.txtprice)
  173.         Me.GroupBox1.Controls.Add(Me.txttax)
  174.         Me.GroupBox1.Controls.Add(Me.txtfzr)
  175.         Me.GroupBox1.Controls.Add(Me.txtdate)
  176.         Me.GroupBox1.Controls.Add(Me.Label17)
  177.         Me.GroupBox1.Controls.Add(Me.Label15)
  178.         Me.GroupBox1.Controls.Add(Me.Label14)
  179.         Me.GroupBox1.Controls.Add(Me.Label13)
  180.         Me.GroupBox1.Controls.Add(Me.Label12)
  181.         Me.GroupBox1.Controls.Add(Me.Label10)
  182.         Me.GroupBox1.Controls.Add(Me.Label9)
  183.         Me.GroupBox1.Controls.Add(Me.Label7)
  184.         Me.GroupBox1.Controls.Add(Me.Label6)
  185.         Me.GroupBox1.Controls.Add(Me.Label4)
  186.         Me.GroupBox1.Controls.Add(Me.Label3)
  187.         Me.GroupBox1.Controls.Add(Me.Label2)
  188.         Me.GroupBox1.Controls.Add(Me.Label1)
  189.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  190.         Me.GroupBox1.Location = New System.Drawing.Point(0, 41)
  191.         Me.GroupBox1.Name = "GroupBox1"
  192.         Me.GroupBox1.Size = New System.Drawing.Size(520, 191)
  193.         Me.GroupBox1.TabIndex = 3
  194.         Me.GroupBox1.TabStop = False
  195.         '
  196.         'txtdemo
  197.         '
  198.         Me.txtdemo.Location = New System.Drawing.Point(54, 149)
  199.         Me.txtdemo.Name = "txtdemo"
  200.         Me.txtdemo.Size = New System.Drawing.Size(288, 21)
  201.         Me.txtdemo.TabIndex = 73
  202.         Me.txtdemo.Text = ""
  203.         '
  204.         'txtname
  205.         '
  206.         Me.txtname.Location = New System.Drawing.Point(54, 56)
  207.         Me.txtname.Name = "txtname"
  208.         Me.txtname.Size = New System.Drawing.Size(96, 21)
  209.         Me.txtname.TabIndex = 72
  210.         Me.txtname.Text = ""
  211.         '
  212.         'txtnumber
  213.         '
  214.         Me.txtnumber.Location = New System.Drawing.Point(54, 25)
  215.         Me.txtnumber.Name = "txtnumber"
  216.         Me.txtnumber.Size = New System.Drawing.Size(96, 21)
  217.         Me.txtnumber.TabIndex = 71
  218.         Me.txtnumber.Text = ""
  219.         '
  220.         'txttele
  221.         '
  222.         Me.txttele.Location = New System.Drawing.Point(54, 118)
  223.         Me.txttele.Name = "txttele"
  224.         Me.txttele.Size = New System.Drawing.Size(96, 21)
  225.         Me.txttele.TabIndex = 70
  226.         Me.txttele.Text = ""
  227.         '
  228.         'txtarea
  229.         '
  230.         Me.txtarea.Location = New System.Drawing.Point(240, 25)
  231.         Me.txtarea.Name = "txtarea"
  232.         Me.txtarea.Size = New System.Drawing.Size(75, 21)
  233.         Me.txtarea.TabIndex = 69
  234.         Me.txtarea.Text = ""
  235.         '
  236.         'txtcjz
  237.         '
  238.         Me.txtcjz.Location = New System.Drawing.Point(240, 56)
  239.         Me.txtcjz.Name = "txtcjz"
  240.         Me.txtcjz.Size = New System.Drawing.Size(75, 21)
  241.         Me.txtcjz.TabIndex = 68
  242.         Me.txtcjz.Text = ""
  243.         '
  244.         'txtpym
  245.         '
  246.         Me.txtpym.Location = New System.Drawing.Point(54, 87)
  247.         Me.txtpym.Name = "txtpym"
  248.         Me.txtpym.ReadOnly = True
  249.         Me.txtpym.Size = New System.Drawing.Size(96, 21)
  250.         Me.txtpym.TabIndex = 67
  251.         Me.txtpym.Text = ""
  252.         '
  253.         'txtys
  254.         '
  255.         Me.txtys.Location = New System.Drawing.Point(432, 87)
  256.         Me.txtys.Name = "txtys"
  257.         Me.txtys.Size = New System.Drawing.Size(75, 21)
  258.         Me.txtys.TabIndex = 66
  259.         Me.txtys.Text = ""
  260.         '
  261.         'txtjs
  262.         '
  263.         Me.txtjs.Location = New System.Drawing.Point(432, 56)
  264.         Me.txtjs.Name = "txtjs"
  265.         Me.txtjs.Size = New System.Drawing.Size(75, 21)
  266.         Me.txtjs.TabIndex = 65
  267.         Me.txtjs.Text = ""
  268.         '
  269.         'txtprice
  270.         '
  271.         Me.txtprice.Location = New System.Drawing.Point(432, 25)
  272.         Me.txtprice.Name = "txtprice"
  273.         Me.txtprice.Size = New System.Drawing.Size(75, 21)
  274.         Me.txtprice.TabIndex = 64
  275.         Me.txtprice.Text = ""
  276.         '
  277.         'txttax
  278.         '
  279.         Me.txttax.Location = New System.Drawing.Point(240, 120)
  280.         Me.txttax.Name = "txttax"
  281.         Me.txttax.Size = New System.Drawing.Size(102, 21)
  282.         Me.txttax.TabIndex = 63
  283.         Me.txttax.Text = ""
  284.         '
  285.         'txtfzr
  286.         '
  287.         Me.txtfzr.Location = New System.Drawing.Point(432, 118)
  288.         Me.txtfzr.Name = "txtfzr"
  289.         Me.txtfzr.Size = New System.Drawing.Size(75, 21)
  290.         Me.txtfzr.TabIndex = 62
  291.         Me.txtfzr.Text = ""
  292.         '
  293.         'txtdate
  294.         '
  295.         Me.txtdate.Location = New System.Drawing.Point(240, 88)
  296.         Me.txtdate.Name = "txtdate"
  297.         Me.txtdate.Size = New System.Drawing.Size(102, 21)
  298.         Me.txtdate.TabIndex = 61
  299.         '
  300.         'Label17
  301.         '
  302.         Me.Label17.AutoSize = True
  303.         Me.Label17.Location = New System.Drawing.Point(23, 156)
  304.         Me.Label17.Name = "Label17"
  305.         Me.Label17.Size = New System.Drawing.Size(42, 17)
  306.         Me.Label17.TabIndex = 60
  307.         Me.Label17.Text = "备注："
  308.         Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  309.         '
  310.         'Label15
  311.         '
  312.         Me.Label15.AutoSize = True
  313.         Me.Label15.Location = New System.Drawing.Point(390, 128)
  314.         Me.Label15.Name = "Label15"
  315.         Me.Label15.Size = New System.Drawing.Size(54, 17)
  316.         Me.Label15.TabIndex = 59
  317.         Me.Label15.Text = "负责人："
  318.         '
  319.         'Label14
  320.         '
  321.         Me.Label14.AutoSize = True
  322.         Me.Label14.Location = New System.Drawing.Point(376, 96)
  323.         Me.Label14.Name = "Label14"
  324.         Me.Label14.Size = New System.Drawing.Size(66, 17)
  325.         Me.Label14.TabIndex = 58
  326.         Me.Label14.Text = "运输方式："
  327.         Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  328.         '
  329.         'Label13
  330.         '
  331.         Me.Label13.AutoSize = True
  332.         Me.Label13.Location = New System.Drawing.Point(210, 128)
  333.         Me.Label13.Name = "Label13"
  334.         Me.Label13.Size = New System.Drawing.Size(42, 17)
  335.         Me.Label13.TabIndex = 57
  336.         Me.Label13.Text = "传真："
  337.         '
  338.         'Label12
  339.         '
  340.         Me.Label12.AutoSize = True
  341.         Me.Label12.Location = New System.Drawing.Point(185, 96)
  342.         Me.Label12.Name = "Label12"
  343.         Me.Label12.Size = New System.Drawing.Size(66, 17)
  344.         Me.Label12.TabIndex = 56
  345.         Me.Label12.Text = "创建时间："
  346.         Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  347.         '
  348.         'Label10
  349.         '
  350.         Me.Label10.AutoSize = True
  351.         Me.Label10.Location = New System.Drawing.Point(24, 128)
  352.         Me.Label10.Name = "Label10"
  353.         Me.Label10.Size = New System.Drawing.Size(42, 17)
  354.         Me.Label10.TabIndex = 55
  355.         Me.Label10.Text = "电话："
  356.         '
  357.         'Label9
  358.         '
  359.         Me.Label9.AutoSize = True
  360.         Me.Label9.Location = New System.Drawing.Point(197, 64)
  361.         Me.Label9.Name = "Label9"
  362.         Me.Label9.Size = New System.Drawing.Size(54, 17)
  363.         Me.Label9.TabIndex = 54
  364.         Me.Label9.Text = "创建者："
  365.         Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  366.         '
  367.         'Label7
  368.         '
  369.         Me.Label7.AutoSize = True
  370.         Me.Label7.Location = New System.Drawing.Point(12, 96)
  371.         Me.Label7.Name = "Label7"
  372.         Me.Label7.Size = New System.Drawing.Size(54, 17)
  373.         Me.Label7.TabIndex = 53
  374.         Me.Label7.Text = "拼音码："
  375.         '
  376.         'Label6
  377.         '
  378.         Me.Label6.AutoSize = True
  379.         Me.Label6.Location = New System.Drawing.Point(376, 64)
  380.         Me.Label6.Name = "Label6"
  381.         Me.Label6.Size = New System.Drawing.Size(66, 17)
  382.         Me.Label6.TabIndex = 52
  383.         Me.Label6.Text = "结算方式："
  384.         Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  385.         '
  386.         'Label4
  387.         '
  388.         Me.Label4.AutoSize = True
  389.         Me.Label4.Location = New System.Drawing.Point(24, 64)
  390.         Me.Label4.Name = "Label4"
  391.         Me.Label4.Size = New System.Drawing.Size(42, 17)
  392.         Me.Label4.TabIndex = 51
  393.         Me.Label4.Text = "名称："
  394.         '
  395.         'Label3
  396.         '
  397.         Me.Label3.AutoSize = True
  398.         Me.Label3.Location = New System.Drawing.Point(376, 31)
  399.         Me.Label3.Name = "Label3"
  400.         Me.Label3.Size = New System.Drawing.Size(66, 17)
  401.         Me.Label3.TabIndex = 50
  402.         Me.Label3.Text = "价格方案："
  403.         Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  404.         '
  405.         'Label2
  406.         '
  407.         Me.Label2.AutoSize = True
  408.         Me.Label2.Location = New System.Drawing.Point(185, 31)
  409.         Me.Label2.Name = "Label2"
  410.         Me.Label2.Size = New System.Drawing.Size(66, 17)
  411.         Me.Label2.TabIndex = 49
  412.         Me.Label2.Text = "营业面积："
  413.         Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  414.         '
  415.         'Label1
  416.         '
  417.         Me.Label1.AutoSize = True
  418.         Me.Label1.Location = New System.Drawing.Point(24, 31)
  419.         Me.Label1.Name = "Label1"
  420.         Me.Label1.Size = New System.Drawing.Size(42, 17)
  421.         Me.Label1.TabIndex = 48
  422.         Me.Label1.Text = "编号："
  423.         '
  424.         'Panel1
  425.         '
  426.         Me.Panel1.Controls.Add(Me.dgview)
  427.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
  428.         Me.Panel1.Location = New System.Drawing.Point(0, 232)
  429.         Me.Panel1.Name = "Panel1"
  430.         Me.Panel1.Size = New System.Drawing.Size(520, 244)
  431.         Me.Panel1.TabIndex = 4
  432.         '
  433.         'dgview
  434.         '
  435.         Me.dgview.DataMember = ""
  436.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  437.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  438.         Me.dgview.Location = New System.Drawing.Point(0, 0)
  439.         Me.dgview.Name = "dgview"
  440.         Me.dgview.Size = New System.Drawing.Size(520, 244)
  441.         Me.dgview.TabIndex = 2
  442.         '
  443.         'frmMdManage
  444.         '
  445.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  446.         Me.ClientSize = New System.Drawing.Size(520, 476)
  447.         Me.Controls.Add(Me.Panel1)
  448.         Me.Controls.Add(Me.GroupBox1)
  449.         Me.Controls.Add(Me.tbnmd)
  450.         Me.Name = "frmMdManage"
  451.         Me.Text = "门店名称登记"
  452.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  453.         Me.GroupBox1.ResumeLayout(False)
  454.         Me.Panel1.ResumeLayout(False)
  455.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  456.         Me.ResumeLayout(False)
  458.     End Sub
  460. #End Region
  461.     Public lsweb As New jxcmanage
  462.     Public dslocals As DataSet = lsweb.returndataset("select Number as 编号,Cname as 名称,Telephone as 电话,Tax as 传真,Yarea as 营业面积,PriceFa as 价格方案,Phxs as 运输方式,Js as 结算方式,cDate as 创建日期,Fzr as 负责人,cjr as 创建人,Demo as 备注 from MdManager", "MdManager")
  464.     Public Sub add()
  465.         ' dslocals.Clear()
  466.         txtnumber.Text = ""
  467.         txtNumber.Focus()
  468.         txtarea.Text = ""
  469.         txtName.Text = ""
  470.         txttax.Text = ""
  471.         txtDate.Text = ""
  472.         txtcjz.Text = ""
  473.         txtFzr.Text = ""
  474.         txtTele.Text = ""
  475.         txtys.Text = ""
  476.         txtdemo.Text = ""
  477.         txtjs.Text = ""
  478.         txtprice.Text = ""
  479.     End Sub
  480.     Private Sub frmMdManage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  481.         dslocals.Clear()
  482.         dgview.DataSource = dslocals.Tables(0).DefaultView
  483.         txtdate.Value = Today.ToString
  485.     End Sub
  487.     Public Sub tbnEnable(ByVal strboolean As String, ByVal tbr As ToolBar)
  488.         If strboolean = "tbnAdd.Enabled = True" Then
  489.             tbnsave.Enabled = False
  490.             tbnModify.Enabled = False
  491.             tbndelete.Enabled = False
  493.             tbnexit.Enabled = True
  495.         ElseIf strboolean = "tbnAdd.Enabled = False" Then
  496.             tbnAdd.Enabled = False
  497.             tbnsave.Enabled = True
  498.             tbnModify.Enabled = False
  499.             tbndelete.Enabled = False
  501.             tbnexit.Enabled = True
  502.         ElseIf strboolean = "tbnSave.Enabled = True" Then
  503.             tbnAdd.Enabled = False
  504.             tbnmodify.Enabled = False
  505.             tbndelete.Enabled = False
  507.             tbnexit.Enabled = True
  508.         ElseIf strboolean = "tbnSave.Enabled = False" Then
  509.             tbnsave.Enabled = False
  510.             tbnAdd.Enabled = True
  511.             tbnmodify.Enabled = True
  512.             tbndelete.Enabled = True
  514.             tbnexit.Enabled = True
  515.         ElseIf strboolean = "tbnModify.Enabled = True" Then
  516.             tbnAdd.Enabled = False
  517.             tbnsave.Enabled = True
  518.             tbndelete.Enabled = False
  520.             tbnexit.Enabled = True
  521.         ElseIf strboolean = "tbnModify.Enabled = False" Then
  522.             tbnmodify.Enabled = False
  523.             tbnAdd.Enabled = True
  524.             tbnsave.Enabled = False
  525.             tbndelete.Enabled = False
  527.             tbnexit.Enabled = True
  528.         ElseIf strboolean = "tbnDelete.Enabled = True" Then
  529.             tbnAdd.Enabled = False
  530.             tbnsave.Enabled = True
  531.             tbnmodify.Enabled = False
  533.             tbnexit.Enabled = True
  534.         ElseIf strboolean = "tbnDelete.Enabled = False" Then
  535.             tbndelete.Enabled = False
  536.             tbnAdd.Enabled = False
  537.             tbnsave.Enabled = True
  538.             tbnmodify.Enabled = False
  540.             tbnexit.Enabled = True
  541.         End If
  542.     End Sub
  544.     Private Sub Modified()
  545.         If lsweb.updatedataset("select Number as 编号,Cname as 名称,Telephone as 电话,Tax as 传真,Yarea as 营业面积,PriceFa as 价格方案,Phxs as 运输方式,Js as 结算方式,cDate as 创建日期,Fzr as 负责人,cjr as 创建人,Demo as 备注 from MdManager", "MdManager", dslocals, DataRowState.Modified) = True Then
  546.             MessageBox.Show("药品信息成功保存！", "提示", MessageBoxButtons.OK)
  547.         Else
  548.             MessageBox.Show("药品信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  549.         End If
  550.     End Sub
  551.     Private Sub view()
  552.         Dim drv As DataRowView = BindingContext(Me.dgview.DataSource).Current
  553.         Dim dr As DataRow
  554.         dr = drv.Row
  556.         txtnumber.Text = IIf(dr("编号") Is System.DBNull.Value, "", dr("编号"))
  557.         txtname.Text = IIf(dr("名称") Is System.DBNull.Value, "", dr("名称"))
  558.         txtarea.Text = IIf(dr("营业面积") Is System.DBNull.Value, "", dr("营业面积"))
  559.         txtprice.Text = IIf(dr("价格方案") Is System.DBNull.Value, "", dr("价格方案"))
  560.         txtys.Text = IIf(dr("运输方式") Is System.DBNull.Value, "", dr("运输方式"))
  561.         txtjs.Text = IIf(dr("结算方式") Is System.DBNull.Value, "", dr("结算方式"))
  562.         txtdate.Text = IIf(dr("创建日期") Is System.DBNull.Value, "", dr("创建日期"))
  563.         txtfzr.Text = IIf(dr("负责人") Is System.DBNull.Value, 0, dr("负责人"))
  564.         txttele.Text = IIf(dr("电话") Is System.DBNull.Value, 0, dr("电话"))
  565.         txttax.Text = IIf(dr("传真") Is System.DBNull.Value, 0, dr("传真"))
  566.         txtdemo.Text = IIf(dr("备注") Is System.DBNull.Value, "", dr("备注"))
  568.     End Sub
  570.     Private Sub delete()
  572.         Dim drv As DataRowView = BindingContext(Me.dgview.DataSource).Current
  573.         If drv(0) Is System.DBNull.Value Then
  574.             MessageBox.Show("没有要删除的记录!", "提示", MessageBoxButtons.OK)
  575.         Else
  576.             Dim strquery As String = drv(0)
  577.             If lsweb.deleteMdManager(strquery) = True Then
  578.                 MessageBox.Show("已经删除记录啦!", "提示", MessageBoxButtons.OK)
  579.             Else
  580.                 MessageBox.Show("删除记录失败!", "提示", MessageBoxButtons.OK)
  581.             End If
  582.         End If
  589.     End Sub
  590.     Private Sub ToolBar2_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbnmd.ButtonClick
  591.         Select Case e.Button.Text
  592.             Case "添加"
  593.                 add()
  594.                 tbnEnable("tbnAdd.Enabled = False", tbnmd)
  595.             Case "保存"
  596.                 If txtnumber.Text = "" Or txtname.Text = "" Then
  597.                     MessageBox.Show("信息不完整，保存失败！", "提示", MessageBoxButtons.OK)
  598.                 Else
  599.                     Dim dr As DataRow = dslocals.Tables("MdManager").NewRow()
  600.                     dr("编号") = Me.txtnumber.Text.Trim
  601.                     dr("名称") = Me.txtname.Text.Trim
  602.                     dr("电话") = Me.txttele.Text.Trim
  603.                     dr("传真") = Me.txttax.Text.Trim
  604.                     dr("营业面积") = Me.txtarea.Text.Trim
  605.                     dr("价格方案") = Me.txtprice.Text.Trim
  606.                     dr("运输方式") = Me.txtys.Text.Trim
  607.                     dr("结算方式") = Me.txtjs.Text.Trim
  608.                     dr("创建日期") = Me.txtdate.Text.Trim
  609.                     dr("创建人") = Me.txtcjz.Text.Trim
  610.                     dr("负责人") = Me.txtfzr.Text.Trim
  611.                     dr("备注") = Me.txtdemo.Text.Trim
  612.                     dslocals.Tables("MdManager").Rows.Add(dr)
  613.                     If lsweb.updatedataset("select Number as 编号,Cname as 名称,Telephone as 电话,Tax as 传真,Yarea as 营业面积,PriceFa as 价格方案,Phxs as 运输方式,Js as 结算方式,cDate as 创建日期,Fzr as 负责人,cjr as 创建人,Demo as 备注 from MdManager", "MdManager", dslocals, DataRowState.Added) = True Then
  614.                         MessageBox.Show("信息成功保存！", "提示", MessageBoxButtons.OK)
  615.                     Else
  616.                         MessageBox.Show("信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  617.                     End If
  618.                     tbnEnable("tbnSave.Enabled = False", tbnmd)
  619.                 End If
  621.             Case "修改"
  622.                 Modified()
  623.                 tbnEnable("tbnModify.Enabled = False", tbnmd)
  624.             Case "删除"
  625.                 delete()
  626.                 tbnEnable("tbnDelete.Enabled = False", tbnmd)
  627.             Case "退出"
  628.                 Me.Close()
  631.         End Select
  632.     End Sub
  634.     
  640.     Private Sub txttax_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  641.         If e.KeyCode = Keys.Enter Then
  642.             txtfzr.Focus()
  643.         End If
  644.     End Sub
  647.     Private Sub txtfzr_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  648.         If e.KeyCode = Keys.Enter Then
  649.             txtdemo.Focus()
  650.         End If
  651.     End Sub
  653.    
  655.     Private Sub txtprice_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  656.         If txtprice.Text = String.Empty Then
  657.             ErrorProvider1.SetError(txtprice, "不能为空。")
  658.             txtprice.Focus()
  659.         Else
  660.             ErrorProvider1.SetError(txtprice, "")
  661.         End If
  662.     End Sub
  664.     Private Sub txtname_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  665.         If txtname.Text = String.Empty Then
  666.             ErrorProvider1.SetError(txtname, "不能为空。")
  667.             txtname.Focus()
  668.         Else
  669.             ErrorProvider1.SetError(txtname, "")
  670.         End If
  671.     End Sub
  673.     Private Sub txtcjz_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  674.         If txtcjz.Text = String.Empty Then
  675.             ErrorProvider1.SetError(txtcjz, "不能为空。")
  676.             txtcjz.Focus()
  677.         Else
  678.             ErrorProvider1.SetError(txtcjz, "")
  679.         End If
  680.     End Sub
  682.     Private Sub txtjs_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  683.         If txtjs.Text = String.Empty Then
  684.             ErrorProvider1.SetError(txtjs, "不能为空。")
  685.             txtjs.Focus()
  686.         Else
  687.             ErrorProvider1.SetError(txtjs, "")
  688.         End If
  689.     End Sub
  691.     Private Sub txtys_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  692.         If txtys.Text = String.Empty Then
  693.             ErrorProvider1.SetError(txtys, "不能为空。")
  694.             txtys.Focus()
  695.         Else
  696.             ErrorProvider1.SetError(txtys, "")
  697.         End If
  698.     End Sub
  700.     Private Sub txttele_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  701.         If txttele.Text = String.Empty Then
  702.             ErrorProvider1.SetError(txttele, "不能为空。")
  703.             txttele.Focus()
  704.         Else
  705.             ErrorProvider1.SetError(txttele, "")
  706.         End If
  707.     End Sub
  709.     Private Sub txttax_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  710.         If txttax.Text = String.Empty Then
  711.             ErrorProvider1.SetError(txttax, "不能为空。")
  712.             txttax.Focus()
  713.         Else
  714.             ErrorProvider1.SetError(txttax, "")
  715.         End If
  716.     End Sub
  718.     Private Sub txtfzr_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  719.         If txtfzr.Text = String.Empty Then
  720.             ErrorProvider1.SetError(txtfzr, "不能为空。")
  721.             txtfzr.Focus()
  722.         Else
  723.             ErrorProvider1.SetError(txtfzr, "")
  724.         End If
  725.     End Sub
  729.     Private Sub txtdemo_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  730.         If txtdemo.Text = String.Empty Then
  731.             ErrorProvider1.SetError(txtdemo, "不能为空。")
  732.             txtdemo.Focus()
  733.         Else
  734.             ErrorProvider1.SetError(txtdemo, "")
  735.         End If
  736.     End Sub
  741.     Private Sub txtnumber_KeyDown1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  742.         If e.KeyCode = Keys.Enter Then
  743.             txtarea.Focus()
  744.         End If
  745.     End Sub
  747.    
  749.     Private Sub txtarea_KeyDown1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  750.         If e.KeyCode = Keys.Enter Then
  751.             txtprice.Focus()
  752.         End If
  754.     End Sub
  756.    
  758.     Private Sub txtprice_KeyDown1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  759.         If e.KeyCode = Keys.Enter Then
  760.             txtname.Focus()
  761.         End If
  763.     End Sub
  765.   
  766.     Private Sub txtname_KeyDown1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  767.         If e.KeyCode = Keys.Enter Then
  768.             txtcjz.Focus()
  769.         End If
  771.     End Sub
  773.    
  775.     Private Sub txtcjz_KeyDown1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  776.         If e.KeyCode = Keys.Enter Then
  777.             txtjs.Focus()
  779.         End If
  780.     End Sub
  782.    
  784.     Private Sub txtjs_KeyDown1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  785.         If e.KeyCode = Keys.Enter Then
  786.             txtys.Focus()
  787.         End If
  788.     End Sub
  792.     Private Sub txtys_KeyDown1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  793.         If e.KeyCode = Keys.Enter Then
  794.             txttele.Focus()
  795.         End If
  796.     End Sub
  798.   
  800.     Private Sub txttele_KeyDown1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
  801.         If e.KeyCode = Keys.Enter Then
  802.             txttax.Focus()
  803.         End If
  804.     End Sub
  806.    
  808.     Private Sub txttax_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txttax.KeyDown
  809.         If e.KeyCode = Keys.Enter Then
  810.             txtfzr.Focus()
  811.         End If
  812.     End Sub
  814.    
  815.     Private Sub txtfzr_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtfzr.KeyDown
  816.         If e.KeyCode = Keys.Enter Then
  817.             txtdemo.Focus()
  819.         End If
  820.     End Sub
  824.     Private Sub txtnumber_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  825.         If txtnumber.Text = String.Empty Then
  826.             ErrorProvider1.SetError(txtnumber, "不能为空。")
  827.             txtnumber.Focus()
  828.         Else
  829.             ErrorProvider1.SetError(txtnumber, "")
  830.         End If
  831.     End Sub
  833.     Private Sub txtarea_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
  834.         If txtarea.Text = String.Empty Then
  835.             ErrorProvider1.SetError(txtarea, "不能为空。")
  836.             txtarea.Focus()
  837.         Else
  838.             ErrorProvider1.SetError(txtarea, "")
  839.         End If
  841.     End Sub
  843.    
  845.    
  846.     Private Sub txttax_Validating1(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txttax.Validating
  847.         If txttax.Text = String.Empty Then
  848.             ErrorProvider1.SetError(txttax, "不能为空。")
  849.             txttax.Focus()
  850.         Else
  851.             ErrorProvider1.SetError(txttax, "")
  852.         End If
  854.     End Sub
  856.     Private Sub txtfzr_Validating1(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtfzr.Validating
  857.         If txtfzr.Text = String.Empty Then
  858.             ErrorProvider1.SetError(txtfzr, "不能为空。")
  859.             txtfzr.Focus()
  860.         Else
  861.             ErrorProvider1.SetError(txtfzr, "")
  862.         End If
  864.     End Sub
  866.     
  868.    
  870.    
  872.     Private Sub txtnumber_KeyDown2(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtnumber.KeyDown
  873.         If e.KeyCode = Keys.Enter Then
  874.             txtarea.Focus()
  875.         End If
  876.     End Sub
  878.    
  880.     Private Sub txtarea_KeyDown2(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtarea.KeyDown
  881.         If e.KeyCode = Keys.Enter Then
  882.             txtprice.Focus()
  883.         End If
  884.     End Sub
  886.   
  888.     Private Sub txtprice_KeyDown2(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtprice.KeyDown
  889.         If e.KeyCode = Keys.Enter Then
  890.             txtname.Focus()
  891.         End If
  892.     End Sub
  894.   
  896.     Private Sub txtname_KeyDown2(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtname.KeyDown
  897.         If e.KeyCode = Keys.Enter Then
  898.             txtcjz.Focus()
  899.         End If
  900.     End Sub
  902.    
  904.     Private Sub txtcjz_KeyDown2(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtcjz.KeyDown
  905.         If e.KeyCode = Keys.Enter Then
  906.             txtjs.Focus()
  907.         End If
  908.     End Sub
  910.     Private Sub txtjs_KeyDown2(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtjs.KeyDown
  911.         If e.KeyCode = Keys.Enter Then
  912.             txtys.Focus()
  913.         End If
  914.     End Sub
  916.    
  918.     Private Sub txtys_KeyDown2(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtys.KeyDown
  919.         If e.KeyCode = Keys.Enter Then
  920.             txttele.Focus()
  921.         End If
  922.     End Sub
  924.    
  926.     Private Sub txttele_KeyDown2(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txttele.KeyDown
  927.         If e.KeyCode = Keys.Enter Then
  928.             txttax.Focus()
  929.         End If
  930.     End Sub
  932.    
  933.     Private Sub txtnumber_Validating2(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtnumber.Validating
  934.         If txtnumber.Text = String.Empty Then
  935.             ErrorProvider1.SetError(txtnumber, "不能为空。")
  936.             txtnumber.Focus()
  937.         Else
  938.             ErrorProvider1.SetError(txtnumber, "")
  939.         End If
  940.     End Sub
  942.  
  944.     Private Sub txtarea_Validating2(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtarea.Validating
  945.         If txtarea.Text = String.Empty Then
  946.             ErrorProvider1.SetError(txtarea, "不能为空。")
  947.             txtarea.Focus()
  948.         Else
  949.             ErrorProvider1.SetError(txtarea, "")
  950.         End If
  951.     End Sub
  953.    
  955.     Private Sub txtprice_Validating2(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtprice.Validating
  956.         If txtprice.Text = String.Empty Then
  957.             ErrorProvider1.SetError(txtprice, "不能为空。")
  958.             txtprice.Focus()
  959.         Else
  960.             ErrorProvider1.SetError(txtprice, "")
  961.         End If
  962.     End Sub
  964.   
  966.     Private Sub txtname_Validating2(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtname.Validating
  967.         If txtname.Text = String.Empty Then
  968.             ErrorProvider1.SetError(txtname, "不能为空。")
  969.             txtname.Focus()
  970.         Else
  971.             ErrorProvider1.SetError(txtname, "")
  972.         End If
  974.     End Sub
  976.     
  977.     Private Sub txtcjz_Validating2(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtcjz.Validating
  978.         If txtcjz.Text = String.Empty Then
  979.             ErrorProvider1.SetError(txtcjz, "不能为空。")
  980.             txtcjz.Focus()
  981.         Else
  982.             ErrorProvider1.SetError(txtcjz, "")
  983.         End If
  984.     End Sub
  986.     Private Sub txtjs_Validating2(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtjs.Validating
  987.         If txtjs.Text = String.Empty Then
  988.             ErrorProvider1.SetError(txtjs, "不能为空。")
  989.             txtjs.Focus()
  990.         Else
  991.             ErrorProvider1.SetError(txtjs, "")
  992.         End If
  994.     End Sub
  996.    
  997.     Private Sub txtys_Validating2(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtys.Validating
  998.         If txtys.Text = String.Empty Then
  999.             ErrorProvider1.SetError(txtys, "不能为空。")
  1000.             txtys.Focus()
  1001.         Else
  1002.             ErrorProvider1.SetError(txtys, "")
  1003.         End If
  1005.     End Sub
  1007.  
  1009.     Private Sub txttele_Validating2(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txttele.Validating
  1010.         If txttele.Text = String.Empty Then
  1011.             ErrorProvider1.SetError(txttele, "不能为空。")
  1012.             txttele.Focus()
  1013.         Else
  1014.             ErrorProvider1.SetError(txttele, "")
  1015.         End If
  1016.     End Sub
  1018.     
  1020.     Private Sub txtdemo_Validating2(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtdemo.Validating
  1021.         If txtdemo.Text = String.Empty Then
  1022.             ErrorProvider1.SetError(txtdemo, "不能为空。")
  1023.             txtdemo.Focus()
  1024.         Else
  1025.             ErrorProvider1.SetError(txtdemo, "")
  1026.         End If
  1027.     End Sub
  1029.   
  1030.     Private Sub txtnumber_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnumber.TextChanged
  1032.     End Sub
  1033. End Class