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

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

医药行业

开发平台：

Visual Basic

frmKCQuery.vb：源码内容
  1. Public Class frmKCQuery
  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 cboType As System.Windows.Forms.ComboBox
  34.     Friend WithEvents txtQuery As System.Windows.Forms.Button
  35.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  36.     Friend WithEvents txtQuery1 As System.Windows.Forms.TextBox
  37.     Friend WithEvents Button1 As System.Windows.Forms.Button
  38.     Friend WithEvents aa As System.Windows.Forms.GroupBox
  39.     Friend WithEvents txtQuery2 As System.Windows.Forms.TextBox
  40.     Friend WithEvents Button2 As System.Windows.Forms.Button
  41.     Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
  42.     Friend WithEvents txtPrint As System.Windows.Forms.Button
  43.     Friend WithEvents Button3 As System.Windows.Forms.Button
  44.     Friend WithEvents dgKc As System.Windows.Forms.DataGrid
  45.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  46.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  47.         Me.cboType = New System.Windows.Forms.ComboBox
  48.         Me.txtQuery = New System.Windows.Forms.Button
  49.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  50.         Me.Button1 = New System.Windows.Forms.Button
  51.         Me.txtQuery1 = New System.Windows.Forms.TextBox
  52.         Me.aa = New System.Windows.Forms.GroupBox
  53.         Me.Button2 = New System.Windows.Forms.Button
  54.         Me.txtQuery2 = New System.Windows.Forms.TextBox
  55.         Me.GroupBox3 = New System.Windows.Forms.GroupBox
  56.         Me.Button3 = New System.Windows.Forms.Button
  57.         Me.txtPrint = New System.Windows.Forms.Button
  58.         Me.dgKc = New System.Windows.Forms.DataGrid
  59.         Me.GroupBox1.SuspendLayout()
  60.         Me.GroupBox2.SuspendLayout()
  61.         Me.aa.SuspendLayout()
  62.         Me.GroupBox3.SuspendLayout()
  63.         CType(Me.dgKc, System.ComponentModel.ISupportInitialize).BeginInit()
  64.         Me.SuspendLayout()
  65.         '
  66.         'GroupBox1
  67.         '
  68.         Me.GroupBox1.Controls.Add(Me.cboType)
  69.         Me.GroupBox1.Controls.Add(Me.txtQuery)
  70.         Me.GroupBox1.Location = New System.Drawing.Point(6, 12)
  71.         Me.GroupBox1.Name = "GroupBox1"
  72.         Me.GroupBox1.Size = New System.Drawing.Size(114, 81)
  73.         Me.GroupBox1.TabIndex = 0
  74.         Me.GroupBox1.TabStop = False
  75.         Me.GroupBox1.Text = "按类型"
  76.         '
  77.         'cboType
  78.         '
  79.         Me.cboType.Items.AddRange(New Object() {"P01:抗生素", "P02:其它抗菌药", "P03:维生素，激素，生化类", "P04:解热止痛感冒药", "P05:中枢药", "P06:心血管药", "P07:消化系统药", "P08:其它西药", "P09:中药", "Z01:抗生素", "Z02:其他抗菌素", "Z03:维生素，激素，生化类", "Z04:电解质，大输液", "Z05:麻醉，镇静，抗过敏，解热止痛", "Z06:心血管，血液，利尿药", "Z07:中药制剂", "Z08:其它", "F01:西药粉剂", "F02:中药制剂", "K01:抗菌类", "K02:西药液体", "K03:感冒止咳", "K04:中药治疗类", "K05:营养滋补类", "K06:其它", "W01:眼用药", "W02:五官科药材", "W03:栓剂", "W04:皮肤用", "W05:贴膏", "W06:液体制剂", "W07:外用粉剂", "B01:保健药品", "B02:保健食品", "B03:消字号", "Q01:敷料", "Q02:一次性布料", "Q03:一次性针筒", "Q04:一次性输液器", "Q05:一次性针头", "Q06:一次性其他用品", "Q07:医用材料", "Q08:医用器械"})
  80.         Me.cboType.Location = New System.Drawing.Point(12, 25)
  81.         Me.cboType.Name = "cboType"
  82.         Me.cboType.Size = New System.Drawing.Size(91, 20)
  83.         Me.cboType.TabIndex = 0
  84.         '
  85.         'txtQuery
  86.         '
  87.         Me.txtQuery.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  88.         Me.txtQuery.Font = New System.Drawing.Font("新宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
  89.         Me.txtQuery.Location = New System.Drawing.Point(12, 50)
  90.         Me.txtQuery.Name = "txtQuery"
  91.         Me.txtQuery.Size = New System.Drawing.Size(90, 25)
  92.         Me.txtQuery.TabIndex = 1
  93.         Me.txtQuery.Text = "查询(&Q)"
  94.         Me.txtQuery.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  95.         '
  96.         'GroupBox2
  97.         '
  98.         Me.GroupBox2.Controls.Add(Me.Button1)
  99.         Me.GroupBox2.Controls.Add(Me.txtQuery1)
  100.         Me.GroupBox2.Location = New System.Drawing.Point(126, 12)
  101.         Me.GroupBox2.Name = "GroupBox2"
  102.         Me.GroupBox2.Size = New System.Drawing.Size(102, 81)
  103.         Me.GroupBox2.TabIndex = 1
  104.         Me.GroupBox2.TabStop = False
  105.         Me.GroupBox2.Text = "按拼音码"
  106.         '
  107.         'Button1
  108.         '
  109.         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  110.         Me.Button1.Font = New System.Drawing.Font("新宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
  111.         Me.Button1.Location = New System.Drawing.Point(12, 50)
  112.         Me.Button1.Name = "Button1"
  113.         Me.Button1.Size = New System.Drawing.Size(78, 25)
  114.         Me.Button1.TabIndex = 1
  115.         Me.Button1.Text = "查询(&Q)"
  116.         Me.Button1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  117.         '
  118.         'txtQuery1
  119.         '
  120.         Me.txtQuery1.Location = New System.Drawing.Point(12, 25)
  121.         Me.txtQuery1.Name = "txtQuery1"
  122.         Me.txtQuery1.Size = New System.Drawing.Size(78, 21)
  123.         Me.txtQuery1.TabIndex = 0
  124.         Me.txtQuery1.Text = ""
  125.         '
  126.         'aa
  127.         '
  128.         Me.aa.Controls.Add(Me.Button2)
  129.         Me.aa.Controls.Add(Me.txtQuery2)
  130.         Me.aa.Location = New System.Drawing.Point(234, 12)
  131.         Me.aa.Name = "aa"
  132.         Me.aa.Size = New System.Drawing.Size(102, 81)
  133.         Me.aa.TabIndex = 2
  134.         Me.aa.TabStop = False
  135.         Me.aa.Text = "按批号"
  136.         '
  137.         'Button2
  138.         '
  139.         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  140.         Me.Button2.Font = New System.Drawing.Font("宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
  141.         Me.Button2.ImageAlign = System.Drawing.ContentAlignment.BottomCenter
  142.         Me.Button2.Location = New System.Drawing.Point(12, 50)
  143.         Me.Button2.Name = "Button2"
  144.         Me.Button2.Size = New System.Drawing.Size(78, 25)
  145.         Me.Button2.TabIndex = 1
  146.         Me.Button2.Text = "查询(&Q)"
  147.         Me.Button2.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  148.         '
  149.         'txtQuery2
  150.         '
  151.         Me.txtQuery2.Location = New System.Drawing.Point(12, 25)
  152.         Me.txtQuery2.Name = "txtQuery2"
  153.         Me.txtQuery2.Size = New System.Drawing.Size(78, 21)
  154.         Me.txtQuery2.TabIndex = 0
  155.         Me.txtQuery2.Text = ""
  156.         '
  157.         'GroupBox3
  158.         '
  159.         Me.GroupBox3.Controls.Add(Me.Button3)
  160.         Me.GroupBox3.Controls.Add(Me.txtPrint)
  161.         Me.GroupBox3.Location = New System.Drawing.Point(342, 12)
  162.         Me.GroupBox3.Name = "GroupBox3"
  163.         Me.GroupBox3.Size = New System.Drawing.Size(84, 81)
  164.         Me.GroupBox3.TabIndex = 3
  165.         Me.GroupBox3.TabStop = False
  166.         Me.GroupBox3.Text = "命令"
  167.         '
  168.         'Button3
  169.         '
  170.         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  171.         Me.Button3.ImageAlign = System.Drawing.ContentAlignment.BottomCenter
  172.         Me.Button3.Location = New System.Drawing.Point(12, 50)
  173.         Me.Button3.Name = "Button3"
  174.         Me.Button3.Size = New System.Drawing.Size(60, 25)
  175.         Me.Button3.TabIndex = 1
  176.         Me.Button3.Text = "退出(&E)"
  177.         '
  178.         'txtPrint
  179.         '
  180.         Me.txtPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  181.         Me.txtPrint.Location = New System.Drawing.Point(12, 19)
  182.         Me.txtPrint.Name = "txtPrint"
  183.         Me.txtPrint.Size = New System.Drawing.Size(60, 25)
  184.         Me.txtPrint.TabIndex = 0
  185.         Me.txtPrint.Text = "打印(&P)"
  186.         Me.txtPrint.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  187.         '
  188.         'dgKc
  189.         '
  190.         Me.dgKc.CaptionVisible = False
  191.         Me.dgKc.DataMember = ""
  192.         Me.dgKc.HeaderForeColor = System.Drawing.SystemColors.ControlText
  193.         Me.dgKc.Location = New System.Drawing.Point(6, 100)
  194.         Me.dgKc.Name = "dgKc"
  195.         Me.dgKc.RowHeadersVisible = False
  196.         Me.dgKc.Size = New System.Drawing.Size(510, 261)
  197.         Me.dgKc.TabIndex = 4
  198.         '
  199.         'frmKCQuery
  200.         '
  201.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  202.         Me.ClientSize = New System.Drawing.Size(520, 371)
  203.         Me.Controls.Add(Me.dgKc)
  204.         Me.Controls.Add(Me.GroupBox3)
  205.         Me.Controls.Add(Me.aa)
  206.         Me.Controls.Add(Me.GroupBox2)
  207.         Me.Controls.Add(Me.GroupBox1)
  208.         Me.Font = New System.Drawing.Font("新宋体", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
  209.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
  210.         Me.Name = "frmKCQuery"
  211.         Me.Text = "库存查询"
  212.         Me.GroupBox1.ResumeLayout(False)
  213.         Me.GroupBox2.ResumeLayout(False)
  214.         Me.aa.ResumeLayout(False)
  215.         Me.GroupBox3.ResumeLayout(False)
  216.         CType(Me.dgKc, System.ComponentModel.ISupportInitialize).EndInit()
  217.         Me.ResumeLayout(False)
  219.     End Sub
  221. #End Region
  222.     Public lsweb As New jxcmanage
  223.     Public dslocals As New DataSet
  224.     Private Sub txtQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtQuery.Click
  225.         If cboType.Text = "" Then
  226.             dslocals = lsweb.returndataset("select * from wz_kc", "wz_kc")
  227.             dgKc.DataSource = dslocals.Tables("wz_kc").DefaultView
  228.         Else
  229.             Dim cbotext As String = cboType.Text.Substring(0, 3)
  230.             dslocals = lsweb.returndataset("select * from wz_kc where 药品编号 like '" & cbotext & "%'", "wz_kc")
  231.             dgKc.DataSource = dslocals.Tables("wz_kc").DefaultView
  232.         End If
  233.     End Sub
  234.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  235.         If txtQuery1.Text = "" Then
  236.             dslocals = lsweb.returndataset("select * from wz_kc", "wz_kc")
  237.             dgKc.DataSource = dslocals.Tables("wz_kc").DefaultView
  238.         Else
  239.             dslocals = lsweb.returndataset("select * from wz_kc where 药品编号='" & txtQuery1.Text.Trim & "' or 拼音码 like '%" & txtQuery1.Text.Trim & "%'", "wz_kc")
  240.             dgKc.DataSource = dslocals.Tables("wz_kc").DefaultView
  241.         End If
  242.     End Sub
  243.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  244.         If txtQuery2.Text = "" Then
  245.             dslocals = lsweb.returndataset("select * from wz_kc", "wz_kc")
  246.             dgKc.DataSource = dslocals.Tables("wz_kc").DefaultView
  247.         Else
  248.             dslocals = lsweb.returndataset("select * from wz_kc where 批号='" & txtQuery2.Text.Trim & "'", "wz_kc")
  249.             dgKc.DataSource = dslocals.Tables("wz_kc").DefaultView
  250.         End If
  251.     End Sub
  252.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  253.         Me.Close()
  255.     End Sub
  256. End Class