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

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

医药行业

开发平台：

Visual Basic

frmPsManage.vb：源码内容
  1. Public Class frmPsManage
  2.     Inherits System.Windows.Forms.Form
  4. #Region " Windows 窗体设计器生成的代码 "
  6.     Public Sub New()
  7.         MyBase.New()
  9.         '该调用是 Windows 窗体设计器所必需的。
  10.         InitializeComponent()
  12.         '在 InitializeComponent() 调用之后添加任何初始化
  14.     End Sub
  16.     '窗体重写 dispose 以清理组件列表。
  17.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  18.         If disposing Then
  19.             If Not (components Is Nothing) Then
  20.                 components.Dispose()
  21.             End If
  22.         End If
  23.         MyBase.Dispose(disposing)
  24.     End Sub
  26.     'Windows 窗体设计器所必需的
  27.     Private components As System.ComponentModel.IContainer
  29.     '注意: 以下过程是 Windows 窗体设计器所必需的
  30.     '可以使用 Windows 窗体设计器修改此过程。
  31.     '不要使用代码编辑器修改它。
  32.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  33.     Friend WithEvents Label1 As System.Windows.Forms.Label
  34.     Friend WithEvents Label2 As System.Windows.Forms.Label
  35.     Friend WithEvents Label3 As System.Windows.Forms.Label
  36.     Friend WithEvents Label4 As System.Windows.Forms.Label
  37.     Friend WithEvents Label6 As System.Windows.Forms.Label
  38.     Friend WithEvents Label7 As System.Windows.Forms.Label
  39.     Friend WithEvents Label8 As System.Windows.Forms.Label
  40.     Friend WithEvents Label9 As System.Windows.Forms.Label
  41.     Friend WithEvents Label10 As System.Windows.Forms.Label
  42.     Friend WithEvents tbnAdd As System.Windows.Forms.ToolBarButton
  43.     Friend WithEvents tbnsave As System.Windows.Forms.ToolBarButton
  44.     Friend WithEvents tbndelete As System.Windows.Forms.ToolBarButton
  45.     Friend WithEvents tbnexit As System.Windows.Forms.ToolBarButton
  46.     Friend WithEvents txtMdCount As System.Windows.Forms.TextBox
  47.     Friend WithEvents txtNumber As System.Windows.Forms.TextBox
  48.     Friend WithEvents txtdemo As System.Windows.Forms.TextBox
  49.     Friend WithEvents txtperson As System.Windows.Forms.TextBox
  50.     Friend WithEvents txtAddress As System.Windows.Forms.TextBox
  51.     Friend WithEvents txtFzr As System.Windows.Forms.TextBox
  52.     Friend WithEvents txtTele As System.Windows.Forms.TextBox
  53.     Friend WithEvents txtName As System.Windows.Forms.TextBox
  54.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  55.     Friend WithEvents txtDate As System.Windows.Forms.DateTimePicker
  56.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  57.     Friend WithEvents tbrps As System.Windows.Forms.ToolBar
  58.     Friend WithEvents tbnmodify As System.Windows.Forms.ToolBarButton
  59.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  60.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  61.         Me.components = New System.ComponentModel.Container
  62.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmPsManage))
  63.         Me.tbrps = New System.Windows.Forms.ToolBar
  64.         Me.tbnAdd = New System.Windows.Forms.ToolBarButton
  65.         Me.tbnmodify = New System.Windows.Forms.ToolBarButton
  66.         Me.tbnsave = New System.Windows.Forms.ToolBarButton
  67.         Me.tbndelete = New System.Windows.Forms.ToolBarButton
  68.         Me.tbnexit = New System.Windows.Forms.ToolBarButton
  69.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  70.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  71.         Me.txtDate = New System.Windows.Forms.DateTimePicker
  72.         Me.Label10 = New System.Windows.Forms.Label
  73.         Me.Label9 = New System.Windows.Forms.Label
  74.         Me.Label8 = New System.Windows.Forms.Label
  75.         Me.Label7 = New System.Windows.Forms.Label
  76.         Me.Label6 = New System.Windows.Forms.Label
  77.         Me.Label4 = New System.Windows.Forms.Label
  78.         Me.Label3 = New System.Windows.Forms.Label
  79.         Me.Label2 = New System.Windows.Forms.Label
  80.         Me.Label1 = New System.Windows.Forms.Label
  81.         Me.txtdemo = New System.Windows.Forms.TextBox
  82.         Me.txtperson = New System.Windows.Forms.TextBox
  83.         Me.txtMdCount = New System.Windows.Forms.TextBox
  84.         Me.txtAddress = New System.Windows.Forms.TextBox
  85.         Me.txtFzr = New System.Windows.Forms.TextBox
  86.         Me.txtTele = New System.Windows.Forms.TextBox
  87.         Me.txtName = New System.Windows.Forms.TextBox
  88.         Me.txtNumber = New System.Windows.Forms.TextBox
  89.         Me.dgview = New System.Windows.Forms.DataGrid
  90.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  91.         Me.GroupBox1.SuspendLayout()
  92.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  93.         Me.SuspendLayout()
  94.         '
  95.         'tbrps
  96.         '
  97.         Me.tbrps.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  98.         Me.tbrps.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbnAdd, Me.tbnmodify, Me.tbnsave, Me.tbndelete, Me.tbnexit})
  99.         Me.tbrps.DropDownArrows = True
  100.         Me.tbrps.ImageList = Me.ImageList2
  101.         Me.tbrps.Location = New System.Drawing.Point(0, 0)
  102.         Me.tbrps.Name = "tbrps"
  103.         Me.tbrps.ShowToolTips = True
  104.         Me.tbrps.Size = New System.Drawing.Size(528, 41)
  105.         Me.tbrps.TabIndex = 0
  106.         '
  107.         'tbnAdd
  108.         '
  109.         Me.tbnAdd.ImageIndex = 7
  110.         Me.tbnAdd.Text = "添加"
  111.         '
  112.         'tbnmodify
  113.         '
  114.         Me.tbnmodify.ImageIndex = 5
  115.         Me.tbnmodify.Text = "修改"
  116.         '
  117.         'tbnsave
  118.         '
  119.         Me.tbnsave.ImageIndex = 4
  120.         Me.tbnsave.Text = "保存"
  121.         '
  122.         'tbndelete
  123.         '
  124.         Me.tbndelete.ImageIndex = 6
  125.         Me.tbndelete.Text = "删除"
  126.         '
  127.         'tbnexit
  128.         '
  129.         Me.tbnexit.ImageIndex = 11
  130.         Me.tbnexit.Text = "退出"
  131.         '
  132.         'ImageList2
  133.         '
  134.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  135.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  136.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  137.         '
  138.         'GroupBox1
  139.         '
  140.         Me.GroupBox1.Controls.Add(Me.txtDate)
  141.         Me.GroupBox1.Controls.Add(Me.Label10)
  142.         Me.GroupBox1.Controls.Add(Me.Label9)
  143.         Me.GroupBox1.Controls.Add(Me.Label8)
  144.         Me.GroupBox1.Controls.Add(Me.Label7)
  145.         Me.GroupBox1.Controls.Add(Me.Label6)
  146.         Me.GroupBox1.Controls.Add(Me.Label4)
  147.         Me.GroupBox1.Controls.Add(Me.Label3)
  148.         Me.GroupBox1.Controls.Add(Me.Label2)
  149.         Me.GroupBox1.Controls.Add(Me.Label1)
  150.         Me.GroupBox1.Controls.Add(Me.txtdemo)
  151.         Me.GroupBox1.Controls.Add(Me.txtperson)
  152.         Me.GroupBox1.Controls.Add(Me.txtMdCount)
  153.         Me.GroupBox1.Controls.Add(Me.txtAddress)
  154.         Me.GroupBox1.Controls.Add(Me.txtFzr)
  155.         Me.GroupBox1.Controls.Add(Me.txtTele)
  156.         Me.GroupBox1.Controls.Add(Me.txtName)
  157.         Me.GroupBox1.Controls.Add(Me.txtNumber)
  158.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  159.         Me.GroupBox1.Location = New System.Drawing.Point(0, 41)
  160.         Me.GroupBox1.Name = "GroupBox1"
  161.         Me.GroupBox1.Size = New System.Drawing.Size(528, 196)
  162.         Me.GroupBox1.TabIndex = 1
  163.         Me.GroupBox1.TabStop = False
  164.         '
  165.         'txtDate
  166.         '
  167.         Me.txtDate.Location = New System.Drawing.Point(392, 19)
  168.         Me.txtDate.Name = "txtDate"
  169.         Me.txtDate.Size = New System.Drawing.Size(112, 21)
  170.         Me.txtDate.TabIndex = 22
  171.         '
  172.         'Label10
  173.         '
  174.         Me.Label10.AutoSize = True
  175.         Me.Label10.Location = New System.Drawing.Point(18, 144)
  176.         Me.Label10.Name = "Label10"
  177.         Me.Label10.Size = New System.Drawing.Size(42, 17)
  178.         Me.Label10.TabIndex = 21
  179.         Me.Label10.Text = "备注："
  180.         Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  181.         '
  182.         'Label9
  183.         '
  184.         Me.Label9.AutoSize = True
  185.         Me.Label9.Location = New System.Drawing.Point(18, 112)
  186.         Me.Label9.Name = "Label9"
  187.         Me.Label9.Size = New System.Drawing.Size(42, 17)
  188.         Me.Label9.TabIndex = 20
  189.         Me.Label9.Text = "地址："
  190.         Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  191.         '
  192.         'Label8
  193.         '
  194.         Me.Label8.AutoSize = True
  195.         Me.Label8.Location = New System.Drawing.Point(6, 80)
  196.         Me.Label8.Name = "Label8"
  197.         Me.Label8.Size = New System.Drawing.Size(54, 17)
  198.         Me.Label8.TabIndex = 19
  199.         Me.Label8.Text = "负责人："
  200.         Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  201.         '
  202.         'Label7
  203.         '
  204.         Me.Label7.AutoSize = True
  205.         Me.Label7.Location = New System.Drawing.Point(162, 80)
  206.         Me.Label7.Name = "Label7"
  207.         Me.Label7.Size = New System.Drawing.Size(66, 17)
  208.         Me.Label7.TabIndex = 18
  209.         Me.Label7.Text = "联系电话："
  210.         Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  211.         '
  212.         'Label6
  213.         '
  214.         Me.Label6.AutoSize = True
  215.         Me.Label6.Location = New System.Drawing.Point(328, 19)
  216.         Me.Label6.Name = "Label6"
  217.         Me.Label6.Size = New System.Drawing.Size(66, 17)
  218.         Me.Label6.TabIndex = 17
  219.         Me.Label6.Text = "创建时间："
  220.         Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  221.         '
  222.         'Label4
  223.         '
  224.         Me.Label4.AutoSize = True
  225.         Me.Label4.Location = New System.Drawing.Point(336, 48)
  226.         Me.Label4.Name = "Label4"
  227.         Me.Label4.Size = New System.Drawing.Size(54, 17)
  228.         Me.Label4.TabIndex = 15
  229.         Me.Label4.Text = "创建者："
  230.         Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  231.         '
  232.         'Label3
  233.         '
  234.         Me.Label3.AutoSize = True
  235.         Me.Label3.Location = New System.Drawing.Point(18, 48)
  236.         Me.Label3.Name = "Label3"
  237.         Me.Label3.Size = New System.Drawing.Size(42, 17)
  238.         Me.Label3.TabIndex = 14
  239.         Me.Label3.Text = "名称："
  240.         '
  241.         'Label2
  242.         '
  243.         Me.Label2.AutoSize = True
  244.         Me.Label2.Location = New System.Drawing.Point(162, 19)
  245.         Me.Label2.Name = "Label2"
  246.         Me.Label2.Size = New System.Drawing.Size(66, 17)
  247.         Me.Label2.TabIndex = 13
  248.         Me.Label2.Text = "门店总数："
  249.         Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  250.         '
  251.         'Label1
  252.         '
  253.         Me.Label1.AutoSize = True
  254.         Me.Label1.Location = New System.Drawing.Point(18, 19)
  255.         Me.Label1.Name = "Label1"
  256.         Me.Label1.Size = New System.Drawing.Size(42, 17)
  257.         Me.Label1.TabIndex = 12
  258.         Me.Label1.Text = "编号："
  259.         Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
  260.         '
  261.         'txtdemo
  262.         '
  263.         Me.txtdemo.Location = New System.Drawing.Point(60, 144)
  264.         Me.txtdemo.Multiline = True
  265.         Me.txtdemo.Name = "txtdemo"
  266.         Me.txtdemo.Size = New System.Drawing.Size(444, 44)
  267.         Me.txtdemo.TabIndex = 9
  268.         Me.txtdemo.Text = ""
  269.         '
  270.         'txtperson
  271.         '
  272.         Me.txtperson.Location = New System.Drawing.Point(392, 48)
  273.         Me.txtperson.Name = "txtperson"
  274.         Me.txtperson.Size = New System.Drawing.Size(112, 21)
  275.         Me.txtperson.TabIndex = 7
  276.         Me.txtperson.Text = ""
  277.         '
  278.         'txtMdCount
  279.         '
  280.         Me.txtMdCount.Location = New System.Drawing.Point(228, 19)
  281.         Me.txtMdCount.Name = "txtMdCount"
  282.         Me.txtMdCount.Size = New System.Drawing.Size(90, 21)
  283.         Me.txtMdCount.TabIndex = 6
  284.         Me.txtMdCount.Text = ""
  285.         '
  286.         'txtAddress
  287.         '
  288.         Me.txtAddress.Location = New System.Drawing.Point(60, 112)
  289.         Me.txtAddress.Name = "txtAddress"
  290.         Me.txtAddress.Size = New System.Drawing.Size(444, 21)
  291.         Me.txtAddress.TabIndex = 5
  292.         Me.txtAddress.Text = ""
  293.         '
  294.         'txtFzr
  295.         '
  296.         Me.txtFzr.Location = New System.Drawing.Point(60, 80)
  297.         Me.txtFzr.Name = "txtFzr"
  298.         Me.txtFzr.Size = New System.Drawing.Size(75, 21)
  299.         Me.txtFzr.TabIndex = 4
  300.         Me.txtFzr.Text = ""
  301.         '
  302.         'txtTele
  303.         '
  304.         Me.txtTele.Location = New System.Drawing.Point(228, 80)
  305.         Me.txtTele.Name = "txtTele"
  306.         Me.txtTele.Size = New System.Drawing.Size(90, 21)
  307.         Me.txtTele.TabIndex = 3
  308.         Me.txtTele.Text = ""
  309.         '
  310.         'txtName
  311.         '
  312.         Me.txtName.Location = New System.Drawing.Point(60, 48)
  313.         Me.txtName.Name = "txtName"
  314.         Me.txtName.Size = New System.Drawing.Size(258, 21)
  315.         Me.txtName.TabIndex = 1
  316.         Me.txtName.Text = ""
  317.         '
  318.         'txtNumber
  319.         '
  320.         Me.txtNumber.Location = New System.Drawing.Point(60, 19)
  321.         Me.txtNumber.Name = "txtNumber"
  322.         Me.txtNumber.Size = New System.Drawing.Size(75, 21)
  323.         Me.txtNumber.TabIndex = 0
  324.         Me.txtNumber.Text = ""
  325.         '
  326.         'dgview
  327.         '
  328.         Me.dgview.DataMember = ""
  329.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  330.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  331.         Me.dgview.Location = New System.Drawing.Point(0, 237)
  332.         Me.dgview.Name = "dgview"
  333.         Me.dgview.Size = New System.Drawing.Size(528, 246)
  334.         Me.dgview.TabIndex = 2
  335.         '
  336.         'ErrorProvider1
  337.         '
  338.         Me.ErrorProvider1.ContainerControl = Me
  339.         '
  340.         'frmPsManage
  341.         '
  342.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  343.         Me.ClientSize = New System.Drawing.Size(528, 483)
  344.         Me.Controls.Add(Me.dgview)
  345.         Me.Controls.Add(Me.GroupBox1)
  346.         Me.Controls.Add(Me.tbrps)
  347.         Me.Name = "frmPsManage"
  348.         Me.Text = "配送中心登记"
  349.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  350.         Me.GroupBox1.ResumeLayout(False)
  351.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  352.         Me.ResumeLayout(False)
  354.     End Sub
  356. #End Region
  357.     Public lsweb As New jxcmanage
  358.     Public dslocals As DataSet = lsweb.returndataset("select Number as 编号,CName as 名称,mdcount as 门店个数,startTime as 日期,cjz as 创建者,fzr as 负责人,Telephone as 电话,Address as 地址,demo as 备注 from pscenter", "pscenter")
  359.     Public Sub tbnEnable(ByVal strboolean As String, ByVal tbr As ToolBar)
  360.         If strboolean = "tbnAdd.Enabled = True" Then
  361.             tbnsave.Enabled = False
  362.             tbnModify.Enabled = False
  363.             tbndelete.Enabled = False
  365.             tbnexit.Enabled = True
  367.         ElseIf strboolean = "tbnAdd.Enabled = False" Then
  368.             tbnAdd.Enabled = False
  369.             tbnsave.Enabled = True
  370.             tbnModify.Enabled = False
  371.             tbndelete.Enabled = False
  373.             tbnexit.Enabled = True
  374.         ElseIf strboolean = "tbnSave.Enabled = True" Then
  375.             tbnAdd.Enabled = False
  376.             tbnmodify.Enabled = False
  377.             tbndelete.Enabled = False
  379.             tbnexit.Enabled = True
  380.         ElseIf strboolean = "tbnSave.Enabled = False" Then
  381.             tbnsave.Enabled = False
  382.             tbnAdd.Enabled = True
  383.             tbnmodify.Enabled = True
  384.             tbndelete.Enabled = True
  386.             tbnexit.Enabled = True
  387.         ElseIf strboolean = "tbnModify.Enabled = True" Then
  388.             tbnAdd.Enabled = False
  389.             tbnsave.Enabled = True
  390.             tbndelete.Enabled = False
  392.             tbnexit.Enabled = True
  393.         ElseIf strboolean = "tbnModify.Enabled = False" Then
  394.             tbnmodify.Enabled = False
  395.             tbnAdd.Enabled = True
  396.             tbnsave.Enabled = False
  397.             tbndelete.Enabled = False
  399.             tbnexit.Enabled = True
  400.         ElseIf strboolean = "tbnDelete.Enabled = True" Then
  401.             tbnAdd.Enabled = False
  402.             tbnsave.Enabled = True
  403.             tbnmodify.Enabled = False
  405.             tbnexit.Enabled = True
  406.         ElseIf strboolean = "tbnDelete.Enabled = False" Then
  407.             tbndelete.Enabled = False
  408.             tbnAdd.Enabled = False
  409.             tbnsave.Enabled = True
  410.             tbnmodify.Enabled = False
  412.             tbnexit.Enabled = True
  413.         End If
  414.     End Sub
  416.     Public Sub add()
  418.         dslocals.Clear()
  421.         txtNumber.Text = ""
  422.         txtNumber.Focus()
  424.         txtName.Text = ""
  425.         txtMdCount.Text = ""
  426.         txtDate.Text = ""
  427.         txtperson.Text = ""
  428.         txtFzr.Text = ""
  429.         txtTele.Text = ""
  430.         txtAddress.Text = ""
  431.         txtdemo.Text = ""
  432.     End Sub
  434.     Private Sub frmPsManage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  435.         'dslocals.Clear()
  436.         dgview.DataSource = dslocals.Tables("pscenter").DefaultView
  437.         txtDate.Value = Today.ToString
  438.     End Sub
  439.     Private Sub Modified()
  440.         If lsweb.updatedataset("select Number as 编号,CName as 名称,mdcount as 门店个数,startTime as 日期,cjz as 创建者,fzr as 负责人,Telephone as 电话,Address as 地址,demo as 备注 from pscenter", "pscenter", dslocals, DataRowState.Modified) = True Then
  441.             MessageBox.Show("药品信息成功保存！", "提示", MessageBoxButtons.OK)
  442.         Else
  443.             MessageBox.Show("药品信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  444.         End If
  445.     End Sub
  446.     Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbrps.ButtonClick
  447.         Select Case e.Button.Text
  448.             Case "添加"
  449.                 add()
  450.                 tbnEnable("tbnAdd.Enabled = False", tbrps)
  451.             Case "保存"
  452.                 If txtNumber.Text = "" Or txtName.Text = "" Or txtMdCount.Text = "" Then
  453.                     MessageBox.Show("信息不完整，保存失败！", "提示", MessageBoxButtons.OK)
  454.                 Else
  455.                     Dim dr As DataRow = dslocals.Tables("pscenter").NewRow()
  456.                     dr("编号") = Me.txtNumber.Text.Trim
  457.                     dr("名称") = Me.txtName.Text.Trim
  458.                     dr("门店个数") = Me.txtMdCount.Text.Trim
  459.                     dr("日期") = Me.txtDate.Text.Trim
  460.                     dr("创建者") = Me.txtperson.Text.Trim
  461.                     dr("负责人") = Me.txtFzr.Text.Trim
  462.                     dr("电话") = Me.txtTele.Text.Trim
  463.                     dr("地址") = Me.txtAddress.Text.Trim
  464.                     dr("备注") = Me.txtdemo.Text.Trim
  465.                     dslocals.Tables("pscenter").Rows.Add(dr)
  466.                     If lsweb.updatedataset("select Number as 编号,CName as 名称,mdcount as 门店个数,startTime as 日期,cjz as 创建者,fzr as 负责人,Telephone as 电话,Address as 地址,demo as 备注 from pscenter", "pscenter", dslocals, DataRowState.Added) = True Then
  467.                         MessageBox.Show("信息成功保存！", "提示", MessageBoxButtons.OK)
  468.                     Else
  469.                         MessageBox.Show("信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  470.                     End If
  471.                     tbnEnable("tbnSave.Enabled = False", tbrps)
  472.                 End If
  474.             Case "修改"
  475.                 Modified()
  476.                 tbnEnable("tbnModify.Enabled = False", tbrps)
  477.             Case "删除"
  478.                 delete()
  479.                 tbnEnable("tbnDelete.Enabled = False", tbrps)
  480.             Case "退出"
  481.                 Me.Close()
  484.         End Select
  485.     End Sub
  487.     Private Sub view()
  488.         Dim drv As DataRowView = BindingContext(Me.dgview.DataSource).Current
  489.         Dim dr As DataRow
  490.         dr = drv.Row
  491.         txtNumber.Text = IIf(dr("编号") Is System.DBNull.Value, "", dr("编号"))
  492.         txtName.Text = IIf(dr("名称") Is System.DBNull.Value, "", dr("名称"))
  493.         txtMdCount.Text = IIf(dr("门店个数") Is System.DBNull.Value, "", dr("门店个数"))
  494.         txtDate.Text = IIf(dr("日期") Is System.DBNull.Value, "", dr("日期"))
  495.         txtperson.Text = IIf(dr("创建者") Is System.DBNull.Value, "", dr("创建者"))
  496.         txtFzr.Text = IIf(dr("负责人") Is System.DBNull.Value, 0, dr("负责人"))
  497.         txtTele.Text = IIf(dr("电话") Is System.DBNull.Value, 0, dr("电话"))
  498.         txtAddress.Text = IIf(dr("地址") Is System.DBNull.Value, 0, dr("地址"))
  499.         txtdemo.Text = IIf(dr("备注") Is System.DBNull.Value, "", dr("备注"))
  501.     End Sub
  502.     Private Sub delete()
  504.         Dim drv As DataRowView = BindingContext(Me.dgview.DataSource).Current
  505.         If drv(0) Is System.DBNull.Value Then
  506.             MessageBox.Show("没有要删除的记录!", "提示", MessageBoxButtons.OK)
  507.         Else
  508.             Dim strquery As String = drv(0)
  509.             If lsweb.deletepscenter(strquery) = True Then
  510.                 MessageBox.Show("已经删除记录啦!", "提示", MessageBoxButtons.OK)
  511.             Else
  512.                 MessageBox.Show("删除记录失败!", "提示", MessageBoxButtons.OK)
  513.             End If
  514.         End If
  521.     End Sub
  522.     Private Sub txtNumber_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtNumber.KeyDown
  523.         If e.KeyCode = Keys.Enter Then
  524.             txtMdCount.Focus()
  525.         End If
  526.     End Sub
  528.     
  530.     Private Sub txtMdCount_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMdCount.KeyDown
  531.         If e.KeyCode = Keys.Enter Then
  532.             txtDate.Focus()
  533.         End If
  534.     End Sub
  536.   
  538.     Private Sub txtDate_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtDate.KeyDown
  539.         If e.KeyCode = Keys.Enter Then
  540.             txtName.Focus()
  541.         End If
  542.     End Sub
  544.     Private Sub txtName_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtName.KeyDown
  545.         If e.KeyCode = Keys.Enter Then
  546.             txtperson.Focus()
  547.         End If
  548.     End Sub
  550.     
  552.     Private Sub txtperson_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtperson.KeyDown
  553.         If e.KeyCode = Keys.Enter Then
  554.             txtFzr.Focus()
  555.         End If
  556.     End Sub
  558.     
  560.     Private Sub txtFzr_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtFzr.KeyDown
  561.         If e.KeyCode = Keys.Enter Then
  562.             txtTele.Focus()
  563.         End If
  564.     End Sub
  566.     
  568.     Private Sub txtTele_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTele.KeyDown
  569.         If e.KeyCode = Keys.Enter Then
  570.             txtAddress.Focus()
  571.         End If
  572.     End Sub
  574.     
  576.     Private Sub txtAddress_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtAddress.KeyDown
  577.         If e.KeyCode = Keys.Enter Then
  578.             txtdemo.Focus()
  579.         End If
  580.     End Sub
  582.     Private Sub txtNumber_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtNumber.Validating
  583.         If txtNumber.Text = String.Empty Then
  584.             ErrorProvider1.SetError(txtNumber, "不能为空。")
  585.             txtNumber.Focus()
  586.         Else
  587.             ErrorProvider1.SetError(txtNumber, "")
  588.         End If
  589.     End Sub
  591.     Private Sub txtMdCount_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtMdCount.Validating
  592.         If txtMdCount.Text = String.Empty Or Not IsNumeric(txtMdCount.Text) Then
  593.             ErrorProvider1.SetError(txtMdCount, "不能为空且为数值类型！")
  594.             txtMdCount.Focus()
  595.         Else
  596.             ErrorProvider1.SetError(txtMdCount, "")
  597.         End If
  598.     End Sub
  600.     Private Sub txtName_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtName.Validating
  601.         If txtName.Text = String.Empty Then
  602.             ErrorProvider1.SetError(txtName, "不能为空。")
  603.             txtName.Focus()
  604.         Else
  605.             ErrorProvider1.SetError(txtName, "")
  606.         End If
  607.     End Sub
  609.     Private Sub txtperson_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtperson.Validating
  610.         If txtperson.Text = String.Empty Then
  611.             ErrorProvider1.SetError(txtperson, "不能为空。")
  612.             txtperson.Focus()
  613.         Else
  614.             ErrorProvider1.SetError(txtperson, "")
  615.         End If
  616.     End Sub
  618.     Private Sub txtFzr_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtFzr.Validating
  619.         If txtFzr.Text = String.Empty Then
  620.             ErrorProvider1.SetError(txtFzr, "不能为空。")
  621.             txtFzr.Focus()
  622.         Else
  623.             ErrorProvider1.SetError(txtFzr, "")
  624.         End If
  625.     End Sub
  627.     Private Sub txtTele_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtTele.Validating
  628.         If txtTele.Text = String.Empty Then
  629.             ErrorProvider1.SetError(txtTele, "不能为空。")
  630.             txtTele.Focus()
  631.         Else
  632.             ErrorProvider1.SetError(txtTele, "")
  633.         End If
  634.     End Sub
  636.     Private Sub txtAddress_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtAddress.Validating
  637.         If txtAddress.Text = String.Empty Then
  638.             ErrorProvider1.SetError(txtAddress, "不能为空。")
  639.             txtAddress.Focus()
  640.         Else
  641.             ErrorProvider1.SetError(txtAddress, "")
  642.         End If
  643.     End Sub
  645.    
  647.     Private Sub dgview_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgview.CurrentCellChanged
  648.         view()
  649.     End Sub
  651.     Private Sub txtMdCount_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMdCount.TextChanged
  653.     End Sub
  654. End Class