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

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

医药行业

开发平台：

Visual Basic

frmMain.vb：源码内容
  1. Imports localJxc.jxcmanage
  2. Imports System.Data.SqlClient
  3. Imports System.Configuration
  4. Public Class frmMain
  5.     Inherits System.Windows.Forms.Form
  8. #Region " Windows 窗体设计器生成的代码 "
  10.     Public Sub New()
  11.         MyBase.New()
  13.         '该调用是 Windows 窗体设计器所必需的。
  14.         InitializeComponent()
  16.         '在 InitializeComponent() 调用之后添加任何初始化
  18.     End Sub
  20.     '窗体重写 dispose 以清理组件列表。
  21.     Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
  22.         If disposing Then
  23.             If Not (components Is Nothing) Then
  24.                 components.Dispose()
  25.             End If
  26.         End If
  27.         MyBase.Dispose(disposing)
  28.     End Sub
  30.     'Windows 窗体设计器所必需的
  31.     Private components As System.ComponentModel.IContainer
  33.     '注意: 以下过程是 Windows 窗体设计器所必需的
  34.     '可以使用 Windows 窗体设计器修改此过程。
  35.     '不要使用代码编辑器修改它。
  36.     Friend WithEvents StatusBar1 As System.Windows.Forms.StatusBar
  37.     Friend WithEvents MainMenu As System.Windows.Forms.MainMenu
  38.     Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem
  39.     Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem
  40.     Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem
  41.     Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem
  42.     Friend WithEvents MenuItem5 As System.Windows.Forms.MenuItem
  43.     Friend WithEvents MenuItem6 As System.Windows.Forms.MenuItem
  44.     Friend WithEvents MenuItem7 As System.Windows.Forms.MenuItem
  45.     Friend WithEvents MenuItem8 As System.Windows.Forms.MenuItem
  46.     Friend WithEvents MenuItem9 As System.Windows.Forms.MenuItem
  47.     Friend WithEvents MenuItem10 As System.Windows.Forms.MenuItem
  48.     Friend WithEvents MenuItem11 As System.Windows.Forms.MenuItem
  49.     Friend WithEvents MenuItem12 As System.Windows.Forms.MenuItem
  50.     Friend WithEvents MenuItem13 As System.Windows.Forms.MenuItem
  51.     Friend WithEvents MenuItem14 As System.Windows.Forms.MenuItem
  52.     Friend WithEvents MenuItem15 As System.Windows.Forms.MenuItem
  53.     Friend WithEvents MenuItem16 As System.Windows.Forms.MenuItem
  54.     Friend WithEvents MenuItem17 As System.Windows.Forms.MenuItem
  55.     Friend WithEvents MenuItem18 As System.Windows.Forms.MenuItem
  56.     Friend WithEvents MenuItem19 As System.Windows.Forms.MenuItem
  57.     Friend WithEvents tbrManager As System.Windows.Forms.ToolBar
  58.     Friend WithEvents tbrck As System.Windows.Forms.ToolBarButton
  59.     Friend WithEvents rbrrk As System.Windows.Forms.ToolBarButton
  60.     Friend WithEvents tbrkc As System.Windows.Forms.ToolBarButton
  61.     Friend WithEvents tbrQuery As System.Windows.Forms.ToolBarButton
  62.     Friend WithEvents tbrcp As System.Windows.Forms.ToolBarButton
  63.     Friend WithEvents tbrkh As System.Windows.Forms.ToolBarButton
  64.     Friend WithEvents ImageList1 As System.Windows.Forms.ImageList
  65.     Friend WithEvents StatusBarPanel1 As System.Windows.Forms.StatusBarPanel
  66.     Friend WithEvents StatusBarPanel2 As System.Windows.Forms.StatusBarPanel
  67.     Friend WithEvents StatusBarPanel3 As System.Windows.Forms.StatusBarPanel
  68.     Friend WithEvents tbrsprtor As System.Windows.Forms.ToolBarButton
  69.     Friend WithEvents tbrconn As System.Windows.Forms.ToolBarButton
  70.     Friend WithEvents tbrData As System.Windows.Forms.ToolBarButton
  71.     Friend WithEvents tbrSprtors As System.Windows.Forms.ToolBarButton
  72.     Friend WithEvents StatusBarPanel4 As System.Windows.Forms.StatusBarPanel
  73.     Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
  74.     Friend WithEvents Timer1 As System.Windows.Forms.Timer
  75.     Friend WithEvents tbrSystem As System.Windows.Forms.ToolBarButton
  76.     Friend WithEvents tbrExit As System.Windows.Forms.ToolBarButton
  77.     Friend WithEvents MenuItem20 As System.Windows.Forms.MenuItem
  78.     Friend WithEvents MenuItem21 As System.Windows.Forms.MenuItem
  79.     Friend WithEvents MenuItem22 As System.Windows.Forms.MenuItem
  80.     Friend WithEvents MenuItem23 As System.Windows.Forms.MenuItem
  81.     Friend WithEvents StatusBarPanel5 As System.Windows.Forms.StatusBarPanel
  82.     Friend WithEvents MenuItem24 As System.Windows.Forms.MenuItem
  83.     Friend WithEvents MenuItem25 As System.Windows.Forms.MenuItem
  84.     Friend WithEvents MenuItem26 As System.Windows.Forms.MenuItem
  85.     Friend WithEvents MenuItem27 As System.Windows.Forms.MenuItem
  86.     Friend WithEvents MenuItem28 As System.Windows.Forms.MenuItem
  87.     Friend WithEvents MenuItem29 As System.Windows.Forms.MenuItem
  88.     Friend WithEvents MenuItem30 As System.Windows.Forms.MenuItem
  89.     Friend WithEvents MenuItem31 As System.Windows.Forms.MenuItem
  90.     Friend WithEvents MenuItem32 As System.Windows.Forms.MenuItem
  91.     Friend WithEvents MenuItem33 As System.Windows.Forms.MenuItem
  92.     Friend WithEvents MenuItem34 As System.Windows.Forms.MenuItem
  93.     Friend WithEvents MenuItem35 As System.Windows.Forms.MenuItem
  94.     Friend WithEvents MenuItem36 As System.Windows.Forms.MenuItem
  95.     Friend WithEvents MenuItem37 As System.Windows.Forms.MenuItem
  96.     Friend WithEvents MenuItem38 As System.Windows.Forms.MenuItem
  97.     Friend WithEvents MenuItem39 As System.Windows.Forms.MenuItem
  98.     Friend WithEvents MenuItem40 As System.Windows.Forms.MenuItem
  99.     Friend WithEvents MenuItem41 As System.Windows.Forms.MenuItem
  100.     Friend WithEvents MenuItem42 As System.Windows.Forms.MenuItem
  101.     Friend WithEvents MenuItem43 As System.Windows.Forms.MenuItem
  102.     Friend WithEvents MenuItem44 As System.Windows.Forms.MenuItem
  103.     Friend WithEvents MenuItem45 As System.Windows.Forms.MenuItem
  104.     Friend WithEvents MenuItem46 As System.Windows.Forms.MenuItem
  105.     Friend WithEvents MenuItem47 As System.Windows.Forms.MenuItem
  106.     Friend WithEvents MenuItem48 As System.Windows.Forms.MenuItem
  107.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  108.         Me.components = New System.ComponentModel.Container
  109.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmMain))
  110.         Me.StatusBar1 = New System.Windows.Forms.StatusBar
  111.         Me.StatusBarPanel1 = New System.Windows.Forms.StatusBarPanel
  112.         Me.StatusBarPanel2 = New System.Windows.Forms.StatusBarPanel
  113.         Me.StatusBarPanel3 = New System.Windows.Forms.StatusBarPanel
  114.         Me.StatusBarPanel4 = New System.Windows.Forms.StatusBarPanel
  115.         Me.StatusBarPanel5 = New System.Windows.Forms.StatusBarPanel
  116.         Me.MainMenu = New System.Windows.Forms.MainMenu
  117.         Me.MenuItem1 = New System.Windows.Forms.MenuItem
  118.         Me.MenuItem2 = New System.Windows.Forms.MenuItem
  119.         Me.MenuItem3 = New System.Windows.Forms.MenuItem
  120.         Me.MenuItem4 = New System.Windows.Forms.MenuItem
  121.         Me.MenuItem6 = New System.Windows.Forms.MenuItem
  122.         Me.MenuItem7 = New System.Windows.Forms.MenuItem
  123.         Me.MenuItem5 = New System.Windows.Forms.MenuItem
  124.         Me.MenuItem8 = New System.Windows.Forms.MenuItem
  125.         Me.MenuItem9 = New System.Windows.Forms.MenuItem
  126.         Me.MenuItem10 = New System.Windows.Forms.MenuItem
  127.         Me.MenuItem11 = New System.Windows.Forms.MenuItem
  128.         Me.MenuItem12 = New System.Windows.Forms.MenuItem
  129.         Me.MenuItem13 = New System.Windows.Forms.MenuItem
  130.         Me.MenuItem14 = New System.Windows.Forms.MenuItem
  131.         Me.MenuItem24 = New System.Windows.Forms.MenuItem
  132.         Me.MenuItem20 = New System.Windows.Forms.MenuItem
  133.         Me.MenuItem21 = New System.Windows.Forms.MenuItem
  134.         Me.MenuItem22 = New System.Windows.Forms.MenuItem
  135.         Me.MenuItem15 = New System.Windows.Forms.MenuItem
  136.         Me.MenuItem16 = New System.Windows.Forms.MenuItem
  137.         Me.MenuItem23 = New System.Windows.Forms.MenuItem
  138.         Me.MenuItem17 = New System.Windows.Forms.MenuItem
  139.         Me.MenuItem18 = New System.Windows.Forms.MenuItem
  140.         Me.MenuItem28 = New System.Windows.Forms.MenuItem
  141.         Me.MenuItem29 = New System.Windows.Forms.MenuItem
  142.         Me.MenuItem30 = New System.Windows.Forms.MenuItem
  143.         Me.MenuItem31 = New System.Windows.Forms.MenuItem
  144.         Me.MenuItem32 = New System.Windows.Forms.MenuItem
  145.         Me.MenuItem33 = New System.Windows.Forms.MenuItem
  146.         Me.MenuItem34 = New System.Windows.Forms.MenuItem
  147.         Me.MenuItem35 = New System.Windows.Forms.MenuItem
  148.         Me.MenuItem19 = New System.Windows.Forms.MenuItem
  149.         Me.MenuItem36 = New System.Windows.Forms.MenuItem
  150.         Me.MenuItem37 = New System.Windows.Forms.MenuItem
  151.         Me.MenuItem38 = New System.Windows.Forms.MenuItem
  152.         Me.MenuItem39 = New System.Windows.Forms.MenuItem
  153.         Me.MenuItem40 = New System.Windows.Forms.MenuItem
  154.         Me.MenuItem41 = New System.Windows.Forms.MenuItem
  155.         Me.MenuItem42 = New System.Windows.Forms.MenuItem
  156.         Me.MenuItem43 = New System.Windows.Forms.MenuItem
  157.         Me.MenuItem44 = New System.Windows.Forms.MenuItem
  158.         Me.MenuItem45 = New System.Windows.Forms.MenuItem
  159.         Me.MenuItem46 = New System.Windows.Forms.MenuItem
  160.         Me.MenuItem47 = New System.Windows.Forms.MenuItem
  161.         Me.MenuItem48 = New System.Windows.Forms.MenuItem
  162.         Me.MenuItem25 = New System.Windows.Forms.MenuItem
  163.         Me.MenuItem26 = New System.Windows.Forms.MenuItem
  164.         Me.MenuItem27 = New System.Windows.Forms.MenuItem
  165.         Me.tbrManager = New System.Windows.Forms.ToolBar
  166.         Me.tbrck = New System.Windows.Forms.ToolBarButton
  167.         Me.rbrrk = New System.Windows.Forms.ToolBarButton
  168.         Me.tbrkc = New System.Windows.Forms.ToolBarButton
  169.         Me.tbrQuery = New System.Windows.Forms.ToolBarButton
  170.         Me.tbrcp = New System.Windows.Forms.ToolBarButton
  171.         Me.tbrkh = New System.Windows.Forms.ToolBarButton
  172.         Me.tbrsprtor = New System.Windows.Forms.ToolBarButton
  173.         Me.tbrconn = New System.Windows.Forms.ToolBarButton
  174.         Me.tbrData = New System.Windows.Forms.ToolBarButton
  175.         Me.tbrSprtors = New System.Windows.Forms.ToolBarButton
  176.         Me.tbrSystem = New System.Windows.Forms.ToolBarButton
  177.         Me.tbrExit = New System.Windows.Forms.ToolBarButton
  178.         Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
  179.         Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
  180.         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
  181.         CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).BeginInit()
  182.         CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).BeginInit()
  183.         CType(Me.StatusBarPanel3, System.ComponentModel.ISupportInitialize).BeginInit()
  184.         CType(Me.StatusBarPanel4, System.ComponentModel.ISupportInitialize).BeginInit()
  185.         CType(Me.StatusBarPanel5, System.ComponentModel.ISupportInitialize).BeginInit()
  186.         Me.SuspendLayout()
  187.         '
  188.         'StatusBar1
  189.         '
  190.         Me.StatusBar1.Location = New System.Drawing.Point(0, 606)
  191.         Me.StatusBar1.Name = "StatusBar1"
  192.         Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1, Me.StatusBarPanel2, Me.StatusBarPanel3, Me.StatusBarPanel4, Me.StatusBarPanel5})
  193.         Me.StatusBar1.ShowPanels = True
  194.         Me.StatusBar1.Size = New System.Drawing.Size(1028, 21)
  195.         Me.StatusBar1.TabIndex = 0
  196.         '
  197.         'StatusBarPanel1
  198.         '
  199.         Me.StatusBarPanel1.Text = "欢迎您使用本软件！"
  200.         Me.StatusBarPanel1.Width = 200
  201.         '
  202.         'StatusBarPanel2
  203.         '
  204.         Me.StatusBarPanel2.Width = 120
  205.         '
  206.         'StatusBarPanel3
  207.         '
  208.         Me.StatusBarPanel3.Width = 120
  209.         '
  210.         'StatusBarPanel4
  211.         '
  212.         Me.StatusBarPanel4.Text = "QQ:103851272"
  213.         '
  214.         'StatusBarPanel5
  215.         '
  216.         Me.StatusBarPanel5.Width = 300
  217.         '
  218.         'MainMenu
  219.         '
  220.         Me.MainMenu.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem4, Me.MenuItem5, Me.MenuItem10, Me.MenuItem13, Me.MenuItem20, Me.MenuItem15, Me.MenuItem17, Me.MenuItem19, Me.MenuItem25, Me.MenuItem27})
  221.         '
  222.         'MenuItem1
  223.         '
  224.         Me.MenuItem1.Index = 0
  225.         Me.MenuItem1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem2, Me.MenuItem3})
  226.         Me.MenuItem1.Text = "基本信息"
  227.         '
  228.         'MenuItem2
  229.         '
  230.         Me.MenuItem2.Index = 0
  231.         Me.MenuItem2.Shortcut = System.Windows.Forms.Shortcut.F1
  232.         Me.MenuItem2.Text = "药品信息"
  233.         '
  234.         'MenuItem3
  235.         '
  236.         Me.MenuItem3.Index = 1
  237.         Me.MenuItem3.Shortcut = System.Windows.Forms.Shortcut.F2
  238.         Me.MenuItem3.Text = "客户信息"
  239.         '
  240.         'MenuItem4
  241.         '
  242.         Me.MenuItem4.Index = 1
  243.         Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem6, Me.MenuItem7})
  244.         Me.MenuItem4.Text = "采购管理"
  245.         '
  246.         'MenuItem6
  247.         '
  248.         Me.MenuItem6.Index = 0
  249.         Me.MenuItem6.Shortcut = System.Windows.Forms.Shortcut.F3
  250.         Me.MenuItem6.Text = "采购登记"
  251.         '
  252.         'MenuItem7
  253.         '
  254.         Me.MenuItem7.Index = 1
  255.         Me.MenuItem7.Shortcut = System.Windows.Forms.Shortcut.F4
  256.         Me.MenuItem7.Text = "采购查询"
  257.         '
  258.         'MenuItem5
  259.         '
  260.         Me.MenuItem5.Index = 2
  261.         Me.MenuItem5.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem8, Me.MenuItem9})
  262.         Me.MenuItem5.Text = "销售管理"
  263.         '
  264.         'MenuItem8
  265.         '
  266.         Me.MenuItem8.Index = 0
  267.         Me.MenuItem8.Shortcut = System.Windows.Forms.Shortcut.F5
  268.         Me.MenuItem8.Text = "销售登记"
  269.         '
  270.         'MenuItem9
  271.         '
  272.         Me.MenuItem9.Index = 1
  273.         Me.MenuItem9.Shortcut = System.Windows.Forms.Shortcut.F6
  274.         Me.MenuItem9.Text = "销售查询"
  275.         '
  276.         'MenuItem10
  277.         '
  278.         Me.MenuItem10.Index = 3
  279.         Me.MenuItem10.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem11, Me.MenuItem12})
  280.         Me.MenuItem10.Shortcut = System.Windows.Forms.Shortcut.F7
  281.         Me.MenuItem10.Text = "库存管理"
  282.         '
  283.         'MenuItem11
  284.         '
  285.         Me.MenuItem11.Index = 0
  286.         Me.MenuItem11.Shortcut = System.Windows.Forms.Shortcut.F7
  287.         Me.MenuItem11.Text = "库存盘点"
  288.         '
  289.         'MenuItem12
  290.         '
  291.         Me.MenuItem12.Index = 1
  292.         Me.MenuItem12.Shortcut = System.Windows.Forms.Shortcut.F8
  293.         Me.MenuItem12.Text = "库存查询打印"
  294.         '
  295.         'MenuItem13
  296.         '
  297.         Me.MenuItem13.Index = 4
  298.         Me.MenuItem13.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem14, Me.MenuItem24})
  299.         Me.MenuItem13.Text = "综合统计管理"
  300.         '
  301.         'MenuItem14
  302.         '
  303.         Me.MenuItem14.Index = 0
  304.         Me.MenuItem14.Shortcut = System.Windows.Forms.Shortcut.F9
  305.         Me.MenuItem14.Text = "票据重打"
  306.         '
  307.         'MenuItem24
  308.         '
  309.         Me.MenuItem24.Index = 1
  310.         Me.MenuItem24.Text = "通用查询"
  311.         '
  312.         'MenuItem20
  313.         '
  314.         Me.MenuItem20.Index = 5
  315.         Me.MenuItem20.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem21, Me.MenuItem22})
  316.         Me.MenuItem20.Text = "系统管理"
  317.         '
  318.         'MenuItem21
  319.         '
  320.         Me.MenuItem21.Index = 0
  321.         Me.MenuItem21.Text = "采购维护"
  322.         '
  323.         'MenuItem22
  324.         '
  325.         Me.MenuItem22.Index = 1
  326.         Me.MenuItem22.Text = "销售维护"
  327.         '
  328.         'MenuItem15
  329.         '
  330.         Me.MenuItem15.Index = 6
  331.         Me.MenuItem15.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem16, Me.MenuItem23})
  332.         Me.MenuItem15.Text = "系统设置"
  333.         '
  334.         'MenuItem16
  335.         '
  336.         Me.MenuItem16.Index = 0
  337.         Me.MenuItem16.Shortcut = System.Windows.Forms.Shortcut.F10
  338.         Me.MenuItem16.Text = "用户登记"
  339.         '
  340.         'MenuItem23
  341.         '
  342.         Me.MenuItem23.Index = 1
  343.         Me.MenuItem23.Text = "权限设置"
  344.         '
  345.         'MenuItem17
  346.         '
  347.         Me.MenuItem17.Index = 7
  348.         Me.MenuItem17.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem18, Me.MenuItem28, Me.MenuItem29, Me.MenuItem30, Me.MenuItem31, Me.MenuItem32, Me.MenuItem33, Me.MenuItem34, Me.MenuItem35})
  349.         Me.MenuItem17.Text = "门店配送管理"
  350.         '
  351.         'MenuItem18
  352.         '
  353.         Me.MenuItem18.Index = 0
  354.         Me.MenuItem18.Text = "配送中心管理"
  355.         '
  356.         'MenuItem28
  357.         '
  358.         Me.MenuItem28.Index = 1
  359.         Me.MenuItem28.Text = "配送对象管理"
  360.         '
  361.         'MenuItem29
  362.         '
  363.         Me.MenuItem29.Index = 2
  364.         Me.MenuItem29.Text = "新店铺货管理"
  365.         '
  366.         'MenuItem30
  367.         '
  368.         Me.MenuItem30.Index = 3
  369.         Me.MenuItem30.Text = "批复补货申请"
  370.         '
  371.         'MenuItem31
  372.         '
  373.         Me.MenuItem31.Index = 4
  374.         Me.MenuItem31.Text = "门店配送管理"
  375.         '
  376.         'MenuItem32
  377.         '
  378.         Me.MenuItem32.Index = 5
  379.         Me.MenuItem32.Text = "门店退货管理"
  380.         '
  381.         'MenuItem33
  382.         '
  383.         Me.MenuItem33.Index = 6
  384.         Me.MenuItem33.Text = "-"
  385.         '
  386.         'MenuItem34
  387.         '
  388.         Me.MenuItem34.Index = 7
  389.         Me.MenuItem34.Text = "中心配送结算"
  390.         '
  391.         'MenuItem35
  392.         '
  393.         Me.MenuItem35.Index = 8
  394.         Me.MenuItem35.Text = "中心查询统计"
  395.         '
  396.         'MenuItem19
  397.         '
  398.         Me.MenuItem19.Index = 8
  399.         Me.MenuItem19.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem36, Me.MenuItem37, Me.MenuItem38, Me.MenuItem39, Me.MenuItem40, Me.MenuItem41, Me.MenuItem42, Me.MenuItem43, Me.MenuItem44, Me.MenuItem45, Me.MenuItem46, Me.MenuItem47, Me.MenuItem48})
  400.         Me.MenuItem19.Text = "门店零售管理"
  401.         '
  402.         'MenuItem36
  403.         '
  404.         Me.MenuItem36.Index = 0
  405.         Me.MenuItem36.Text = "门店基本资料"
  406.         '
  407.         'MenuItem37
  408.         '
  409.         Me.MenuItem37.Index = 1
  410.         Me.MenuItem37.Text = "门店补货申请"
  411.         '
  412.         'MenuItem38
  413.         '
  414.         Me.MenuItem38.Index = 2
  415.         Me.MenuItem38.Text = "门店收货管理"
  416.         '
  417.         'MenuItem39
  418.         '
  419.         Me.MenuItem39.Index = 3
  420.         Me.MenuItem39.Text = "门店退货管理"
  421.         '
  422.         'MenuItem40
  423.         '
  424.         Me.MenuItem40.Index = 4
  425.         Me.MenuItem40.Text = "-"
  426.         '
  427.         'MenuItem41
  428.         '
  429.         Me.MenuItem41.Index = 5
  430.         Me.MenuItem41.Text = "门店零售收银"
  431.         '
  432.         'MenuItem42
  433.         '
  434.         Me.MenuItem42.Index = 6
  435.         Me.MenuItem42.Text = "门店零售查询"
  436.         '
  437.         'MenuItem43
  438.         '
  439.         Me.MenuItem43.Index = 7
  440.         Me.MenuItem43.Text = "-"
  441.         '
  442.         'MenuItem44
  443.         '
  444.         Me.MenuItem44.Index = 8
  445.         Me.MenuItem44.Text = "门店结算管理"
  446.         '
  447.         'MenuItem45
  448.         '
  449.         Me.MenuItem45.Index = 9
  450.         Me.MenuItem45.Text = "门店促销管理"
  451.         '
  452.         'MenuItem46
  453.         '
  454.         Me.MenuItem46.Index = 10
  455.         Me.MenuItem46.Text = "-"
  456.         '
  457.         'MenuItem47
  458.         '
  459.         Me.MenuItem47.Index = 11
  460.         Me.MenuItem47.Text = "处方库管理"
  461.         '
  462.         'MenuItem48
  463.         '
  464.         Me.MenuItem48.Index = 12
  465.         Me.MenuItem48.Text = "处方库查询"
  466.         '
  467.         'MenuItem25
  468.         '
  469.         Me.MenuItem25.Index = 9
  470.         Me.MenuItem25.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem26})
  471.         Me.MenuItem25.Text = "帮助"
  472.         '
  473.         'MenuItem26
  474.         '
  475.         Me.MenuItem26.Index = 0
  476.         Me.MenuItem26.Text = "关于"
  477.         '
  478.         'MenuItem27
  479.         '
  480.         Me.MenuItem27.Index = 10
  481.         Me.MenuItem27.Text = "退出"
  482.         '
  483.         'tbrManager
  484.         '
  485.         Me.tbrManager.AccessibleRole = System.Windows.Forms.AccessibleRole.Grip
  486.         Me.tbrManager.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
  487.         Me.tbrManager.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tbrck, Me.rbrrk, Me.tbrkc, Me.tbrQuery, Me.tbrcp, Me.tbrkh, Me.tbrsprtor, Me.tbrconn, Me.tbrData, Me.tbrSprtors, Me.tbrSystem, Me.tbrExit})
  488.         Me.tbrManager.DropDownArrows = True
  489.         Me.tbrManager.ImageList = Me.ImageList1
  490.         Me.tbrManager.Location = New System.Drawing.Point(0, 0)
  491.         Me.tbrManager.Name = "tbrManager"
  492.         Me.tbrManager.ShowToolTips = True
  493.         Me.tbrManager.Size = New System.Drawing.Size(1028, 44)
  494.         Me.tbrManager.TabIndex = 1
  495.         '
  496.         'tbrck
  497.         '
  498.         Me.tbrck.ImageIndex = 19
  499.         Me.tbrck.Text = "销售开单"
  500.         '
  501.         'rbrrk
  502.         '
  503.         Me.rbrrk.ImageIndex = 13
  504.         Me.rbrrk.Text = "入库管理"
  505.         '
  506.         'tbrkc
  507.         '
  508.         Me.tbrkc.ImageIndex = 16
  509.         Me.tbrkc.Text = "库存管理"
  510.         '
  511.         'tbrQuery
  512.         '
  513.         Me.tbrQuery.ImageIndex = 20
  514.         Me.tbrQuery.Text = "报表管理"
  515.         '
  516.         'tbrcp
  517.         '
  518.         Me.tbrcp.ImageIndex = 26
  519.         Me.tbrcp.Text = "药品信息"
  520.         '
  521.         'tbrkh
  522.         '
  523.         Me.tbrkh.ImageIndex = 24
  524.         Me.tbrkh.Text = "客户管理"
  525.         '
  526.         'tbrsprtor
  527.         '
  528.         Me.tbrsprtor.ImageIndex = 15
  529.         Me.tbrsprtor.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  530.         Me.tbrsprtor.Text = "退出"
  531.         '
  532.         'tbrconn
  533.         '
  534.         Me.tbrconn.ImageIndex = 28
  535.         Me.tbrconn.Text = "连机检测"
  536.         '
  537.         'tbrData
  538.         '
  539.         Me.tbrData.Enabled = False
  540.         Me.tbrData.ImageIndex = 22
  541.         Me.tbrData.Text = "上报数据"
  542.         '
  543.         'tbrSprtors
  544.         '
  545.         Me.tbrSprtors.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
  546.         '
  547.         'tbrSystem
  548.         '
  549.         Me.tbrSystem.ImageIndex = 12
  550.         Me.tbrSystem.Text = "系统管理"
  551.         '
  552.         'tbrExit
  553.         '
  554.         Me.tbrExit.ImageIndex = 14
  555.         Me.tbrExit.Text = "退出"
  556.         '
  557.         'ImageList1
  558.         '
  559.         Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
  560.         Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
  561.         Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
  562.         '
  563.         'ProgressBar1
  564.         '
  565.         Me.ProgressBar1.Location = New System.Drawing.Point(736, 8)
  566.         Me.ProgressBar1.Name = "ProgressBar1"
  567.         Me.ProgressBar1.Size = New System.Drawing.Size(232, 32)
  568.         Me.ProgressBar1.TabIndex = 3
  569.         '
  570.         'frmMain
  571.         '
  572.         Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
  573.         Me.ClientSize = New System.Drawing.Size(1028, 627)
  574.         Me.Controls.Add(Me.ProgressBar1)
  575.         Me.Controls.Add(Me.tbrManager)
  576.         Me.Controls.Add(Me.StatusBar1)
  577.         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.Fixed3D
  578.         Me.HelpButton = True
  579.         Me.IsMdiContainer = True
  580.         Me.Menu = Me.MainMenu
  581.         Me.Name = "frmMain"
  582.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  583.         CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
  584.         CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
  585.         CType(Me.StatusBarPanel3, System.ComponentModel.ISupportInitialize).EndInit()
  586.         CType(Me.StatusBarPanel4, System.ComponentModel.ISupportInitialize).EndInit()
  587.         CType(Me.StatusBarPanel5, System.ComponentModel.ISupportInitialize).EndInit()
  588.         Me.ResumeLayout(False)
  590.     End Sub
  592. #End Region
  593.     Shared Sub Main()
  594.         Dim secity As New localJxc.Encryption
  595.         If secity.readregedit() = True Then
  596.             Application.Run(New frmLogin)
  597.         Else
  598.             Application.Run(New frmregedit)
  599.         End If
  600.     End Sub
  601.     Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  602.         Dim frmloginer As New frmLogin
  603.         StatusBar1.Panels(0).Text = "欢迎使用本软件！"
  604.         StatusBar1.Panels(1).Text = Now.ToLongDateString
  605.         StatusBar1.Panels(2).Text = Now.ToLongTimeString
  606.         StatusBar1.Panels(4).Text = "当前的操作人员是：" & frmloginer.struser
  607.         Dim menuinstance As New MenuItemClass
  608.         Dim frmmaininst As New frmMain
  609.         Dim lsweb As New jxcmanage
  610.         'Dim t As Hashtable = menuinstance.GetMenuItemsNameAndText(frmmaininst, frmmaininst.MainMenu)
  611.         'For Each o As System.Collections.DictionaryEntry In t
  612.         'Next
  613.         Dim lsuser As String
  615.         lsuser = frmloginer.struser
  616.         Dim lsObject As jxcmanage
  617.         Dim cn As System.Data.SqlClient.SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings.Get("constr"))
  618.         cn.Open()
  619.         Dim cmdmenu As New SqlClient.SqlCommand
  620.         cmdmenu.Connection = cn
  621.         cmdmenu.CommandText = "select [name],boolean from wz_menu where username ='" & lsuser & "' and boolean ='0'"
  622.         Dim drd As SqlDataReader = cmdmenu.ExecuteReader()
  623.         Do While drd.Read()
  624.             Dim mi As MenuItem
  625.             Dim smi As MenuItem
  626.             For Each mi In Me.Menu.MenuItems
  627.                 If drd.GetString(0).Trim = mi.Text.Trim Then
  628.                     mi.Visible = False
  629.                 End If
  630.                 For Each smi In mi.MenuItems
  631.                     'If drd.GetString(0).Trim <> smi.Text.Trim Then
  632.                     'smi.Enabled = False
  633.                     'End If
  634.                 Next
  635.             Next
  636.         Loop
  637.     End Sub
  638.     Private Sub tbrManager_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles tbrManager.ButtonClick
  639.         Select Case e.Button.Text
  640.             Case "销售开单"
  645.                 Dim frminstancer As New frmCk
  646.                 frminstancer.MdiParent = Me
  647.                 frminstancer.Show()
  649.                 frminstancer.add()
  650.                 frminstancer.tbnEnable("tbrAdd.Enabled = False", frminstancer.tbrCk)
  651.             Case "入库管理"
  652.                 Dim frminstancer As New frmrk
  653.                 frminstancer.Show()
  654.                 frminstancer.add()
  655.                 frminstancer.tbnEnable("tbrAdd.Enabled = False", frminstancer.tbrRk)
  656.             Case "库存管理"
  657.                 Dim frmkcer As frmKCQuery = New frmKCQuery
  658.                 frmkcer.Show()
  659.             Case "报表管理"
  660.                 Dim startformer As New StartForm
  661.                 startformer.Show()
  663.             Case "药品信息"
  665.                 Dim frmcper As frmCp = New frmCp
  666.                 frmcper.Show()
  667.             Case "客户管理"
  668.                 Dim frmkher As frmkh = New frmkh
  669.                 frmkher.Show()
  670.             Case "连机检测"
  671.                 Dim localconn As jxcmanage
  672.                 If localconn.IsConnected = True Then
  673.                     tbrManager.Buttons(7).Enabled = False
  674.                     tbrManager.Buttons(8).Enabled = True
  675.                 Else
  676.                     tbrManager.Buttons(8).Enabled = False
  677.                 End If
  678.             Case "上报数据"
  679.                 Dim localconn As New jxcmanage
  680.                 tbrManager.Buttons(8).Enabled = False
  681.                 Dim Lcount As Int16
  682.                 Lcount = localconn.returncount("sp_addwebdata")
  683.                 If Lcount <= 0 Then
  684.                     MessageBox.Show("上传数据失败！请重新上传数据", "提示", MessageBoxButtons.OK)
  685.                 Else
  686.                     Dim i As Int16
  687.                     ProgressBar1.Maximum = Lcount
  688.                     For i = 0 To ProgressBar1.Maximum
  689.                         ProgressBar1.Value = i
  690.                         Timer1_Timer()
  691.                     Next i
  692.                     MessageBox.Show("上传数据" & Lcount & "条记录", "提示", MessageBoxButtons.OK)
  693.                     tbrManager.Buttons(7).Enabled = True
  694.                 End If
  695.             Case "系统管理"
  696.                 Dim frmcommqueryer As New frmCommQuery
  697.                 frmcommqueryer.Show()
  698.             Case "退出"
  699.                 Application.Exit()
  700.         End Select
  701.     End Sub
  702.     Private Sub Timer1_Timer()
  703.         ProgressBar1.Value = ProgressBar1.Value
  704.         If ProgressBar1.Value = ProgressBar1.Maximum - 1 Then Timer1.Enabled = False
  705.     End Sub
  706.     Private Sub MenuItem11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem11.Click
  707.         Dim frmpder As New frmPd
  708.         frmpder.Show()
  709.     End Sub
  710.     Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
  711.         Dim frmmeder As New frmCp
  712.         frmmeder.Show()
  713.     End Sub
  714.     Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
  715.         Dim frmkher As New frmkh
  716.         frmkher.Show()
  717.     End Sub
  718.     Private Sub MenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem6.Click
  719.         Dim frminstancer As New frmrk
  720.         frminstancer.Show()
  721.         frminstancer.add()
  722.         frminstancer.tbnEnable("tbrAdd.Enabled = False", frminstancer.tbrRk)
  723.     End Sub
  724.     Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
  725.         Dim frmrkqueryer As New frmRkQuery
  726.         frmrkqueryer.Show()
  727.     End Sub
  728.     Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
  729.         Dim frminstancer As New frmCk
  730.         frminstancer.Show()
  731.         frminstancer.add()
  732.         frminstancer.tbnEnable("tbrAdd.Enabled = False", frminstancer.tbrCk)
  733.     End Sub
  734.     Private Sub MenuItem9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem9.Click
  735.         Dim frmckqueryer As New frmCkQuery
  736.         frmckqueryer.Show()
  737.     End Sub
  738.     Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
  739.         Dim frmkcer As New frmkcmanage
  740.         frmkcer.Show()
  741.     End Sub
  742.     Private Sub MenuItem21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem21.Click
  743.         Dim frmrker As New frmrkmanage
  744.         frmrker.Show()
  745.     End Sub
  746.     Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem22.Click
  747.         Dim frmcker As New frmckmanage
  748.         frmcker.Show()
  749.     End Sub
  750.     Private Sub MenuItem16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem16.Click
  751.         Dim frmer As New frmPerson
  752.         frmer.Show()
  753.     End Sub
  754.     Private Sub MenuItem19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem19.Click
  756.     End Sub
  757.     Private Sub MenuItem18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem18.Click
  758.         
  759.     End Sub
  760.     Private Sub MenuItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem23.Click
  761.         Dim frmqxer As New frmQx
  762.         frmqxer.Show()
  763.     End Sub
  764.     Private Sub MenuItem14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem14.Click
  765.         'Dim frmbillqueryer As New frmbillquery
  766.         'frmbillqueryer.Show()
  767.     End Sub
  769.     Private Sub MenuItem24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem24.Click
  770.         Dim frmcommqueryer As New frmCommQuery
  771.         frmcommqueryer.Show()
  773.     End Sub
  775.     Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click
  777.     End Sub
  779.     Private Sub MenuItem27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem27.Click
  780.         Me.Close()
  781.     End Sub
  783.     Private Sub MenuItem26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem26.Click
  784.         Dim frmabouter As New frmAbout
  785.         frmabouter.Show()
  786.     End Sub
  787. End Class