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

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

医药行业

开发平台：

Visual Basic

frmRKDateTotal.vb：源码内容
  1. Public Class frmRKDateTotal
  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 btnPrint As System.Windows.Forms.Button
  34.     Friend WithEvents btnQuery As System.Windows.Forms.Button
  35.     Friend WithEvents btnQueryAll As System.Windows.Forms.Button
  36.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  37.     Friend WithEvents txtmedType As System.Windows.Forms.ComboBox
  38.     Friend WithEvents Label6 As System.Windows.Forms.Label
  39.     Friend WithEvents txtXsy As System.Windows.Forms.ComboBox
  40.     Friend WithEvents Label5 As System.Windows.Forms.Label
  41.     Friend WithEvents txtHw As System.Windows.Forms.ComboBox
  42.     Friend WithEvents Label4 As System.Windows.Forms.Label
  43.     Friend WithEvents txtkhname As System.Windows.Forms.TextBox
  44.     Friend WithEvents Label3 As System.Windows.Forms.Label
  45.     Friend WithEvents txtMedName As System.Windows.Forms.TextBox
  46.     Friend WithEvents Label2 As System.Windows.Forms.Label
  47.     Friend WithEvents txtYear As System.Windows.Forms.DomainUpDown
  48.     Friend WithEvents Label1 As System.Windows.Forms.Label
  49.     Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
  50.     Friend WithEvents tabtable As System.Windows.Forms.TabControl
  51.     Friend WithEvents tbmonth As System.Windows.Forms.TabPage
  52.     Friend WithEvents tbjd As System.Windows.Forms.TabPage
  53.     Friend WithEvents tbyear As System.Windows.Forms.TabPage
  54.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  55.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  56.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  57.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  58.         Me.btnPrint = New System.Windows.Forms.Button
  59.         Me.btnQuery = New System.Windows.Forms.Button
  60.         Me.btnQueryAll = New System.Windows.Forms.Button
  61.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  62.         Me.txtmedType = New System.Windows.Forms.ComboBox
  63.         Me.Label6 = New System.Windows.Forms.Label
  64.         Me.txtXsy = New System.Windows.Forms.ComboBox
  65.         Me.Label5 = New System.Windows.Forms.Label
  66.         Me.txtHw = New System.Windows.Forms.ComboBox
  67.         Me.Label4 = New System.Windows.Forms.Label
  68.         Me.txtkhname = New System.Windows.Forms.TextBox
  69.         Me.Label3 = New System.Windows.Forms.Label
  70.         Me.txtMedName = New System.Windows.Forms.TextBox
  71.         Me.Label2 = New System.Windows.Forms.Label
  72.         Me.txtYear = New System.Windows.Forms.DomainUpDown
  73.         Me.Label1 = New System.Windows.Forms.Label
  74.         Me.GroupBox3 = New System.Windows.Forms.GroupBox
  75.         Me.tabtable = New System.Windows.Forms.TabControl
  76.         Me.tbmonth = New System.Windows.Forms.TabPage
  77.         Me.tbjd = New System.Windows.Forms.TabPage
  78.         Me.tbyear = New System.Windows.Forms.TabPage
  79.         Me.Panel1 = New System.Windows.Forms.Panel
  80.         Me.dgview = New System.Windows.Forms.DataGrid
  81.         Me.GroupBox2.SuspendLayout()
  82.         Me.GroupBox1.SuspendLayout()
  83.         Me.GroupBox3.SuspendLayout()
  84.         Me.tabtable.SuspendLayout()
  85.         Me.Panel1.SuspendLayout()
  86.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  87.         Me.SuspendLayout()
  88.         '
  89.         'GroupBox2
  90.         '
  91.         Me.GroupBox2.Controls.Add(Me.btnPrint)
  92.         Me.GroupBox2.Controls.Add(Me.btnQuery)
  93.         Me.GroupBox2.Controls.Add(Me.btnQueryAll)
  94.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Right
  95.         Me.GroupBox2.Location = New System.Drawing.Point(670, 123)
  96.         Me.GroupBox2.Name = "GroupBox2"
  97.         Me.GroupBox2.Size = New System.Drawing.Size(104, 479)
  98.         Me.GroupBox2.TabIndex = 5
  99.         Me.GroupBox2.TabStop = False
  100.         '
  101.         'btnPrint
  102.         '
  103.         Me.btnPrint.Dock = System.Windows.Forms.DockStyle.Top
  104.         Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  105.         Me.btnPrint.Location = New System.Drawing.Point(3, 80)
  106.         Me.btnPrint.Name = "btnPrint"
  107.         Me.btnPrint.Size = New System.Drawing.Size(98, 30)
  108.         Me.btnPrint.TabIndex = 2
  109.         Me.btnPrint.Text = "打印"
  110.         '
  111.         'btnQuery
  112.         '
  113.         Me.btnQuery.Dock = System.Windows.Forms.DockStyle.Top
  114.         Me.btnQuery.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  115.         Me.btnQuery.Location = New System.Drawing.Point(3, 50)
  116.         Me.btnQuery.Name = "btnQuery"
  117.         Me.btnQuery.Size = New System.Drawing.Size(98, 30)
  118.         Me.btnQuery.TabIndex = 1
  119.         Me.btnQuery.Text = "条件查询"
  120.         '
  121.         'btnQueryAll
  122.         '
  123.         Me.btnQueryAll.Dock = System.Windows.Forms.DockStyle.Top
  124.         Me.btnQueryAll.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  125.         Me.btnQueryAll.Location = New System.Drawing.Point(3, 21)
  126.         Me.btnQueryAll.Name = "btnQueryAll"
  127.         Me.btnQueryAll.Size = New System.Drawing.Size(98, 29)
  128.         Me.btnQueryAll.TabIndex = 0
  129.         Me.btnQueryAll.Text = "全部查询"
  130.         '
  131.         'GroupBox1
  132.         '
  133.         Me.GroupBox1.Controls.Add(Me.txtmedType)
  134.         Me.GroupBox1.Controls.Add(Me.Label6)
  135.         Me.GroupBox1.Controls.Add(Me.txtXsy)
  136.         Me.GroupBox1.Controls.Add(Me.Label5)
  137.         Me.GroupBox1.Controls.Add(Me.txtHw)
  138.         Me.GroupBox1.Controls.Add(Me.Label4)
  139.         Me.GroupBox1.Controls.Add(Me.txtkhname)
  140.         Me.GroupBox1.Controls.Add(Me.Label3)
  141.         Me.GroupBox1.Controls.Add(Me.txtMedName)
  142.         Me.GroupBox1.Controls.Add(Me.Label2)
  143.         Me.GroupBox1.Controls.Add(Me.txtYear)
  144.         Me.GroupBox1.Controls.Add(Me.Label1)
  145.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  146.         Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
  147.         Me.GroupBox1.Name = "GroupBox1"
  148.         Me.GroupBox1.Size = New System.Drawing.Size(774, 123)
  149.         Me.GroupBox1.TabIndex = 4
  150.         Me.GroupBox1.TabStop = False
  151.         '
  152.         'txtmedType
  153.         '
  154.         Me.txtmedType.Location = New System.Drawing.Point(576, 62)
  155.         Me.txtmedType.Name = "txtmedType"
  156.         Me.txtmedType.Size = New System.Drawing.Size(181, 23)
  157.         Me.txtmedType.TabIndex = 13
  158.         '
  159.         'Label6
  160.         '
  161.         Me.Label6.AutoSize = True
  162.         Me.Label6.Location = New System.Drawing.Point(491, 72)
  163.         Me.Label6.Name = "Label6"
  164.         Me.Label6.Size = New System.Drawing.Size(83, 21)
  165.         Me.Label6.TabIndex = 12
  166.         Me.Label6.Text = "药品类型："
  167.         '
  168.         'txtXsy
  169.         '
  170.         Me.txtXsy.Location = New System.Drawing.Point(320, 62)
  171.         Me.txtXsy.Name = "txtXsy"
  172.         Me.txtXsy.Size = New System.Drawing.Size(139, 23)
  173.         Me.txtXsy.TabIndex = 11
  174.         '
  175.         'Label5
  176.         '
  177.         Me.Label5.AutoSize = True
  178.         Me.Label5.Location = New System.Drawing.Point(245, 72)
  179.         Me.Label5.Name = "Label5"
  180.         Me.Label5.Size = New System.Drawing.Size(67, 21)
  181.         Me.Label5.TabIndex = 10
  182.         Me.Label5.Text = "销售员："
  183.         '
  184.         'txtHw
  185.         '
  186.         Me.txtHw.Location = New System.Drawing.Point(96, 62)
  187.         Me.txtHw.Name = "txtHw"
  188.         Me.txtHw.Size = New System.Drawing.Size(107, 23)
  189.         Me.txtHw.TabIndex = 9
  190.         '
  191.         'Label4
  192.         '
  193.         Me.Label4.AutoSize = True
  194.         Me.Label4.Location = New System.Drawing.Point(43, 72)
  195.         Me.Label4.Name = "Label4"
  196.         Me.Label4.Size = New System.Drawing.Size(52, 21)
  197.         Me.Label4.TabIndex = 8
  198.         Me.Label4.Text = "货位："
  199.         '
  200.         'txtkhname
  201.         '
  202.         Me.txtkhname.Location = New System.Drawing.Point(576, 21)
  203.         Me.txtkhname.Name = "txtkhname"
  204.         Me.txtkhname.Size = New System.Drawing.Size(181, 25)
  205.         Me.txtkhname.TabIndex = 7
  206.         Me.txtkhname.Text = ""
  207.         '
  208.         'Label3
  209.         '
  210.         Me.Label3.AutoSize = True
  211.         Me.Label3.Location = New System.Drawing.Point(491, 31)
  212.         Me.Label3.Name = "Label3"
  213.         Me.Label3.Size = New System.Drawing.Size(83, 21)
  214.         Me.Label3.TabIndex = 6
  215.         Me.Label3.Text = "客户名称："
  216.         '
  217.         'txtMedName
  218.         '
  219.         Me.txtMedName.Location = New System.Drawing.Point(320, 21)
  220.         Me.txtMedName.Name = "txtMedName"
  221.         Me.txtMedName.Size = New System.Drawing.Size(133, 25)
  222.         Me.txtMedName.TabIndex = 5
  223.         Me.txtMedName.Text = ""
  224.         '
  225.         'Label2
  226.         '
  227.         Me.Label2.AutoSize = True
  228.         Me.Label2.Location = New System.Drawing.Point(235, 31)
  229.         Me.Label2.Name = "Label2"
  230.         Me.Label2.Size = New System.Drawing.Size(83, 21)
  231.         Me.Label2.TabIndex = 4
  232.         Me.Label2.Text = "药品名称："
  233.         '
  234.         'txtYear
  235.         '
  236.         Me.txtYear.Items.Add("2006")
  237.         Me.txtYear.Items.Add("2007")
  238.         Me.txtYear.Items.Add("2008")
  239.         Me.txtYear.Items.Add("2009")
  240.         Me.txtYear.Items.Add("2010")
  241.         Me.txtYear.Location = New System.Drawing.Point(96, 21)
  242.         Me.txtYear.Name = "txtYear"
  243.         Me.txtYear.Size = New System.Drawing.Size(107, 25)
  244.         Me.txtYear.TabIndex = 3
  245.         '
  246.         'Label1
  247.         '
  248.         Me.Label1.AutoSize = True
  249.         Me.Label1.Location = New System.Drawing.Point(11, 31)
  250.         Me.Label1.Name = "Label1"
  251.         Me.Label1.Size = New System.Drawing.Size(83, 21)
  252.         Me.Label1.TabIndex = 0
  253.         Me.Label1.Text = "统计年份："
  254.         '
  255.         'GroupBox3
  256.         '
  257.         Me.GroupBox3.Controls.Add(Me.tabtable)
  258.         Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
  259.         Me.GroupBox3.Location = New System.Drawing.Point(0, 123)
  260.         Me.GroupBox3.Name = "GroupBox3"
  261.         Me.GroupBox3.Size = New System.Drawing.Size(670, 62)
  262.         Me.GroupBox3.TabIndex = 8
  263.         Me.GroupBox3.TabStop = False
  264.         '
  265.         'tabtable
  266.         '
  267.         Me.tabtable.Appearance = System.Windows.Forms.TabAppearance.FlatButtons
  268.         Me.tabtable.Controls.Add(Me.tbmonth)
  269.         Me.tabtable.Controls.Add(Me.tbjd)
  270.         Me.tabtable.Controls.Add(Me.tbyear)
  271.         Me.tabtable.Dock = System.Windows.Forms.DockStyle.Fill
  272.         Me.tabtable.Location = New System.Drawing.Point(3, 21)
  273.         Me.tabtable.Name = "tabtable"
  274.         Me.tabtable.SelectedIndex = 0
  275.         Me.tabtable.Size = New System.Drawing.Size(664, 38)
  276.         Me.tabtable.TabIndex = 7
  277.         '
  278.         'tbmonth
  279.         '
  280.         Me.tbmonth.Location = New System.Drawing.Point(4, 27)
  281.         Me.tbmonth.Name = "tbmonth"
  282.         Me.tbmonth.Size = New System.Drawing.Size(656, 7)
  283.         Me.tbmonth.TabIndex = 0
  284.         Me.tbmonth.Text = "月比较"
  285.         '
  286.         'tbjd
  287.         '
  288.         Me.tbjd.Location = New System.Drawing.Point(4, 27)
  289.         Me.tbjd.Name = "tbjd"
  290.         Me.tbjd.Size = New System.Drawing.Size(632, 7)
  291.         Me.tbjd.TabIndex = 1
  292.         Me.tbjd.Text = "季比较"
  293.         Me.tbjd.Visible = False
  294.         '
  295.         'tbyear
  296.         '
  297.         Me.tbyear.Location = New System.Drawing.Point(4, 27)
  298.         Me.tbyear.Name = "tbyear"
  299.         Me.tbyear.Size = New System.Drawing.Size(632, 7)
  300.         Me.tbyear.TabIndex = 2
  301.         Me.tbyear.Text = "年比较"
  302.         Me.tbyear.Visible = False
  303.         '
  304.         'Panel1
  305.         '
  306.         Me.Panel1.Controls.Add(Me.dgview)
  307.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
  308.         Me.Panel1.Location = New System.Drawing.Point(0, 185)
  309.         Me.Panel1.Name = "Panel1"
  310.         Me.Panel1.Size = New System.Drawing.Size(670, 417)
  311.         Me.Panel1.TabIndex = 9
  312.         '
  313.         'dgview
  314.         '
  315.         Me.dgview.DataMember = ""
  316.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  317.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  318.         Me.dgview.Location = New System.Drawing.Point(0, 0)
  319.         Me.dgview.Name = "dgview"
  320.         Me.dgview.Size = New System.Drawing.Size(670, 417)
  321.         Me.dgview.TabIndex = 8
  322.         '
  323.         'frmRKDateTotal
  324.         '
  325.         Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
  326.         Me.ClientSize = New System.Drawing.Size(774, 602)
  327.         Me.Controls.Add(Me.Panel1)
  328.         Me.Controls.Add(Me.GroupBox3)
  329.         Me.Controls.Add(Me.GroupBox2)
  330.         Me.Controls.Add(Me.GroupBox1)
  331.         Me.Name = "frmRKDateTotal"
  332.         Me.Text = "采购期间分析"
  333.         Me.GroupBox2.ResumeLayout(False)
  334.         Me.GroupBox1.ResumeLayout(False)
  335.         Me.GroupBox3.ResumeLayout(False)
  336.         Me.tabtable.ResumeLayout(False)
  337.         Me.Panel1.ResumeLayout(False)
  338.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  339.         Me.ResumeLayout(False)
  341.     End Sub
  343. #End Region
  344.     Public lsweb As New jxcmanage
  345.     Private Sub frmRKDateTotal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  346.         txtYear.Text = Year(Today().ToShortDateString)
  347.     End Sub
  349.     Private Sub btnQueryAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryAll.Click
  350.         Dim strqueryes As String
  352.         Dim dslocal As DataSet
  353.         Select Case tabtable.SelectedTab.Text
  354.             Case "月比较"
  355.                 strqueryes = "select 药品编号,药品名称,药品规格,SUM(CASE WHEN month(日期)='01' THEN 金额 ELSE 0.00 END) AS 一月销售金额,SUM(CASE WHEN month(日期)='02' THEN 金额 ELSE 0.00 END) AS 二月销售金额,SUM(CASE WHEN month(日期)='03' THEN 金额 ELSE 0.00 END) AS 三月销售金额,SUM(CASE WHEN month(日期)='04' THEN 金额 ELSE 0.00 END) AS 四月销售金额,SUM(CASE WHEN month(日期)='05' THEN 金额 ELSE 0.00 END) AS 五月销售金额,SUM(CASE WHEN month(日期)='06' THEN 金额 ELSE 0.00 END) AS 六月销售金额,SUM(CASE WHEN month(日期)='07' THEN 金额 ELSE 0.00 END) AS 七月销售金额,SUM(CASE WHEN month(日期)='08' THEN 金额 ELSE 0.00 END) AS 八月销售金额,SUM(CASE WHEN month(日期)='09' THEN 金额 ELSE 0.00 END) AS 九月销售金额,SUM(CASE WHEN month(日期)='10' THEN 金额 ELSE 0.00 END) AS 十月销售金额,SUM(CASE WHEN month(日期)='11' THEN 金额 ELSE 0.00 END) AS 十一月销售金额,SUM(CASE WHEN month(日期)='12' THEN 金额 ELSE 0.00 END) AS 十二月销售金额 FROM wz_rk where year(日期)='" & txtYear.Text & "' group by 药品编号,药品名称,药品规格"
  356.             Case "季比较"
  357.                 strqueryes = "select 药品编号,药品名称,药品规格,SUM(CASE WHEN DATEPART(quarter,日期)='1' THEN 金额 ELSE 0.00 END) AS 一季度销售金额,SUM(CASE WHEN DATEPART(quarter,日期)='2' THEN 金额 ELSE 0.00 END) AS 二季度销售金额,SUM(CASE WHEN DATEPART(quarter,日期)='3' THEN 金额 ELSE 0.00 END) AS 三季度销售金额,SUM(CASE WHEN DATEPART(quarter,日期)='4' THEN 金额 ELSE 0.00 END) AS 四季度销售金额 FROM wz_rk where year(日期)='" & txtYear.Text & "' group by 药品编号,药品名称,药品规格"
  358.             Case "年比较"
  359.                 strqueryes = "select 药品编号,药品名称,药品规格,avg(进价) as 进价,sum(数量) as 数量,sum(金额) as 全年销售金额 from wz_rk where year(日期)=year(getdate()) group by 药品编号,药品名称,药品规格"
  363.         End Select
  365.         dslocal = lsweb.runSql(strqueryes)
  366.         dgview.DataSource = dslocal.Tables(0).DefaultView
  367.     End Sub
  369.     Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
  370.         Dim strmedname, strmedtype, strkhname, stryear, strhw, strsxy, strquery As String
  371.         If txtMedName.Text = "" Then
  372.             strmedname = ""
  373.         Else
  374.             strmedname = " and 药品名称='" & txtMedName.Text & "'"
  375.         End If
  376.         If txtmedType.Text = "" Then
  377.             strmedtype = ""
  378.         Else
  379.             strmedtype = " and substring(药品编号,1,1)='" & txtmedType.Text.Substring(0, 1) & "'"
  380.         End If
  381.         If txtkhname.Text = "" Then
  382.             strkhname = ""
  383.         Else
  384.             strkhname = " and 客户名称='" & txtkhname.Text & "'"
  385.         End If
  388.         stryear = " year(日期)=year(getdate()) "
  392.         If txtHw.Text = "" Then
  393.             strhw = ""
  394.         Else
  395.             strhw = " and 货位='" & txtHw.Text & "'"
  397.         End If
  398.         If txtXsy.Text = "" Then
  399.             strsxy = ""
  400.         Else
  401.             strsxy = " and 操作员='" & txtXsy.Text & "'"
  405.         End If
  408.         Dim strsql As String
  409.         strsql = stryear & strmedname & strmedtype & strkhname & strsxy & strhw
  411.         Dim dslocal As DataSet
  412.         Select Case tabtable.SelectedTab.Text
  413.             Case "月比较"
  414.                 strquery = "select 药品编号,药品名称,药品规格,SUM(CASE WHEN month(日期)='01' THEN 金额 ELSE 0.00 END) AS 一月销售金额,SUM(CASE WHEN month(日期)='02' THEN 金额 ELSE 0.00 END) AS 二月销售金额,SUM(CASE WHEN month(日期)='03' THEN 金额 ELSE 0.00 END) AS 三月销售金额,SUM(CASE WHEN month(日期)='04' THEN 金额 ELSE 0.00 END) AS 四月销售金额,SUM(CASE WHEN month(日期)='05' THEN 金额 ELSE 0.00 END) AS 五月销售金额,SUM(CASE WHEN month(日期)='06' THEN 金额 ELSE 0.00 END) AS 六月销售金额,SUM(CASE WHEN month(日期)='07' THEN 金额 ELSE 0.00 END) AS 七月销售金额,SUM(CASE WHEN month(日期)='08' THEN 金额 ELSE 0.00 END) AS 八月销售金额,SUM(CASE WHEN month(日期)='09' THEN 金额 ELSE 0.00 END) AS 九月销售金额,SUM(CASE WHEN month(日期)='10' THEN 金额 ELSE 0.00 END) AS 十月销售金额,SUM(CASE WHEN month(日期)='11' THEN 金额 ELSE 0.00 END) AS 十一月销售金额,SUM(CASE WHEN month(日期)='12' THEN 金额 ELSE 0.00 END) AS 十二月销售金额 FROM wz_Rk where " & strsql & " group by 药品编号,药品名称,药品规格"
  415.             Case "季比较"
  416.                 strquery = "select 药品编号,药品名称,药品规格,SUM(CASE WHEN DATEPART(quarter,日期)='1' THEN 金额 ELSE 0.00 END) AS 一季度销售金额,SUM(CASE WHEN DATEPART(quarter,日期)='2' THEN 金额 ELSE 0.00 END) AS 二季度销售金额,SUM(CASE WHEN DATEPART(quarter,日期)='3' THEN 金额 ELSE 0.00 END) AS 三季度销售金额,SUM(CASE WHEN DATEPART(quarter,日期)='4' THEN 金额 ELSE 0.00 END) AS 四季度销售金额 FROM wz_Rk where " & strsql & " group by 药品编号,药品名称,药品规格"
  417.             Case "年比较"
  418.                 strquery = "select 药品编号,药品名称,药品规格,avg(进价) as 进价,sum(数量) as 数量,sum(金额) as 全年销售金额 from wz_Rk where " & strsql & " group by 药品编号,药品名称,药品规格"
  422.         End Select
  424.         dslocal = lsweb.runSql(strquery)
  425.         dgview.DataSource = dslocal.Tables(0).DefaultView
  426.     End Sub
  427. End Class