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

医药行业

开发平台:

Visual Basic

  1. Public Class frmCKSkTotal
  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 btnQueryAll As System.Windows.Forms.Button
  29.     Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
  30.     Friend WithEvents txtkhname As System.Windows.Forms.TextBox
  31.     Friend WithEvents Label3 As System.Windows.Forms.Label
  32.     Friend WithEvents txtendtime As System.Windows.Forms.DateTimePicker
  33.     Friend WithEvents txtbegintime As System.Windows.Forms.DateTimePicker
  34.     Friend WithEvents Label2 As System.Windows.Forms.Label
  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.btnQueryAll = New System.Windows.Forms.Button
  42.         Me.GroupBox1 = New System.Windows.Forms.GroupBox
  43.         Me.txtkhname = New System.Windows.Forms.TextBox
  44.         Me.Label3 = New System.Windows.Forms.Label
  45.         Me.txtendtime = New System.Windows.Forms.DateTimePicker
  46.         Me.txtbegintime = New System.Windows.Forms.DateTimePicker
  47.         Me.Label2 = New System.Windows.Forms.Label
  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.         Me.SuspendLayout()
  53.         '
  54.         'dgview
  55.         '
  56.         Me.dgview.DataMember = ""
  57.         Me.dgview.Dock = System.Windows.Forms.DockStyle.Fill
  58.         Me.dgview.HeaderForeColor = System.Drawing.SystemColors.ControlText
  59.         Me.dgview.Location = New System.Drawing.Point(0, 100)
  60.         Me.dgview.Name = "dgview"
  61.         Me.dgview.Size = New System.Drawing.Size(585, 336)
  62.         Me.dgview.TabIndex = 7
  63.         '
  64.         'GroupBox2
  65.         '
  66.         Me.GroupBox2.Controls.Add(Me.btnPrint)
  67.         Me.GroupBox2.Controls.Add(Me.btnQuery)
  68.         Me.GroupBox2.Controls.Add(Me.btnQueryAll)
  69.         Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Right
  70.         Me.GroupBox2.Location = New System.Drawing.Point(585, 100)
  71.         Me.GroupBox2.Name = "GroupBox2"
  72.         Me.GroupBox2.Size = New System.Drawing.Size(78, 336)
  73.         Me.GroupBox2.TabIndex = 6
  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, 63)
  81.         Me.btnPrint.Name = "btnPrint"
  82.         Me.btnPrint.Size = New System.Drawing.Size(72, 24)
  83.         Me.btnPrint.TabIndex = 2
  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, 40)
  91.         Me.btnQuery.Name = "btnQuery"
  92.         Me.btnQuery.Size = New System.Drawing.Size(72, 23)
  93.         Me.btnQuery.TabIndex = 1
  94.         Me.btnQuery.Text = "条件查询"
  95.         '
  96.         'btnQueryAll
  97.         '
  98.         Me.btnQueryAll.Dock = System.Windows.Forms.DockStyle.Top
  99.         Me.btnQueryAll.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  100.         Me.btnQueryAll.Location = New System.Drawing.Point(3, 17)
  101.         Me.btnQueryAll.Name = "btnQueryAll"
  102.         Me.btnQueryAll.Size = New System.Drawing.Size(72, 23)
  103.         Me.btnQueryAll.TabIndex = 0
  104.         Me.btnQueryAll.Text = "全部查询"
  105.         '
  106.         'GroupBox1
  107.         '
  108.         Me.GroupBox1.Controls.Add(Me.txtkhname)
  109.         Me.GroupBox1.Controls.Add(Me.Label3)
  110.         Me.GroupBox1.Controls.Add(Me.txtendtime)
  111.         Me.GroupBox1.Controls.Add(Me.txtbegintime)
  112.         Me.GroupBox1.Controls.Add(Me.Label2)
  113.         Me.GroupBox1.Controls.Add(Me.Label1)
  114.         Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top
  115.         Me.GroupBox1.Location = New System.Drawing.Point(0, 0)
  116.         Me.GroupBox1.Name = "GroupBox1"
  117.         Me.GroupBox1.Size = New System.Drawing.Size(663, 100)
  118.         Me.GroupBox1.TabIndex = 5
  119.         Me.GroupBox1.TabStop = False
  120.         '
  121.         'txtkhname
  122.         '
  123.         Me.txtkhname.Location = New System.Drawing.Point(72, 48)
  124.         Me.txtkhname.Name = "txtkhname"
  125.         Me.txtkhname.Size = New System.Drawing.Size(312, 21)
  126.         Me.txtkhname.TabIndex = 5
  127.         Me.txtkhname.Text = ""
  128.         '
  129.         'Label3
  130.         '
  131.         Me.Label3.AutoSize = True
  132.         Me.Label3.Location = New System.Drawing.Point(8, 56)
  133.         Me.Label3.Name = "Label3"
  134.         Me.Label3.Size = New System.Drawing.Size(66, 17)
  135.         Me.Label3.TabIndex = 4
  136.         Me.Label3.Text = "客户名称:"
  137.         '
  138.         'txtendtime
  139.         '
  140.         Me.txtendtime.Location = New System.Drawing.Point(272, 16)
  141.         Me.txtendtime.Name = "txtendtime"
  142.         Me.txtendtime.Size = New System.Drawing.Size(112, 21)
  143.         Me.txtendtime.TabIndex = 3
  144.         Me.txtendtime.Value = New Date(2006, 2, 23, 0, 0, 0, 0)
  145.         '
  146.         'txtbegintime
  147.         '
  148.         Me.txtbegintime.Location = New System.Drawing.Point(72, 16)
  149.         Me.txtbegintime.Name = "txtbegintime"
  150.         Me.txtbegintime.Size = New System.Drawing.Size(112, 21)
  151.         Me.txtbegintime.TabIndex = 2
  152.         Me.txtbegintime.Value = New Date(2006, 2, 23, 0, 0, 0, 0)
  153.         '
  154.         'Label2
  155.         '
  156.         Me.Label2.AutoSize = True
  157.         Me.Label2.Location = New System.Drawing.Point(208, 24)
  158.         Me.Label2.Name = "Label2"
  159.         Me.Label2.Size = New System.Drawing.Size(66, 17)
  160.         Me.Label2.TabIndex = 1
  161.         Me.Label2.Text = "结束日期:"
  162.         '
  163.         'Label1
  164.         '
  165.         Me.Label1.AutoSize = True
  166.         Me.Label1.Location = New System.Drawing.Point(8, 24)
  167.         Me.Label1.Name = "Label1"
  168.         Me.Label1.Size = New System.Drawing.Size(66, 17)
  169.         Me.Label1.TabIndex = 0
  170.         Me.Label1.Text = "开始日期:"
  171.         '
  172.         'frmCKSkTotal
  173.         '
  174.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  175.         Me.ClientSize = New System.Drawing.Size(663, 436)
  176.         Me.Controls.Add(Me.dgview)
  177.         Me.Controls.Add(Me.GroupBox2)
  178.         Me.Controls.Add(Me.GroupBox1)
  179.         Me.Name = "frmCKSkTotal"
  180.         Me.Text = "应收账款汇总统计"
  181.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  182.         CType(Me.dgview, System.ComponentModel.ISupportInitialize).EndInit()
  183.         Me.GroupBox2.ResumeLayout(False)
  184.         Me.GroupBox1.ResumeLayout(False)
  185.         Me.ResumeLayout(False)
  186.     End Sub
  187. #End Region
  188.     Public lsweb As New jxcmanage
  189.     Private Sub btnQueryAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQueryAll.Click
  190.         Dim strquery As String
  191.         strquery = "select 客户编号,客户名称,sum(应收金额) as 应收金额,sum(已收金额) as 已收金额,sum(余额) as 余额,sum(金额) as 金额,操作员,审核员 from wz_ck_sk group by 客户编号,客户名称,操作员,审核员"
  192.         Dim dslocal As DataSet
  193.         dslocal = lsweb.runSql(strquery)
  194.         dgview.DataSource = dslocal.Tables(0).DefaultView
  195.     End Sub
  196.     Private Sub btnQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuery.Click
  197.         If txtbegintime.Value > txtendtime.Value Or txtkhname.Text = String.Empty Then
  198.             MessageBox.Show("开始时间不能大于结束时间,不能为空,请输入查询值!", "提示", MessageBoxButtons.OK)
  199.         Else
  200.             Dim strquery As String
  201.             strquery = "select 日期,客户编号,客户名称,sum(应收金额) as 应收金额,sum(已收金额) as 已收金额,sum(余额) as 余额,sum(金额) as 金额,操作员,审核员 from wz_ck_sk where 客户名称='" & txtkhname.Text & "' and 日期 between '" & txtbegintime.Value & "' and '" & txtendtime.Value & "' group by 日期,客户编号,客户名称,操作员,审核员"
  202.             Dim dslocal As DataSet
  203.             dslocal = lsweb.runSql(strquery)
  204.             dgview.DataSource = dslocal.Tables(0).DefaultView
  205.         End If
  206.     End Sub
  207.     Private Sub frmCKSkTotal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  208.         txtbegintime.Value = Today.ToString
  209.         txtendtime.Value = Today.ToString
  210.     End Sub
  211. End Class