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

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

医药行业

开发平台：

Visual Basic

frmQxManage.vb：源码内容
  1. Imports System.Data.SqlClient
  2. Public Class frmQxManage
  3.     Inherits System.Windows.Forms.Form
  5. #Region " Windows 窗体设计器生成的代码 "
  7.     Public Sub New()
  8.         MyBase.New()
  10.         '该调用是 Windows 窗体设计器所必需的。
  11.         InitializeComponent()
  13.         '在 InitializeComponent() 调用之后添加任何初始化
  15.     End Sub
  17.     '窗体重写 dispose 以清理组件列表。
  18.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  19.         If disposing Then
  20.             If Not (components Is Nothing) Then
  21.                 components.Dispose()
  22.             End If
  23.         End If
  24.         MyBase.Dispose(disposing)
  25.     End Sub
  27.     'Windows 窗体设计器所必需的
  28.     Private components As System.ComponentModel.IContainer
  30.     '注意: 以下过程是 Windows 窗体设计器所必需的
  31.     '可以使用 Windows 窗体设计器修改此过程。
  32.     '不要使用代码编辑器修改它。
  33.     Friend WithEvents ToolBar1 As System.Windows.Forms.ToolBar
  34.     Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
  35.     Friend WithEvents Panel1 As System.Windows.Forms.Panel
  36.     Friend WithEvents Splitter2 As System.Windows.Forms.Splitter
  37.     Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
  38.     Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
  39.     Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
  40.     Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
  41.     Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox
  42.     Friend WithEvents CheckBox6 As System.Windows.Forms.CheckBox
  43.     Friend WithEvents CheckBox7 As System.Windows.Forms.CheckBox
  44.     Friend WithEvents CheckBox8 As System.Windows.Forms.CheckBox
  45.     Friend WithEvents CheckBox9 As System.Windows.Forms.CheckBox
  46.     Friend WithEvents Button1 As System.Windows.Forms.Button
  47.     Friend WithEvents Button2 As System.Windows.Forms.Button
  48.     Friend WithEvents Button3 As System.Windows.Forms.Button
  49.     Friend WithEvents ToolBarButton1 As System.Windows.Forms.ToolBarButton
  50.     Friend WithEvents ToolBarButton2 As System.Windows.Forms.ToolBarButton
  51.     Friend WithEvents TvCustomer As System.Windows.Forms.TreeView
  52.     Friend WithEvents dgmenu As System.Windows.Forms.DataGrid
  53.     Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
  54.     Friend WithEvents ImageList2 As System.Windows.Forms.ImageList
  55.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  56.         Me.components = New System.ComponentModel.Container
  57.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmQxManage))
  58.         Me.ToolBar1 = New System.Windows.Forms.ToolBar
  59.         Me.ToolBarButton1 = New System.Windows.Forms.ToolBarButton
  60.         Me.ToolBarButton2 = New System.Windows.Forms.ToolBarButton
  61.         Me.ImageList2 = New System.Windows.Forms.ImageList(Me.components)
  62.         Me.TvCustomer = New System.Windows.Forms.TreeView
  63.         Me.Splitter1 = New System.Windows.Forms.Splitter
  64.         Me.Panel1 = New System.Windows.Forms.Panel
  65.         Me.TextBox1 = New System.Windows.Forms.TextBox
  66.         Me.Button3 = New System.Windows.Forms.Button
  67.         Me.Button2 = New System.Windows.Forms.Button
  68.         Me.Button1 = New System.Windows.Forms.Button
  69.         Me.CheckBox9 = New System.Windows.Forms.CheckBox
  70.         Me.CheckBox8 = New System.Windows.Forms.CheckBox
  71.         Me.CheckBox7 = New System.Windows.Forms.CheckBox
  72.         Me.CheckBox6 = New System.Windows.Forms.CheckBox
  73.         Me.CheckBox5 = New System.Windows.Forms.CheckBox
  74.         Me.CheckBox4 = New System.Windows.Forms.CheckBox
  75.         Me.CheckBox3 = New System.Windows.Forms.CheckBox
  76.         Me.CheckBox2 = New System.Windows.Forms.CheckBox
  77.         Me.CheckBox1 = New System.Windows.Forms.CheckBox
  78.         Me.Splitter2 = New System.Windows.Forms.Splitter
  79.         Me.dgmenu = New System.Windows.Forms.DataGrid
  80.         Me.Panel1.SuspendLayout()
  81.         CType(Me.dgmenu, System.ComponentModel.ISupportInitialize).BeginInit()
  82.         Me.SuspendLayout()
  83.         '
  84.         'ToolBar1
  85.         '
  86.         Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  87.         Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2})
  88.         Me.ToolBar1.DropDownArrows = True
  89.         Me.ToolBar1.ImageList = Me.ImageList2
  90.         Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
  91.         Me.ToolBar1.Name = "ToolBar1"
  92.         Me.ToolBar1.ShowToolTips = True
  93.         Me.ToolBar1.Size = New System.Drawing.Size(609, 41)
  94.         Me.ToolBar1.TabIndex = 0
  95.         '
  96.         'ToolBarButton1
  97.         '
  98.         Me.ToolBarButton1.ImageIndex = 4
  99.         Me.ToolBarButton1.Text = "保存"
  100.         '
  101.         'ToolBarButton2
  102.         '
  103.         Me.ToolBarButton2.ImageIndex = 11
  104.         Me.ToolBarButton2.Text = "退出"
  105.         '
  106.         'ImageList2
  107.         '
  108.         Me.ImageList2.ImageSize = New System.Drawing.Size(16, 16)
  109.         Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
  110.         Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
  111.         '
  112.         'TvCustomer
  113.         '
  114.         Me.TvCustomer.Dock = System.Windows.Forms.DockStyle.Left
  115.         Me.TvCustomer.ImageIndex = -1
  116.         Me.TvCustomer.Location = New System.Drawing.Point(0, 41)
  117.         Me.TvCustomer.Name = "TvCustomer"
  118.         Me.TvCustomer.Nodes.AddRange(New System.Windows.Forms.TreeNode() {New System.Windows.Forms.TreeNode("员工列表")})
  119.         Me.TvCustomer.SelectedImageIndex = -1
  120.         Me.TvCustomer.Size = New System.Drawing.Size(91, 255)
  121.         Me.TvCustomer.TabIndex = 1
  122.         '
  123.         'Splitter1
  124.         '
  125.         Me.Splitter1.Location = New System.Drawing.Point(91, 41)
  126.         Me.Splitter1.MinExtra = 0
  127.         Me.Splitter1.MinSize = 0
  128.         Me.Splitter1.Name = "Splitter1"
  129.         Me.Splitter1.Size = New System.Drawing.Size(2, 255)
  130.         Me.Splitter1.TabIndex = 2
  131.         Me.Splitter1.TabStop = False
  132.         '
  133.         'Panel1
  134.         '
  135.         Me.Panel1.Controls.Add(Me.TextBox1)
  136.         Me.Panel1.Controls.Add(Me.Button3)
  137.         Me.Panel1.Controls.Add(Me.Button2)
  138.         Me.Panel1.Controls.Add(Me.Button1)
  139.         Me.Panel1.Controls.Add(Me.CheckBox9)
  140.         Me.Panel1.Controls.Add(Me.CheckBox8)
  141.         Me.Panel1.Controls.Add(Me.CheckBox7)
  142.         Me.Panel1.Controls.Add(Me.CheckBox6)
  143.         Me.Panel1.Controls.Add(Me.CheckBox5)
  144.         Me.Panel1.Controls.Add(Me.CheckBox4)
  145.         Me.Panel1.Controls.Add(Me.CheckBox3)
  146.         Me.Panel1.Controls.Add(Me.CheckBox2)
  147.         Me.Panel1.Controls.Add(Me.CheckBox1)
  148.         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
  149.         Me.Panel1.Location = New System.Drawing.Point(93, 41)
  150.         Me.Panel1.Name = "Panel1"
  151.         Me.Panel1.Size = New System.Drawing.Size(516, 87)
  152.         Me.Panel1.TabIndex = 3
  153.         '
  154.         'TextBox1
  155.         '
  156.         Me.TextBox1.Location = New System.Drawing.Point(90, 31)
  157.         Me.TextBox1.Name = "TextBox1"
  158.         Me.TextBox1.ReadOnly = True
  159.         Me.TextBox1.Size = New System.Drawing.Size(54, 21)
  160.         Me.TextBox1.TabIndex = 12
  161.         Me.TextBox1.Text = ""
  162.         Me.TextBox1.Visible = False
  163.         '
  164.         'Button3
  165.         '
  166.         Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  167.         Me.Button3.Location = New System.Drawing.Point(414, 50)
  168.         Me.Button3.Name = "Button3"
  169.         Me.Button3.Size = New System.Drawing.Size(60, 18)
  170.         Me.Button3.TabIndex = 11
  171.         Me.Button3.Text = "取消"
  172.         Me.Button3.TextAlign = System.Drawing.ContentAlignment.TopCenter
  173.         '
  174.         'Button2
  175.         '
  176.         Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  177.         Me.Button2.Location = New System.Drawing.Point(414, 12)
  178.         Me.Button2.Name = "Button2"
  179.         Me.Button2.Size = New System.Drawing.Size(60, 19)
  180.         Me.Button2.TabIndex = 10
  181.         Me.Button2.Text = "全选"
  182.         Me.Button2.TextAlign = System.Drawing.ContentAlignment.TopCenter
  183.         '
  184.         'Button1
  185.         '
  186.         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
  187.         Me.Button1.Location = New System.Drawing.Point(414, 31)
  188.         Me.Button1.Name = "Button1"
  189.         Me.Button1.Size = New System.Drawing.Size(60, 19)
  190.         Me.Button1.TabIndex = 9
  191.         Me.Button1.Text = "确定"
  192.         Me.Button1.TextAlign = System.Drawing.ContentAlignment.TopCenter
  193.         '
  194.         'CheckBox9
  195.         '
  196.         Me.CheckBox9.Location = New System.Drawing.Point(300, 56)
  197.         Me.CheckBox9.Name = "CheckBox9"
  198.         Me.CheckBox9.Size = New System.Drawing.Size(78, 19)
  199.         Me.CheckBox9.TabIndex = 8
  200.         Me.CheckBox9.Text = "系统管理 "
  201.         '
  202.         'CheckBox8
  203.         '
  204.         Me.CheckBox8.Location = New System.Drawing.Point(300, 31)
  205.         Me.CheckBox8.Name = "CheckBox8"
  206.         Me.CheckBox8.Size = New System.Drawing.Size(78, 19)
  207.         Me.CheckBox8.TabIndex = 7
  208.         Me.CheckBox8.Text = "系统设置"
  209.         '
  210.         'CheckBox7
  211.         '
  212.         Me.CheckBox7.Location = New System.Drawing.Point(300, 6)
  213.         Me.CheckBox7.Name = "CheckBox7"
  214.         Me.CheckBox7.Size = New System.Drawing.Size(96, 19)
  215.         Me.CheckBox7.TabIndex = 6
  216.         Me.CheckBox7.Text = "基本信息维护"
  217.         '
  218.         'CheckBox6
  219.         '
  220.         Me.CheckBox6.Location = New System.Drawing.Point(156, 56)
  221.         Me.CheckBox6.Name = "CheckBox6"
  222.         Me.CheckBox6.Size = New System.Drawing.Size(108, 19)
  223.         Me.CheckBox6.TabIndex = 5
  224.         Me.CheckBox6.Text = "门店零售管理"
  225.         '
  226.         'CheckBox5
  227.         '
  228.         Me.CheckBox5.Location = New System.Drawing.Point(156, 31)
  229.         Me.CheckBox5.Name = "CheckBox5"
  230.         Me.CheckBox5.Size = New System.Drawing.Size(108, 19)
  231.         Me.CheckBox5.TabIndex = 4
  232.         Me.CheckBox5.Text = "门店配送管理"
  233.         '
  234.         'CheckBox4
  235.         '
  236.         Me.CheckBox4.Location = New System.Drawing.Point(156, 6)
  237.         Me.CheckBox4.Name = "CheckBox4"
  238.         Me.CheckBox4.Size = New System.Drawing.Size(78, 19)
  239.         Me.CheckBox4.TabIndex = 3
  240.         Me.CheckBox4.Text = "综合统计"
  241.         '
  242.         'CheckBox3
  243.         '
  244.         Me.CheckBox3.Location = New System.Drawing.Point(12, 56)
  245.         Me.CheckBox3.Name = "CheckBox3"
  246.         Me.CheckBox3.Size = New System.Drawing.Size(78, 19)
  247.         Me.CheckBox3.TabIndex = 2
  248.         Me.CheckBox3.Text = "库存管理"
  249.         '
  250.         'CheckBox2
  251.         '
  252.         Me.CheckBox2.Location = New System.Drawing.Point(12, 31)
  253.         Me.CheckBox2.Name = "CheckBox2"
  254.         Me.CheckBox2.Size = New System.Drawing.Size(78, 19)
  255.         Me.CheckBox2.TabIndex = 1
  256.         Me.CheckBox2.Text = "销售管理"
  257.         '
  258.         'CheckBox1
  259.         '
  260.         Me.CheckBox1.Location = New System.Drawing.Point(12, 6)
  261.         Me.CheckBox1.Name = "CheckBox1"
  262.         Me.CheckBox1.Size = New System.Drawing.Size(78, 19)
  263.         Me.CheckBox1.TabIndex = 0
  264.         Me.CheckBox1.Text = "采购管理"
  265.         '
  266.         'Splitter2
  267.         '
  268.         Me.Splitter2.Dock = System.Windows.Forms.DockStyle.Top
  269.         Me.Splitter2.Location = New System.Drawing.Point(93, 128)
  270.         Me.Splitter2.MinExtra = 0
  271.         Me.Splitter2.MinSize = 0
  272.         Me.Splitter2.Name = "Splitter2"
  273.         Me.Splitter2.Size = New System.Drawing.Size(516, 3)
  274.         Me.Splitter2.TabIndex = 4
  275.         Me.Splitter2.TabStop = False
  276.         '
  277.         'dgmenu
  278.         '
  279.         Me.dgmenu.DataMember = ""
  280.         Me.dgmenu.Dock = System.Windows.Forms.DockStyle.Fill
  281.         Me.dgmenu.HeaderForeColor = System.Drawing.SystemColors.ControlText
  282.         Me.dgmenu.Location = New System.Drawing.Point(93, 131)
  283.         Me.dgmenu.Name = "dgmenu"
  284.         Me.dgmenu.Size = New System.Drawing.Size(516, 165)
  285.         Me.dgmenu.TabIndex = 5
  286.         '
  287.         'frmQxManage
  288.         '
  289.         Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
  290.         Me.ClientSize = New System.Drawing.Size(609, 296)
  291.         Me.Controls.Add(Me.dgmenu)
  292.         Me.Controls.Add(Me.Splitter2)
  293.         Me.Controls.Add(Me.Panel1)
  294.         Me.Controls.Add(Me.Splitter1)
  295.         Me.Controls.Add(Me.TvCustomer)
  296.         Me.Controls.Add(Me.ToolBar1)
  297.         Me.Name = "frmQxManage"
  298.         Me.Text = "frmQxManage"
  299.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  300.         Me.Panel1.ResumeLayout(False)
  301.         CType(Me.dgmenu, System.ComponentModel.ISupportInitialize).EndInit()
  302.         Me.ResumeLayout(False)
  304.     End Sub
  306. #End Region
  307.     Public lsweb As New jxcmanage
  308.     Public dslocals, dslocal As New DataSet
  309.     Public strquery As String
  311.     Private Sub frmQxManage_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  312.         dslocals = lsweb.returndataset("select 操作员 from wz_mm", "wz_mm")
  313.         
  314.         Dim drcurrent As DataRow
  315.         Dim tnCurrent As TreeNode
  316.         Dim i As Integer
  317.         For i = 0 To dslocals.Tables(0).Rows.Count - 1
  318.             drcurrent = dslocals.Tables(0).Rows(i)
  319.             tnCurrent = TvCustomer.Nodes(0).Nodes.Add(drcurrent("操作员"))
  320.             tnCurrent.Tag = drcurrent("操作员")
  321.         Next
  322.     End Sub
  324.     Private Sub TvCustomer_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TvCustomer.AfterSelect
  325.         
  326.         TextBox1.Text = e.Node.Tag
  327.     End Sub
  329.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  330.         Dim updatesql, updatesqls As String
  331.         strquery = "select * from wz_Qxmenu where (Ctype not like '%'"
  332.         updatesql = "update wz_Qxmenu set Dbit=1 where Ctype not like '%'"
  333.         updatesqls = "update wz_Qxmenu set Dbit=0 where Ctype not like '%'"
  334.         If CheckBox1.Checked = True Then
  335.             strquery = strquery & " or Ctype like '1%'"
  336.             updatesql = updatesql & " or Cctype = '1'"
  337.         Else
  339.             updatesqls = updatesqls & " or Cctype = '1'"
  340.         End If
  343.         If CheckBox2.Checked = True Then
  344.             strquery = strquery & " or Ctype like '2%'"
  345.             updatesql = updatesql & " or Cctype = '2'"
  346.         Else
  348.             updatesqls = updatesqls & " or Cctype = '2'"
  349.         End If
  351.         If CheckBox3.Checked = True Then
  352.             strquery = strquery & " or Ctype like '3%'"
  353.             updatesql = updatesql & " or Cctype = '3'"
  354.         Else
  356.             updatesqls = updatesqls & " or Cctype = '3'"
  357.         End If
  359.         If CheckBox4.Checked = True Then
  360.             strquery = strquery & " or Ctype like '4%'"
  361.             updatesql = updatesql & " or Cctype = '4'"
  362.         Else
  364.             updatesqls = updatesqls & " or Cctype = '4'"
  365.         End If
  367.         If CheckBox5.Checked = True Then
  368.             strquery = strquery & " or Ctype like '5%'"
  369.             updatesql = updatesql & " or Cctype = '5'"
  370.         Else
  372.             updatesqls = updatesqls & " or Cctype = '5'"
  373.         End If
  375.         If CheckBox6.Checked = True Then
  376.             strquery = strquery & " or Ctype like '6%'"
  377.             updatesql = updatesql & " or Cctype = '6'"
  378.         Else
  380.             updatesqls = updatesqls & " or Cctype = '6'"
  381.         End If
  383.         If CheckBox7.Checked = True Then
  384.             strquery = strquery & " or Ctype like '7%'"
  385.             updatesql = updatesql & " or Cctype = '7'"
  386.         Else
  388.             updatesqls = updatesqls & " or Cctype = '7'"
  389.         End If
  391.         If CheckBox8.Checked = True Then
  392.             strquery = strquery & " or Ctype like '8%'"
  393.             updatesql = updatesql & " or Cctype = '8'"
  394.         Else
  396.             updatesqls = updatesqls & " or Cctype = '8'"
  397.         End If
  399.         If CheckBox9.Checked = True Then
  400.             strquery = strquery & " or Ctype like '9%'"
  401.             updatesql = updatesql & " or Cctype = '9'"
  402.         Else
  404.             updatesqls = updatesqls & " or Cctype = '9'"
  405.         End If
  407.         strquery = strquery & ") and username='" & TextBox1.Text.Trim & "'"
  408.         updatesql = updatesql & " and username='" & TextBox1.Text.Trim & "'"
  409.         updatesqls = updatesqls & " and username='" & TextBox1.Text.Trim & "'"
  410.         lsweb.kcql(updatesql)
  411.         lsweb.kcql(updatesqls)
  412.         dslocals = lsweb.returndataset(strquery, "wz_Qxmenu")
  413.         dgmenu.DataSource = dslocals.Tables(0).DefaultView
  415.     End Sub
  417.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  418.         CheckBox1.Checked = True
  419.         CheckBox2.Checked = True
  420.         CheckBox3.Checked = True
  421.         CheckBox4.Checked = True
  422.         CheckBox5.Checked = True
  423.         CheckBox6.Checked = True
  424.         CheckBox7.Checked = True
  425.         CheckBox8.Checked = True
  426.         CheckBox9.Checked = True
  428.        
  429.     End Sub
  431.     Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  432.         dslocals.Clear()
  433.         CheckBox1.Checked = False
  434.         CheckBox2.Checked = False
  435.         CheckBox3.Checked = False
  436.         CheckBox4.Checked = False
  437.         CheckBox5.Checked = False
  438.         CheckBox6.Checked = False
  439.         CheckBox7.Checked = False
  440.         CheckBox8.Checked = False
  441.         CheckBox9.Checked = False
  442.         TextBox1.Text = "".Trim
  444.     End Sub
  446.     Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
  447.         Select Case e.Button.Text
  448.             Case "保存"
  449.                 If lsweb.updatedataset(strquery, "wz_Qxmenu", dslocals, DataRowState.Modified) = True Then
  450.                     MessageBox.Show("权限配置成功保存！", "提示", MessageBoxButtons.OK)
  451.                 Else
  452.                     MessageBox.Show("权限配置保存失败！", "提示", MessageBoxButtons.AbortRetryIgnore)
  453.                 End If
  454.             Case "退出"
  455.                 Me.Close()
  457.         End Select
  458.     End Sub
  459. End Class