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

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

医药行业

开发平台：

Visual Basic

frmRkQuery.vb：源码内容
  1. Public Class frmRkQuery
  2.     Inherits System.Windows.Forms.Form
  3.     Public lsweb As New jxcmanage
  4.     Public dslocals As New DataSet
  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 GroupBox1 As System.Windows.Forms.GroupBox
  34.     Friend WithEvents dtStart As System.Windows.Forms.DateTimePicker
  35.     Friend WithEvents dtEnd As System.Windows.Forms.DateTimePicker
  36.     Friend WithEvents Label1 As System.Windows.Forms.Label
  37.     Friend WithEvents Label2 As System.Windows.Forms.Label
  38.     Friend WithEvents btnQueryTime As System.Windows.Forms.Button
  39.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  40.     Friend WithEvents txtQueryPym As System.Windows.Forms.TextBox
  41.     Friend WithEvents btnQueryPym As System.Windows.Forms.Button
  42.     Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
  43.     Friend WithEvents txtCustom As System.Windows.Forms.TextBox
  44.     Friend WithEvents btnQueryCustom As System.Windows.Forms.Button
  45.     Friend WithEvents yy As System.Windows.Forms.GroupBox
  46.     Friend WithEvents btnQueryProduct As System.Windows.Forms.Button
  47.     Friend WithEvents txtProduct As System.Windows.Forms.TextBox
  48.     Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
  49.     Friend WithEvents btnPrint As System.Windows.Forms.Button
  50.     Friend WithEvents btnExit As System.Windows.Forms.Button
  51.     Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
  52.     Friend WithEvents dgRk As System.Windows.Forms.DataGrid
  53.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  54.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  55.         Me.btnQueryTime = New System.Windows.Forms.Button
  56.         Me.Label2 = New System.Windows.Forms.Label
  57.         Me.Label1 = New System.Windows.Forms.Label
  58.         Me.dtEnd = New System.Windows.Forms.DateTimePicker
  59.         Me.dtStart = New System.Windows.Forms.DateTimePicker
  60.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  61.         Me.btnQueryPym = New System.Windows.Forms.Button
  62.         Me.txtQueryPym = New System.Windows.Forms.TextBox
  63.         Me.GroupBox3 = New System.Windows.Forms.GroupBox
  64.         Me.btnQueryCustom = New System.Windows.Forms.Button
  65.         Me.txtCustom = New System.Windows.Forms.TextBox
  66.         Me.yy = New System.Windows.Forms.GroupBox
  67.         Me.btnQueryProduct = New System.Windows.Forms.Button
  68.         Me.txtProduct = New System.Windows.Forms.TextBox
  69.         Me.GroupBox4 = New System.Windows.Forms.GroupBox
  70.         Me.btnExit = New System.Windows.Forms.Button
  71.         Me.btnPrint = New System.Windows.Forms.Button
  72.         Me.dgRk = New System.Windows.Forms.DataGrid
  73.         Me.StatusBar1 = New System.Windows.Forms.StatusBar
  74.         Me.GroupBox1.SuspendLayout()
  75.         Me.GroupBox2.SuspendLayout()
  76.         Me.GroupBox3.SuspendLayout()
  77.         Me.yy.SuspendLayout()
  78.         Me.GroupBox4.SuspendLayout()
  79.         CType(Me.dgRk, System.ComponentModel.ISupportInitialize).BeginInit()
  80.         Me.SuspendLayout()
  81.         '
  82.         'GroupBox1
  83.         '
  84.         Me.GroupBox1.Controls.Add(Me.btnQueryTime)
  85.         Me.GroupBox1.Controls.Add(Me.Label2)
  86.         Me.GroupBox1.Controls.Add(Me.Label1)
  87.         Me.GroupBox1.Controls.Add(Me.dtEnd)
  88.         Me.GroupBox1.Controls.Add(Me.dtStart)
  89.         Me.GroupBox1.Location = New System.Drawing.Point(12, 12)
  90.         Me.GroupBox1.Name = "GroupBox1"
  91.         Me.GroupBox1.Size = New System.Drawing.Size(144, 100)
  92.         Me.GroupBox1.TabIndex = 0
  93.         Me.GroupBox1.TabStop = False
  94.         Me.GroupBox1.Text = "按时间区段"
  95.         '
  96.         'btnQueryTime
  97.         '
  98.         Me.btnQueryTime.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  99.         Me.btnQueryTime.Location = New System.Drawing.Point(72, 68)
  100.         Me.btnQueryTime.Name = "btnQueryTime"
  101.         Me.btnQueryTime.Size = New System.Drawing.Size(60, 25)
  102.         Me.btnQueryTime.TabIndex = 4
  103.         Me.btnQueryTime.Text = "查询(&Q)"
  104.         Me.btnQueryTime.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  105.         '
  106.         'Label2
  107.         '
  108.         Me.Label2.AutoSize = True
  109.         Me.Label2.Location = New System.Drawing.Point(12, 50)
  110.         Me.Label2.Name = "Label2"
  111.         Me.Label2.Size = New System.Drawing.Size(17, 17)
  112.         Me.Label2.TabIndex = 3
  113.         Me.Label2.Text = "到"
  114.         '
  115.         'Label1
  116.         '
  117.         Me.Label1.AutoSize = True
  118.         Me.Label1.Location = New System.Drawing.Point(12, 25)
  119.         Me.Label1.Name = "Label1"
  120.         Me.Label1.Size = New System.Drawing.Size(17, 17)
  121.         Me.Label1.TabIndex = 2
  122.         Me.Label1.Text = "从"
  123.         '
  124.         'dtEnd
  125.         '
  126.         Me.dtEnd.Location = New System.Drawing.Point(30, 44)
  127.         Me.dtEnd.Name = "dtEnd"
  128.         Me.dtEnd.Size = New System.Drawing.Size(102, 21)
  129.         Me.dtEnd.TabIndex = 1
  130.         '
  131.         'dtStart
  132.         '
  133.         Me.dtStart.Location = New System.Drawing.Point(30, 19)
  134.         Me.dtStart.Name = "dtStart"
  135.         Me.dtStart.Size = New System.Drawing.Size(102, 21)
  136.         Me.dtStart.TabIndex = 0
  137.         '
  138.         'GroupBox2
  139.         '
  140.         Me.GroupBox2.Controls.Add(Me.btnQueryPym)
  141.         Me.GroupBox2.Controls.Add(Me.txtQueryPym)
  142.         Me.GroupBox2.Location = New System.Drawing.Point(162, 12)
  143.         Me.GroupBox2.Name = "GroupBox2"
  144.         Me.GroupBox2.Size = New System.Drawing.Size(84, 100)
  145.         Me.GroupBox2.TabIndex = 1
  146.         Me.GroupBox2.TabStop = False
  147.         Me.GroupBox2.Text = "按拼音码"
  148.         '
  149.         'btnQueryPym
  150.         '
  151.         Me.btnQueryPym.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  152.         Me.btnQueryPym.Location = New System.Drawing.Point(12, 68)
  153.         Me.btnQueryPym.Name = "btnQueryPym"
  154.         Me.btnQueryPym.Size = New System.Drawing.Size(60, 25)
  155.         Me.btnQueryPym.TabIndex = 5
  156.         Me.btnQueryPym.Text = "查询(&Q)"
  157.         Me.btnQueryPym.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  158.         '
  159.         'txtQueryPym
  160.         '
  161.         Me.txtQueryPym.Location = New System.Drawing.Point(12, 44)
  162.         Me.txtQueryPym.Name = "txtQueryPym"
  163.         Me.txtQueryPym.Size = New System.Drawing.Size(60, 21)
  164.         Me.txtQueryPym.TabIndex = 0
  165.         Me.txtQueryPym.Text = ""
  166.         '
  167.         'GroupBox3
  168.         '
  169.         Me.GroupBox3.Controls.Add(Me.btnQueryCustom)
  170.         Me.GroupBox3.Controls.Add(Me.txtCustom)
  171.         Me.GroupBox3.Location = New System.Drawing.Point(252, 12)
  172.         Me.GroupBox3.Name = "GroupBox3"
  173.         Me.GroupBox3.Size = New System.Drawing.Size(84, 100)
  174.         Me.GroupBox3.TabIndex = 2
  175.         Me.GroupBox3.TabStop = False
  176.         Me.GroupBox3.Text = "按客户编号"
  177.         '
  178.         'btnQueryCustom
  179.         '
  180.         Me.btnQueryCustom.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  181.         Me.btnQueryCustom.Location = New System.Drawing.Point(12, 68)
  182.         Me.btnQueryCustom.Name = "btnQueryCustom"
  183.         Me.btnQueryCustom.Size = New System.Drawing.Size(60, 25)
  184.         Me.btnQueryCustom.TabIndex = 6
  185.         Me.btnQueryCustom.Text = "查询(&Q)"
  186.         Me.btnQueryCustom.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  187.         '
  188.         'txtCustom
  189.         '
  190.         Me.txtCustom.Location = New System.Drawing.Point(12, 44)
  191.         Me.txtCustom.Name = "txtCustom"
  192.         Me.txtCustom.Size = New System.Drawing.Size(60, 21)
  193.         Me.txtCustom.TabIndex = 0
  194.         Me.txtCustom.Text = ""
  195.         '
  196.         'yy
  197.         '
  198.         Me.yy.Controls.Add(Me.btnQueryProduct)
  199.         Me.yy.Controls.Add(Me.txtProduct)
  200.         Me.yy.Location = New System.Drawing.Point(342, 12)
  201.         Me.yy.Name = "yy"
  202.         Me.yy.Size = New System.Drawing.Size(84, 100)
  203.         Me.yy.TabIndex = 3
  204.         Me.yy.TabStop = False
  205.         Me.yy.Text = "按产地"
  206.         '
  207.         'btnQueryProduct
  208.         '
  209.         Me.btnQueryProduct.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  210.         Me.btnQueryProduct.Location = New System.Drawing.Point(12, 68)
  211.         Me.btnQueryProduct.Name = "btnQueryProduct"
  212.         Me.btnQueryProduct.Size = New System.Drawing.Size(60, 25)
  213.         Me.btnQueryProduct.TabIndex = 8
  214.         Me.btnQueryProduct.Text = "查询(&Q)"
  215.         Me.btnQueryProduct.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  216.         '
  217.         'txtProduct
  218.         '
  219.         Me.txtProduct.Location = New System.Drawing.Point(12, 44)
  220.         Me.txtProduct.Name = "txtProduct"
  221.         Me.txtProduct.Size = New System.Drawing.Size(60, 21)
  222.         Me.txtProduct.TabIndex = 7
  223.         Me.txtProduct.Text = ""
  224.         '
  225.         'GroupBox4
  226.         '
  227.         Me.GroupBox4.Controls.Add(Me.btnExit)
  228.         Me.GroupBox4.Controls.Add(Me.btnPrint)
  229.         Me.GroupBox4.Location = New System.Drawing.Point(432, 12)
  230.         Me.GroupBox4.Name = "GroupBox4"
  231.         Me.GroupBox4.Size = New System.Drawing.Size(84, 100)
  232.         Me.GroupBox4.TabIndex = 4
  233.         Me.GroupBox4.TabStop = False
  234.         Me.GroupBox4.Text = "命令"
  235.         '
  236.         'btnExit
  237.         '
  238.         Me.btnExit.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  239.         Me.btnExit.Location = New System.Drawing.Point(12, 68)
  240.         Me.btnExit.Name = "btnExit"
  241.         Me.btnExit.Size = New System.Drawing.Size(60, 25)
  242.         Me.btnExit.TabIndex = 10
  243.         Me.btnExit.Text = "退出(&E)"
  244.         Me.btnExit.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  245.         '
  246.         'btnPrint
  247.         '
  248.         Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  249.         Me.btnPrint.Location = New System.Drawing.Point(12, 37)
  250.         Me.btnPrint.Name = "btnPrint"
  251.         Me.btnPrint.Size = New System.Drawing.Size(60, 25)
  252.         Me.btnPrint.TabIndex = 9
  253.         Me.btnPrint.Text = "打印(&P)"
  254.         Me.btnPrint.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  255.         '
  256.         'dgRk
  257.         '
  258.         Me.dgRk.DataMember = ""
  259.         Me.dgRk.HeaderForeColor = System.Drawing.SystemColors.ControlText
  260.         Me.dgRk.Location = New System.Drawing.Point(12, 124)
  261.         Me.dgRk.Name = "dgRk"
  262.         Me.dgRk.Size = New System.Drawing.Size(504, 212)
  263.         Me.dgRk.TabIndex = 5
  264.         '
  265.         'StatusBar1
  266.         '
  267.         Me.StatusBar1.Location = New System.Drawing.Point(0, 347)
  268.         Me.StatusBar1.Name = "StatusBar1"
  269.         Me.StatusBar1.Size = New System.Drawing.Size(526, 18)
  270.         Me.StatusBar1.TabIndex = 6
  271.         '
  272.         'frmRkQuery
  273.         '
  274.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  275.         Me.ClientSize = New System.Drawing.Size(526, 365)
  276.         Me.ControlBox = False
  277.         Me.Controls.Add(Me.StatusBar1)
  278.         Me.Controls.Add(Me.dgRk)
  279.         Me.Controls.Add(Me.GroupBox4)
  280.         Me.Controls.Add(Me.yy)
  281.         Me.Controls.Add(Me.GroupBox3)
  282.         Me.Controls.Add(Me.GroupBox2)
  283.         Me.Controls.Add(Me.GroupBox1)
  284.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
  285.         Me.Name = "frmRkQuery"
  286.         Me.Text = "采购查询管理"
  287.         Me.GroupBox1.ResumeLayout(False)
  288.         Me.GroupBox2.ResumeLayout(False)
  289.         Me.GroupBox3.ResumeLayout(False)
  290.         Me.yy.ResumeLayout(False)
  291.         Me.GroupBox4.ResumeLayout(False)
  292.         CType(Me.dgRk, System.ComponentModel.ISupportInitialize).EndInit()
  293.         Me.ResumeLayout(False)
  295.     End Sub
  297. #End Region
  299.     Private Sub btnQueryPym_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryPym.Click
  300.         If txtQueryPym.Text = "" Then
  301.             dslocals = lsweb.returndataset("select * from wz_rk", "wz_rk")
  302.             dgRk.DataSource = dslocals.Tables("wz_rk").DefaultView
  303.         Else
  304.             dslocals = lsweb.returndataset("select * from wz_rk where 药品编号='" & txtQueryPym.Text.Trim & "'", "wz_rk")
  305.             dgRk.DataSource = dslocals.Tables("wz_rk").DefaultView
  306.         End If
  307.     End Sub
  309.     Private Sub btnQueryTime_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryTime.Click
  310.         dslocals = lsweb.returndataset("select * from wz_rk where 日期 BETWEEN '" & dtStart.Text & "' and '" & dtEnd.Text & "'", "wz_rk")
  311.         dgRk.DataSource = dslocals.Tables("wz_rk").DefaultView
  312.     End Sub
  314.     Private Sub btnQueryCustom_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryCustom.Click
  315.         If txtCustom.Text = "" Then
  316.             dslocals = lsweb.returndataset("select * from wz_rk", "wz_rk")
  317.             dgRk.DataSource = dslocals.Tables("wz_rk").DefaultView
  318.         Else
  319.             dslocals = lsweb.returndataset("select * from wz_rk where 客户编号='" & txtCustom.Text.Trim & "'", "wz_rk")
  320.             dgRk.DataSource = dslocals.Tables("wz_rk").DefaultView
  321.         End If
  322.     End Sub
  324.     Private Sub btnQueryProduct_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryProduct.Click
  325.         If txtProduct.Text = "" Then
  326.             dslocals = lsweb.returndataset("select * from wz_rk", "wz_rk")
  327.             dgRk.DataSource = dslocals.Tables("wz_rk").DefaultView
  328.         Else
  329.             dslocals = lsweb.returndataset("select * from wz_rk where 产地 like '%" & txtProduct.Text.Trim & "%'", "wz_rk")
  330.             dgRk.DataSource = dslocals.Tables("wz_rk").DefaultView
  331.         End If
  332.     End Sub
  334.     
  335.     Private Sub frmRkQuery_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  337.     End Sub
  339.     Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
  340.         Me.Close()
  342.     End Sub
  344.     Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click
  346.     End Sub
  347. End Class