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

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

医药行业

开发平台：

Visual Basic

frmmdcfquery.vb：源码内容
  1. Public Class frmmdcfquery
  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 txtkhname As System.Windows.Forms.TextBox
  34.     Friend WithEvents Label5 As System.Windows.Forms.Label
  35.     Friend WithEvents Label4 As System.Windows.Forms.Label
  36.     Friend WithEvents txtmedname As System.Windows.Forms.TextBox
  37.     Friend WithEvents Label3 As System.Windows.Forms.Label
  38.     Friend WithEvents txtendtime As System.Windows.Forms.DateTimePicker
  39.     Friend WithEvents txtbegintime As System.Windows.Forms.DateTimePicker
  40.     Friend WithEvents Label2 As System.Windows.Forms.Label
  41.     Friend WithEvents Label1 As System.Windows.Forms.Label
  42.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  43.     Friend WithEvents btnPrint As System.Windows.Forms.Button
  44.     Friend WithEvents btnQuery As System.Windows.Forms.Button
  45.     Friend WithEvents btnqueryall As System.Windows.Forms.Button
  46.     Friend WithEvents Panel2 As System.Windows.Forms.Panel
  47.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  48.     Friend WithEvents Label6 As System.Windows.Forms.Label
  49.     Friend WithEvents txtdemo As System.Windows.Forms.TextBox
  50.     Friend WithEvents txtmedtype As System.Windows.Forms.TextBox
  51.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  52.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  53.         Me.txtmedtype = New System.Windows.Forms.TextBox
  54.         Me.txtdemo = New System.Windows.Forms.TextBox
  55.         Me.Label6 = New System.Windows.Forms.Label
  56.         Me.txtkhname = New System.Windows.Forms.TextBox
  57.         Me.Label5 = New System.Windows.Forms.Label
  58.         Me.Label4 = New System.Windows.Forms.Label
  59.         Me.txtmedname = New System.Windows.Forms.TextBox
  60.         Me.Label3 = New System.Windows.Forms.Label
  61.         Me.txtendtime = New System.Windows.Forms.DateTimePicker
  62.         Me.txtbegintime = New System.Windows.Forms.DateTimePicker
  63.         Me.Label2 = New System.Windows.Forms.Label
  64.         Me.Label1 = New System.Windows.Forms.Label
  65.         Me.Panel1 = New System.Windows.Forms.Panel
  66.         Me.btnPrint = New System.Windows.Forms.Button
  67.         Me.btnQuery = New System.Windows.Forms.Button
  68.         Me.btnqueryall = New System.Windows.Forms.Button
  69.         Me.Panel2 = New System.Windows.Forms.Panel
  70.         Me.dgview = New System.Windows.Forms.DataGrid
  71.         Me.GroupBox1.SuspendLayout()
  72.         Me.Panel1.SuspendLayout()
  73.         Me.Panel2.SuspendLayout()
  74.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  75.         Me.SuspendLayout()
  76.         '
  77.         'GroupBox1
  78.         '
  79.         Me.GroupBox1.Controls.Add(Me.txtmedtype)
  80.         Me.GroupBox1.Controls.Add(Me.txtdemo)
  81.         Me.GroupBox1.Controls.Add(Me.Label6)
  82.         Me.GroupBox1.Controls.Add(Me.txtkhname)
  83.         Me.GroupBox1.Controls.Add(Me.Label5)
  84.         Me.GroupBox1.Controls.Add(Me.Label4)
  85.         Me.GroupBox1.Controls.Add(Me.txtmedname)
  86.         Me.GroupBox1.Controls.Add(Me.Label3)
  87.         Me.GroupBox1.Controls.Add(Me.txtendtime)
  88.         Me.GroupBox1.Controls.Add(Me.txtbegintime)
  89.         Me.GroupBox1.Controls.Add(Me.Label2)
  90.         Me.GroupBox1.Controls.Add(Me.Label1)
  91.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  92.         Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
  93.         Me.GroupBox1.Name = "GroupBox1"
  94.         Me.GroupBox1.Size = New System.Drawing.Size(726, 112)
  95.         Me.GroupBox1.TabIndex = 5
  96.         Me.GroupBox1.TabStop = False
  97.         '
  98.         'txtmedtype
  99.         '
  100.         Me.txtmedtype.Location = New System.Drawing.Point(312, 64)
  101.         Me.txtmedtype.Name = "txtmedtype"
  102.         Me.txtmedtype.Size = New System.Drawing.Size(136, 25)
  103.         Me.txtmedtype.TabIndex = 13
  104.         Me.txtmedtype.Text = ""
  105.         '
  106.         'txtdemo
  107.         '
  108.         Me.txtdemo.Location = New System.Drawing.Point(532, 64)
  109.         Me.txtdemo.Name = "txtdemo"
  110.         Me.txtdemo.Size = New System.Drawing.Size(179, 25)
  111.         Me.txtdemo.TabIndex = 12
  112.         Me.txtdemo.Text = ""
  113.         '
  114.         'Label6
  115.         '
  116.         Me.Label6.AutoSize = True
  117.         Me.Label6.Location = New System.Drawing.Point(456, 72)
  118.         Me.Label6.Name = "Label6"
  119.         Me.Label6.Size = New System.Drawing.Size(90, 21)
  120.         Me.Label6.TabIndex = 11
  121.         Me.Label6.Text = "备注/功用："
  122.         '
  123.         'txtkhname
  124.         '
  125.         Me.txtkhname.Location = New System.Drawing.Point(80, 62)
  126.         Me.txtkhname.Name = "txtkhname"
  127.         Me.txtkhname.Size = New System.Drawing.Size(136, 25)
  128.         Me.txtkhname.TabIndex = 9
  129.         Me.txtkhname.Text = ""
  130.         '
  131.         'Label5
  132.         '
  133.         Me.Label5.AutoSize = True
  134.         Me.Label5.Location = New System.Drawing.Point(8, 72)
  135.         Me.Label5.Name = "Label5"
  136.         Me.Label5.Size = New System.Drawing.Size(75, 21)
  137.         Me.Label5.TabIndex = 8
  138.         Me.Label5.Text = "处方名称:"
  139.         '
  140.         'Label4
  141.         '
  142.         Me.Label4.AutoSize = True
  143.         Me.Label4.Location = New System.Drawing.Point(256, 72)
  144.         Me.Label4.Name = "Label4"
  145.         Me.Label4.Size = New System.Drawing.Size(60, 21)
  146.         Me.Label4.TabIndex = 6
  147.         Me.Label4.Text = "药剂师:"
  148.         '
  149.         'txtmedname
  150.         '
  151.         Me.txtmedname.Location = New System.Drawing.Point(533, 21)
  152.         Me.txtmedname.Name = "txtmedname"
  153.         Me.txtmedname.Size = New System.Drawing.Size(179, 25)
  154.         Me.txtmedname.TabIndex = 5
  155.         Me.txtmedname.Text = ""
  156.         '
  157.         'Label3
  158.         '
  159.         Me.Label3.AutoSize = True
  160.         Me.Label3.Location = New System.Drawing.Point(459, 31)
  161.         Me.Label3.Name = "Label3"
  162.         Me.Label3.Size = New System.Drawing.Size(75, 21)
  163.         Me.Label3.TabIndex = 4
  164.         Me.Label3.Text = "药品名称:"
  165.         '
  166.         'txtendtime
  167.         '
  168.         Me.txtendtime.Location = New System.Drawing.Point(312, 21)
  169.         Me.txtendtime.Name = "txtendtime"
  170.         Me.txtendtime.Size = New System.Drawing.Size(136, 25)
  171.         Me.txtendtime.TabIndex = 3
  172.         Me.txtendtime.Value = New Date(2006, 2, 23, 0, 0, 0, 0)
  173.         '
  174.         'txtbegintime
  175.         '
  176.         Me.txtbegintime.Location = New System.Drawing.Point(80, 21)
  177.         Me.txtbegintime.Name = "txtbegintime"
  178.         Me.txtbegintime.Size = New System.Drawing.Size(136, 25)
  179.         Me.txtbegintime.TabIndex = 2
  180.         Me.txtbegintime.Value = New Date(2006, 2, 23, 0, 0, 0, 0)
  181.         '
  182.         'Label2
  183.         '
  184.         Me.Label2.AutoSize = True
  185.         Me.Label2.Location = New System.Drawing.Point(240, 31)
  186.         Me.Label2.Name = "Label2"
  187.         Me.Label2.Size = New System.Drawing.Size(75, 21)
  188.         Me.Label2.TabIndex = 1
  189.         Me.Label2.Text = "结束日期:"
  190.         '
  191.         'Label1
  192.         '
  193.         Me.Label1.AutoSize = True
  194.         Me.Label1.Location = New System.Drawing.Point(11, 31)
  195.         Me.Label1.Name = "Label1"
  196.         Me.Label1.Size = New System.Drawing.Size(75, 21)
  197.         Me.Label1.TabIndex = 0
  198.         Me.Label1.Text = "开始日期:"
  199.         '
  200.         'Panel1
  201.         '
  202.         Me.Panel1.Controls.Add(Me.btnPrint)
  203.         Me.Panel1.Controls.Add(Me.btnQuery)
  204.         Me.Panel1.Controls.Add(Me.btnqueryall)
  205.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
  206.         Me.Panel1.Location = New System.Drawing.Point(630, 112)
  207.         Me.Panel1.Name = "Panel1"
  208.         Me.Panel1.Size = New System.Drawing.Size(96, 358)
  209.         Me.Panel1.TabIndex = 9
  210.         '
  211.         'btnPrint
  212.         '
  213.         Me.btnPrint.Dock = System.Windows.Forms.DockStyle.Top
  214.         Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  215.         Me.btnPrint.Location = New System.Drawing.Point(0, 62)
  216.         Me.btnPrint.Name = "btnPrint"
  217.         Me.btnPrint.Size = New System.Drawing.Size(96, 31)
  218.         Me.btnPrint.TabIndex = 5
  219.         Me.btnPrint.Text = "打印"
  220.         '
  221.         'btnQuery
  222.         '
  223.         Me.btnQuery.Dock = System.Windows.Forms.DockStyle.Top
  224.         Me.btnQuery.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  225.         Me.btnQuery.Location = New System.Drawing.Point(0, 31)
  226.         Me.btnQuery.Name = "btnQuery"
  227.         Me.btnQuery.Size = New System.Drawing.Size(96, 31)
  228.         Me.btnQuery.TabIndex = 4
  229.         Me.btnQuery.Text = "条件查询"
  230.         Me.btnQuery.TextAlign = System.Drawing.ContentAlignment.TopCenter
  231.         '
  232.         'btnqueryall
  233.         '
  234.         Me.btnqueryall.Dock = System.Windows.Forms.DockStyle.Top
  235.         Me.btnqueryall.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  236.         Me.btnqueryall.Location = New System.Drawing.Point(0, 0)
  237.         Me.btnqueryall.Name = "btnqueryall"
  238.         Me.btnqueryall.Size = New System.Drawing.Size(96, 31)
  239.         Me.btnqueryall.TabIndex = 3
  240.         Me.btnqueryall.Text = "全部查询"
  241.         Me.btnqueryall.TextAlign = System.Drawing.ContentAlignment.TopCenter
  242.         '
  243.         'Panel2
  244.         '
  245.         Me.Panel2.Controls.Add(Me.dgview)
  246.         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
  247.         Me.Panel2.Location = New System.Drawing.Point(0, 112)
  248.         Me.Panel2.Name = "Panel2"
  249.         Me.Panel2.Size = New System.Drawing.Size(630, 358)
  250.         Me.Panel2.TabIndex = 10
  251.         '
  252.         'dgview
  253.         '
  254.         Me.dgview.DataMember = ""
  255.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  256.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  257.         Me.dgview.Location = New System.Drawing.Point(0, 0)
  258.         Me.dgview.Name = "dgview"
  259.         Me.dgview.Size = New System.Drawing.Size(630, 358)
  260.         Me.dgview.TabIndex = 10
  261.         '
  262.         'frmmdcfquery
  263.         '
  264.         Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
  265.         Me.ClientSize = New System.Drawing.Size(726, 470)
  266.         Me.Controls.Add(Me.Panel2)
  267.         Me.Controls.Add(Me.Panel1)
  268.         Me.Controls.Add(Me.GroupBox1)
  269.         Me.Name = "frmmdcfquery"
  270.         Me.Text = "frmmdcfquery"
  271.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  272.         Me.GroupBox1.ResumeLayout(False)
  273.         Me.Panel1.ResumeLayout(False)
  274.         Me.Panel2.ResumeLayout(False)
  275.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  276.         Me.ResumeLayout(False)
  278.     End Sub
  280. #End Region
  281.     Public lsweb As New jxcmanage
  282.     Private Sub frmmdcfquery_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  283.         txtbegintime.Value = Today.ToString
  284.         txtendtime.Value = Today.ToString
  286.     End Sub
  288.     Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
  289.         Dim strmedname, strmedtype, strkhname, strdemo, strquery As String
  290.         If txtmedname.Text = "" Then
  291.             strmedname = ""
  292.         Else
  293.             strmedname = " and MedName='" & txtmedname.Text & "'"
  294.         End If
  295.         If txtmedtype.Text = "" Then
  296.             strmedtype = ""
  297.         Else
  298.             strmedtype = " and Yjs='" & txtmedtype.Text & "'"
  299.         End If
  300.         If txtkhname.Text = "" Then
  301.             strkhname = ""
  302.         Else
  303.             strkhname = " and CfName='" & txtkhname.Text & "'"
  304.         End If
  305.         If txtdemo.Text = "" Then
  306.             strdemo = ""
  307.         Else
  308.             strdemo = " and demo='" & txtdemo.Text & "'"
  309.         End If
  310.         Dim strsql As String
  311.         strsql = "select BillNumber as 票号,Number as 序号,CfName as 处方名称,CDate as 日期,Yjs as 药剂师,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Lcount as 数量,Price as 单价,Money as 金额,Batch as 批号,Product as 产地,Avaid as 有效期,Package as 包装,Shy as 审核员,Demo as [备注/功用] from mdcf where CDate between '" & txtbegintime.Value & "' and '" & txtendtime.Value & "'" & strmedname & strmedtype & strkhname & strdemo
  319.         lsweb.runSql(strsql)
  320.         Dim dslocal As DataSet
  321.         dslocal = lsweb.runSql(strsql)
  322.         dgview.DataSource = dslocal.Tables(0).DefaultView
  323.     End Sub
  325.     Private Sub btnqueryall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnqueryall.Click
  326.         Dim strquery As String
  327.         strquery = "select BillNumber as 票号,Number as 序号,CfName as 处方名称,CDate as 日期,Yjs as 药剂师,MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Lcount as 数量,Price as 单价,Money as 金额,Batch as 批号,Product as 产地,Avaid as 有效期,Package as 包装,Shy as 审核员,Demo as [备注/功用] from mdcf"
  328.         lsweb.runSql(strquery)
  329.         Dim dslocal As DataSet
  330.         dslocal = lsweb.runSql(strquery)
  331.         dgview.DataSource = dslocal.Tables(0).DefaultView
  332.     End Sub
  333. End Class