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

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

医药行业

开发平台：

Visual Basic

frmkh.vb：源码内容
  1. Imports localJxc.jxcmanage
  2. Public Class frmkh
  3.     Inherits System.Windows.Forms.Form
  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 tbrkh As System.Windows.Forms.ToolBar
  34.     Friend WithEvents tbrAdd As System.Windows.Forms.ToolBarButton
  35.     Friend WithEvents tbrSave As System.Windows.Forms.ToolBarButton
  36.     Friend WithEvents tbrModify As System.Windows.Forms.ToolBarButton
  37.     Friend WithEvents tbrDelete As System.Windows.Forms.ToolBarButton
  38.     Friend WithEvents tbrPrint As System.Windows.Forms.ToolBarButton
  39.     Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
  40.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  41.     Friend WithEvents Label8 As System.Windows.Forms.Label
  42.     Friend WithEvents txtquery As System.Windows.Forms.TextBox
  43.     Friend WithEvents btnQuery As System.Windows.Forms.Button
  44.     Friend WithEvents tbrSeparator As System.Windows.Forms.ToolBarButton
  45.     Friend WithEvents tbrExit As System.Windows.Forms.ToolBarButton
  46.     Friend WithEvents MsdnTextboxValidator1 As MSDNTextboxValidator.MSDNTextboxValidator
  47.     Friend WithEvents ErrorProvider1 As System.Windows.Forms.ErrorProvider
  48.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  49.     Friend WithEvents txtLxr As System.Windows.Forms.TextBox
  50.     Friend WithEvents txtSj As System.Windows.Forms.TextBox
  51.     Friend WithEvents txtTele As System.Windows.Forms.TextBox
  52.     Friend WithEvents txtAddress As System.Windows.Forms.TextBox
  53.     Friend WithEvents cboXz As System.Windows.Forms.ComboBox
  54.     Friend WithEvents txtNumber As System.Windows.Forms.TextBox
  55.     Friend WithEvents txtName As System.Windows.Forms.TextBox
  56.     Friend WithEvents Label7 As System.Windows.Forms.Label
  57.     Friend WithEvents Label6 As System.Windows.Forms.Label
  58.     Friend WithEvents Label5 As System.Windows.Forms.Label
  59.     Friend WithEvents Label4 As System.Windows.Forms.Label
  60.     Friend WithEvents Label3 As System.Windows.Forms.Label
  61.     Friend WithEvents Label2 As System.Windows.Forms.Label
  62.     Friend WithEvents Label1 As System.Windows.Forms.Label
  63.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  64.     Friend WithEvents dgkh As System.Windows.Forms.DataGrid
  65.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  66.     Friend WithEvents txtcustNumber As System.Windows.Forms.Label
  67.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  68.         Me.components = New System.ComponentModel.Container
  69.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmkh))
  70.         Me.tbrkh = New System.Windows.Forms.ToolBar
  71.         Me.tbrAdd = New System.Windows.Forms.ToolBarButton
  72.         Me.tbrSave = New System.Windows.Forms.ToolBarButton
  73.         Me.tbrModify = New System.Windows.Forms.ToolBarButton
  74.         Me.tbrDelete = New System.Windows.Forms.ToolBarButton
  75.         Me.tbrPrint = New System.Windows.Forms.ToolBarButton
  76.         Me.tbrSeparator = New System.Windows.Forms.ToolBarButton
  77.         Me.tbrExit = New System.Windows.Forms.ToolBarButton
  78.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  79.         Me.StatusBar1 = New System.Windows.Forms.StatusBar
  80.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  81.         Me.btnQuery = New System.Windows.Forms.Button
  82.         Me.txtquery = New System.Windows.Forms.TextBox
  83.         Me.Label8 = New System.Windows.Forms.Label
  84.         Me.MsdnTextboxValidator1 = New MSDNTextboxValidator.MSDNTextboxValidator(Me.components)
  85.         Me.txtLxr = New System.Windows.Forms.TextBox
  86.         Me.txtSj = New System.Windows.Forms.TextBox
  87.         Me.txtTele = New System.Windows.Forms.TextBox
  88.         Me.txtAddress = New System.Windows.Forms.TextBox
  89.         Me.txtNumber = New System.Windows.Forms.TextBox
  90.         Me.txtName = New System.Windows.Forms.TextBox
  91.         Me.ErrorProvider1 = New System.Windows.Forms.ErrorProvider
  92.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  93.         Me.txtcustNumber = New System.Windows.Forms.Label
  94.         Me.cboXz = New System.Windows.Forms.ComboBox
  95.         Me.Label7 = New System.Windows.Forms.Label
  96.         Me.Label6 = New System.Windows.Forms.Label
  97.         Me.Label5 = New System.Windows.Forms.Label
  98.         Me.Label4 = New System.Windows.Forms.Label
  99.         Me.Label3 = New System.Windows.Forms.Label
  100.         Me.Label2 = New System.Windows.Forms.Label
  101.         Me.Label1 = New System.Windows.Forms.Label
  102.         Me.Panel1 = New System.Windows.Forms.Panel
  103.         Me.dgkh = New System.Windows.Forms.DataGrid
  104.         Me.GroupBox2.SuspendLayout()
  105.         Me.GroupBox1.SuspendLayout()
  106.         Me.Panel1.SuspendLayout()
  107.         CType(Me.dgkh, System.ComponentModel.ISupportInitialize).BeginInit()
  108.         Me.SuspendLayout()
  109.         '
  110.         'tbrkh
  111.         '
  112.         Me.tbrkh.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  113.         Me.tbrkh.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbrAdd, Me.tbrSave, Me.tbrModify, Me.tbrDelete, Me.tbrPrint, Me.tbrSeparator, Me.tbrExit})
  114.         Me.tbrkh.DropDownArrows = True
  115.         Me.tbrkh.ImageList = Me.ImageList2
  116.         Me.tbrkh.Location = New System.Drawing.Point(0, 0)
  117.         Me.tbrkh.Name = "tbrkh"
  118.         Me.tbrkh.ShowToolTips = True
  119.         Me.tbrkh.Size = New System.Drawing.Size(556, 41)
  120.         Me.tbrkh.TabIndex = 0
  121.         '
  122.         'tbrAdd
  123.         '
  124.         Me.tbrAdd.ImageIndex = 7
  125.         Me.tbrAdd.Text = "添加"
  126.         '
  127.         'tbrSave
  128.         '
  129.         Me.tbrSave.ImageIndex = 4
  130.         Me.tbrSave.Text = "保存"
  131.         '
  132.         'tbrModify
  133.         '
  134.         Me.tbrModify.ImageIndex = 5
  135.         Me.tbrModify.Text = "修改"
  136.         '
  137.         'tbrDelete
  138.         '
  139.         Me.tbrDelete.ImageIndex = 6
  140.         Me.tbrDelete.Text = "删除"
  141.         '
  142.         'tbrPrint
  143.         '
  144.         Me.tbrPrint.ImageIndex = 12
  145.         Me.tbrPrint.Text = "打印"
  146.         '
  147.         'tbrSeparator
  148.         '
  149.         Me.tbrSeparator.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  150.         '
  151.         'tbrExit
  152.         '
  153.         Me.tbrExit.ImageIndex = 11
  154.         Me.tbrExit.Text = "退出"
  155.         '
  156.         'ImageList2
  157.         '
  158.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  159.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  160.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  161.         '
  162.         'StatusBar1
  163.         '
  164.         Me.StatusBar1.Location = New System.Drawing.Point(0, 510)
  165.         Me.StatusBar1.Name = "StatusBar1"
  166.         Me.StatusBar1.Size = New System.Drawing.Size(556, 22)
  167.         Me.StatusBar1.TabIndex = 2
  168.         '
  169.         'GroupBox2
  170.         '
  171.         Me.GroupBox2.Controls.Add(Me.btnQuery)
  172.         Me.GroupBox2.Controls.Add(Me.txtquery)
  173.         Me.GroupBox2.Controls.Add(Me.Label8)
  174.         Me.GroupBox2.Location = New System.Drawing.Point(0, 184)
  175.         Me.GroupBox2.Name = "GroupBox2"
  176.         Me.GroupBox2.Size = New System.Drawing.Size(557, 48)
  177.         Me.GroupBox2.TabIndex = 4
  178.         Me.GroupBox2.TabStop = False
  179.         Me.GroupBox2.Text = "查询客户信息："
  180.         '
  181.         'btnQuery
  182.         '
  183.         Me.btnQuery.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  184.         Me.btnQuery.Location = New System.Drawing.Point(336, 16)
  185.         Me.btnQuery.Name = "btnQuery"
  186.         Me.btnQuery.Size = New System.Drawing.Size(80, 21)
  187.         Me.btnQuery.TabIndex = 2
  188.         Me.btnQuery.Text = "查询"
  189.         '
  190.         'txtquery
  191.         '
  192.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtquery, True)
  193.         Me.MsdnTextboxValidator1.SetDataType(Me.txtquery, MSDNTextboxValidator.DataTypeConstants.StringType)
  194.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtquery, "")
  195.         Me.txtquery.Location = New System.Drawing.Point(168, 16)
  196.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtquery, "")
  197.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtquery, "")
  198.         Me.txtquery.Name = "txtquery"
  199.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtquery, "")
  200.         Me.MsdnTextboxValidator1.SetRequired(Me.txtquery, False)
  201.         Me.txtquery.Size = New System.Drawing.Size(161, 21)
  202.         Me.txtquery.TabIndex = 1
  203.         Me.txtquery.Text = ""
  204.         '
  205.         'Label8
  206.         '
  207.         Me.Label8.AutoSize = True
  208.         Me.Label8.Location = New System.Drawing.Point(12, 25)
  209.         Me.Label8.Name = "Label8"
  210.         Me.Label8.Size = New System.Drawing.Size(153, 17)
  211.         Me.Label8.TabIndex = 0
  212.         Me.Label8.Text = "请输入查询编号或拼音码："
  213.         '
  214.         'MsdnTextboxValidator1
  215.         '
  216.         Me.MsdnTextboxValidator1.DisplayControl = Nothing
  217.         Me.MsdnTextboxValidator1.ErrorProvider = Nothing
  218.         Me.MsdnTextboxValidator1.InvalidBackColor = System.Drawing.Color.Empty
  219.         Me.MsdnTextboxValidator1.TooltipProvider = Nothing
  220.         '
  221.         'txtLxr
  222.         '
  223.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtLxr, True)
  224.         Me.MsdnTextboxValidator1.SetDataType(Me.txtLxr, MSDNTextboxValidator.DataTypeConstants.StringType)
  225.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtLxr, "")
  226.         Me.txtLxr.Location = New System.Drawing.Point(66, 88)
  227.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtLxr, "")
  228.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtLxr, "")
  229.         Me.txtLxr.Name = "txtLxr"
  230.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtLxr, "")
  231.         Me.MsdnTextboxValidator1.SetRequired(Me.txtLxr, False)
  232.         Me.txtLxr.Size = New System.Drawing.Size(142, 21)
  233.         Me.txtLxr.TabIndex = 13
  234.         Me.txtLxr.Text = ""
  235.         '
  236.         'txtSj
  237.         '
  238.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtSj, True)
  239.         Me.MsdnTextboxValidator1.SetDataType(Me.txtSj, MSDNTextboxValidator.DataTypeConstants.Int32Type)
  240.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtSj, "")
  241.         Me.txtSj.Location = New System.Drawing.Point(444, 56)
  242.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtSj, "")
  243.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtSj, "")
  244.         Me.txtSj.Name = "txtSj"
  245.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtSj, "")
  246.         Me.MsdnTextboxValidator1.SetRequired(Me.txtSj, False)
  247.         Me.txtSj.TabIndex = 12
  248.         Me.txtSj.Text = ""
  249.         '
  250.         'txtTele
  251.         '
  252.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtTele, True)
  253.         Me.MsdnTextboxValidator1.SetDataType(Me.txtTele, MSDNTextboxValidator.DataTypeConstants.StringType)
  254.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtTele, "")
  255.         Me.txtTele.Location = New System.Drawing.Point(270, 56)
  256.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtTele, "")
  257.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtTele, "")
  258.         Me.txtTele.Name = "txtTele"
  259.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtTele, "")
  260.         Me.MsdnTextboxValidator1.SetRequired(Me.txtTele, False)
  261.         Me.txtTele.Size = New System.Drawing.Size(102, 21)
  262.         Me.txtTele.TabIndex = 11
  263.         Me.txtTele.Text = ""
  264.         '
  265.         'txtAddress
  266.         '
  267.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtAddress, True)
  268.         Me.MsdnTextboxValidator1.SetDataType(Me.txtAddress, MSDNTextboxValidator.DataTypeConstants.StringType)
  269.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtAddress, "")
  270.         Me.txtAddress.Location = New System.Drawing.Point(66, 56)
  271.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtAddress, "")
  272.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtAddress, "")
  273.         Me.txtAddress.Name = "txtAddress"
  274.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtAddress, "")
  275.         Me.MsdnTextboxValidator1.SetRequired(Me.txtAddress, False)
  276.         Me.txtAddress.Size = New System.Drawing.Size(142, 21)
  277.         Me.txtAddress.TabIndex = 10
  278.         Me.txtAddress.Text = ""
  279.         '
  280.         'txtNumber
  281.         '
  282.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtNumber, True)
  283.         Me.MsdnTextboxValidator1.SetDataType(Me.txtNumber, MSDNTextboxValidator.DataTypeConstants.StringType)
  284.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtNumber, "")
  285.         Me.txtNumber.Location = New System.Drawing.Point(444, 25)
  286.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtNumber, "")
  287.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtNumber, "")
  288.         Me.txtNumber.Name = "txtNumber"
  289.         Me.txtNumber.ReadOnly = True
  290.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtNumber, "")
  291.         Me.MsdnTextboxValidator1.SetRequired(Me.txtNumber, False)
  292.         Me.txtNumber.TabIndex = 9
  293.         Me.txtNumber.Text = ""
  294.         '
  295.         'txtName
  296.         '
  297.         Me.MsdnTextboxValidator1.SetCustomValidationEnabled(Me.txtName, True)
  298.         Me.MsdnTextboxValidator1.SetDataType(Me.txtName, MSDNTextboxValidator.DataTypeConstants.StringType)
  299.         Me.MsdnTextboxValidator1.SetDisplayName(Me.txtName, "")
  300.         Me.txtName.Location = New System.Drawing.Point(66, 24)
  301.         Me.MsdnTextboxValidator1.SetMaxValue(Me.txtName, "")
  302.         Me.MsdnTextboxValidator1.SetMinValue(Me.txtName, "")
  303.         Me.txtName.Name = "txtName"
  304.         Me.MsdnTextboxValidator1.SetRegularExpression(Me.txtName, "")
  305.         Me.MsdnTextboxValidator1.SetRequired(Me.txtName, False)
  306.         Me.txtName.Size = New System.Drawing.Size(142, 21)
  307.         Me.txtName.TabIndex = 7
  308.         Me.txtName.Text = ""
  309.         '
  310.         'ErrorProvider1
  311.         '
  312.         Me.ErrorProvider1.ContainerControl = Me
  313.         '
  314.         'GroupBox1
  315.         '
  316.         Me.GroupBox1.Controls.Add(Me.txtcustNumber)
  317.         Me.GroupBox1.Controls.Add(Me.txtLxr)
  318.         Me.GroupBox1.Controls.Add(Me.txtSj)
  319.         Me.GroupBox1.Controls.Add(Me.txtTele)
  320.         Me.GroupBox1.Controls.Add(Me.txtAddress)
  321.         Me.GroupBox1.Controls.Add(Me.cboXz)
  322.         Me.GroupBox1.Controls.Add(Me.txtNumber)
  323.         Me.GroupBox1.Controls.Add(Me.txtName)
  324.         Me.GroupBox1.Controls.Add(Me.Label7)
  325.         Me.GroupBox1.Controls.Add(Me.Label6)
  326.         Me.GroupBox1.Controls.Add(Me.Label5)
  327.         Me.GroupBox1.Controls.Add(Me.Label4)
  328.         Me.GroupBox1.Controls.Add(Me.Label3)
  329.         Me.GroupBox1.Controls.Add(Me.Label2)
  330.         Me.GroupBox1.Controls.Add(Me.Label1)
  331.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  332.         Me.GroupBox1.Location = New System.Drawing.Point(0, 41)
  333.         Me.GroupBox1.Name = "GroupBox1"
  334.         Me.GroupBox1.Size = New System.Drawing.Size(556, 136)
  335.         Me.GroupBox1.TabIndex = 5
  336.         Me.GroupBox1.TabStop = False
  337.         Me.GroupBox1.Text = "添加客户信息"
  338.         '
  339.         'txtcustNumber
  340.         '
  341.         Me.txtcustNumber.Location = New System.Drawing.Point(240, 96)
  342.         Me.txtcustNumber.Name = "txtcustNumber"
  343.         Me.txtcustNumber.TabIndex = 14
  344.         '
  345.         'cboXz
  346.         '
  347.         Me.cboXz.Items.AddRange(New Object() {"供应商", "客户"})
  348.         Me.cboXz.Location = New System.Drawing.Point(270, 24)
  349.         Me.cboXz.Name = "cboXz"
  350.         Me.cboXz.Size = New System.Drawing.Size(102, 20)
  351.         Me.cboXz.TabIndex = 8
  352.         '
  353.         'Label7
  354.         '
  355.         Me.Label7.AutoSize = True
  356.         Me.Label7.Location = New System.Drawing.Point(24, 96)
  357.         Me.Label7.Name = "Label7"
  358.         Me.Label7.Size = New System.Drawing.Size(54, 17)
  359.         Me.Label7.TabIndex = 6
  360.         Me.Label7.Text = "联系人："
  361.         '
  362.         'Label6
  363.         '
  364.         Me.Label6.AutoSize = True
  365.         Me.Label6.Location = New System.Drawing.Point(414, 62)
  366.         Me.Label6.Name = "Label6"
  367.         Me.Label6.Size = New System.Drawing.Size(42, 17)
  368.         Me.Label6.TabIndex = 5
  369.         Me.Label6.Text = "手机："
  370.         '
  371.         'Label5
  372.         '
  373.         Me.Label5.AutoSize = True
  374.         Me.Label5.Location = New System.Drawing.Point(240, 64)
  375.         Me.Label5.Name = "Label5"
  376.         Me.Label5.Size = New System.Drawing.Size(42, 17)
  377.         Me.Label5.TabIndex = 4
  378.         Me.Label5.Text = "电话："
  379.         '
  380.         'Label4
  381.         '
  382.         Me.Label4.AutoSize = True
  383.         Me.Label4.Location = New System.Drawing.Point(36, 64)
  384.         Me.Label4.Name = "Label4"
  385.         Me.Label4.Size = New System.Drawing.Size(42, 17)
  386.         Me.Label4.TabIndex = 3
  387.         Me.Label4.Text = "地址："
  388.         '
  389.         'Label3
  390.         '
  391.         Me.Label3.AutoSize = True
  392.         Me.Label3.Location = New System.Drawing.Point(240, 32)
  393.         Me.Label3.Name = "Label3"
  394.         Me.Label3.Size = New System.Drawing.Size(42, 17)
  395.         Me.Label3.TabIndex = 2
  396.         Me.Label3.Text = "性质："
  397.         '
  398.         'Label2
  399.         '
  400.         Me.Label2.AutoSize = True
  401.         Me.Label2.Location = New System.Drawing.Point(12, 32)
  402.         Me.Label2.Name = "Label2"
  403.         Me.Label2.Size = New System.Drawing.Size(66, 17)
  404.         Me.Label2.TabIndex = 1
  405.         Me.Label2.Text = "客户名称："
  406.         '
  407.         'Label1
  408.         '
  409.         Me.Label1.AutoSize = True
  410.         Me.Label1.Location = New System.Drawing.Point(390, 31)
  411.         Me.Label1.Name = "Label1"
  412.         Me.Label1.Size = New System.Drawing.Size(66, 17)
  413.         Me.Label1.TabIndex = 0
  414.         Me.Label1.Text = "客户编号："
  415.         '
  416.         'Panel1
  417.         '
  418.         Me.Panel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
  419.                     Or System.Windows.Forms.AnchorStyles.Left) _
  420.                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
  421.         Me.Panel1.Controls.Add(Me.dgkh)
  422.         Me.Panel1.Location = New System.Drawing.Point(0, 240)
  423.         Me.Panel1.Name = "Panel1"
  424.         Me.Panel1.Size = New System.Drawing.Size(557, 264)
  425.         Me.Panel1.TabIndex = 6
  426.         '
  427.         'dgkh
  428.         '
  429.         Me.dgkh.DataMember = ""
  430.         Me.dgkh.Dock = System.Windows.Forms.DockStyle.Fill
  431.         Me.dgkh.HeaderForeColor = System.Drawing.SystemColors.ControlText
  432.         Me.dgkh.Location = New System.Drawing.Point(0, 0)
  433.         Me.dgkh.Name = "dgkh"
  434.         Me.dgkh.Size = New System.Drawing.Size(557, 264)
  435.         Me.dgkh.TabIndex = 4
  436.         '
  437.         'frmkh
  438.         '
  439.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  440.         Me.ClientSize = New System.Drawing.Size(556, 532)
  441.         Me.Controls.Add(Me.Panel1)
  442.         Me.Controls.Add(Me.GroupBox1)
  443.         Me.Controls.Add(Me.GroupBox2)
  444.         Me.Controls.Add(Me.StatusBar1)
  445.         Me.Controls.Add(Me.tbrkh)
  446.         Me.HelpButton = True
  447.         Me.Name = "frmkh"
  448.         Me.Text = "客户基本信息"
  449.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  450.         Me.GroupBox2.ResumeLayout(False)
  451.         Me.GroupBox1.ResumeLayout(False)
  452.         Me.Panel1.ResumeLayout(False)
  453.         CType(Me.dgkh, System.ComponentModel.ISupportInitialize).EndInit()
  454.         Me.ResumeLayout(False)
  456.     End Sub
  458. #End Region
  459.     Public lsweb As New jxcmanage
  460.     Public dslocals As DataSet = lsweb.returndataset("select * from wz_kh", "wz_kh")
  461.     Private Sub frmkh_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  463.         dslocals.Clear()
  464.         dgkh.DataSource = dslocals.Tables("wz_kh").DefaultView
  465.     End Sub
  466.     Private Sub save()
  467.         dslocals = lsweb.returndataset("select * from wz_kh", "wz_kh")
  468.         Dim dr As DataRow = dslocals.Tables(0).NewRow()
  469.         dr("客户编号") = txtNumber.Text.Trim
  470.         dr("客户名称") = txtName.Text.Trim
  471.         dr("性质") = cboXz.Text.Trim
  472.         dr("地址") = txtAddress.Text.Trim
  473.         dr("电话") = txtTele.Text.Trim
  474.         dr("手机") = txtSj.Text.Trim
  475.         dr("联系人") = txtLxr.Text.Trim
  476.         dr("应收帐款") = 0
  477.         dr("应付帐款") = 0
  478.         dr("余额") = 0
  479.         dslocals.Tables(0).Rows.Add(dr)
  480.         If lsweb.updatedataset("select * from wz_kh", "wz_kh", dslocals, DataRowState.Added) = True Then
  481.             MessageBox.Show("客户信息成功保存！", "提示", MessageBoxButtons.OK)
  482.         Else
  483.             MessageBox.Show("客户信息保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  484.         End If
  485.     End Sub
  486.     Private Sub modify()
  487.         If lsweb.updatekh(txtcustNumber.Text, txtName.Text, cboXz.Text, txtAddress.Text, txtTele.Text, txtSj.Text, txtLxr.Text) = True Then
  488.             MessageBox.Show("客户信息修改成功！", "提示", MessageBoxButtons.OK)
  489.         Else
  490.             MessageBox.Show("客户信息修改失败！", "提示", MessageBoxButtons.OK)
  491.         End If
  492.     End Sub
  493.     Private Sub add()
  494.         txtName.Focus()
  496.         txtNumber.Text = "".Trim()
  497.         txtName.Text = "".Trim()
  498.         cboXz.Text = "".Trim()
  499.         txtAddress.Text = "".Trim()
  500.         txtTele.Text = "".Trim()
  501.         txtSj.Text = "".Trim()
  502.         txtLxr.Text = "".Trim()
  503.     End Sub
  504.     Private Sub print()
  506.         If txtquery.Text = String.Empty Then
  507.             MessageBox.Show("没有要打印的记录!", "提示", MessageBoxButtons.OK)
  508.         Else
  509.             Dim frmviewkher As New frmviewkh
  510.             frmviewkher.strquery = lsweb.getinfoes(txtquery.Text)
  511.             frmviewkher.Show()
  514.         End If
  515.     End Sub
  517.     Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
  518.         If txtquery.Text = "" Then
  519.             dslocals = lsweb.returndataset("select * from wz_kh", "wz_kh")
  520.             dgkh.DataSource = dslocals.Tables("wz_kh").DefaultView
  521.         Else
  522.             dslocals = lsweb.returndataset("select * from wz_kh where 客户编号 like '%" & txtquery.Text.Trim & "%' or 拼音码 like '%" & txtquery.Text.Trim & "%'", "wz_kh")
  523.             dgkh.DataSource = dslocals.Tables("wz_kh").DefaultView
  524.         End If
  525.     End Sub
  526.     Private Sub delete()
  527.         Dim drv As DataRowView = BindingContext(Me.dgkh.DataSource).Current
  528.         If drv(0) Is System.DBNull.Value Then
  529.             MessageBox.Show("没有要删除的记录!", "提示", MessageBoxButtons.OK)
  530.         Else
  531.             Dim strquery As String = drv(0)
  532.             If lsweb.deletekh(strquery) = True Then
  533.                 MessageBox.Show("已经删除记录啦!", "提示", MessageBoxButtons.OK)
  534.             Else
  535.                 MessageBox.Show("删除记录失败!", "提示", MessageBoxButtons.OK)
  536.             End If
  537.         End If
  538.     End Sub
  539.     Private Sub view()
  540.         Dim drv As DataRowView = BindingContext(Me.dgkh.DataSource).Current
  541.         Dim dr As DataRow
  542.         dr = drv.Row
  543.         txtcustNumber.Text = IIf(dr("客户编号") Is System.DBNull.Value, "", dr("客户编号"))
  544.         txtNumber.Text = IIf(dr("客户编号") Is System.DBNull.Value, "", dr("客户编号"))
  545.         txtName.Text = IIf(dr("客户名称") Is System.DBNull.Value, "", dr("客户名称"))
  546.         cboXz.Text = IIf(dr("性质") Is System.DBNull.Value, "", dr("性质"))
  547.         txtAddress.Text = IIf(dr("地址") Is System.DBNull.Value, "", dr("地址"))
  548.         txtTele.Text = IIf(dr("电话") Is System.DBNull.Value, "", dr("电话"))
  549.         txtSj.Text = IIf(dr("手机") Is System.DBNull.Value, "", dr("手机"))
  550.         txtLxr.Text = IIf(dr("联系人") Is System.DBNull.Value, "", dr("联系人"))
  551.     End Sub
  552.     Private Sub tbrkh_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbrkh.ButtonClick
  553.         Select Case e.Button.Text
  554.             Case "添加"
  555.                 add()
  556.                 tbnEnable("tbrAdd.Enabled = False", tbrkh)
  557.                 dslocals.Clear()
  558.                 dgkh.DataSource = dslocals.Tables("wz_kh").DefaultView
  559.             Case "保存"
  560.                 If txtName.Text = "" Or txtNumber.Text = "" Or cboXz.Text = "" Or txtAddress.Text = "" Or txtTele.Text = "" Or txtSj.Text = "" Or txtLxr.Text = "" Then
  561.                     MessageBox.Show("信息不完整，保存失败！", "提示", MessageBoxButtons.OK)
  562.                 Else
  563.                     save()
  564.                     tbnEnable("tbrSave.Enabled = False", tbrkh)
  565.                 End If
  566.                 
  567.             Case "修改"
  568.                 modify()
  569.                 tbnEnable("tbrModify.Enabled = False", tbrkh)
  570.             Case "删除"
  571.                 delete()
  572.                 tbnEnable("tbrDelete.Enabled = False", tbrkh)
  573.             Case "打印"
  574.                 print()
  575.             Case "退出"
  576.                 Me.Close()
  577.         End Select
  578.     End Sub
  580.     Public Sub tbnEnable(ByVal strboolean As String, ByVal tbr As ToolBar)
  581.         If strboolean = "tbrAdd.Enabled = True" Then
  582.             tbrSave.Enabled = False
  583.             tbrModify.Enabled = False
  584.             tbrDelete.Enabled = False
  585.             tbrPrint.Enabled = False
  586.             tbrExit.Enabled = True
  587.         ElseIf strboolean = "tbrAdd.Enabled = False" Then
  588.             tbrAdd.Enabled = False
  589.             tbrSave.Enabled = True
  590.             tbrModify.Enabled = False
  591.             tbrDelete.Enabled = False
  592.             tbrPrint.Enabled = True
  593.             tbrExit.Enabled = True
  594.         ElseIf strboolean = "tbrSave.Enabled = True" Then
  595.             tbrAdd.Enabled = False
  596.             tbrModify.Enabled = False
  597.             tbrDelete.Enabled = False
  598.             tbrPrint.Enabled = True
  599.             tbrExit.Enabled = True
  600.         ElseIf strboolean = "tbrSave.Enabled = False" Then
  601.             tbrSave.Enabled = False
  602.             tbrAdd.Enabled = True
  603.             tbrModify.Enabled = True
  604.             tbrDelete.Enabled = True
  605.             tbrPrint.Enabled = True
  606.             tbrExit.Enabled = True
  607.         ElseIf strboolean = "tbrModify.Enabled = True" Then
  608.             tbrAdd.Enabled = False
  609.             tbrSave.Enabled = True
  610.             tbrDelete.Enabled = False
  611.             tbrPrint.Enabled = False
  612.             tbrExit.Enabled = True
  613.         ElseIf strboolean = "tbrModify.Enabled = False" Then
  614.             tbrModify.Enabled = False
  615.             tbrAdd.Enabled = False
  616.             tbrSave.Enabled = True
  617.             tbrDelete.Enabled = False
  618.             tbrPrint.Enabled = True
  619.             tbrExit.Enabled = True
  620.         ElseIf strboolean = "tbrDelete.Enabled = True" Then
  621.             tbrAdd.Enabled = False
  622.             tbrSave.Enabled = True
  623.             tbrModify.Enabled = False
  624.             tbrPrint.Enabled = False
  625.             tbrExit.Enabled = True
  626.         ElseIf strboolean = "tbrDelete.Enabled = False" Then
  627.             tbrDelete.Enabled = False
  628.             tbrAdd.Enabled = False
  629.             tbrSave.Enabled = True
  630.             tbrModify.Enabled = False
  631.             tbrPrint.Enabled = False
  632.             tbrExit.Enabled = True
  633.         End If
  634.     End Sub
  637.     Private Sub cboXz_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cboXz.SelectedIndexChanged
  638.         Dim webserver As New jxcmanage
  639.         If cboXz.Text = "供应商" Then
  640.             Dim number As Integer
  641.             number = webserver.maxkhint("G") + 1
  642.             txtNumber.Text = "G" & Format(number, "0000")
  643.         ElseIf cboXz.Text = "客户" Then
  644.             Dim number As Integer
  645.             number = webserver.maxkhint("K") + 1
  646.             txtNumber.Text = "K" & Format(number, "0000")
  647.         ElseIf cboXz.Text = "其他" Then
  648.             Dim number As Integer
  649.             number = webserver.maxkhint("Q") + 1
  650.             txtNumber.Text = "Q" & Format(number, "0000")
  651.         End If
  652.     End Sub
  654.     Private Sub dgkh_CurrentCellChanged1(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgkh.CurrentCellChanged
  655.         view()
  656.         tbrModify.Enabled = True
  657.         tbrDelete.Enabled = True
  658.         tbrPrint.Enabled = True
  659.         tbrExit.Enabled = True
  660.     End Sub
  664.     Private Sub txtName_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtName.KeyDown
  665.         If e.KeyCode = Keys.Enter Then
  666.             cboXz.Focus()
  667.         End If
  668.     End Sub
  670.     Private Sub cboXz_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles cboXz.KeyDown
  671.         If e.KeyCode = Keys.Enter Then
  672.             txtAddress.Focus()
  673.         End If
  674.     End Sub
  677.     Private Sub txtAddress_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtAddress.KeyDown
  678.         If e.KeyCode = Keys.Enter Then
  679.             txtTele.Focus()
  680.         End If
  681.     End Sub
  685.     Private Sub txtTele_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtTele.KeyDown
  686.         If e.KeyCode = Keys.Enter Then
  687.             txtSj.Focus()
  688.         End If
  689.     End Sub
  693.     Private Sub txtSj_KeyDown1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtSj.KeyDown
  694.         If e.KeyCode = Keys.Enter Then
  695.             txtLxr.Focus()
  696.         End If
  697.     End Sub
  699.     Private Sub txtName_Validating1(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtName.Validating
  700.         If txtName.Text = String.Empty Then
  701.             ErrorProvider1.SetError(txtName, "不能为空，请输入客户名称！")
  702.             txtName.Focus()
  703.         Else
  704.             ErrorProvider1.SetError(txtName, "")
  705.         End If
  706.     End Sub
  708.     Private Sub cboXz_Validating1(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles cboXz.Validating
  709.         If cboXz.Text = String.Empty Then
  710.             ErrorProvider1.SetError(cboXz, "不能为空，请选择下拉列表！")
  711.             cboXz.Focus()
  712.         Else
  713.             ErrorProvider1.SetError(cboXz, "")
  714.         End If
  715.     End Sub
  717.     Private Sub txtAddress_Validating1(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtAddress.Validating
  718.         If txtAddress.Text = String.Empty Then
  719.             ErrorProvider1.SetError(txtAddress, "不能为空，请输入地址！")
  720.             txtAddress.Focus()
  721.         Else
  722.             ErrorProvider1.SetError(txtAddress, "")
  723.         End If
  724.     End Sub
  726.     Private Sub txtTele_Validating1(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtTele.Validating
  727.         If txtTele.Text = String.Empty Then
  728.             ErrorProvider1.SetError(txtTele, "不能为空，请输入电话！")
  729.             txtTele.Focus()
  730.         Else
  731.             ErrorProvider1.SetError(txtTele, "")
  732.         End If
  733.     End Sub
  735.     Private Sub txtSj_Validating1(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtSj.Validating
  736.         If txtSj.Text = String.Empty Then
  737.             ErrorProvider1.SetError(txtSj, "不能为空，请输入手机号码！")
  738.             txtSj.Focus()
  740.         Else
  741.             ErrorProvider1.SetError(txtSj, "")
  742.         End If
  743.     End Sub
  747.     Private Sub txtLxr_Validating1(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles txtLxr.Validating
  748.         If txtLxr.Text = String.Empty Then
  749.             ErrorProvider1.SetError(txtLxr, "不能为空，请输入联系人！")
  750.             txtLxr.Focus()
  752.         Else
  753.             ErrorProvider1.SetError(txtLxr, "")
  754.         End If
  755.     End Sub
  757.     
  758.     Private Sub txtName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtName.TextChanged
  760.     End Sub
  761. End Class