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

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

医药行业

开发平台：

Visual Basic

frmCommQuery.vb：源码内容
  1. Imports System.Data.SqlClient
  2. Imports System.Windows.Forms
  3. Public Class frmCommQuery
  4.     Inherits System.Windows.Forms.Form
  6. #Region " Windows 窗体设计器生成的代码 "
  8.     Public Sub New()
  9.         MyBase.New()
  11.         '该调用是 Windows 窗体设计器所必需的。
  12.         InitializeComponent()
  14.         '在 InitializeComponent() 调用之后添加任何初始化
  16.     End Sub
  18.     '窗体重写 dispose 以清理组件列表。
  19.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  20.         If disposing Then
  21.             If Not (components Is Nothing) Then
  22.                 components.Dispose()
  23.             End If
  24.         End If
  25.         MyBase.Dispose(disposing)
  26.     End Sub
  28.     'Windows 窗体设计器所必需的
  29.     Private components As System.ComponentModel.IContainer
  31.     '注意: 以下过程是 Windows 窗体设计器所必需的
  32.     '可以使用 Windows 窗体设计器修改此过程。
  33.     '不要使用代码编辑器修改它。
  34.     Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
  35.     Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
  36.     Friend WithEvents tbrquery As System.Windows.Forms.ToolBarButton
  37.     Friend WithEvents tbrprint As System.Windows.Forms.ToolBarButton
  38.     Friend WithEvents tbrexit As System.Windows.Forms.ToolBarButton
  39.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  40.     Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
  41.     Friend WithEvents Panel2 As System.Windows.Forms.Panel
  42.     Friend WithEvents Panel3 As System.Windows.Forms.Panel
  43.     Friend WithEvents Button5 As System.Windows.Forms.Button
  44.     Friend WithEvents Button4 As System.Windows.Forms.Button
  45.     Friend WithEvents Button3 As System.Windows.Forms.Button
  46.     Friend WithEvents Button2 As System.Windows.Forms.Button
  47.     Friend WithEvents Button1 As System.Windows.Forms.Button
  48.     Friend WithEvents Panel4 As System.Windows.Forms.Panel
  49.     Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
  50.     Friend WithEvents Panel5 As System.Windows.Forms.Panel
  51.     Friend WithEvents DataGrid2 As System.Windows.Forms.DataGrid
  52.     Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
  53.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  54.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  55.         Me.components = New System.ComponentModel.Container
  56.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmCommQuery))
  57.         Me.StatusBar1 = New System.Windows.Forms.StatusBar
  58.         Me.ToolBar1 = New System.Windows.Forms.ToolBar
  59.         Me.tbrquery = New System.Windows.Forms.ToolBarButton
  60.         Me.tbrprint = New System.Windows.Forms.ToolBarButton
  61.         Me.tbrexit = New System.Windows.Forms.ToolBarButton
  62.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  63.         Me.Panel1 = New System.Windows.Forms.Panel
  64.         Me.ListBox1 = New System.Windows.Forms.ListBox
  65.         Me.Panel2 = New System.Windows.Forms.Panel
  66.         Me.DataGrid1 = New System.Windows.Forms.DataGrid
  67.         Me.Panel3 = New System.Windows.Forms.Panel
  68.         Me.Button5 = New System.Windows.Forms.Button
  69.         Me.Button4 = New System.Windows.Forms.Button
  70.         Me.Button3 = New System.Windows.Forms.Button
  71.         Me.Button2 = New System.Windows.Forms.Button
  72.         Me.Button1 = New System.Windows.Forms.Button
  73.         Me.Panel4 = New System.Windows.Forms.Panel
  74.         Me.TextBox1 = New System.Windows.Forms.TextBox
  75.         Me.Panel5 = New System.Windows.Forms.Panel
  76.         Me.DataGrid2 = New System.Windows.Forms.DataGrid
  77.         Me.Panel1.SuspendLayout()
  78.         Me.Panel2.SuspendLayout()
  79.         CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
  80.         Me.Panel3.SuspendLayout()
  81.         Me.Panel4.SuspendLayout()
  82.         Me.Panel5.SuspendLayout()
  83.         CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).BeginInit()
  84.         Me.SuspendLayout()
  85.         '
  86.         'StatusBar1
  87.         '
  88.         Me.StatusBar1.Location = New System.Drawing.Point(0, 498)
  89.         Me.StatusBar1.Name = "StatusBar1"
  90.         Me.StatusBar1.Size = New System.Drawing.Size(798, 17)
  91.         Me.StatusBar1.TabIndex = 18
  92.         '
  93.         'ToolBar1
  94.         '
  95.         Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  96.         Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbrquery, Me.tbrprint, Me.tbrexit})
  97.         Me.ToolBar1.DropDownArrows = True
  98.         Me.ToolBar1.ImageList = Me.ImageList2
  99.         Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
  100.         Me.ToolBar1.Name = "ToolBar1"
  101.         Me.ToolBar1.ShowToolTips = True
  102.         Me.ToolBar1.Size = New System.Drawing.Size(798, 41)
  103.         Me.ToolBar1.TabIndex = 19
  104.         '
  105.         'tbrquery
  106.         '
  107.         Me.tbrquery.ImageIndex = 13
  108.         Me.tbrquery.Text = "查询"
  109.         '
  110.         'tbrprint
  111.         '
  112.         Me.tbrprint.ImageIndex = 12
  113.         Me.tbrprint.Text = "打印"
  114.         '
  115.         'tbrexit
  116.         '
  117.         Me.tbrexit.ImageIndex = 11
  118.         Me.tbrexit.Text = "退出"
  119.         '
  120.         'ImageList2
  121.         '
  122.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  123.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  124.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  125.         '
  126.         'Panel1
  127.         '
  128.         Me.Panel1.Controls.Add(Me.ListBox1)
  129.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Left
  130.         Me.Panel1.Location = New System.Drawing.Point(0, 41)
  131.         Me.Panel1.Name = "Panel1"
  132.         Me.Panel1.Size = New System.Drawing.Size(80, 457)
  133.         Me.Panel1.TabIndex = 20
  134.         '
  135.         'ListBox1
  136.         '
  137.         Me.ListBox1.BackColor = System.Drawing.SystemColors.Info
  138.         Me.ListBox1.Dock = System.Windows.Forms.DockStyle.Left
  139.         Me.ListBox1.ItemHeight = 12
  140.         Me.ListBox1.Items.AddRange(New Object() {"药品信息表", "客户信息表", "销售表", "入库表", "库存表", "盘点表"})
  141.         Me.ListBox1.Location = New System.Drawing.Point(0, 0)
  142.         Me.ListBox1.Name = "ListBox1"
  143.         Me.ListBox1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
  144.         Me.ListBox1.Size = New System.Drawing.Size(80, 448)
  145.         Me.ListBox1.TabIndex = 18
  146.         '
  147.         'Panel2
  148.         '
  149.         Me.Panel2.Controls.Add(Me.DataGrid1)
  150.         Me.Panel2.Dock = System.Windows.Forms.DockStyle.Top
  151.         Me.Panel2.Location = New System.Drawing.Point(80, 41)
  152.         Me.Panel2.Name = "Panel2"
  153.         Me.Panel2.Size = New System.Drawing.Size(718, 100)
  154.         Me.Panel2.TabIndex = 21
  155.         '
  156.         'DataGrid1
  157.         '
  158.         Me.DataGrid1.AlternatingBackColor = System.Drawing.Color.Gainsboro
  159.         Me.DataGrid1.BackColor = System.Drawing.Color.Silver
  160.         Me.DataGrid1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  161.         Me.DataGrid1.CaptionBackColor = System.Drawing.Color.DarkSlateBlue
  162.         Me.DataGrid1.CaptionFont = New System.Drawing.Font("Tahoma", 8.0!)
  163.         Me.DataGrid1.CaptionForeColor = System.Drawing.Color.White
  164.         Me.DataGrid1.CaptionText = "通用查询"
  165.         Me.DataGrid1.DataMember = ""
  166.         Me.DataGrid1.Dock = System.Windows.Forms.DockStyle.Fill
  167.         Me.DataGrid1.FlatMode = True
  168.         Me.DataGrid1.ForeColor = System.Drawing.Color.Black
  169.         Me.DataGrid1.GridLineColor = System.Drawing.Color.White
  170.         Me.DataGrid1.HeaderBackColor = System.Drawing.Color.DarkGray
  171.         Me.DataGrid1.HeaderForeColor = System.Drawing.Color.Black
  172.         Me.DataGrid1.LinkColor = System.Drawing.Color.DarkSlateBlue
  173.         Me.DataGrid1.Location = New System.Drawing.Point(0, 0)
  174.         Me.DataGrid1.Name = "DataGrid1"
  175.         Me.DataGrid1.ParentRowsBackColor = System.Drawing.Color.Black
  176.         Me.DataGrid1.ParentRowsForeColor = System.Drawing.Color.White
  177.         Me.DataGrid1.ParentRowsVisible = False
  178.         Me.DataGrid1.SelectionBackColor = System.Drawing.Color.DarkSlateBlue
  179.         Me.DataGrid1.SelectionForeColor = System.Drawing.Color.White
  180.         Me.DataGrid1.Size = New System.Drawing.Size(718, 100)
  181.         Me.DataGrid1.TabIndex = 3
  182.         '
  183.         'Panel3
  184.         '
  185.         Me.Panel3.Controls.Add(Me.Button5)
  186.         Me.Panel3.Controls.Add(Me.Button4)
  187.         Me.Panel3.Controls.Add(Me.Button3)
  188.         Me.Panel3.Controls.Add(Me.Button2)
  189.         Me.Panel3.Controls.Add(Me.Button1)
  190.         Me.Panel3.Dock = System.Windows.Forms.DockStyle.Right
  191.         Me.Panel3.Location = New System.Drawing.Point(702, 141)
  192.         Me.Panel3.Name = "Panel3"
  193.         Me.Panel3.Size = New System.Drawing.Size(96, 357)
  194.         Me.Panel3.TabIndex = 22
  195.         '
  196.         'Button5
  197.         '
  198.         Me.Button5.Dock = System.Windows.Forms.DockStyle.Top
  199.         Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  200.         Me.Button5.Location = New System.Drawing.Point(0, 100)
  201.         Me.Button5.Name = "Button5"
  202.         Me.Button5.Size = New System.Drawing.Size(96, 25)
  203.         Me.Button5.TabIndex = 18
  204.         Me.Button5.Text = "取消"
  205.         Me.Button5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  206.         '
  207.         'Button4
  208.         '
  209.         Me.Button4.Dock = System.Windows.Forms.DockStyle.Top
  210.         Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  211.         Me.Button4.Location = New System.Drawing.Point(0, 75)
  212.         Me.Button4.Name = "Button4"
  213.         Me.Button4.Size = New System.Drawing.Size(96, 25)
  214.         Me.Button4.TabIndex = 17
  215.         Me.Button4.Text = "确定"
  216.         Me.Button4.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  217.         '
  218.         'Button3
  219.         '
  220.         Me.Button3.Dock = System.Windows.Forms.DockStyle.Top
  221.         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  222.         Me.Button3.Location = New System.Drawing.Point(0, 50)
  223.         Me.Button3.Name = "Button3"
  224.         Me.Button3.Size = New System.Drawing.Size(96, 25)
  225.         Me.Button3.TabIndex = 16
  226.         Me.Button3.Text = "插入"
  227.         Me.Button3.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  228.         '
  229.         'Button2
  230.         '
  231.         Me.Button2.Dock = System.Windows.Forms.DockStyle.Top
  232.         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  233.         Me.Button2.Location = New System.Drawing.Point(0, 25)
  234.         Me.Button2.Name = "Button2"
  235.         Me.Button2.Size = New System.Drawing.Size(96, 25)
  236.         Me.Button2.TabIndex = 15
  237.         Me.Button2.Text = "删除"
  238.         Me.Button2.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  239.         '
  240.         'Button1
  241.         '
  242.         Me.Button1.Dock = System.Windows.Forms.DockStyle.Top
  243.         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Popup
  244.         Me.Button1.Location = New System.Drawing.Point(0, 0)
  245.         Me.Button1.Name = "Button1"
  246.         Me.Button1.Size = New System.Drawing.Size(96, 25)
  247.         Me.Button1.TabIndex = 14
  248.         Me.Button1.Text = "添加"
  249.         Me.Button1.TextAlign = System.Drawing.ContentAlignment.BottomCenter
  250.         '
  251.         'Panel4
  252.         '
  253.         Me.Panel4.Controls.Add(Me.TextBox1)
  254.         Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
  255.         Me.Panel4.Location = New System.Drawing.Point(80, 141)
  256.         Me.Panel4.Name = "Panel4"
  257.         Me.Panel4.Size = New System.Drawing.Size(622, 51)
  258.         Me.Panel4.TabIndex = 23
  259.         '
  260.         'TextBox1
  261.         '
  262.         Me.TextBox1.BackColor = System.Drawing.SystemColors.Info
  263.         Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill
  264.         Me.TextBox1.Location = New System.Drawing.Point(0, 0)
  265.         Me.TextBox1.Multiline = True
  266.         Me.TextBox1.Name = "TextBox1"
  267.         Me.TextBox1.Size = New System.Drawing.Size(622, 51)
  268.         Me.TextBox1.TabIndex = 7
  269.         Me.TextBox1.Text = ""
  270.         '
  271.         'Panel5
  272.         '
  273.         Me.Panel5.Controls.Add(Me.DataGrid2)
  274.         Me.Panel5.Dock = System.Windows.Forms.DockStyle.Fill
  275.         Me.Panel5.Location = New System.Drawing.Point(80, 192)
  276.         Me.Panel5.Name = "Panel5"
  277.         Me.Panel5.Size = New System.Drawing.Size(622, 306)
  278.         Me.Panel5.TabIndex = 24
  279.         '
  280.         'DataGrid2
  281.         '
  282.         Me.DataGrid2.AlternatingBackColor = System.Drawing.Color.Gainsboro
  283.         Me.DataGrid2.BackColor = System.Drawing.Color.Silver
  284.         Me.DataGrid2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
  285.         Me.DataGrid2.CaptionBackColor = System.Drawing.Color.DarkSlateBlue
  286.         Me.DataGrid2.CaptionFont = New System.Drawing.Font("Tahoma", 8.0!)
  287.         Me.DataGrid2.CaptionForeColor = System.Drawing.Color.White
  288.         Me.DataGrid2.DataMember = ""
  289.         Me.DataGrid2.Dock = System.Windows.Forms.DockStyle.Fill
  290.         Me.DataGrid2.FlatMode = True
  291.         Me.DataGrid2.ForeColor = System.Drawing.Color.Black
  292.         Me.DataGrid2.GridLineColor = System.Drawing.Color.White
  293.         Me.DataGrid2.HeaderBackColor = System.Drawing.Color.DarkGray
  294.         Me.DataGrid2.HeaderForeColor = System.Drawing.Color.Black
  295.         Me.DataGrid2.LinkColor = System.Drawing.Color.DarkSlateBlue
  296.         Me.DataGrid2.Location = New System.Drawing.Point(0, 0)
  297.         Me.DataGrid2.Name = "DataGrid2"
  298.         Me.DataGrid2.ParentRowsBackColor = System.Drawing.Color.Black
  299.         Me.DataGrid2.ParentRowsForeColor = System.Drawing.Color.White
  300.         Me.DataGrid2.SelectionBackColor = System.Drawing.Color.DarkSlateBlue
  301.         Me.DataGrid2.SelectionForeColor = System.Drawing.Color.White
  302.         Me.DataGrid2.Size = New System.Drawing.Size(622, 306)
  303.         Me.DataGrid2.TabIndex = 16
  304.         '
  305.         'frmCommQuery
  306.         '
  307.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  308.         Me.ClientSize = New System.Drawing.Size(798, 515)
  309.         Me.ControlBox = False
  310.         Me.Controls.Add(Me.Panel5)
  311.         Me.Controls.Add(Me.Panel4)
  312.         Me.Controls.Add(Me.Panel3)
  313.         Me.Controls.Add(Me.Panel2)
  314.         Me.Controls.Add(Me.Panel1)
  315.         Me.Controls.Add(Me.ToolBar1)
  316.         Me.Controls.Add(Me.StatusBar1)
  317.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
  318.         Me.MinimizeBox = False
  319.         Me.Name = "frmCommQuery"
  320.         Me.Text = "frmCommQuery"
  321.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  322.         Me.Panel1.ResumeLayout(False)
  323.         Me.Panel2.ResumeLayout(False)
  324.         CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
  325.         Me.Panel3.ResumeLayout(False)
  326.         Me.Panel4.ResumeLayout(False)
  327.         Me.Panel5.ResumeLayout(False)
  328.         CType(Me.DataGrid2, System.ComponentModel.ISupportInitialize).EndInit()
  329.         Me.ResumeLayout(False)
  331.     End Sub
  333. #End Region
  334.     Public lsweb As New jxcmanage
  335.     Public MyCombo As New ComboBox
  336.     Public MyCombo1 As New ComboBox
  337.     Public MyCombo3 As New ComboBox
  338.     Dim drv As New DataView
  339.     Dim ds As New DataSet
  340.     Dim drrow As DataRow
  341.     Dim dtquery As DataTable
  342.     Private Sub frmCommQuery_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  343.         tbrquery.Enabled = False
  344.         dtquery = New DataTable("commquery")
  345.         ds.Tables.Add(dtquery)
  346.         Dim dccontion As New DataColumn("条件")
  347.         dtquery.Columns.Add("条件", GetType(System.String))
  348.         Dim dcfields As New DataColumn("字段名称")
  349.         dtquery.Columns.Add("字段名称", GetType(System.String))
  350.         Dim dcoption As New DataColumn("比较符")
  351.         dtquery.Columns.Add("比较符", GetType(System.String))
  352.         Dim dcvalue As New DataColumn("查询目标")
  353.         dtquery.Columns.Add("查询目标", GetType(System.String))
  354.         AddHandler MyCombo3.TextChanged, AddressOf Ctrls_TextChanged
  355.         AddHandler MyCombo.TextChanged, AddressOf Ctrls_TextChanged
  356.         AddHandler MyCombo1.TextChanged, AddressOf Ctrls_TextChanged
  357.         MyCombo3.Name = "MyCombo3"
  358.         MyCombo3.Visible = False
  359.         MyCombo3.Items.Clear()
  360.         MyCombo3.Items.Add("")
  361.         MyCombo3.Items.Add("or")
  362.         MyCombo3.Items.Add("and")
  363.         MyCombo.Name = "MyCombo"
  364.         MyCombo.Visible = False
  365.         MyCombo.Items.Clear()
  366.         MyCombo1.Name = "MyCombo1"
  367.         MyCombo1.Visible = False
  368.         MyCombo1.Items.Clear()
  369.         MyCombo1.Items.Add("=")
  370.         MyCombo1.Items.Add("<")
  371.         MyCombo1.Items.Add("<=")
  372.         MyCombo1.Items.Add(">")
  373.         MyCombo1.Items.Add(">=")
  374.         MyCombo1.Items.Add("like")
  375.         MyCombo1.Items.Add("<>")
  376.         DataGrid1.PreferredRowHeight = MyCombo.Height
  377.         DataGrid1.DataSource = ds.Tables(0).DefaultView
  378.         DataGrid1.Controls.Add(MyCombo3)
  379.         DataGrid1.Controls.Add(MyCombo)
  380.         DataGrid1.Controls.Add(MyCombo1)
  381.     End Sub
  382.     Private Sub DataGrid1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs)
  383.         
  384.     End Sub
  385.     Private Sub Ctrls_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)
  386.         If DataGrid1.CurrentCell.ColumnNumber = 0 Then
  387.             MyCombo3.Visible = False
  388.             If DataGrid1.Item(DataGrid1.CurrentCell) & "" = "" Then
  389.                 SendKeys.Send("*")
  390.             End If
  391.             DataGrid1.Item(DataGrid1.CurrentCell) = MyCombo3.Text
  392.         End If
  393.         If DataGrid1.CurrentCell.ColumnNumber = 1 Then
  394.             MyCombo.Visible = False
  395.             If DataGrid1.Item(DataGrid1.CurrentCell) & "" = "" Then
  396.                 SendKeys.Send("*")
  397.             End If
  398.             DataGrid1.Item(DataGrid1.CurrentCell) = MyCombo.Text
  399.         End If
  400.         If DataGrid1.CurrentCell.ColumnNumber = 2 Then
  401.             MyCombo1.Visible = False
  402.             If DataGrid1.Item(DataGrid1.CurrentCell) & "" = "" Then
  403.                 SendKeys.Send("*")
  404.             End If
  405.             DataGrid1.Item(DataGrid1.CurrentCell) = MyCombo1.Text
  406.         End If
  407.     End Sub
  408.     Private Sub DataGrid1_CurrentCellChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
  409.         
  410.     End Sub
  411.     Private Sub DataGrid1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs)
  412.       
  413.     End Sub
  414.     Private Sub DataGrid1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
  415.        
  416.     End Sub
  417.     Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
  418.        
  419.     End Sub
  420.     Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
  421.       
  422.     End Sub
  423.     Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
  425.     End Sub
  426.     Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
  427.         
  428.     End Sub
  429.     Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
  430.        
  431.     End Sub
  432.     Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
  433.         Dim strtablename As String
  434.         If ListBox1.Text = "药品信息表" Then
  435.             strtablename = "wz_cp"
  436.         ElseIf ListBox1.Text = "客户信息表" Then
  437.             strtablename = "wz_kh"
  438.         ElseIf ListBox1.Text = "销售表" Then
  439.             strtablename = "wz_ck"
  440.         ElseIf ListBox1.Text = "入库表" Then
  441.             strtablename = "wz_rk"
  442.         ElseIf ListBox1.Text = "库存表" Then
  443.             strtablename = "wz_kc"
  444.         ElseIf ListBox1.Text = "盘点表" Then
  445.             strtablename = "wz_pd"
  446.         End If
  447.         Select Case e.Button.Text
  448.             Case "查询"
  449.                 Dim dslocal As DataSet
  450.                 dslocal = lsweb.returndataset(TextBox1.Text.Trim, strtablename)
  451.                 DataGrid2.DataSource = dslocal.Tables(strtablename).DefaultView
  452.             Case "退出"
  453.                 Me.Close()
  454.             Case "打印"
  455.                 Dim sqlString As String
  457.                 Select Case ListBox1.Text
  458.                     Case "药品信息表"
  459.                         Try
  460.                             If TextBox1.Text = String.Empty Then
  461.                                 MessageBox.Show("没有要打印的记录!", "提示", MessageBoxButtons.OK)
  462.                             Else
  463.                                 Dim frmviewcper As New frmviewcp
  464.                                 frmviewcper.sqlString = TextBox1.Text.Trim
  465.                                 frmviewcper.Show()
  466.                             End If
  467.                         Catch ex As Exception
  468.                             MessageBox.Show(Me, "报表错误: " + ex.Message + "; " + ex.InnerException.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  469.                         End Try
  470.                     Case "客户信息表"
  471.                         Try
  472.                             If TextBox1.Text = String.Empty Then
  473.                                 MessageBox.Show("没有要打印的记录!", "提示", MessageBoxButtons.OK)
  474.                             Else
  475.                                 Dim frmviewkher As New frmviewkh
  476.                                 frmviewkher.sqlString = TextBox1.Text.Trim
  477.                                 frmviewkher.Show()
  478.                             End If
  479.                         Catch ex As Exception
  480.                             MessageBox.Show(Me, "报表错误: " + ex.Message + "; " + ex.InnerException.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  481.                         End Try
  482.                     Case "入库表"
  483.                         Try
  484.                             If TextBox1.Text = String.Empty Then
  485.                                 MessageBox.Show("没有要打印的记录!", "提示", MessageBoxButtons.OK)
  486.                             Else
  487.                                 Dim frmviewrkmanager As New frmviewrkmanage
  488.                                 frmviewrkmanager.sqlString = TextBox1.Text.Trim
  489.                                 frmviewrkmanager.Show()
  490.                             End If
  491.                         Catch ex As Exception
  492.                             MessageBox.Show(Me, "报表错误: " + ex.Message + "; " + ex.InnerException.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  493.                         End Try
  494.                     Case "销售表"
  495.                         Try
  496.                             If TextBox1.Text = String.Empty Then
  497.                                 MessageBox.Show("没有要打印的记录!", "提示", MessageBoxButtons.OK)
  498.                             Else
  499.                                 Dim frmviewckmanager As New frmviewckmanage
  500.                                 frmviewckmanager.sqlString = TextBox1.Text.Trim
  501.                                 frmviewckmanager.Show()
  502.                             End If
  503.                         Catch ex As Exception
  504.                             MessageBox.Show(Me, "报表错误: " + ex.Message + "; " + ex.InnerException.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  505.                         End Try
  506.                     Case "库存表"
  507.                         Try
  508.                             If TextBox1.Text = String.Empty Then
  509.                                 MessageBox.Show("没有要打印的记录!", "提示", MessageBoxButtons.OK)
  510.                             Else
  511.                                 Dim frmviewkcmanager As New frmviewkcmanage
  512.                                 frmviewkcmanager.sqlString = TextBox1.Text.Trim
  513.                                 frmviewkcmanager.Show()
  514.                             End If
  515.                         Catch ex As Exception
  516.                             MessageBox.Show(Me, "报表错误: " + ex.Message + "; " + ex.InnerException.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  517.                         End Try
  518.                     Case "盘点表"
  519.                         Try
  520.                             If TextBox1.Text = String.Empty Then
  521.                                 MessageBox.Show("没有要打印的记录!", "提示", MessageBoxButtons.OK)
  522.                             Else
  523.                                 Dim frmviewpder As New frmviewpd
  524.                                 frmviewpder.sqlString = TextBox1.Text.Trim
  525.                                 frmviewpder.Show()
  526.                             End If
  527.                         Catch ex As Exception
  528.                             MessageBox.Show(Me, "报表错误: " + ex.Message + "; " + ex.InnerException.Message, "Report Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
  529.                         End Try
  530.                 End Select
  531.         End Select
  532.     End Sub
  538.     Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  540.     End Sub
  542.     Private Sub DataGrid1_Navigate(ByVal sender As System.Object, ByVal ne As System.Windows.Forms.NavigateEventArgs) Handles DataGrid1.Navigate
  544.     End Sub
  546.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  547.         drrow = dtquery.NewRow()
  548.         drrow("条件") = ""
  549.         drrow("字段名称") = "请选择字段"
  550.         drrow("比较符") = "请选择比较符"
  551.         drrow("查询目标") = ""
  552.         dtquery.Rows.Add(drrow)
  553.         Button1.Enabled = False
  554.         tbrquery.Enabled = False
  555.     End Sub
  557.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  558.         Dim drv As DataRowView = BindingContext(Me.DataGrid1.DataSource).Current
  559.         If drv("字段名称") Is System.DBNull.Value Then
  560.             MessageBox.Show("没有要删除的记录!", "提示", MessageBoxButtons.OK)
  561.         Else
  562.             drv.Delete()
  563.         End If
  564.         Button1.Enabled = True
  565.     End Sub
  567.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  568.         dtquery.Rows.InsertAt(drrow, 6)
  569.     End Sub
  571.     Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  572.         Dim drver As DataRowView = BindingContext(Me.DataGrid1.DataSource).Current
  573.         Dim strtable As String
  574.         Dim strtablename As String
  575.         If ListBox1.Text = "药品信息表" Then
  576.             strtablename = "wz_cp"
  577.         ElseIf ListBox1.Text = "客户信息表" Then
  578.             strtablename = "wz_kh"
  579.         ElseIf ListBox1.Text = "销售表" Then
  580.             strtablename = "wz_ck"
  581.         ElseIf ListBox1.Text = "入库表" Then
  582.             strtablename = "wz_rk"
  583.         ElseIf ListBox1.Text = "库存表" Then
  584.             strtablename = "wz_kc"
  585.         ElseIf ListBox1.Text = "盘点表" Then
  586.             strtablename = "wz_pd"
  587.         End If
  588.         strtable = "select * from " & strtablename & " where "
  589.         If drver("字段名称") Is System.DBNull.Value Or drver("比较符") Is System.DBNull.Value Or drver("查询目标") Is System.DBNull.Value Then
  590.             MessageBox.Show("请设值查询条件!", "提示", MessageBoxButtons.OK)
  591.         Else
  592.             If drver("条件") = String.Empty Then
  593.                 Dim strfields As String
  594.                 strfields = drver("字段名称")
  595.                 If strfields.Substring(0, 1) = "_" Then
  596.                     Dim strcolumn As String
  597.                     strcolumn = drver("字段名称").Substring(1, drver("字段名称").Length - 1) & " " & drver("比较符") & " '" & drver("查询目标") & "' "
  598.                     TextBox1.Text = strtable + strcolumn & " "
  599.                 Else
  600.                     Dim strcolumn As String
  601.                     strcolumn = drver("字段名称") & " " & drver("比较符") & " " & drver("查询目标")
  602.                     TextBox1.Text = strtable + strcolumn & " "
  603.                 End If
  604.             End If
  605.             If drver("条件") <> String.Empty Then
  606.                 Dim strfields As String
  607.                 strfields = drver("字段名称")
  608.                 If strfields.Substring(0, 1) = "_" Then
  609.                     TextBox1.Text = TextBox1.Text & "" & drver("条件") & " " & drver("字段名称").Substring(1, drver("字段名称").Length - 1) & " " & drver("比较符") & " '" & drver("查询目标") & "' "
  610.                 Else
  611.                     TextBox1.Text = TextBox1.Text & "" & drver("条件") & " " & drver("字段名称") & " " & drver("比较符") & " " & drver("查询目标") & ""
  612.                 End If
  613.             End If
  614.         End If
  615.         Button1.Enabled = True
  616.         tbrquery.Enabled = True
  617.     End Sub
  619.     Private Sub ListBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
  620.         Dim strtablename As String
  621.         If ListBox1.Text = "药品信息表" Then
  622.             strtablename = "wz_cp"
  623.         ElseIf ListBox1.Text = "客户信息表" Then
  624.             strtablename = "wz_kh"
  625.         ElseIf ListBox1.Text = "销售表" Then
  626.             strtablename = "wz_ck"
  627.         ElseIf ListBox1.Text = "入库表" Then
  628.             strtablename = "wz_rk"
  629.         ElseIf ListBox1.Text = "库存表" Then
  630.             strtablename = "wz_kc"
  631.         ElseIf ListBox1.Text = "盘点表" Then
  632.             strtablename = "wz_pd"
  633.         End If
  634.         Dim dslocals As DataSet
  635.         dslocals = lsweb.returndataset("select * from " & strtablename, strtablename)
  636.         dslocals.Clear()
  637.         drv = dslocals.Tables(0).DefaultView
  638.         MyCombo.Name = "MyCombo"
  639.         MyCombo.Visible = False
  640.         MyCombo.Items.Clear()
  641.         Dim i As Int16
  642.         For i = 0 To drv.Table.Columns.Count - 1
  643.             If drv.Table.Columns.Item(i).DataType Is GetType(System.String) Then
  644.                 MyCombo.Items.Add("_" & drv.Table.Columns.Item(i).Caption)
  645.             Else
  646.                 MyCombo.Items.Add(drv.Table.Columns.Item(i).Caption)
  647.             End If
  648.         Next
  649.     End Sub
  651.     Private Sub DataGrid1_CurrentCellChanged1(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
  652.         If DataGrid1.CurrentCell.ColumnNumber = 0 Then
  653.             MyCombo3.Visible = False
  654.             MyCombo3.Width = 0
  655.             MyCombo3.Left = DataGrid1.GetCurrentCellBounds.Left
  656.             MyCombo3.Top = DataGrid1.GetCurrentCellBounds.Top
  657.             MyCombo3.Text = DataGrid1.Item(DataGrid1.CurrentCell) & ""
  658.             MyCombo3.Visible = True
  659.         Else
  660.             MyCombo3.Visible = False
  661.             MyCombo3.Width = 0
  662.         End If
  663.         If DataGrid1.CurrentCell.ColumnNumber = 1 Then
  664.             MyCombo.Visible = False
  665.             MyCombo.Width = 0
  666.             MyCombo.Left = DataGrid1.GetCurrentCellBounds.Left
  667.             MyCombo.Top = DataGrid1.GetCurrentCellBounds.Top
  668.             MyCombo.Text = DataGrid1.Item(DataGrid1.CurrentCell) & ""
  669.             MyCombo.Visible = True
  670.         Else
  671.             MyCombo.Visible = False
  672.             MyCombo.Width = 0
  673.         End If
  674.         If DataGrid1.CurrentCell.ColumnNumber = 2 Then
  675.             MyCombo1.Visible = False
  676.             MyCombo1.Width = 0
  677.             MyCombo1.Left = DataGrid1.GetCurrentCellBounds.Left
  678.             MyCombo1.Top = DataGrid1.GetCurrentCellBounds.Top
  679.             MyCombo1.Text = DataGrid1.Item(DataGrid1.CurrentCell) & ""
  680.             MyCombo1.Visible = True
  681.         Else
  682.             MyCombo1.Visible = False
  683.             MyCombo1.Width = 0
  684.         End If
  685.     End Sub
  687.     Private Sub DataGrid1_Scroll1(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Scroll
  688.         MyCombo.Visible = False
  689.         MyCombo.Width = 0
  690.         MyCombo1.Visible = False
  691.         MyCombo1.Width = 0
  692.         MyCombo3.Visible = False
  693.         MyCombo3.Width = 0
  694.     End Sub
  696.     Private Sub DataGrid1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Click
  697.         MyCombo.Visible = False
  698.         MyCombo.Width = 0
  699.         MyCombo1.Visible = False
  700.         MyCombo1.Width = 0
  701.         MyCombo3.Visible = False
  702.         MyCombo3.Width = 0
  703.     End Sub
  705.     Private Sub DataGrid1_Paint1(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles DataGrid1.Paint
  706.         If DataGrid1.CurrentCell.ColumnNumber = 0 Then
  707.             MyCombo3.Width = DataGrid1.GetCurrentCellBounds.Width
  708.         End If
  709.         If DataGrid1.CurrentCell.ColumnNumber = 1 Then
  710.             MyCombo.Width = DataGrid1.GetCurrentCellBounds.Width
  711.         End If
  712.         If DataGrid1.CurrentCell.ColumnNumber = 2 Then
  713.             MyCombo1.Width = DataGrid1.GetCurrentCellBounds.Width
  714.         End If
  715.     End Sub
  716. End Class