frmBhPhTotal.vb
上传用户:wj57717022
上传日期:2014-12-16
资源大小:4093k
文件大小:9k
源码类别:

医药行业

开发平台:

Visual Basic

  1. Public Class frmBhPhTotal
  2.     Inherits System.Windows.Forms.Form
  3. #Region " Windows 窗体设计器生成的代码 "
  4.     Public Sub New()
  5.         MyBase.New()
  6.         '该调用是 Windows 窗体设计器所必需的。
  7.         InitializeComponent()
  8.         '在 InitializeComponent() 调用之后添加任何初始化
  9.     End Sub
  10.     '窗体重写 dispose 以清理组件列表。
  11.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  12.         If disposing Then
  13.             If Not (components Is Nothing) Then
  14.                 components.Dispose()
  15.             End If
  16.         End If
  17.         MyBase.Dispose(disposing)
  18.     End Sub
  19.     'Windows 窗体设计器所必需的
  20.     Private components As System.ComponentModel.IContainer
  21.     '注意: 以下过程是 Windows 窗体设计器所必需的
  22.     '可以使用 Windows 窗体设计器修改此过程。
  23.     '不要使用代码编辑器修改它。
  24.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  25.     Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
  26.     Friend WithEvents btnPrint As System.Windows.Forms.Button
  27.     Friend WithEvents btnQuery As System.Windows.Forms.Button
  28.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  29.     Friend WithEvents rboSum As System.Windows.Forms.RadioButton
  30.     Friend WithEvents rboMoney As System.Windows.Forms.RadioButton
  31.     Friend WithEvents ckn As System.Windows.Forms.CheckBox
  32.     Friend WithEvents Label3 As System.Windows.Forms.Label
  33.     Friend WithEvents Label2 As System.Windows.Forms.Label
  34.     Friend WithEvents NumUd As System.Windows.Forms.NumericUpDown
  35.     Friend WithEvents Label1 As System.Windows.Forms.Label
  36.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  37.         Me.dgview = New System.Windows.Forms.DataGrid
  38.         Me.GroupBox2 = New System.Windows.Forms.GroupBox
  39.         Me.btnPrint = New System.Windows.Forms.Button
  40.         Me.btnQuery = New System.Windows.Forms.Button
  41.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  42.         Me.rboSum = New System.Windows.Forms.RadioButton
  43.         Me.rboMoney = New System.Windows.Forms.RadioButton
  44.         Me.ckn = New System.Windows.Forms.CheckBox
  45.         Me.Label3 = New System.Windows.Forms.Label
  46.         Me.Label2 = New System.Windows.Forms.Label
  47.         Me.NumUd = New System.Windows.Forms.NumericUpDown
  48.         Me.Label1 = New System.Windows.Forms.Label
  49.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  50.         Me.GroupBox2.SuspendLayout()
  51.         Me.GroupBox1.SuspendLayout()
  52.         CType(Me.NumUd, System.ComponentModel.ISupportInitialize).BeginInit()
  53.         Me.SuspendLayout()
  54.         '
  55.         'dgview
  56.         '
  57.         Me.dgview.DataMember = ""
  58.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  59.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  60.         Me.dgview.Location = New System.Drawing.Point(0, 103)
  61.         Me.dgview.Name = "dgview"
  62.         Me.dgview.Size = New System.Drawing.Size(534, 343)
  63.         Me.dgview.TabIndex = 11
  64.         '
  65.         'GroupBox2
  66.         '
  67.         Me.GroupBox2.Controls.Add(Me.btnPrint)
  68.         Me.GroupBox2.Controls.Add(Me.btnQuery)
  69.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Right
  70.         Me.GroupBox2.Location = New System.Drawing.Point(534, 103)
  71.         Me.GroupBox2.Name = "GroupBox2"
  72.         Me.GroupBox2.Size = New System.Drawing.Size(104, 343)
  73.         Me.GroupBox2.TabIndex = 10
  74.         Me.GroupBox2.TabStop = False
  75.         '
  76.         'btnPrint
  77.         '
  78.         Me.btnPrint.Dock = System.Windows.Forms.DockStyle.Top
  79.         Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  80.         Me.btnPrint.Location = New System.Drawing.Point(3, 50)
  81.         Me.btnPrint.Name = "btnPrint"
  82.         Me.btnPrint.Size = New System.Drawing.Size(98, 29)
  83.         Me.btnPrint.TabIndex = 1
  84.         Me.btnPrint.Text = "打印"
  85.         '
  86.         'btnQuery
  87.         '
  88.         Me.btnQuery.Dock = System.Windows.Forms.DockStyle.Top
  89.         Me.btnQuery.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  90.         Me.btnQuery.Location = New System.Drawing.Point(3, 21)
  91.         Me.btnQuery.Name = "btnQuery"
  92.         Me.btnQuery.Size = New System.Drawing.Size(98, 29)
  93.         Me.btnQuery.TabIndex = 0
  94.         Me.btnQuery.Text = "统计"
  95.         '
  96.         'GroupBox1
  97.         '
  98.         Me.GroupBox1.Controls.Add(Me.rboSum)
  99.         Me.GroupBox1.Controls.Add(Me.rboMoney)
  100.         Me.GroupBox1.Controls.Add(Me.ckn)
  101.         Me.GroupBox1.Controls.Add(Me.Label3)
  102.         Me.GroupBox1.Controls.Add(Me.Label2)
  103.         Me.GroupBox1.Controls.Add(Me.NumUd)
  104.         Me.GroupBox1.Controls.Add(Me.Label1)
  105.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  106.         Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
  107.         Me.GroupBox1.Name = "GroupBox1"
  108.         Me.GroupBox1.Size = New System.Drawing.Size(638, 103)
  109.         Me.GroupBox1.TabIndex = 9
  110.         Me.GroupBox1.TabStop = False
  111.         '
  112.         'rboSum
  113.         '
  114.         Me.rboSum.Location = New System.Drawing.Point(200, 64)
  115.         Me.rboSum.Name = "rboSum"
  116.         Me.rboSum.Size = New System.Drawing.Size(96, 31)
  117.         Me.rboSum.TabIndex = 11
  118.         Me.rboSum.Text = "补货数量"
  119.         '
  120.         'rboMoney
  121.         '
  122.         Me.rboMoney.Location = New System.Drawing.Point(104, 64)
  123.         Me.rboMoney.Name = "rboMoney"
  124.         Me.rboMoney.Size = New System.Drawing.Size(96, 31)
  125.         Me.rboMoney.TabIndex = 10
  126.         Me.rboMoney.Text = "补货金额"
  127.         '
  128.         'ckn
  129.         '
  130.         Me.ckn.Location = New System.Drawing.Point(117, 21)
  131.         Me.ckn.Name = "ckn"
  132.         Me.ckn.Size = New System.Drawing.Size(246, 30)
  133.         Me.ckn.TabIndex = 9
  134.         Me.ckn.Text = "选中为正数,不选中为倒数!"
  135.         '
  136.         'Label3
  137.         '
  138.         Me.Label3.AutoSize = True
  139.         Me.Label3.Location = New System.Drawing.Point(11, 72)
  140.         Me.Label3.Name = "Label3"
  141.         Me.Label3.Size = New System.Drawing.Size(83, 21)
  142.         Me.Label3.TabIndex = 5
  143.         Me.Label3.Text = "排行标准:"
  144.         '
  145.         'Label2
  146.         '
  147.         Me.Label2.AutoSize = True
  148.         Me.Label2.Location = New System.Drawing.Point(85, 31)
  149.         Me.Label2.Name = "Label2"
  150.         Me.Label2.Size = New System.Drawing.Size(21, 21)
  151.         Me.Label2.TabIndex = 2
  152.         Me.Label2.Text = "位"
  153.         '
  154.         'NumUd
  155.         '
  156.         Me.NumUd.Location = New System.Drawing.Point(32, 21)
  157.         Me.NumUd.Name = "NumUd"
  158.         Me.NumUd.Size = New System.Drawing.Size(53, 25)
  159.         Me.NumUd.TabIndex = 1
  160.         Me.NumUd.Value = New Decimal(New Integer() {10, 0, 0, 0})
  161.         '
  162.         'Label1
  163.         '
  164.         Me.Label1.AutoSize = True
  165.         Me.Label1.Location = New System.Drawing.Point(11, 31)
  166.         Me.Label1.Name = "Label1"
  167.         Me.Label1.Size = New System.Drawing.Size(21, 21)
  168.         Me.Label1.TabIndex = 0
  169.         Me.Label1.Text = "前"
  170.         '
  171.         'frmBhPhTotal
  172.         '
  173.         Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
  174.         Me.ClientSize = New System.Drawing.Size(638, 446)
  175.         Me.Controls.Add(Me.dgview)
  176.         Me.Controls.Add(Me.GroupBox2)
  177.         Me.Controls.Add(Me.GroupBox1)
  178.         Me.Name = "frmBhPhTotal"
  179.         Me.Text = "门店补货排行"
  180.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  181.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  182.         Me.GroupBox2.ResumeLayout(False)
  183.         Me.GroupBox1.ResumeLayout(False)
  184.         CType(Me.NumUd, System.ComponentModel.ISupportInitialize).EndInit()
  185.         Me.ResumeLayout(False)
  186.     End Sub
  187. #End Region
  188.     Public lsweb As New jxcmanage
  189.     Private Sub frmBhPhTotal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  190.     End Sub
  191.     Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
  192.         Dim strorder As String
  193.         Dim strquery As String
  194.         Dim strqueryes As String
  195.         If ckn.Checked Then
  196.             If rboMoney.Checked Then
  197.                 strquery = " order by 补货金额 desc"
  198.             End If
  199.             If rboSum.Checked Then
  200.                 strquery = " order by 补货数量 desc"
  201.             End If
  202.         Else
  203.             If rboMoney.Checked Then
  204.                 strquery = " order by 补货金额"
  205.             End If
  206.             If rboSum.Checked Then
  207.                 strquery = " order by 补货金额"
  208.             End If
  209.         End If
  210.         strqueryes = "select top " & NumUd.Value & " MedNumber as 药品编号,MedName as 药品名称,MedRule as 药品规格,Unit as 单位,Package as 包装,sum(isnull(LCount,0)) as 补货数量,sum(isnull(money,0)) as 补货金额,Product as 产地 from mdbhmx group by MedNumber,MedName,MedRule,Unit,Package,Product" & strquery
  211.         If rboMoney.Checked = False And rboSum.Checked = False Then
  212.             MessageBox.Show("请设置查询条件!", "提示!", MessageBoxButtons.OK)
  213.         Else
  214.             Dim dv As DataView
  215.             Dim dtOrder As DataTable = lsweb.runSql(strqueryes).Tables(0)
  216.             dv = dtOrder.DefaultView
  217.             dgview.DataSource = dv
  218.         End If
  219.     End Sub
  220. End Class