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

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

医药行业

开发平台：

Visual Basic

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