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

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

医药行业

开发平台：

Visual Basic

frmMedKcTotal.vb：源码内容
  1. Public Class frmMedKcTotal
  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 Panel2 As System.Windows.Forms.Panel
  33.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  34.     Friend WithEvents rboSum As System.Windows.Forms.RadioButton
  35.     Friend WithEvents rboMoney As System.Windows.Forms.RadioButton
  36.     Friend WithEvents rboLr As System.Windows.Forms.RadioButton
  37.     Friend WithEvents ckn As System.Windows.Forms.CheckBox
  38.     Friend WithEvents Label3 As System.Windows.Forms.Label
  39.     Friend WithEvents Label2 As System.Windows.Forms.Label
  40.     Friend WithEvents NumUd As System.Windows.Forms.NumericUpDown
  41.     Friend WithEvents Label1 As System.Windows.Forms.Label
  42.     Friend WithEvents btnPrint As System.Windows.Forms.Button
  43.     Friend WithEvents btnQuery As System.Windows.Forms.Button
  44.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  45.     Friend WithEvents dgview As System.Windows.Forms.DataGrid
  46.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  47.         Me.Panel2 = New System.Windows.Forms.Panel
  48.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  49.         Me.btnPrint = New System.Windows.Forms.Button
  50.         Me.btnQuery = New System.Windows.Forms.Button
  51.         Me.rboSum = New System.Windows.Forms.RadioButton
  52.         Me.rboMoney = New System.Windows.Forms.RadioButton
  53.         Me.rboLr = New System.Windows.Forms.RadioButton
  54.         Me.ckn = New System.Windows.Forms.CheckBox
  55.         Me.Label3 = New System.Windows.Forms.Label
  56.         Me.Label2 = New System.Windows.Forms.Label
  57.         Me.NumUd = New System.Windows.Forms.NumericUpDown
  58.         Me.Label1 = New System.Windows.Forms.Label
  59.         Me.Panel1 = New System.Windows.Forms.Panel
  60.         Me.dgview = New System.Windows.Forms.DataGrid
  61.         Me.Panel2.SuspendLayout()
  62.         Me.GroupBox1.SuspendLayout()
  63.         CType(Me.NumUd, System.ComponentModel.ISupportInitialize).BeginInit()
  64.         Me.Panel1.SuspendLayout()
  65.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).BeginInit()
  66.         Me.SuspendLayout()
  67.         '
  68.         'Panel2
  69.         '
  70.         Me.Panel2.Controls.Add(Me.GroupBox1)
  71.         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
  72.         Me.Panel2.Location = New System.Drawing.Point(0, 0)
  73.         Me.Panel2.Name = "Panel2"
  74.         Me.Panel2.Size = New System.Drawing.Size(576, 100)
  75.         Me.Panel2.TabIndex = 4
  76.         '
  77.         'GroupBox1
  78.         '
  79.         Me.GroupBox1.Controls.Add(Me.btnPrint)
  80.         Me.GroupBox1.Controls.Add(Me.btnQuery)
  81.         Me.GroupBox1.Controls.Add(Me.rboSum)
  82.         Me.GroupBox1.Controls.Add(Me.rboMoney)
  83.         Me.GroupBox1.Controls.Add(Me.rboLr)
  84.         Me.GroupBox1.Controls.Add(Me.ckn)
  85.         Me.GroupBox1.Controls.Add(Me.Label3)
  86.         Me.GroupBox1.Controls.Add(Me.Label2)
  87.         Me.GroupBox1.Controls.Add(Me.NumUd)
  88.         Me.GroupBox1.Controls.Add(Me.Label1)
  89.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
  90.         Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
  91.         Me.GroupBox1.Name = "GroupBox1"
  92.         Me.GroupBox1.Size = New System.Drawing.Size(576, 100)
  93.         Me.GroupBox1.TabIndex = 1
  94.         Me.GroupBox1.TabStop = False
  95.         '
  96.         'btnPrint
  97.         '
  98.         Me.btnPrint.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  99.         Me.btnPrint.Location = New System.Drawing.Point(480, 48)
  100.         Me.btnPrint.Name = "btnPrint"
  101.         Me.btnPrint.Size = New System.Drawing.Size(80, 23)
  102.         Me.btnPrint.TabIndex = 14
  103.         Me.btnPrint.Text = "打印"
  104.         '
  105.         'btnQuery
  106.         '
  107.         Me.btnQuery.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  108.         Me.btnQuery.Location = New System.Drawing.Point(480, 24)
  109.         Me.btnQuery.Name = "btnQuery"
  110.         Me.btnQuery.Size = New System.Drawing.Size(80, 23)
  111.         Me.btnQuery.TabIndex = 13
  112.         Me.btnQuery.Text = "统计"
  113.         '
  114.         'rboSum
  115.         '
  116.         Me.rboSum.Location = New System.Drawing.Point(192, 50)
  117.         Me.rboSum.Name = "rboSum"
  118.         Me.rboSum.Size = New System.Drawing.Size(72, 24)
  119.         Me.rboSum.TabIndex = 12
  120.         Me.rboSum.Text = "库存数量"
  121.         '
  122.         'rboMoney
  123.         '
  124.         Me.rboMoney.Location = New System.Drawing.Point(120, 50)
  125.         Me.rboMoney.Name = "rboMoney"
  126.         Me.rboMoney.Size = New System.Drawing.Size(72, 24)
  127.         Me.rboMoney.TabIndex = 11
  128.         Me.rboMoney.Text = "库存金额"
  129.         '
  130.         'rboLr
  131.         '
  132.         Me.rboLr.Location = New System.Drawing.Point(66, 50)
  133.         Me.rboLr.Name = "rboLr"
  134.         Me.rboLr.Size = New System.Drawing.Size(64, 24)
  135.         Me.rboLr.TabIndex = 10
  136.         Me.rboLr.Text = "毛利润"
  137.         '
  138.         'ckn
  139.         '
  140.         Me.ckn.Location = New System.Drawing.Point(88, 16)
  141.         Me.ckn.Name = "ckn"
  142.         Me.ckn.Size = New System.Drawing.Size(184, 24)
  143.         Me.ckn.TabIndex = 9
  144.         Me.ckn.Text = "选中为正数,不选中为倒数！"
  145.         '
  146.         'Label3
  147.         '
  148.         Me.Label3.AutoSize = True
  149.         Me.Label3.Location = New System.Drawing.Point(8, 56)
  150.         Me.Label3.Name = "Label3"
  151.         Me.Label3.Size = New System.Drawing.Size(66, 17)
  152.         Me.Label3.TabIndex = 5
  153.         Me.Label3.Text = "排行标准："
  154.         '
  155.         'Label2
  156.         '
  157.         Me.Label2.AutoSize = True
  158.         Me.Label2.Location = New System.Drawing.Point(64, 24)
  159.         Me.Label2.Name = "Label2"
  160.         Me.Label2.Size = New System.Drawing.Size(17, 17)
  161.         Me.Label2.TabIndex = 2
  162.         Me.Label2.Text = "位"
  163.         '
  164.         'NumUd
  165.         '
  166.         Me.NumUd.Location = New System.Drawing.Point(24, 16)
  167.         Me.NumUd.Name = "NumUd"
  168.         Me.NumUd.Size = New System.Drawing.Size(40, 21)
  169.         Me.NumUd.TabIndex = 1
  170.         Me.NumUd.Value = New Decimal(New Integer() {10, 0, 0, 0})
  171.         '
  172.         'Label1
  173.         '
  174.         Me.Label1.AutoSize = True
  175.         Me.Label1.Location = New System.Drawing.Point(8, 24)
  176.         Me.Label1.Name = "Label1"
  177.         Me.Label1.Size = New System.Drawing.Size(17, 17)
  178.         Me.Label1.TabIndex = 0
  179.         Me.Label1.Text = "前"
  180.         '
  181.         'Panel1
  182.         '
  183.         Me.Panel1.Controls.Add(Me.dgview)
  184.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
  185.         Me.Panel1.Location = New System.Drawing.Point(0, 100)
  186.         Me.Panel1.Name = "Panel1"
  187.         Me.Panel1.Size = New System.Drawing.Size(576, 255)
  188.         Me.Panel1.TabIndex = 5
  189.         '
  190.         'dgview
  191.         '
  192.         Me.dgview.DataMember = ""
  193.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  194.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  195.         Me.dgview.Location = New System.Drawing.Point(0, 0)
  196.         Me.dgview.Name = "dgview"
  197.         Me.dgview.Size = New System.Drawing.Size(576, 255)
  198.         Me.dgview.TabIndex = 0
  199.         '
  200.         'frmMedKcTotal
  201.         '
  202.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  203.         Me.ClientSize = New System.Drawing.Size(576, 355)
  204.         Me.Controls.Add(Me.Panel1)
  205.         Me.Controls.Add(Me.Panel2)
  206.         Me.Name = "frmMedKcTotal"
  207.         Me.Text = "库存药品排行表"
  208.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  209.         Me.Panel2.ResumeLayout(False)
  210.         Me.GroupBox1.ResumeLayout(False)
  211.         CType(Me.NumUd, System.ComponentModel.ISupportInitialize).EndInit()
  212.         Me.Panel1.ResumeLayout(False)
  213.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  214.         Me.ResumeLayout(False)
  216.     End Sub
  218. #End Region
  219.     Public lsweb As New jxcmanage
  220.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  221.        
  222.     End Sub
  224.     Private Sub frmMedKcTotal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  226.     End Sub
  228.     Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
  229.         Dim strorder As String
  230.         Dim strquery As String
  231.         Dim strqueryes As String
  233.         If ckn.Checked Then
  235.             If rboLr.Checked Then
  236.                 strquery = "毛利润"
  237.             End If
  238.             If rboMoney.Checked Then
  239.                 strquery = "库存金额"
  240.             End If
  241.             If rboSum.Checked Then
  242.                 strquery = "库存数量"
  243.             End If
  244.             strorder = " order by " & strquery & " desc"
  246.         Else
  248.             If rboLr.Checked Then
  249.                 strquery = "毛利润"
  250.             End If
  251.             If rboMoney.Checked Then
  252.                 strquery = "库存金额"
  253.             End If
  254.             If rboSum.Checked Then
  255.                 strquery = "库存数量"
  256.             End If
  257.             strorder = " order by " & strquery
  258.         End If
  259.         strqueryes = "select top " & NumUd.Value & " a.药品编号,a.药品名称,a.药品规格,a.单位,a.包装,sum(isnull(a.数量,0)) as 库存数量,sum(isnull(a.金额,0)) as 库存金额,sum((isnull(b.售价,0)-isnull(a.进价,0))*isnull(a.数量,0)) as 毛利润,a.产地 from wz_kc a,wz_cp b where a.药品编号=b.药品编号 group by a.药品编号,a.药品名称,a.药品规格,a.单位,a.包装,a.产地" & strorder
  261.         If rboMoney.Checked = False And rboSum.Checked = False And rboLr.Checked = False Then
  262.             MessageBox.Show("请设置查询条件!", "提示!", MessageBoxButtons.OK)
  263.         Else
  264.             Dim dv As DataView
  265.             Dim dtOrder As DataTable = lsweb.runSql(strqueryes).Tables(0)
  266.             dv = dtOrder.DefaultView
  267.             dgview.DataSource = dv
  268.         End If
  270.     End Sub
  271. End Class