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

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

医药行业

开发平台：

Visual Basic

frmMdtotal.vb：源码内容
  1. Public Class frmMdtotal
  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 GroupBox2 As System.Windows.Forms.GroupBox
  33.     Friend WithEvents tabtable As System.Windows.Forms.TabControl
  34.     Friend WithEvents tbmed As System.Windows.Forms.TabPage
  35.     Friend WithEvents tbtype As System.Windows.Forms.TabPage
  36.     Friend WithEvents tbywy As System.Windows.Forms.TabPage
  37.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  38.     Friend WithEvents btnPrint As System.Windows.Forms.Button
  39.     Friend WithEvents btnQuery As System.Windows.Forms.Button
  40.     Friend WithEvents btnqueryall As System.Windows.Forms.Button
  41.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  42.     Friend WithEvents txtmedtype As System.Windows.Forms.ComboBox
  43.     Friend WithEvents Label4 As System.Windows.Forms.Label
  44.     Friend WithEvents txtmedname As System.Windows.Forms.TextBox
  45.     Friend WithEvents Label3 As System.Windows.Forms.Label
  46.     Friend WithEvents txtendtime As System.Windows.Forms.DateTimePicker
  47.     Friend WithEvents txtbegintime As System.Windows.Forms.DateTimePicker
  48.     Friend WithEvents Label2 As System.Windows.Forms.Label
  49.     Friend WithEvents Label1 As System.Windows.Forms.Label
  50.     Friend WithEvents Panel2 As System.Windows.Forms.Panel
  51.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  52.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  53.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  54.         Me.tabtable = New System.Windows.Forms.TabControl
  55.         Me.tbmed = New System.Windows.Forms.TabPage
  56.         Me.tbtype = New System.Windows.Forms.TabPage
  57.         Me.tbywy = New System.Windows.Forms.TabPage
  58.         Me.Panel1 = New System.Windows.Forms.Panel
  59.         Me.btnPrint = New System.Windows.Forms.Button
  60.         Me.btnQuery = New System.Windows.Forms.Button
  61.         Me.btnqueryall = New System.Windows.Forms.Button
  62.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  63.         Me.txtmedtype = New System.Windows.Forms.ComboBox
  64.         Me.Label4 = New System.Windows.Forms.Label
  65.         Me.txtmedname = New System.Windows.Forms.TextBox
  66.         Me.Label3 = New System.Windows.Forms.Label
  67.         Me.txtendtime = New System.Windows.Forms.DateTimePicker
  68.         Me.txtbegintime = New System.Windows.Forms.DateTimePicker
  69.         Me.Label2 = New System.Windows.Forms.Label
  70.         Me.Label1 = New System.Windows.Forms.Label
  71.         Me.Panel2 = New System.Windows.Forms.Panel
  72.         Me.dgview = New System.Windows.Forms.DataGrid
  73.         Me.GroupBox2.SuspendLayout()
  74.         Me.tabtable.SuspendLayout()
  75.         Me.Panel1.SuspendLayout()
  76.         Me.GroupBox1.SuspendLayout()
  77.         Me.Panel2.SuspendLayout()
  78.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  79.         Me.SuspendLayout()
  80.         '
  81.         'GroupBox2
  82.         '
  83.         Me.GroupBox2.Controls.Add(Me.tabtable)
  84.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
  85.         Me.GroupBox2.Location = New System.Drawing.Point(0, 112)
  86.         Me.GroupBox2.Name = "GroupBox2"
  87.         Me.GroupBox2.Size = New System.Drawing.Size(630, 62)
  88.         Me.GroupBox2.TabIndex = 13
  89.         Me.GroupBox2.TabStop = False
  90.         '
  91.         'tabtable
  92.         '
  93.         Me.tabtable.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
  94.         Me.tabtable.Controls.Add(Me.tbmed)
  95.         Me.tabtable.Controls.Add(Me.tbtype)
  96.         Me.tabtable.Controls.Add(Me.tbywy)
  97.         Me.tabtable.Dock = System.Windows.Forms.DockStyle.Fill
  98.         Me.tabtable.Location = New System.Drawing.Point(3, 21)
  99.         Me.tabtable.Name = "tabtable"
  100.         Me.tabtable.SelectedIndex = 0
  101.         Me.tabtable.Size = New System.Drawing.Size(624, 38)
  102.         Me.tabtable.TabIndex = 9
  103.         '
  104.         'tbmed
  105.         '
  106.         Me.tbmed.Location = New System.Drawing.Point(4, 27)
  107.         Me.tbmed.Name = "tbmed"
  108.         Me.tbmed.Size = New System.Drawing.Size(616, 7)
  109.         Me.tbmed.TabIndex = 0
  110.         Me.tbmed.Text = "按药品品种"
  111.         '
  112.         'tbtype
  113.         '
  114.         Me.tbtype.Location = New System.Drawing.Point(4, 27)
  115.         Me.tbtype.Name = "tbtype"
  116.         Me.tbtype.Size = New System.Drawing.Size(616, 7)
  117.         Me.tbtype.TabIndex = 1
  118.         Me.tbtype.Text = "按药品类别"
  119.         Me.tbtype.Visible = False
  120.         '
  121.         'tbywy
  122.         '
  123.         Me.tbywy.Location = New System.Drawing.Point(4, 27)
  124.         Me.tbywy.Name = "tbywy"
  125.         Me.tbywy.Size = New System.Drawing.Size(616, 7)
  126.         Me.tbywy.TabIndex = 3
  127.         Me.tbywy.Text = "按销售员"
  128.         Me.tbywy.Visible = False
  129.         '
  130.         'Panel1
  131.         '
  132.         Me.Panel1.Controls.Add(Me.btnPrint)
  133.         Me.Panel1.Controls.Add(Me.btnQuery)
  134.         Me.Panel1.Controls.Add(Me.btnqueryall)
  135.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Right
  136.         Me.Panel1.Location = New System.Drawing.Point(630, 112)
  137.         Me.Panel1.Name = "Panel1"
  138.         Me.Panel1.Size = New System.Drawing.Size(96, 382)
  139.         Me.Panel1.TabIndex = 12
  140.         '
  141.         'btnPrint
  142.         '
  143.         Me.btnPrint.Dock = System.Windows.Forms.DockStyle.Top
  144.         Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  145.         Me.btnPrint.Location = New System.Drawing.Point(0, 62)
  146.         Me.btnPrint.Name = "btnPrint"
  147.         Me.btnPrint.Size = New System.Drawing.Size(96, 31)
  148.         Me.btnPrint.TabIndex = 5
  149.         Me.btnPrint.Text = "打印"
  150.         '
  151.         'btnQuery
  152.         '
  153.         Me.btnQuery.Dock = System.Windows.Forms.DockStyle.Top
  154.         Me.btnQuery.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  155.         Me.btnQuery.Location = New System.Drawing.Point(0, 31)
  156.         Me.btnQuery.Name = "btnQuery"
  157.         Me.btnQuery.Size = New System.Drawing.Size(96, 31)
  158.         Me.btnQuery.TabIndex = 4
  159.         Me.btnQuery.Text = "条件查询"
  160.         Me.btnQuery.TextAlign = System.Drawing.ContentAlignment.TopCenter
  161.         '
  162.         'btnqueryall
  163.         '
  164.         Me.btnqueryall.Dock = System.Windows.Forms.DockStyle.Top
  165.         Me.btnqueryall.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  166.         Me.btnqueryall.Location = New System.Drawing.Point(0, 0)
  167.         Me.btnqueryall.Name = "btnqueryall"
  168.         Me.btnqueryall.Size = New System.Drawing.Size(96, 31)
  169.         Me.btnqueryall.TabIndex = 3
  170.         Me.btnqueryall.Text = "全部查询"
  171.         Me.btnqueryall.TextAlign = System.Drawing.ContentAlignment.TopCenter
  172.         '
  173.         'GroupBox1
  174.         '
  175.         Me.GroupBox1.Controls.Add(Me.txtmedtype)
  176.         Me.GroupBox1.Controls.Add(Me.Label4)
  177.         Me.GroupBox1.Controls.Add(Me.txtmedname)
  178.         Me.GroupBox1.Controls.Add(Me.Label3)
  179.         Me.GroupBox1.Controls.Add(Me.txtendtime)
  180.         Me.GroupBox1.Controls.Add(Me.txtbegintime)
  181.         Me.GroupBox1.Controls.Add(Me.Label2)
  182.         Me.GroupBox1.Controls.Add(Me.Label1)
  183.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  184.         Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
  185.         Me.GroupBox1.Name = "GroupBox1"
  186.         Me.GroupBox1.Size = New System.Drawing.Size(726, 112)
  187.         Me.GroupBox1.TabIndex = 10
  188.         Me.GroupBox1.TabStop = False
  189.         '
  190.         'txtmedtype
  191.         '
  192.         Me.txtmedtype.Location = New System.Drawing.Point(312, 64)
  193.         Me.txtmedtype.Name = "txtmedtype"
  194.         Me.txtmedtype.Size = New System.Drawing.Size(136, 23)
  195.         Me.txtmedtype.TabIndex = 10
  196.         '
  197.         'Label4
  198.         '
  199.         Me.Label4.AutoSize = True
  200.         Me.Label4.Location = New System.Drawing.Point(240, 72)
  201.         Me.Label4.Name = "Label4"
  202.         Me.Label4.Size = New System.Drawing.Size(75, 21)
  203.         Me.Label4.TabIndex = 6
  204.         Me.Label4.Text = "药品类别:"
  205.         '
  206.         'txtmedname
  207.         '
  208.         Me.txtmedname.Location = New System.Drawing.Point(80, 64)
  209.         Me.txtmedname.Name = "txtmedname"
  210.         Me.txtmedname.Size = New System.Drawing.Size(136, 25)
  211.         Me.txtmedname.TabIndex = 5
  212.         Me.txtmedname.Text = ""
  213.         '
  214.         'Label3
  215.         '
  216.         Me.Label3.AutoSize = True
  217.         Me.Label3.Location = New System.Drawing.Point(8, 72)
  218.         Me.Label3.Name = "Label3"
  219.         Me.Label3.Size = New System.Drawing.Size(75, 21)
  220.         Me.Label3.TabIndex = 4
  221.         Me.Label3.Text = "药品名称:"
  222.         '
  223.         'txtendtime
  224.         '
  225.         Me.txtendtime.Location = New System.Drawing.Point(312, 21)
  226.         Me.txtendtime.Name = "txtendtime"
  227.         Me.txtendtime.Size = New System.Drawing.Size(136, 25)
  228.         Me.txtendtime.TabIndex = 3
  229.         Me.txtendtime.Value = New Date(2006, 2, 23, 0, 0, 0, 0)
  230.         '
  231.         'txtbegintime
  232.         '
  233.         Me.txtbegintime.Location = New System.Drawing.Point(80, 21)
  234.         Me.txtbegintime.Name = "txtbegintime"
  235.         Me.txtbegintime.Size = New System.Drawing.Size(136, 25)
  236.         Me.txtbegintime.TabIndex = 2
  237.         Me.txtbegintime.Value = New Date(2006, 2, 23, 0, 0, 0, 0)
  238.         '
  239.         'Label2
  240.         '
  241.         Me.Label2.AutoSize = True
  242.         Me.Label2.Location = New System.Drawing.Point(235, 31)
  243.         Me.Label2.Name = "Label2"
  244.         Me.Label2.Size = New System.Drawing.Size(75, 21)
  245.         Me.Label2.TabIndex = 1
  246.         Me.Label2.Text = "结束日期:"
  247.         '
  248.         'Label1
  249.         '
  250.         Me.Label1.AutoSize = True
  251.         Me.Label1.Location = New System.Drawing.Point(11, 31)
  252.         Me.Label1.Name = "Label1"
  253.         Me.Label1.Size = New System.Drawing.Size(75, 21)
  254.         Me.Label1.TabIndex = 0
  255.         Me.Label1.Text = "开始日期:"
  256.         '
  257.         'Panel2
  258.         '
  259.         Me.Panel2.Controls.Add(Me.dgview)
  260.         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
  261.         Me.Panel2.Location = New System.Drawing.Point(0, 174)
  262.         Me.Panel2.Name = "Panel2"
  263.         Me.Panel2.Size = New System.Drawing.Size(630, 320)
  264.         Me.Panel2.TabIndex = 14
  265.         '
  266.         'dgview
  267.         '
  268.         Me.dgview.DataMember = ""
  269.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  270.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  271.         Me.dgview.Location = New System.Drawing.Point(0, 0)
  272.         Me.dgview.Name = "dgview"
  273.         Me.dgview.Size = New System.Drawing.Size(630, 320)
  274.         Me.dgview.TabIndex = 0
  275.         '
  276.         'frmMdtotal
  277.         '
  278.         Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
  279.         Me.ClientSize = New System.Drawing.Size(726, 494)
  280.         Me.Controls.Add(Me.Panel2)
  281.         Me.Controls.Add(Me.GroupBox2)
  282.         Me.Controls.Add(Me.Panel1)
  283.         Me.Controls.Add(Me.GroupBox1)
  284.         Me.Name = "frmMdtotal"
  285.         Me.Text = "frmMdtotal"
  286.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  287.         Me.GroupBox2.ResumeLayout(False)
  288.         Me.tabtable.ResumeLayout(False)
  289.         Me.Panel1.ResumeLayout(False)
  290.         Me.GroupBox1.ResumeLayout(False)
  291.         Me.Panel2.ResumeLayout(False)
  292.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  293.         Me.ResumeLayout(False)
  295.     End Sub
  297. #End Region
  298.     Public lsweb As New jxcmanage
  299.     Private Sub frmMdtotal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  300.         txtbegintime.Value = Today.ToString
  301.         txtendtime.Value = Today.ToString
  302.     End Sub
  304.     Private Sub btnqueryall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnqueryall.Click
  305.         Dim strqueryes As String
  307.         Dim dslocal As DataSet
  308.         Select Case tabtable.SelectedTab.Text
  309.             Case "按药品品种"
  310.                 strqueryes = "select 药品编号,药品名称,药品规格,单位,包装,sum(数量) as 数量,avg(单价) as 单价,sum(数量*单价) as 金额,sum(毛利) as 毛利,批号,产地,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_ck where substring(票号,1,2)in('ls','th') group by 药品编号,药品名称,药品规格,单位,包装,批号,产地,有效期 "
  311.             Case "按药品类别"
  312.                 strqueryes = "select SUM(CASE WHEN substring(药品编号,1,1)='P' THEN 金额 ELSE 0.00 END) AS 片剂,SUM(CASE WHEN substring(药品编号,1,1)='Z' THEN 金额 ELSE 0.00 END) AS 针剂,SUM(CASE WHEN substring(药品编号,1,1)='F' THEN 金额 ELSE 0.00 END) AS 粉剂,SUM(CASE WHEN substring(药品编号,1,1)='K' THEN 金额 ELSE 0.00 END) AS 口服,SUM(CASE WHEN substring(药品编号,1,1)='W' THEN 金额 ELSE 0.00 END) AS 外用,SUM(CASE WHEN substring(药品编号,1,1)='Q' THEN 金额 ELSE 0.00 END) AS 器械,SUM(CASE WHEN substring(药品编号,1,1)='B' THEN 金额 ELSE 0.00 END) AS 保健,SUM(金额) AS 合计,sum(毛利) as 毛利 FROM wz_ck where substring(票号,1,2)in('ls','th')"
  313.             
  314.             Case "按销售员"
  315.                 strqueryes = "select 销售员,药品编号,药品名称,药品规格,包装,单位,sum(数量) as 数量,avg(单价) as 单价,sum(单价*数量) 金额,sum(毛利) as 毛利,产地,批号,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_ck where substring(票号,1,2)in('ls','th') group by 销售员,药品编号,药品名称,药品规格,包装,单位,产地,批号,有效期"
  318.         End Select
  320.         dslocal = lsweb.runSql(strqueryes)
  321.         dgview.DataSource = dslocal.Tables(0).DefaultView
  323.     End Sub
  325.     Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
  326.         Dim strmedname, strmedtype, strquery As String
  327.         If txtmedname.Text = "" Then
  328.             strmedname = ""
  329.         Else
  330.             strmedname = " and 药品名称='" & txtmedname.Text & "'"
  331.         End If
  332.         If txtmedtype.Text = "" Then
  333.             strmedtype = ""
  334.         Else
  335.             strmedtype = " and substring(药品编号,1,1)='" & txtmedtype.Text.Substring(0, 1) & "'"
  336.         End If
  339.         Dim strsql As String
  340.         strsql = " where substring(票号,1,2)in('ls','th') and 日期 between '" & txtbegintime.Value & "' and '" & txtendtime.Value & "'" & strmedname & strmedtype
  343.         Select Case tabtable.SelectedTab.Text
  344.             Case "按药品品种"
  345.                 strquery = "select 药品编号,药品名称,药品规格,单位,包装,sum(数量) as 数量,avg(单价) as 单价,sum(数量*单价) as 金额,sum(毛利) as 毛利,批号,产地,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_ck" & strsql & " group by 药品编号,药品名称,药品规格,单位,包装,批号,产地,有效期 "
  346.             Case "按药品类别"
  347.                 strquery = "select SUM(CASE WHEN substring(药品编号,1,1)='P' THEN 金额 ELSE 0.00 END) AS 片剂,SUM(CASE WHEN substring(药品编号,1,1)='Z' THEN 金额 ELSE 0.00 END) AS 针剂,SUM(CASE WHEN substring(药品编号,1,1)='F' THEN 金额 ELSE 0.00 END) AS 粉剂,SUM(CASE WHEN substring(药品编号,1,1)='K' THEN 金额 ELSE 0.00 END) AS 口服,SUM(CASE WHEN substring(药品编号,1,1)='W' THEN 金额 ELSE 0.00 END) AS 外用,SUM(CASE WHEN substring(药品编号,1,1)='Q' THEN 金额 ELSE 0.00 END) AS 器械,SUM(CASE WHEN substring(药品编号,1,1)='B' THEN 金额 ELSE 0.00 END) AS 保健,SUM(金额) AS 合计,sum(毛利) as 毛利 FROM wz_ck"
  349.             Case "按销售员"
  350.                 strquery = "select 销售员,药品编号,药品名称,药品规格,包装,单位,sum(数量) as 数量,avg(单价) as 单价,sum(单价*数量) 金额,sum(毛利) as 毛利,产地,批号,有效期,avg(批发价) as 批发价,avg(零售价) as 零售价 from wz_ck" & strsql & " group by 销售员,药品编号,药品名称,药品规格,包装,单位,产地,批号,有效期"
  353.         End Select
  358.         lsweb.runSql(strquery)
  359.         Dim dslocal As DataSet
  360.         dslocal = lsweb.runSql(strquery)
  361.         dgview.DataSource = dslocal.Tables(0).DefaultView
  362.     End Sub
  363. End Class