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

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

医药行业

开发平台：

Visual Basic

FrmMainStart.vb：源码内容
  1. Imports localJxc.jxcmanage
  2. Imports System.Data.SqlClient
  3. Imports System.Configuration
  4. Imports DevComponents.DotNetBar
  5. Public Class FrmMainStart
  6.     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 DnetBar As DevComponents.DotNetBar.DotNetBarManager
  37.     Friend WithEvents barLeftDockSite As DevComponents.DotNetBar.DockSite
  38.     Friend WithEvents barRightDockSite As DevComponents.DotNetBar.DockSite
  39.     Friend WithEvents barTopDockSite As DevComponents.DotNetBar.DockSite
  40.     Friend WithEvents barBottomDockSite As DevComponents.DotNetBar.DockSite
  41.     Friend WithEvents SideBar1 As DevComponents.DotNetBar.SideBar
  42.     Friend WithEvents CbtnRk As DevComponents.DotNetBar.SideBarPanelItem
  43.     Friend WithEvents XbtnCk As DevComponents.DotNetBar.SideBarPanelItem
  44.     Friend WithEvents CRdj As DevComponents.DotNetBar.ButtonItem
  45.     Friend WithEvents CRsh As DevComponents.DotNetBar.ButtonItem
  46.     Friend WithEvents CRcx As DevComponents.DotNetBar.ButtonItem
  47.     Friend WithEvents Xsdj As DevComponents.DotNetBar.ButtonItem
  48.     Friend WithEvents Xssh As DevComponents.DotNetBar.ButtonItem
  49.     Friend WithEvents Xscx As DevComponents.DotNetBar.ButtonItem
  50.     Friend WithEvents Kbtnkc As DevComponents.DotNetBar.SideBarPanelItem
  51.     Friend WithEvents Zbtntj As DevComponents.DotNetBar.SideBarPanelItem
  52.     Friend WithEvents MbtnPs As DevComponents.DotNetBar.SideBarPanelItem
  53.     Friend WithEvents Kcpd As DevComponents.DotNetBar.ButtonItem
  54.     Friend WithEvents Kccx As DevComponents.DotNetBar.ButtonItem
  55.     Friend WithEvents Zjdy As DevComponents.DotNetBar.ButtonItem
  56.     Friend WithEvents Zycx As DevComponents.DotNetBar.ButtonItem
  57.     Friend WithEvents Mmdps As DevComponents.DotNetBar.ButtonItem
  58.     Friend WithEvents Mmddx As DevComponents.DotNetBar.ButtonItem
  59.     Friend WithEvents Mxdph As DevComponents.DotNetBar.ButtonItem
  60.     Friend WithEvents Mpfbh As DevComponents.DotNetBar.ButtonItem
  61.     Friend WithEvents Mpsdj As DevComponents.DotNetBar.ButtonItem
  62.     Friend WithEvents Mthdj As DevComponents.DotNetBar.ButtonItem
  63.     Friend WithEvents MZxjs As DevComponents.DotNetBar.ButtonItem
  64.     Friend WithEvents MZxtj As DevComponents.DotNetBar.ButtonItem
  65.     Friend WithEvents MbtnLs As DevComponents.DotNetBar.SideBarPanelItem
  66.     Friend WithEvents Mbase As DevComponents.DotNetBar.ButtonItem
  67.     Friend WithEvents Mbhsq As DevComponents.DotNetBar.ButtonItem
  68.     Friend WithEvents Mshdj As DevComponents.DotNetBar.ButtonItem
  69.     Friend WithEvents Mthdjs As DevComponents.DotNetBar.ButtonItem
  70.     Friend WithEvents Mlssy As DevComponents.DotNetBar.ButtonItem
  71.     Friend WithEvents Mtjcx As DevComponents.DotNetBar.ButtonItem
  72.     Friend WithEvents Mjsgl As DevComponents.DotNetBar.ButtonItem
  73.     Friend WithEvents Mcxgl As DevComponents.DotNetBar.ButtonItem
  74.     Friend WithEvents Mcfgl As DevComponents.DotNetBar.ButtonItem
  75.     Friend WithEvents Mcfcx As DevComponents.DotNetBar.ButtonItem
  76.     Friend WithEvents BbtnXx As DevComponents.DotNetBar.SideBarPanelItem
  77.     Friend WithEvents Bcust As DevComponents.DotNetBar.ButtonItem
  78.     Friend WithEvents Bmeds As DevComponents.DotNetBar.ButtonItem
  79.     Friend WithEvents BComy As DevComponents.DotNetBar.ButtonItem
  80.     Friend WithEvents SbtnXt As DevComponents.DotNetBar.SideBarPanelItem
  81.     Friend WithEvents Suser As DevComponents.DotNetBar.ButtonItem
  82.     Friend WithEvents Sqxsz As DevComponents.DotNetBar.ButtonItem
  83.     Friend WithEvents Sbtngl As DevComponents.DotNetBar.SideBarPanelItem
  84.     Friend WithEvents Splitter1 As System.Windows.Forms.Splitter
  85.     Friend WithEvents kcby As DevComponents.DotNetBar.ButtonItem
  86.     Friend WithEvents kcbs As DevComponents.DotNetBar.ButtonItem
  87.     Friend WithEvents kcph As DevComponents.DotNetBar.ButtonItem
  88.     Friend WithEvents medjxc As DevComponents.DotNetBar.ButtonItem
  89.     Friend WithEvents batchjxc As DevComponents.DotNetBar.ButtonItem
  90.     Friend WithEvents jxctotal As DevComponents.DotNetBar.ButtonItem
  91.     Friend WithEvents jxcreport As DevComponents.DotNetBar.ButtonItem
  92.     Friend WithEvents ButtonItem1 As DevComponents.DotNetBar.ButtonItem
  93.     Friend WithEvents cksk As DevComponents.DotNetBar.ButtonItem
  94.     Friend WithEvents khtotal As DevComponents.DotNetBar.ButtonItem
  95.     Friend WithEvents cptotal As DevComponents.DotNetBar.ButtonItem
  96.     Friend WithEvents ProgressBar1 As System.Windows.Forms.ProgressBar
  97.     Friend WithEvents Timer1 As System.Windows.Forms.Timer
  98.     Friend WithEvents Srkwh As DevComponents.DotNetBar.ButtonItem
  99.     Friend WithEvents Sckwh As DevComponents.DotNetBar.ButtonItem
  100.     Friend WithEvents sjwh As DevComponents.DotNetBar.ButtonItem
  101.     Friend WithEvents crjs As DevComponents.DotNetBar.ButtonItem
  102.     Friend WithEvents crcxl As DevComponents.DotNetBar.ButtonItem
  103.     Friend WithEvents crhz As DevComponents.DotNetBar.ButtonItem
  104.     Friend WithEvents crtj As DevComponents.DotNetBar.ButtonItem
  105.     Friend WithEvents xsjscx As DevComponents.DotNetBar.ButtonItem
  106.     Friend WithEvents ckhz As DevComponents.DotNetBar.ButtonItem
  107.     Friend WithEvents ckxs As DevComponents.DotNetBar.ButtonItem
  108.     Friend WithEvents kccs As DevComponents.DotNetBar.ButtonItem
  109.     Friend WithEvents rkph As DevComponents.DotNetBar.ButtonItem
  110.     Friend WithEvents xsph As DevComponents.DotNetBar.ButtonItem
  111.     Friend WithEvents psph As DevComponents.DotNetBar.ButtonItem
  112.     Friend WithEvents pstj As DevComponents.DotNetBar.ButtonItem
  113.     Friend WithEvents hyxx As DevComponents.DotNetBar.ButtonItem
  114.     Friend WithEvents hwxx As DevComponents.DotNetBar.ButtonItem
  115.     Friend WithEvents bbsj As DevComponents.DotNetBar.ButtonItem
  116.     Friend WithEvents tjfx As DevComponents.DotNetBar.SideBarPanelItem
  117.     Friend WithEvents rkfx As DevComponents.DotNetBar.ButtonItem
  118.     Friend WithEvents ckfx As DevComponents.DotNetBar.ButtonItem
  119.     Friend WithEvents skfk As DevComponents.DotNetBar.ButtonItem
  121.     <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
  122.         Me.components = New System.ComponentModel.Container
  123.         Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(FrmMainStart))
  124.         Me.DnetBar = New DevComponents.DotNetBar.DotNetBarManager(Me.components)
  125.         Me.barBottomDockSite = New DevComponents.DotNetBar.DockSite
  126.         Me.barLeftDockSite = New DevComponents.DotNetBar.DockSite
  127.         Me.barRightDockSite = New DevComponents.DotNetBar.DockSite
  128.         Me.barTopDockSite = New DevComponents.DotNetBar.DockSite
  129.         Me.SideBar1 = New DevComponents.DotNetBar.SideBar
  130.         Me.MbtnLs = New DevComponents.DotNetBar.SideBarPanelItem
  131.         Me.Mbase = New DevComponents.DotNetBar.ButtonItem
  132.         Me.Mbhsq = New DevComponents.DotNetBar.ButtonItem
  133.         Me.Mshdj = New DevComponents.DotNetBar.ButtonItem
  134.         Me.Mthdjs = New DevComponents.DotNetBar.ButtonItem
  135.         Me.Mlssy = New DevComponents.DotNetBar.ButtonItem
  136.         Me.Mtjcx = New DevComponents.DotNetBar.ButtonItem
  137.         Me.Mjsgl = New DevComponents.DotNetBar.ButtonItem
  138.         Me.Mcxgl = New DevComponents.DotNetBar.ButtonItem
  139.         Me.Mcfgl = New DevComponents.DotNetBar.ButtonItem
  140.         Me.Mcfcx = New DevComponents.DotNetBar.ButtonItem
  141.         Me.CbtnRk = New DevComponents.DotNetBar.SideBarPanelItem
  142.         Me.CRdj = New DevComponents.DotNetBar.ButtonItem
  143.         Me.CRsh = New DevComponents.DotNetBar.ButtonItem
  144.         Me.CRcx = New DevComponents.DotNetBar.ButtonItem
  145.         Me.crjs = New DevComponents.DotNetBar.ButtonItem
  146.         Me.crcxl = New DevComponents.DotNetBar.ButtonItem
  147.         Me.crhz = New DevComponents.DotNetBar.ButtonItem
  148.         Me.crtj = New DevComponents.DotNetBar.ButtonItem
  149.         Me.ButtonItem1 = New DevComponents.DotNetBar.ButtonItem
  150.         Me.XbtnCk = New DevComponents.DotNetBar.SideBarPanelItem
  151.         Me.Xsdj = New DevComponents.DotNetBar.ButtonItem
  152.         Me.Xssh = New DevComponents.DotNetBar.ButtonItem
  153.         Me.Xscx = New DevComponents.DotNetBar.ButtonItem
  154.         Me.cksk = New DevComponents.DotNetBar.ButtonItem
  155.         Me.xsjscx = New DevComponents.DotNetBar.ButtonItem
  156.         Me.ckhz = New DevComponents.DotNetBar.ButtonItem
  157.         Me.ckxs = New DevComponents.DotNetBar.ButtonItem
  158.         Me.Kbtnkc = New DevComponents.DotNetBar.SideBarPanelItem
  159.         Me.Kcpd = New DevComponents.DotNetBar.ButtonItem
  160.         Me.Kccx = New DevComponents.DotNetBar.ButtonItem
  161.         Me.kcby = New DevComponents.DotNetBar.ButtonItem
  162.         Me.kcbs = New DevComponents.DotNetBar.ButtonItem
  163.         Me.kccs = New DevComponents.DotNetBar.ButtonItem
  164.         Me.kcph = New DevComponents.DotNetBar.ButtonItem
  165.         Me.Zbtntj = New DevComponents.DotNetBar.SideBarPanelItem
  166.         Me.Zjdy = New DevComponents.DotNetBar.ButtonItem
  167.         Me.Zycx = New DevComponents.DotNetBar.ButtonItem
  168.         Me.rkph = New DevComponents.DotNetBar.ButtonItem
  169.         Me.xsph = New DevComponents.DotNetBar.ButtonItem
  170.         Me.psph = New DevComponents.DotNetBar.ButtonItem
  171.         Me.pstj = New DevComponents.DotNetBar.ButtonItem
  172.         Me.MbtnPs = New DevComponents.DotNetBar.SideBarPanelItem
  173.         Me.Mmdps = New DevComponents.DotNetBar.ButtonItem
  174.         Me.Mmddx = New DevComponents.DotNetBar.ButtonItem
  175.         Me.Mxdph = New DevComponents.DotNetBar.ButtonItem
  176.         Me.Mpfbh = New DevComponents.DotNetBar.ButtonItem
  177.         Me.Mpsdj = New DevComponents.DotNetBar.ButtonItem
  178.         Me.Mthdj = New DevComponents.DotNetBar.ButtonItem
  179.         Me.MZxjs = New DevComponents.DotNetBar.ButtonItem
  180.         Me.MZxtj = New DevComponents.DotNetBar.ButtonItem
  181.         Me.BbtnXx = New DevComponents.DotNetBar.SideBarPanelItem
  182.         Me.Bcust = New DevComponents.DotNetBar.ButtonItem
  183.         Me.Bmeds = New DevComponents.DotNetBar.ButtonItem
  184.         Me.BComy = New DevComponents.DotNetBar.ButtonItem
  185.         Me.khtotal = New DevComponents.DotNetBar.ButtonItem
  186.         Me.cptotal = New DevComponents.DotNetBar.ButtonItem
  187.         Me.hyxx = New DevComponents.DotNetBar.ButtonItem
  188.         Me.hwxx = New DevComponents.DotNetBar.ButtonItem
  189.         Me.SbtnXt = New DevComponents.DotNetBar.SideBarPanelItem
  190.         Me.Suser = New DevComponents.DotNetBar.ButtonItem
  191.         Me.Sqxsz = New DevComponents.DotNetBar.ButtonItem
  192.         Me.bbsj = New DevComponents.DotNetBar.ButtonItem
  193.         Me.Sbtngl = New DevComponents.DotNetBar.SideBarPanelItem
  194.         Me.Srkwh = New DevComponents.DotNetBar.ButtonItem
  195.         Me.Sckwh = New DevComponents.DotNetBar.ButtonItem
  196.         Me.sjwh = New DevComponents.DotNetBar.ButtonItem
  197.         Me.tjfx = New DevComponents.DotNetBar.SideBarPanelItem
  198.         Me.medjxc = New DevComponents.DotNetBar.ButtonItem
  199.         Me.batchjxc = New DevComponents.DotNetBar.ButtonItem
  200.         Me.jxctotal = New DevComponents.DotNetBar.ButtonItem
  201.         Me.jxcreport = New DevComponents.DotNetBar.ButtonItem
  202.         Me.rkfx = New DevComponents.DotNetBar.ButtonItem
  203.         Me.ckfx = New DevComponents.DotNetBar.ButtonItem
  204.         Me.skfk = New DevComponents.DotNetBar.ButtonItem
  205.         Me.Splitter1 = New System.Windows.Forms.Splitter
  206.         Me.ProgressBar1 = New System.Windows.Forms.ProgressBar
  207.         Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
  208.         Me.SuspendLayout()
  209.         '
  210.         'DnetBar
  211.         '
  212.         Me.DnetBar.AutoDispatchShortcuts.Add(DevComponents.DotNetBar.eShortcut.F1)
  213.         Me.DnetBar.AutoDispatchShortcuts.Add(DevComponents.DotNetBar.eShortcut.CtrlC)
  214.         Me.DnetBar.AutoDispatchShortcuts.Add(DevComponents.DotNetBar.eShortcut.CtrlA)
  215.         Me.DnetBar.AutoDispatchShortcuts.Add(DevComponents.DotNetBar.eShortcut.CtrlV)
  216.         Me.DnetBar.AutoDispatchShortcuts.Add(DevComponents.DotNetBar.eShortcut.CtrlX)
  217.         Me.DnetBar.AutoDispatchShortcuts.Add(DevComponents.DotNetBar.eShortcut.CtrlZ)
  218.         Me.DnetBar.AutoDispatchShortcuts.Add(DevComponents.DotNetBar.eShortcut.Del)
  219.         Me.DnetBar.AutoDispatchShortcuts.Add(DevComponents.DotNetBar.eShortcut.Ins)
  220.         Me.DnetBar.BottomDockSite = Me.barBottomDockSite
  221.         Me.DnetBar.DefinitionName = "FrmMainStart.DnetBar.xml"
  222.         Me.DnetBar.LeftDockSite = Me.barLeftDockSite
  223.         Me.DnetBar.ParentForm = Me
  224.         Me.DnetBar.RightDockSite = Me.barRightDockSite
  225.         Me.DnetBar.Style = DevComponents.DotNetBar.eDotNetBarStyle.Office2003
  226.         Me.DnetBar.TopDockSite = Me.barTopDockSite
  227.         '
  228.         'barBottomDockSite
  229.         '
  230.         Me.barBottomDockSite.AccessibleRole = System.Windows.Forms.AccessibleRole.Window
  231.         Me.barBottomDockSite.BackgroundImageAlpha = CType(255, Byte)
  232.         Me.barBottomDockSite.Dock = System.Windows.Forms.DockStyle.Bottom
  233.         Me.barBottomDockSite.Location = New System.Drawing.Point(0, 719)
  234.         Me.barBottomDockSite.Name = "barBottomDockSite"
  235.         Me.barBottomDockSite.Size = New System.Drawing.Size(844, 25)
  236.         Me.barBottomDockSite.TabIndex = 4
  237.         Me.barBottomDockSite.TabStop = False
  238.         '
  239.         'barLeftDockSite
  240.         '
  241.         Me.barLeftDockSite.AccessibleRole = System.Windows.Forms.AccessibleRole.Window
  242.         Me.barLeftDockSite.BackgroundImageAlpha = CType(255, Byte)
  243.         Me.barLeftDockSite.Dock = System.Windows.Forms.DockStyle.Left
  244.         Me.barLeftDockSite.Location = New System.Drawing.Point(0, 88)
  245.         Me.barLeftDockSite.Name = "barLeftDockSite"
  246.         Me.barLeftDockSite.Size = New System.Drawing.Size(0, 631)
  247.         Me.barLeftDockSite.TabIndex = 1
  248.         Me.barLeftDockSite.TabStop = False
  249.         '
  250.         'barRightDockSite
  251.         '
  252.         Me.barRightDockSite.AccessibleRole = System.Windows.Forms.AccessibleRole.Window
  253.         Me.barRightDockSite.BackgroundImageAlpha = CType(255, Byte)
  254.         Me.barRightDockSite.Dock = System.Windows.Forms.DockStyle.Right
  255.         Me.barRightDockSite.Location = New System.Drawing.Point(844, 88)
  256.         Me.barRightDockSite.Name = "barRightDockSite"
  257.         Me.barRightDockSite.Size = New System.Drawing.Size(0, 631)
  258.         Me.barRightDockSite.TabIndex = 2
  259.         Me.barRightDockSite.TabStop = False
  260.         '
  261.         'barTopDockSite
  262.         '
  263.         Me.barTopDockSite.AccessibleRole = System.Windows.Forms.AccessibleRole.Window
  264.         Me.barTopDockSite.BackgroundImageAlpha = CType(255, Byte)
  265.         Me.barTopDockSite.Dock = System.Windows.Forms.DockStyle.Top
  266.         Me.barTopDockSite.Location = New System.Drawing.Point(0, 0)
  267.         Me.barTopDockSite.Name = "barTopDockSite"
  268.         Me.barTopDockSite.Size = New System.Drawing.Size(844, 88)
  269.         Me.barTopDockSite.TabIndex = 3
  270.         Me.barTopDockSite.TabStop = False
  271.         '
  272.         'SideBar1
  273.         '
  274.         Me.SideBar1.AccessibleRole = System.Windows.Forms.AccessibleRole.ToolBar
  275.         Me.SideBar1.Dock = System.Windows.Forms.DockStyle.Left
  276.         Me.SideBar1.ExpandedPanel = Me.MbtnLs
  277.         Me.SideBar1.Font = New System.Drawing.Font("Tahoma", 13.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.World)
  278.         Me.SideBar1.Location = New System.Drawing.Point(0, 88)
  279.         Me.SideBar1.Name = "SideBar1"
  280.         Me.SideBar1.Panels.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.CbtnRk, Me.XbtnCk, Me.Kbtnkc, Me.Zbtntj, Me.MbtnPs, Me.MbtnLs, Me.BbtnXx, Me.SbtnXt, Me.Sbtngl, Me.tjfx})
  281.         Me.SideBar1.Size = New System.Drawing.Size(160, 631)
  282.         Me.SideBar1.TabIndex = 5
  283.         Me.SideBar1.Text = "SideBar1"
  284.         '
  285.         'MbtnLs
  286.         '
  287.         Me.MbtnLs.Icon = CType(resources.GetObject("MbtnLs.Icon"), System.Drawing.Icon)
  288.         Me.MbtnLs.Name = "MbtnLs"
  289.         Me.MbtnLs.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Mbase, Me.Mbhsq, Me.Mshdj, Me.Mthdjs, Me.Mlssy, Me.Mtjcx, Me.Mjsgl, Me.Mcxgl, Me.Mcfgl, Me.Mcfcx})
  290.         Me.MbtnLs.Text = "门店零售管理"
  291.         '
  292.         'Mbase
  293.         '
  294.         Me.Mbase.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  295.         Me.Mbase.Icon = CType(resources.GetObject("Mbase.Icon"), System.Drawing.Icon)
  296.         Me.Mbase.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  297.         Me.Mbase.Name = "Mbase"
  298.         Me.Mbase.Text = "门店基本资料"
  299.         '
  300.         'Mbhsq
  301.         '
  302.         Me.Mbhsq.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  303.         Me.Mbhsq.Icon = CType(resources.GetObject("Mbhsq.Icon"), System.Drawing.Icon)
  304.         Me.Mbhsq.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  305.         Me.Mbhsq.Name = "Mbhsq"
  306.         Me.Mbhsq.Text = "门店补货申请"
  307.         '
  308.         'Mshdj
  309.         '
  310.         Me.Mshdj.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  311.         Me.Mshdj.Icon = CType(resources.GetObject("Mshdj.Icon"), System.Drawing.Icon)
  312.         Me.Mshdj.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  313.         Me.Mshdj.Name = "Mshdj"
  314.         Me.Mshdj.Text = "门店收货登记"
  315.         '
  316.         'Mthdjs
  317.         '
  318.         Me.Mthdjs.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  319.         Me.Mthdjs.Icon = CType(resources.GetObject("Mthdjs.Icon"), System.Drawing.Icon)
  320.         Me.Mthdjs.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  321.         Me.Mthdjs.Name = "Mthdjs"
  322.         Me.Mthdjs.Text = "门店退货登记"
  323.         '
  324.         'Mlssy
  325.         '
  326.         Me.Mlssy.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  327.         Me.Mlssy.Icon = CType(resources.GetObject("Mlssy.Icon"), System.Drawing.Icon)
  328.         Me.Mlssy.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  329.         Me.Mlssy.Name = "Mlssy"
  330.         Me.Mlssy.Text = "门店零售收银 "
  331.         '
  332.         'Mtjcx
  333.         '
  334.         Me.Mtjcx.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  335.         Me.Mtjcx.Icon = CType(resources.GetObject("Mtjcx.Icon"), System.Drawing.Icon)
  336.         Me.Mtjcx.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  337.         Me.Mtjcx.Name = "Mtjcx"
  338.         Me.Mtjcx.Text = "零售查询统计"
  339.         '
  340.         'Mjsgl
  341.         '
  342.         Me.Mjsgl.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  343.         Me.Mjsgl.Icon = CType(resources.GetObject("Mjsgl.Icon"), System.Drawing.Icon)
  344.         Me.Mjsgl.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  345.         Me.Mjsgl.Name = "Mjsgl"
  346.         Me.Mjsgl.Text = "零售日报表"
  347.         '
  348.         'Mcxgl
  349.         '
  350.         Me.Mcxgl.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  351.         Me.Mcxgl.Image = CType(resources.GetObject("Mcxgl.Image"), System.Drawing.Image)
  352.         Me.Mcxgl.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  353.         Me.Mcxgl.Name = "Mcxgl"
  354.         Me.Mcxgl.Text = "门店促销管理 "
  355.         '
  356.         'Mcfgl
  357.         '
  358.         Me.Mcfgl.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  359.         Me.Mcfgl.Image = CType(resources.GetObject("Mcfgl.Image"), System.Drawing.Image)
  360.         Me.Mcfgl.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  361.         Me.Mcfgl.Name = "Mcfgl"
  362.         Me.Mcfgl.Text = "处方库管理 "
  363.         '
  364.         'Mcfcx
  365.         '
  366.         Me.Mcfcx.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  367.         Me.Mcfcx.Image = CType(resources.GetObject("Mcfcx.Image"), System.Drawing.Image)
  368.         Me.Mcfcx.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  369.         Me.Mcfcx.Name = "Mcfcx"
  370.         Me.Mcfcx.Text = "处方库查询 "
  371.         '
  372.         'CbtnRk
  373.         '
  374.         Me.CbtnRk.Icon = CType(resources.GetObject("CbtnRk.Icon"), System.Drawing.Icon)
  375.         Me.CbtnRk.Name = "CbtnRk"
  376.         Me.CbtnRk.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.CRdj, Me.CRsh, Me.CRcx, Me.crjs, Me.crcxl, Me.crhz, Me.crtj, Me.ButtonItem1})
  377.         Me.CbtnRk.Text = "采购管理"
  378.         '
  379.         'CRdj
  380.         '
  381.         Me.CRdj.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  382.         Me.CRdj.Image = CType(resources.GetObject("CRdj.Image"), System.Drawing.Image)
  383.         Me.CRdj.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  384.         Me.CRdj.Name = "CRdj"
  385.         Me.CRdj.Text = "采购登记"
  386.         '
  387.         'CRsh
  388.         '
  389.         Me.CRsh.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  390.         Me.CRsh.Image = CType(resources.GetObject("CRsh.Image"), System.Drawing.Image)
  391.         Me.CRsh.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  392.         Me.CRsh.Name = "CRsh"
  393.         Me.CRsh.Text = "审核入库"
  394.         '
  395.         'CRcx
  396.         '
  397.         Me.CRcx.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  398.         Me.CRcx.Image = CType(resources.GetObject("CRcx.Image"), System.Drawing.Image)
  399.         Me.CRcx.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  400.         Me.CRcx.Name = "CRcx"
  401.         Me.CRcx.Text = "采购查询"
  402.         '
  403.         'crjs
  404.         '
  405.         Me.crjs.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  406.         Me.crjs.Icon = CType(resources.GetObject("crjs.Icon"), System.Drawing.Icon)
  407.         Me.crjs.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  408.         Me.crjs.Name = "crjs"
  409.         Me.crjs.Text = "采购结算"
  410.         '
  411.         'crcxl
  412.         '
  413.         Me.crcxl.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  414.         Me.crcxl.Icon = CType(resources.GetObject("crcxl.Icon"), System.Drawing.Icon)
  415.         Me.crcxl.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  416.         Me.crcxl.Name = "crcxl"
  417.         Me.crcxl.Text = "结算查询"
  418.         '
  419.         'crhz
  420.         '
  421.         Me.crhz.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  422.         Me.crhz.Icon = CType(resources.GetObject("crhz.Icon"), System.Drawing.Icon)
  423.         Me.crhz.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  424.         Me.crhz.Name = "crhz"
  425.         Me.crhz.Text = "采购结算汇总"
  426.         '
  427.         'crtj
  428.         '
  429.         Me.crtj.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  430.         Me.crtj.Icon = CType(resources.GetObject("crtj.Icon"), System.Drawing.Icon)
  431.         Me.crtj.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  432.         Me.crtj.Name = "crtj"
  433.         Me.crtj.Text = "采购药品统计"
  434.         '
  435.         'ButtonItem1
  436.         '
  437.         Me.ButtonItem1.Name = "ButtonItem1"
  438.         Me.ButtonItem1.Text = ""
  439.         '
  440.         'XbtnCk
  441.         '
  442.         Me.XbtnCk.Image = CType(resources.GetObject("XbtnCk.Image"), System.Drawing.Image)
  443.         Me.XbtnCk.Name = "XbtnCk"
  444.         Me.XbtnCk.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Xsdj, Me.Xssh, Me.Xscx, Me.cksk, Me.xsjscx, Me.ckhz, Me.ckxs})
  445.         Me.XbtnCk.Text = "销售管理"
  446.         '
  447.         'Xsdj
  448.         '
  449.         Me.Xsdj.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  450.         Me.Xsdj.Icon = CType(resources.GetObject("Xsdj.Icon"), System.Drawing.Icon)
  451.         Me.Xsdj.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  452.         Me.Xsdj.Name = "Xsdj"
  453.         Me.Xsdj.Text = "销售开单"
  454.         '
  455.         'Xssh
  456.         '
  457.         Me.Xssh.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  458.         Me.Xssh.Icon = CType(resources.GetObject("Xssh.Icon"), System.Drawing.Icon)
  459.         Me.Xssh.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  460.         Me.Xssh.Name = "Xssh"
  461.         Me.Xssh.Text = "审核出库"
  462.         '
  463.         'Xscx
  464.         '
  465.         Me.Xscx.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  466.         Me.Xscx.Icon = CType(resources.GetObject("Xscx.Icon"), System.Drawing.Icon)
  467.         Me.Xscx.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  468.         Me.Xscx.Name = "Xscx"
  469.         Me.Xscx.Text = "销售查询"
  470.         '
  471.         'cksk
  472.         '
  473.         Me.cksk.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  474.         Me.cksk.Icon = CType(resources.GetObject("cksk.Icon"), System.Drawing.Icon)
  475.         Me.cksk.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  476.         Me.cksk.Name = "cksk"
  477.         Me.cksk.Text = "销售收款"
  478.         '
  479.         'xsjscx
  480.         '
  481.         Me.xsjscx.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  482.         Me.xsjscx.Icon = CType(resources.GetObject("xsjscx.Icon"), System.Drawing.Icon)
  483.         Me.xsjscx.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  484.         Me.xsjscx.Name = "xsjscx"
  485.         Me.xsjscx.Text = "销售结算查询"
  486.         '
  487.         'ckhz
  488.         '
  489.         Me.ckhz.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  490.         Me.ckhz.Icon = CType(resources.GetObject("ckhz.Icon"), System.Drawing.Icon)
  491.         Me.ckhz.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  492.         Me.ckhz.Name = "ckhz"
  493.         Me.ckhz.Text = "销售结算汇总"
  494.         '
  495.         'ckxs
  496.         '
  497.         Me.ckxs.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  498.         Me.ckxs.Icon = CType(resources.GetObject("ckxs.Icon"), System.Drawing.Icon)
  499.         Me.ckxs.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  500.         Me.ckxs.Name = "ckxs"
  501.         Me.ckxs.Text = "销售药品统计"
  502.         '
  503.         'Kbtnkc
  504.         '
  505.         Me.Kbtnkc.Icon = CType(resources.GetObject("Kbtnkc.Icon"), System.Drawing.Icon)
  506.         Me.Kbtnkc.Name = "Kbtnkc"
  507.         Me.Kbtnkc.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Kcpd, Me.Kccx, Me.kcby, Me.kcbs, Me.kccs, Me.kcph})
  508.         Me.Kbtnkc.Text = "库存管理"
  509.         '
  510.         'Kcpd
  511.         '
  512.         Me.Kcpd.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  513.         Me.Kcpd.Icon = CType(resources.GetObject("Kcpd.Icon"), System.Drawing.Icon)
  514.         Me.Kcpd.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  515.         Me.Kcpd.Name = "Kcpd"
  516.         Me.Kcpd.Text = "库存盘点"
  517.         '
  518.         'Kccx
  519.         '
  520.         Me.Kccx.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  521.         Me.Kccx.Icon = CType(resources.GetObject("Kccx.Icon"), System.Drawing.Icon)
  522.         Me.Kccx.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  523.         Me.Kccx.Name = "Kccx"
  524.         Me.Kccx.Text = "库存查询"
  525.         '
  526.         'kcby
  527.         '
  528.         Me.kcby.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  529.         Me.kcby.Icon = CType(resources.GetObject("kcby.Icon"), System.Drawing.Icon)
  530.         Me.kcby.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  531.         Me.kcby.Name = "kcby"
  532.         Me.kcby.Text = "库存报溢"
  533.         '
  534.         'kcbs
  535.         '
  536.         Me.kcbs.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  537.         Me.kcbs.Icon = CType(resources.GetObject("kcbs.Icon"), System.Drawing.Icon)
  538.         Me.kcbs.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  539.         Me.kcbs.Name = "kcbs"
  540.         Me.kcbs.Text = "库存报损"
  541.         '
  542.         'kccs
  543.         '
  544.         Me.kccs.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  545.         Me.kccs.Icon = CType(resources.GetObject("kccs.Icon"), System.Drawing.Icon)
  546.         Me.kccs.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  547.         Me.kccs.Name = "kccs"
  548.         Me.kccs.Text = "库存初始化"
  549.         '
  550.         'kcph
  551.         '
  552.         Me.kcph.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  553.         Me.kcph.Icon = CType(resources.GetObject("kcph.Icon"), System.Drawing.Icon)
  554.         Me.kcph.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  555.         Me.kcph.Name = "kcph"
  556.         Me.kcph.Text = "库存药品排行"
  557.         '
  558.         'Zbtntj
  559.         '
  560.         Me.Zbtntj.Icon = CType(resources.GetObject("Zbtntj.Icon"), System.Drawing.Icon)
  561.         Me.Zbtntj.Name = "Zbtntj"
  562.         Me.Zbtntj.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Zjdy, Me.Zycx, Me.rkph, Me.xsph, Me.psph, Me.pstj})
  563.         Me.Zbtntj.Text = "综合统计"
  564.         '
  565.         'Zjdy
  566.         '
  567.         Me.Zjdy.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  568.         Me.Zjdy.Icon = CType(resources.GetObject("Zjdy.Icon"), System.Drawing.Icon)
  569.         Me.Zjdy.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  570.         Me.Zjdy.Name = "Zjdy"
  571.         Me.Zjdy.Text = "票据打印"
  572.         '
  573.         'Zycx
  574.         '
  575.         Me.Zycx.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  576.         Me.Zycx.Icon = CType(resources.GetObject("Zycx.Icon"), System.Drawing.Icon)
  577.         Me.Zycx.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  578.         Me.Zycx.Name = "Zycx"
  579.         Me.Zycx.Text = "通用查询"
  580.         '
  581.         'rkph
  582.         '
  583.         Me.rkph.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  584.         Me.rkph.Icon = CType(resources.GetObject("rkph.Icon"), System.Drawing.Icon)
  585.         Me.rkph.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  586.         Me.rkph.Name = "rkph"
  587.         Me.rkph.Text = "药品采购排行"
  588.         '
  589.         'xsph
  590.         '
  591.         Me.xsph.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  592.         Me.xsph.Icon = CType(resources.GetObject("xsph.Icon"), System.Drawing.Icon)
  593.         Me.xsph.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  594.         Me.xsph.Name = "xsph"
  595.         Me.xsph.Text = "药品销售排行"
  596.         '
  597.         'psph
  598.         '
  599.         Me.psph.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  600.         Me.psph.Icon = CType(resources.GetObject("psph.Icon"), System.Drawing.Icon)
  601.         Me.psph.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  602.         Me.psph.Name = "psph"
  603.         Me.psph.Text = "药品配送排行"
  604.         '
  605.         'pstj
  606.         '
  607.         Me.pstj.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  608.         Me.pstj.Icon = CType(resources.GetObject("pstj.Icon"), System.Drawing.Icon)
  609.         Me.pstj.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  610.         Me.pstj.Name = "pstj"
  611.         Me.pstj.Text = "药品配送统计"
  612.         '
  613.         'MbtnPs
  614.         '
  615.         Me.MbtnPs.Icon = CType(resources.GetObject("MbtnPs.Icon"), System.Drawing.Icon)
  616.         Me.MbtnPs.Name = "MbtnPs"
  617.         Me.MbtnPs.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Mmdps, Me.Mmddx, Me.Mxdph, Me.Mpfbh, Me.Mpsdj, Me.Mthdj, Me.MZxjs, Me.MZxtj})
  618.         Me.MbtnPs.Text = "门店配送管理"
  619.         '
  620.         'Mmdps
  621.         '
  622.         Me.Mmdps.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  623.         Me.Mmdps.Icon = CType(resources.GetObject("Mmdps.Icon"), System.Drawing.Icon)
  624.         Me.Mmdps.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  625.         Me.Mmdps.Name = "Mmdps"
  626.         Me.Mmdps.Text = "配送中心管理"
  627.         '
  628.         'Mmddx
  629.         '
  630.         Me.Mmddx.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  631.         Me.Mmddx.Icon = CType(resources.GetObject("Mmddx.Icon"), System.Drawing.Icon)
  632.         Me.Mmddx.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  633.         Me.Mmddx.Name = "Mmddx"
  634.         Me.Mmddx.Text = "配送对象管理"
  635.         '
  636.         'Mxdph
  637.         '
  638.         Me.Mxdph.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  639.         Me.Mxdph.Icon = CType(resources.GetObject("Mxdph.Icon"), System.Drawing.Icon)
  640.         Me.Mxdph.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  641.         Me.Mxdph.Name = "Mxdph"
  642.         Me.Mxdph.Text = "新店铺货管理"
  643.         '
  644.         'Mpfbh
  645.         '
  646.         Me.Mpfbh.Icon = CType(resources.GetObject("Mpfbh.Icon"), System.Drawing.Icon)
  647.         Me.Mpfbh.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  648.         Me.Mpfbh.Name = "Mpfbh"
  649.         Me.Mpfbh.Text = "批复补货管理"
  650.         '
  651.         'Mpsdj
  652.         '
  653.         Me.Mpsdj.Icon = CType(resources.GetObject("Mpsdj.Icon"), System.Drawing.Icon)
  654.         Me.Mpsdj.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  655.         Me.Mpsdj.Name = "Mpsdj"
  656.         Me.Mpsdj.Text = "门店配送登记"
  657.         '
  658.         'Mthdj
  659.         '
  660.         Me.Mthdj.Icon = CType(resources.GetObject("Mthdj.Icon"), System.Drawing.Icon)
  661.         Me.Mthdj.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  662.         Me.Mthdj.Name = "Mthdj"
  663.         Me.Mthdj.Text = "配送退货登记"
  664.         '
  665.         'MZxjs
  666.         '
  667.         Me.MZxjs.Icon = CType(resources.GetObject("MZxjs.Icon"), System.Drawing.Icon)
  668.         Me.MZxjs.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  669.         Me.MZxjs.Name = "MZxjs"
  670.         Me.MZxjs.Text = "中心配送结算"
  671.         '
  672.         'MZxtj
  673.         '
  674.         Me.MZxtj.Icon = CType(resources.GetObject("MZxtj.Icon"), System.Drawing.Icon)
  675.         Me.MZxtj.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  676.         Me.MZxtj.Name = "MZxtj"
  677.         Me.MZxtj.Text = "中心统计分析"
  678.         '
  679.         'BbtnXx
  680.         '
  681.         Me.BbtnXx.Icon = CType(resources.GetObject("BbtnXx.Icon"), System.Drawing.Icon)
  682.         Me.BbtnXx.Name = "BbtnXx"
  683.         Me.BbtnXx.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Bcust, Me.Bmeds, Me.BComy, Me.khtotal, Me.cptotal, Me.hyxx, Me.hwxx})
  684.         Me.BbtnXx.Text = "基本信息维护"
  685.         '
  686.         'Bcust
  687.         '
  688.         Me.Bcust.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  689.         Me.Bcust.Icon = CType(resources.GetObject("Bcust.Icon"), System.Drawing.Icon)
  690.         Me.Bcust.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  691.         Me.Bcust.Name = "Bcust"
  692.         Me.Bcust.Text = "客户信息"
  693.         '
  694.         'Bmeds
  695.         '
  696.         Me.Bmeds.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  697.         Me.Bmeds.Icon = CType(resources.GetObject("Bmeds.Icon"), System.Drawing.Icon)
  698.         Me.Bmeds.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  699.         Me.Bmeds.Name = "Bmeds"
  700.         Me.Bmeds.Text = "药品信息"
  701.         '
  702.         'BComy
  703.         '
  704.         Me.BComy.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  705.         Me.BComy.Icon = CType(resources.GetObject("BComy.Icon"), System.Drawing.Icon)
  706.         Me.BComy.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  707.         Me.BComy.Name = "BComy"
  708.         Me.BComy.Text = "企业基本资料"
  709.         '
  710.         'khtotal
  711.         '
  712.         Me.khtotal.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  713.         Me.khtotal.Icon = CType(resources.GetObject("khtotal.Icon"), System.Drawing.Icon)
  714.         Me.khtotal.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  715.         Me.khtotal.Name = "khtotal"
  716.         Me.khtotal.Text = "客户信息查询"
  717.         '
  718.         'cptotal
  719.         '
  720.         Me.cptotal.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  721.         Me.cptotal.Icon = CType(resources.GetObject("cptotal.Icon"), System.Drawing.Icon)
  722.         Me.cptotal.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  723.         Me.cptotal.Name = "cptotal"
  724.         Me.cptotal.Text = "药品信息查询"
  725.         '
  726.         'hyxx
  727.         '
  728.         Me.hyxx.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  729.         Me.hyxx.Icon = CType(resources.GetObject("hyxx.Icon"), System.Drawing.Icon)
  730.         Me.hyxx.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  731.         Me.hyxx.Name = "hyxx"
  732.         Me.hyxx.Text = "会员信息"
  733.         '
  734.         'hwxx
  735.         '
  736.         Me.hwxx.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  737.         Me.hwxx.Icon = CType(resources.GetObject("hwxx.Icon"), System.Drawing.Icon)
  738.         Me.hwxx.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  739.         Me.hwxx.Name = "hwxx"
  740.         Me.hwxx.Text = "货位信息"
  741.         '
  742.         'SbtnXt
  743.         '
  744.         Me.SbtnXt.Icon = CType(resources.GetObject("SbtnXt.Icon"), System.Drawing.Icon)
  745.         Me.SbtnXt.Name = "SbtnXt"
  746.         Me.SbtnXt.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Suser, Me.Sqxsz, Me.bbsj})
  747.         Me.SbtnXt.Text = "系统设置"
  748.         '
  749.         'Suser
  750.         '
  751.         Me.Suser.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  752.         Me.Suser.Icon = CType(resources.GetObject("Suser.Icon"), System.Drawing.Icon)
  753.         Me.Suser.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  754.         Me.Suser.Name = "Suser"
  755.         Me.Suser.Text = "用户管理"
  756.         '
  757.         'Sqxsz
  758.         '
  759.         Me.Sqxsz.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  760.         Me.Sqxsz.Icon = CType(resources.GetObject("Sqxsz.Icon"), System.Drawing.Icon)
  761.         Me.Sqxsz.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  762.         Me.Sqxsz.Name = "Sqxsz"
  763.         Me.Sqxsz.Text = "权限设置"
  764.         '
  765.         'bbsj
  766.         '
  767.         Me.bbsj.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  768.         Me.bbsj.Icon = CType(resources.GetObject("bbsj.Icon"), System.Drawing.Icon)
  769.         Me.bbsj.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  770.         Me.bbsj.Name = "bbsj"
  771.         Me.bbsj.Text = "报表设计"
  772.         '
  773.         'Sbtngl
  774.         '
  775.         Me.Sbtngl.Icon = CType(resources.GetObject("Sbtngl.Icon"), System.Drawing.Icon)
  776.         Me.Sbtngl.Name = "Sbtngl"
  777.         Me.Sbtngl.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Srkwh, Me.Sckwh, Me.sjwh})
  778.         Me.Sbtngl.Text = "系统管理"
  779.         '
  780.         'Srkwh
  781.         '
  782.         Me.Srkwh.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  783.         Me.Srkwh.Icon = CType(resources.GetObject("Srkwh.Icon"), System.Drawing.Icon)
  784.         Me.Srkwh.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  785.         Me.Srkwh.Name = "Srkwh"
  786.         Me.Srkwh.Text = "调货管理"
  787.         '
  788.         'Sckwh
  789.         '
  790.         Me.Sckwh.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  791.         Me.Sckwh.Icon = CType(resources.GetObject("Sckwh.Icon"), System.Drawing.Icon)
  792.         Me.Sckwh.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  793.         Me.Sckwh.Name = "Sckwh"
  794.         Me.Sckwh.Text = "调价管理"
  795.         '
  796.         'sjwh
  797.         '
  798.         Me.sjwh.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  799.         Me.sjwh.Icon = CType(resources.GetObject("sjwh.Icon"), System.Drawing.Icon)
  800.         Me.sjwh.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  801.         Me.sjwh.Name = "sjwh"
  802.         Me.sjwh.Text = "数据维护"
  803.         '
  804.         'tjfx
  805.         '
  806.         Me.tjfx.Icon = CType(resources.GetObject("tjfx.Icon"), System.Drawing.Icon)
  807.         Me.tjfx.Name = "tjfx"
  808.         Me.tjfx.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.medjxc, Me.batchjxc, Me.jxctotal, Me.jxcreport, Me.rkfx, Me.ckfx, Me.skfk})
  809.         Me.tjfx.Text = "统计分析"
  810.         '
  811.         'medjxc
  812.         '
  813.         Me.medjxc.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  814.         Me.medjxc.Icon = CType(resources.GetObject("medjxc.Icon"), System.Drawing.Icon)
  815.         Me.medjxc.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  816.         Me.medjxc.Name = "medjxc"
  817.         Me.medjxc.Text = "药品进销存汇总"
  818.         '
  819.         'batchjxc
  820.         '
  821.         Me.batchjxc.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  822.         Me.batchjxc.Icon = CType(resources.GetObject("batchjxc.Icon"), System.Drawing.Icon)
  823.         Me.batchjxc.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  824.         Me.batchjxc.Name = "batchjxc"
  825.         Me.batchjxc.Text = "批号进销存汇总"
  826.         '
  827.         'jxctotal
  828.         '
  829.         Me.jxctotal.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  830.         Me.jxctotal.Icon = CType(resources.GetObject("jxctotal.Icon"), System.Drawing.Icon)
  831.         Me.jxctotal.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  832.         Me.jxctotal.Name = "jxctotal"
  833.         Me.jxctotal.Text = "每月进销存统计"
  834.         '
  835.         'jxcreport
  836.         '
  837.         Me.jxcreport.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  838.         Me.jxcreport.Icon = CType(resources.GetObject("jxcreport.Icon"), System.Drawing.Icon)
  839.         Me.jxcreport.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  840.         Me.jxcreport.Name = "jxcreport"
  841.         Me.jxcreport.Text = "进销存报表"
  842.         '
  843.         'rkfx
  844.         '
  845.         Me.rkfx.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  846.         Me.rkfx.Icon = CType(resources.GetObject("rkfx.Icon"), System.Drawing.Icon)
  847.         Me.rkfx.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  848.         Me.rkfx.Name = "rkfx"
  849.         Me.rkfx.Text = "采购期间分析"
  850.         '
  851.         'ckfx
  852.         '
  853.         Me.ckfx.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  854.         Me.ckfx.Icon = CType(resources.GetObject("ckfx.Icon"), System.Drawing.Icon)
  855.         Me.ckfx.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  856.         Me.ckfx.Name = "ckfx"
  857.         Me.ckfx.Text = "销售期间分析"
  858.         '
  859.         'skfk
  860.         '
  861.         Me.skfk.ButtonStyle = DevComponents.DotNetBar.eButtonStyle.ImageAndText
  862.         Me.skfk.Icon = CType(resources.GetObject("skfk.Icon"), System.Drawing.Icon)
  863.         Me.skfk.ImagePosition = DevComponents.DotNetBar.eImagePosition.Top
  864.         Me.skfk.Name = "skfk"
  865.         Me.skfk.Text = "收付款提示"
  866.         '
  867.         'Splitter1
  868.         '
  869.         Me.Splitter1.Location = New System.Drawing.Point(160, 88)
  870.         Me.Splitter1.MinExtra = 0
  871.         Me.Splitter1.MinSize = 0
  872.         Me.Splitter1.Name = "Splitter1"
  873.         Me.Splitter1.Size = New System.Drawing.Size(3, 631)
  874.         Me.Splitter1.TabIndex = 6
  875.         Me.Splitter1.TabStop = False
  876.         '
  877.         'ProgressBar1
  878.         '
  879.         Me.ProgressBar1.Dock = System.Windows.Forms.DockStyle.Bottom
  880.         Me.ProgressBar1.Location = New System.Drawing.Point(163, 689)
  881.         Me.ProgressBar1.Name = "ProgressBar1"
  882.         Me.ProgressBar1.Size = New System.Drawing.Size(681, 30)
  883.         Me.ProgressBar1.TabIndex = 8
  884.         '
  885.         'FrmMainStart
  886.         '
  887.         Me.AutoScaleBaseSize = New System.Drawing.Size(8, 18)
  888.         Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
  889.         Me.ClientSize = New System.Drawing.Size(844, 744)
  890.         Me.Controls.Add(Me.ProgressBar1)
  891.         Me.Controls.Add(Me.Splitter1)
  892.         Me.Controls.Add(Me.SideBar1)
  893.         Me.Controls.Add(Me.barLeftDockSite)
  894.         Me.Controls.Add(Me.barRightDockSite)
  895.         Me.Controls.Add(Me.barTopDockSite)
  896.         Me.Controls.Add(Me.barBottomDockSite)
  897.         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
  898.         Me.IsMdiContainer = True
  899.         Me.Name = "FrmMainStart"
  900.         Me.Text = "嘉惠药品信息管理系统"
  901.         Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
  902.         Me.ResumeLayout(False)
  904.     End Sub
  906. #End Region
  907.     Shared Sub Main()
  908.         Dim secity As New localJxc.Encryption
  909.         If secity.readregedit() = True Then
  910.             Application.Run(New frmLogin)
  911.         Else
  912.             Application.Run(New frmregedit)
  913.         End If
  914.     End Sub
  915.   
  917.     Private Sub DnetBar_ItemClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DnetBar.ItemClick
  918.         Dim item As BaseItem = CType(sender, BaseItem)
  920.         If item Is Nothing Then Exit Sub
  921.        
  922.         Select Case item.Text
  923.             Case "采购登记"
  924.                 Dim frmer As New frmrk
  925.                 frmer.MdiParent = Me
  926.                 frmer.Show()
  927.             Case "采购查询"
  928.                 Dim frmer As New frmMedRkTotal
  929.                 frmer.MdiParent = Me
  930.                 frmer.Show()
  931.             Case "销售开单"
  932.                 Dim frmer As New frmCk
  933.                 frmer.MdiParent = Me
  934.                 frmer.Show()
  935.             Case "销售查询"
  936.                 Dim frmer As New frmMedCkTotal
  937.                 frmer.MdiParent = Me
  938.                 frmer.Show()
  939.             Case "库存报溢"
  940.                 Dim frmer As New frmkcby
  941.                 frmer.MdiParent = Me
  942.                 frmer.Show()
  943.             Case "库存报损"
  944.                 Dim frmer As New frmkcbs
  945.                 frmer.MdiParent = Me
  946.                 frmer.Show()
  947.             Case "库存初始化"
  948.                 Dim frmer As New frmKcCs
  949.                 frmer.MdiParent = Me
  950.                 frmer.Show()
  951.             Case "库存药品排行"
  952.                 Dim frmer As New frmMedKcTotal
  953.                 frmer.MdiParent = Me
  954.                 frmer.Show()
  955.             Case "票据打印"
  956.                 Dim frmer As New frmbillquery
  958.                 frmer.MdiParent = Me
  959.                 frmer.Show()
  960.             Case "通用查询"
  961.                 Dim frmer As New frmCommQuery
  963.                 frmer.MdiParent = Me
  964.                 frmer.Show()
  965.             Case "配送中心管理"
  966.                 Dim frmer As New frmPsManage
  968.                 frmer.MdiParent = Me
  969.                 frmer.Show()
  970.             Case "配送对象管理"
  971.                 Dim frmer As New frmMdManage
  973.                 frmer.MdiParent = Me
  974.                 frmer.Show()
  975.             Case "批复补货管理"
  976.                 Dim frmer As New frmPsPf
  978.                 frmer.MdiParent = Me
  979.                 frmer.Show()
  980.             Case "门店配送登记"
  981.                 Dim frmer As New frmPsPst
  983.                 frmer.MdiParent = Me
  984.                 frmer.Show()
  985.             Case "门店退货登记"
  986.                 Dim frmer As New frmPsth
  988.                 frmer.MdiParent = Me
  989.                 frmer.Show()
  990.             Case "门店基本资料"
  991.                 Dim frmer As New frmMdManage
  993.                 frmer.MdiParent = Me
  994.                 frmer.Show()
  995.             Case "门店补货申请"
  996.                 Dim frmer As New frmMdBh
  998.                 frmer.MdiParent = Me
  999.                 frmer.Show()
  1000.             Case "门店收货登记"
  1001.                 Dim frmer As New frmMdSh
  1003.                 frmer.MdiParent = Me
  1004.                 frmer.Show()
  1005.             Case "门店退货登记"
  1006.                 Dim frmer As New frmMdth
  1008.                 frmer.MdiParent = Me
  1009.                 frmer.Show()
  1010.             Case "处方库管理"
  1011.                 Dim frmer As New frmMdcf
  1013.                 frmer.MdiParent = Me
  1014.                 frmer.Show()
  1015.             Case "药品进销存汇总"
  1016.                 Dim frmer As New frmMedNameTotals
  1018.                 frmer.MdiParent = Me
  1019.                 frmer.Show()
  1020.             Case "批号进销存汇总"
  1021.                 Dim frmer As New frmMedKcBatchTotal
  1023.                 frmer.MdiParent = Me
  1024.                 frmer.Show()
  1025.             Case "每月进销存统计"
  1026.                 Dim frmer As New frmMonthTotal
  1028.                 frmer.MdiParent = Me
  1029.                 frmer.Show()
  1031.             Case "进销存报表"
  1032.                 Dim frmer As New FrmJxcTotal
  1034.                 frmer.MdiParent = Me
  1035.                 frmer.Show()
  1036.             Case "采购结算"
  1037.                 Dim frmer As New frmManageFk
  1039.                 frmer.MdiParent = Me
  1040.                 frmer.Show()
  1041.             Case "结算查询"
  1042.                 Dim frmer As New frmrkfkquery
  1044.                 frmer.MdiParent = Me
  1045.                 frmer.Show()
  1046.             Case "采购结算汇总"
  1047.                 Dim frmer As New frmRkFkTotal
  1050.                 frmer.MdiParent = Me
  1051.                 frmer.Show()
  1052.             Case "采购药品统计"
  1053.                 Dim frmer As New frmMedRkTotals
  1056.                 frmer.MdiParent = Me
  1057.                 frmer.Show()
  1059.             Case "销售收款"
  1060.                 Dim frmer As New frmManageSk
  1062.                 frmer.MdiParent = Me
  1063.                 frmer.Show()
  1065.             Case "销售结算查询"
  1066.                 Dim frmer As New frmckskquery
  1068.                 frmer.MdiParent = Me
  1069.                 frmer.Show()
  1071.             Case "销售结算汇总"
  1072.                 Dim frmer As New frmCKSkTotal
  1075.                 frmer.MdiParent = Me
  1076.                 frmer.Show()
  1077.             Case "销售药品统计"
  1078.                 Dim frmer As New frmMedCkTotals
  1081.                 frmer.MdiParent = Me
  1082.                 frmer.Show()
  1083.             Case "药品采购排行"
  1084.                 Dim frmer As New frmRkPhTotal
  1087.                 frmer.MdiParent = Me
  1088.                 frmer.Show()
  1089.             Case "药品销售排行"
  1090.                 Dim frmer As New frmCKPHTotal
  1093.                 frmer.MdiParent = Me
  1094.                 frmer.Show()
  1095.             Case "药品配送排行"
  1096.                 Dim frmer As New frmPsPhTotal
  1099.                 frmer.MdiParent = Me
  1100.                 frmer.Show()
  1101.             Case "药品配送统计"
  1102.                 Dim frmer As New frmPsTotal
  1105.                 frmer.MdiParent = Me
  1106.                 frmer.Show()
  1107.             Case "客户信息"
  1108.                 Dim frmer As New frmkh
  1111.                 frmer.MdiParent = Me
  1112.                 frmer.Show()
  1113.             Case "药品信息"
  1114.                 Dim frmer As New frmCp
  1117.                 frmer.MdiParent = Me
  1118.                 frmer.Show()
  1119.             Case "用户管理"
  1120.                 Dim frmer As New frmPerson
  1123.                 frmer.MdiParent = Me
  1124.                 frmer.Show()
  1125.             Case "权限设置"
  1126.                 Dim frmer As New frmQxManage
  1129.                 frmer.MdiParent = Me
  1130.                 frmer.Show()
  1131.             Case "客户信息查询"
  1132.                 Dim frmer As New frmKhTotal
  1135.                 frmer.MdiParent = Me
  1136.                 frmer.Show()
  1137.             Case "药品信息查询"
  1138.                 Dim frmer As New frmCpTotal
  1141.                 frmer.MdiParent = Me
  1142.                 frmer.Show()
  1143.             Case "采购期间分析"
  1144.                 Dim frmer As New frmRKDateTotal
  1147.                 frmer.MdiParent = Me
  1148.                 frmer.Show()
  1149.             Case "销售期间分析"
  1150.                 Dim frmer As New frmDateTotal
  1151.                 frmer.MdiParent = Me
  1152.                 frmer.Show()
  1154.             Case "收付款提示"
  1155.                 Dim frmer As New frmTodaySKFK
  1156.                 frmer.MdiParent = Me
  1157.                 frmer.Show()
  1158.             Case "调货管理"
  1159.                 Dim frmer As New frmKcth
  1160.                 frmer.MdiParent = Me
  1161.                 frmer.Show()
  1162.             Case "调价管理"
  1163.                 Dim frmer As New frmTj
  1164.                 frmer.MdiParent = Me
  1165.                 frmer.Show()
  1166.             Case "会员信息"
  1167.                 Dim frmer As New frmCardDj
  1169.                 frmer.Show()
  1170.             Case "货位信息"
  1171.                 Dim frmer As New frmHw
  1173.                 frmer.Show()
  1174.             Case "库存盘点"
  1175.                 Dim frmer As New frmPd
  1176.                 frmer.MdiParent = Me
  1177.                 frmer.Show()
  1178.             Case "零售日报表"
  1179.                 Dim frmer As New frmMdqueryes
  1181.                 frmer.MdiParent = Me
  1182.                 frmer.Show()
  1183.             Case "零售查询统计"
  1184.                 Dim frmer As New frmMdtotal
  1186.                 frmer.MdiParent = Me
  1187.                 frmer.Show()
  1188.             Case "调货管理"
  1189.                 Dim frmer As New frmKcth
  1190.                 frmer.MdiParent = Me
  1191.                 frmer.Show()
  1192.             Case "调价管理"
  1193.                 Dim frmer As New frmTj
  1194.                 frmer.MdiParent = Me
  1195.                 frmer.Show()
  1196.             Case "会员信息"
  1197.                 Dim frmer As New frmCardDj
  1199.                 frmer.Show()
  1200.             Case "货位信息"
  1201.                 Dim frmer As New frmHw
  1203.                 frmer.Show()
  1205.             Case "库存查询"
  1207.                 Dim frmer As New frmKCQuery
  1208.                 frmer.MdiParent = Me
  1209.                 frmer.Show()
  1210.             Case "库存盘点"
  1211.                 Dim frmer As New frmPd
  1212.                 frmer.MdiParent = Me
  1213.                 frmer.Show()
  1214.             Case "零售日报表"
  1215.                 Dim frmer As New frmMdqueryes
  1217.                 frmer.MdiParent = Me
  1218.                 frmer.Show()
  1219.             Case "零售查询统计"
  1220.                 Dim frmer As New frmMdtotal
  1222.                 frmer.MdiParent = Me
  1223.                 frmer.Show()
  1224.             Case "门店零售收银"
  1225.                 Dim frmer As New frmMdck
  1227.                 frmer.MdiParent = Me
  1228.                 frmer.Show()
  1229.             Case "药品采购统计"
  1230.                 Dim frmer As New frmMedRkTotals
  1232.                 frmer.MdiParent = Me
  1233.                 frmer.Show()
  1234.             Case "药品销售统计"
  1235.                 Dim frmer As New frmMedCkTotals
  1237.                 frmer.MdiParent = Me
  1238.                 frmer.Show()
  1239.             Case "中心配送结算"
  1240.                 Dim frmer As New frmPsSk
  1242.                 frmer.MdiParent = Me
  1243.                 frmer.Show()
  1244.             Case "中心统计分析"
  1245.                 Dim frmer As New frmPssktotal
  1247.                 frmer.MdiParent = Me
  1248.                 frmer.Show()
  1249.             Case "处方库管理"
  1250.                 Dim frmer As New frmMdcf
  1252.                 frmer.MdiParent = Me
  1253.                 frmer.Show()
  1254.             Case "处方库查询"
  1255.                 Dim frmer As New frmmdcfquery
  1257.                 frmer.MdiParent = Me
  1258.                 frmer.Show()
  1259.             Case "报表设计"
  1260.                 Dim frmer As New StartForm
  1262.                 frmer.MdiParent = Me
  1263.                 frmer.Show()
  1264.             Case "计算器"
  1265.                 System.Diagnostics.Process.Start(System.Environment.SystemDirectory.ToString & "calc.exe")
  1266.             Case "记事本"
  1267.                 System.Diagnostics.Process.Start(System.Environment.SystemDirectory.ToString & "notepad.exe")
  1268.             Case "重新登陆"
  1269.                 Dim frmmainer As frmLogin = New frmLogin
  1271.                 frmmainer.Show()
  1272.                 frmmainer.txtExit.Enabled = False
  1273.             Case "联机检测"
  1275.                 Dim localconn As jxcmanage
  1276.                 If localconn.IsConnected = True Then
  1277.                     DnetBar.GetItem("btnconnect").Enabled = False
  1278.                     DnetBar.GetItem("btntb").Enabled = True
  1279.                 Else
  1280.                     DnetBar.GetItem("btnconnect").Enabled = False
  1283.                 End If
  1285.             Case "同步数据"
  1286.                 Dim localconn As New jxcmanage
  1287.                 DnetBar.GetItem("btntb").Enabled = False
  1288.                 Dim Lcount As Int16
  1289.                 Lcount = localconn.returncount("sp_addwebdata")
  1290.                 If Lcount <= 0 Then
  1291.                     MessageBox.Show("上传数据失败！请重新上传数据", "提示", MessageBoxButtons.OK)
  1292.                 Else
  1293.                     Dim i As Int16
  1294.                     ProgressBar1.Maximum = Lcount
  1295.                     For i = 0 To ProgressBar1.Maximum
  1296.                         ProgressBar1.Value = i
  1297.                         Timer1_Timer()
  1298.                     Next i
  1299.                     MessageBox.Show("上传数据" & Lcount & "条记录", "提示", MessageBoxButtons.OK)
  1300.                     DnetBar.GetItem("btnconnect").Enabled = True
  1304.                     'DnetBar.Bars.Item(2).Items(6).SubItems(0).
  1306.                 End If
  1307.             Case "退出"
  1308.                 Application.Exit()
  1309.             Case "数据维护"
  1310.                 Dim frmer As New frmDataManage
  1311.                 frmer.MdiParent = Me
  1312.                 frmer.Show()
  1313.         End Select
  1315.     End Sub
  1316.     Private Sub Timer1_Timer()
  1317.         ProgressBar1.Value = ProgressBar1.Value
  1318.         If ProgressBar1.Value = ProgressBar1.Maximum - 1 Then Timer1.Enabled = False
  1319.     End Sub
  1320.     Private Sub FrmMainStart_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  1323.         Dim frmloginer As New frmLogin
  1324.         Dim lsweb As New jxcmanage
  1326.         Dim lsuser As String
  1327.         Dim i, j, k, g As Int16
  1328.         lsuser = frmloginer.struser
  1329.         DnetBar.Bars.Item(2).Items(1).Text = "操作员：" & lsuser
  1330.         DnetBar.Bars.Item(2).Items(2).Text = "日期：" & Today().ToShortDateString
  1331.         DnetBar.Bars.Item(2).Items(3).Text = "联系电话：0451-82530557"
  1332.         DnetBar.Bars.Item(2).Items(4).Text = "移动电话：13604802654"
  1333.         DnetBar.Bars.Item(2).Items(5).Text = "QQ：103851272"
  1340.         Dim lsObject As jxcmanage
  1341.         Dim cn As System.Data.SqlClient.SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings.Get("constr"))
  1342.         cn.Open()
  1343.         Dim cmdmenu As New SqlClient.SqlCommand
  1344.         cmdmenu.Connection = cn
  1345.         cmdmenu.CommandText = "select Cname,dbit from wz_Qxmenu where username ='" & lsuser & "' and dbit =0"
  1346.         Dim drd As SqlDataReader = cmdmenu.ExecuteReader()
  1347.         Do While drd.Read()
  1348.             For i = 0 To SideBar1.Panels.Count - 1
  1349.                 If drd.GetString(0).Trim = SideBar1.Panels(i).Text.Trim Then
  1350.                     SideBar1.Panels(i).Visible = False
  1352.                 End If
  1353.                 For j = 0 To SideBar1.Panels(i).SubItems.Count - 1
  1354.                     If drd.GetString(0).Trim = SideBar1.Panels(i).SubItems(j).Text.Trim Then
  1355.                         SideBar1.Panels(i).SubItems(j).Visible = False
  1357.                     End If
  1358.                 Next
  1360.             Next
  1361.             For k = 0 To DnetBar.Bars.Item(0).Items.Count - 1
  1362.                 If drd.GetString(0).Trim = DnetBar.Bars.Item(0).Items(k).Text.Trim Then
  1363.                     DnetBar.Bars.Item(0).Items(k).Visible = False
  1364.                 End If
  1365.                 For g = 0 To DnetBar.Bars.Item(0).Items(k).SubItems.Count - 1
  1366.                     If drd.GetString(0).Trim = DnetBar.Bars.Item(0).Items(k).SubItems(g).Text.Trim Then
  1367.                         DnetBar.Bars.Item(0).Items(k).SubItems(g).Visible = False
  1368.                     End If
  1369.                 Next
  1371.             Next
  1372.         Loop
  1374.     End Sub
  1380.     Private Sub SideBar1_ItemClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles SideBar1.ItemClick
  1381.         Dim item As BaseItem = CType(sender, BaseItem)
  1383.         If item Is Nothing Then Exit Sub
  1386.         Select Case item.Text
  1387.             Case "采购登记"
  1388.                 Dim frmer As New frmrk
  1389.                 frmer.MdiParent = Me
  1390.                 frmer.Show()
  1391.             Case "采购查询"
  1392.                 Dim frmer As New frmMedRkTotal
  1393.                 frmer.MdiParent = Me
  1394.                 frmer.Show()
  1395.             Case "销售开单"
  1396.                 Dim frmer As New frmCk
  1397.                 frmer.MdiParent = Me
  1398.                 frmer.Show()
  1399.             Case "销售查询"
  1400.                 Dim frmer As New frmMedCkTotal
  1401.                 frmer.MdiParent = Me
  1402.                 frmer.Show()
  1403.             Case "库存查询"
  1405.                 Dim frmer As New frmKCQuery
  1406.                 frmer.MdiParent = Me
  1407.                 frmer.Show()
  1408.             Case "库存报溢"
  1409.                 Dim frmer As New frmkcby
  1410.                 frmer.MdiParent = Me
  1411.                 frmer.Show()
  1412.             Case "库存报损"
  1413.                 Dim frmer As New frmkcbs
  1414.                 frmer.MdiParent = Me
  1415.                 frmer.Show()
  1416.             Case "库存初始化"
  1417.                 Dim frmer As New frmKcCs
  1418.                 frmer.MdiParent = Me
  1419.                 frmer.Show()
  1420.             Case "库存药品排行"
  1421.                 Dim frmer As New frmMedKcTotal
  1422.                 frmer.MdiParent = Me
  1423.                 frmer.Show()
  1424.             Case "票据打印"
  1425.                 Dim frmer As New frmbillquery
  1427.                 frmer.MdiParent = Me
  1428.                 frmer.Show()
  1429.             Case "通用查询"
  1430.                 Dim frmer As New frmCommQuery
  1432.                 frmer.MdiParent = Me
  1433.                 frmer.Show()
  1434.             Case "配送中心管理"
  1435.                 Dim frmer As New frmPsManage
  1437.                 frmer.MdiParent = Me
  1438.                 frmer.Show()
  1439.             Case "配送对象管理"
  1440.                 Dim frmer As New frmMdManage
  1442.                 frmer.MdiParent = Me
  1443.                 frmer.Show()
  1444.             Case "批复补货管理"
  1445.                 Dim frmer As New frmPsPf
  1447.                 frmer.MdiParent = Me
  1448.                 frmer.Show()
  1449.             Case "门店配送登记"
  1450.                 Dim frmer As New frmPsPst
  1452.                 frmer.MdiParent = Me
  1453.                 frmer.Show()
  1454.             Case "配送退货登记"
  1455.                 Dim frmer As New frmPsth
  1457.                 frmer.MdiParent = Me
  1458.                 frmer.Show()
  1459.             Case "门店基本资料"
  1460.                 Dim frmer As New frmMdManage
  1462.                 frmer.MdiParent = Me
  1463.                 frmer.Show()
  1464.             Case "门店补货申请"
  1465.                 Dim frmer As New frmMdBh
  1467.                 frmer.MdiParent = Me
  1468.                 frmer.Show()
  1469.             Case "门店收货登记"
  1470.                 Dim frmer As New frmMdSh
  1472.                 frmer.MdiParent = Me
  1473.                 frmer.Show()
  1474.             Case "门店退货登记"
  1475.                 Dim frmer As New frmMdth
  1477.                 frmer.MdiParent = Me
  1478.                 frmer.Show()
  1479.             Case "处方库管理"
  1480.                 Dim frmer As New frmMdcf
  1482.                 frmer.MdiParent = Me
  1483.                 frmer.Show()
  1484.             Case "药品进销存汇总"
  1485.                 Dim frmer As New frmMedNameTotals
  1487.                 frmer.MdiParent = Me
  1488.                 frmer.Show()
  1489.             Case "批号进销存汇总"
  1490.                 Dim frmer As New frmMedKcBatchTotal
  1492.                 frmer.MdiParent = Me
  1493.                 frmer.Show()
  1494.             Case "每月进销存统计"
  1495.                 Dim frmer As New frmMonthTotal
  1497.                 frmer.MdiParent = Me
  1498.                 frmer.Show()
  1500.             Case "进销存报表"
  1501.                 Dim frmer As New FrmJxcTotal
  1503.                 frmer.MdiParent = Me
  1504.                 frmer.Show()
  1505.             Case "采购结算"
  1506.                 Dim frmer As New frmManageFk
  1508.                 frmer.MdiParent = Me
  1509.                 frmer.Show()
  1510.             Case "结算查询"
  1511.                 Dim frmer As New frmrkfkquery
  1513.                 frmer.MdiParent = Me
  1514.                 frmer.Show()
  1515.             Case "采购结算汇总"
  1516.                 Dim frmer As New frmRkFkTotal
  1519.                 frmer.MdiParent = Me
  1520.                 frmer.Show()
  1521.             Case "采购药品统计"
  1522.                 Dim frmer As New frmMedRkTotals
  1525.                 frmer.MdiParent = Me
  1526.                 frmer.Show()
  1528.             Case "销售收款"
  1529.                 Dim frmer As New frmManageSk
  1531.                 frmer.MdiParent = Me
  1532.                 frmer.Show()
  1534.             Case "销售结算查询"
  1535.                 Dim frmer As New frmckskquery
  1537.                 frmer.MdiParent = Me
  1538.                 frmer.Show()
  1540.             Case "销售结算汇总"
  1541.                 Dim frmer As New frmCKSkTotal
  1544.                 frmer.MdiParent = Me
  1545.                 frmer.Show()
  1546.             Case "销售药品统计"
  1547.                 Dim frmer As New frmMedCkTotals
  1550.                 frmer.MdiParent = Me
  1551.                 frmer.Show()
  1552.             Case "药品采购排行"
  1553.                 Dim frmer As New frmRkPhTotal
  1556.                 frmer.MdiParent = Me
  1557.                 frmer.Show()
  1558.             Case "药品销售排行"
  1559.                 Dim frmer As New frmCKPHTotal
  1562.                 frmer.MdiParent = Me
  1563.                 frmer.Show()
  1564.             Case "药品配送排行"
  1565.                 Dim frmer As New frmPsPhTotal
  1568.                 frmer.MdiParent = Me
  1569.                 frmer.Show()
  1570.             Case "药品配送统计"
  1571.                 Dim frmer As New frmPsTotal
  1574.                 frmer.MdiParent = Me
  1575.                 frmer.Show()
  1576.             Case "客户信息"
  1577.                 Dim frmer As New frmkh
  1580.                 frmer.MdiParent = Me
  1581.                 frmer.Show()
  1582.             Case "药品信息"
  1583.                 Dim frmer As New frmCp
  1586.                 frmer.MdiParent = Me
  1587.                 frmer.Show()
  1588.             Case "用户管理"
  1589.                 Dim frmer As New frmPerson
  1592.                 frmer.MdiParent = Me
  1593.                 frmer.Show()
  1594.             Case "权限设置"
  1595.                 Dim frmer As New frmQxManage
  1598.                 frmer.MdiParent = Me
  1599.                 frmer.Show()
  1600.             Case "客户信息查询"
  1601.                 Dim frmer As New frmKhTotal
  1604.                 frmer.MdiParent = Me
  1605.                 frmer.Show()
  1606.             Case "药品信息查询"
  1607.                 Dim frmer As New frmCpTotal
  1610.                 frmer.MdiParent = Me
  1611.                 frmer.Show()
  1612.             Case "采购期间分析"
  1613.                 Dim frmer As New frmRKDateTotal
  1616.                 frmer.MdiParent = Me
  1617.                 frmer.Show()
  1618.             Case "销售期间分析"
  1619.                 Dim frmer As New frmDateTotal
  1620.                 frmer.MdiParent = Me
  1621.                 frmer.Show()
  1623.             Case "收付款提示"
  1624.                 Dim frmer As New frmTodaySKFK
  1625.                 frmer.MdiParent = Me
  1626.                 frmer.Show()
  1627.             Case "调货管理"
  1628.                 Dim frmer As New frmKcth
  1629.                 frmer.MdiParent = Me
  1630.                 frmer.Show()
  1631.             Case "调价管理"
  1632.                 Dim frmer As New frmTj
  1633.                 frmer.MdiParent = Me
  1634.                 frmer.Show()
  1635.             Case "会员信息"
  1636.                 Dim frmer As New frmCardDj
  1638.                 frmer.Show()
  1639.             Case "货位信息"
  1640.                 Dim frmer As New frmHw
  1642.                 frmer.Show()
  1643.             Case "库存盘点"
  1644.                 Dim frmer As New frmPd
  1645.                 frmer.MdiParent = Me
  1646.                 frmer.Show()
  1647.             Case "零售日报表"
  1648.                 Dim frmer As New frmMdqueryes
  1650.                 frmer.MdiParent = Me
  1651.                 frmer.Show()
  1652.             Case "零售查询统计"
  1653.                 Dim frmer As New frmMdtotal
  1655.                 frmer.MdiParent = Me
  1656.                 frmer.Show()
  1657.             Case "调货管理"
  1658.                 Dim frmer As New frmKcth
  1659.                 frmer.MdiParent = Me
  1660.                 frmer.Show()
  1661.             Case "调价管理"
  1662.                 Dim frmer As New frmTj
  1663.                 frmer.MdiParent = Me
  1664.                 frmer.Show()
  1665.             Case "会员信息"
  1666.                 Dim frmer As New frmCardDj
  1668.                 frmer.Show()
  1669.             Case "货位信息"
  1670.                 Dim frmer As New frmHw
  1672.                 frmer.Show()
  1673.             Case "库存盘点"
  1674.                 Dim frmer As New frmPd
  1675.                 frmer.MdiParent = Me
  1676.                 frmer.Show()
  1677.             Case "零售日报表"
  1678.                 Dim frmer As New frmMdqueryes
  1680.                 frmer.MdiParent = Me
  1681.                 frmer.Show()
  1682.             Case "零售查询统计"
  1683.                 Dim frmer As New frmMdtotal
  1685.                 frmer.MdiParent = Me
  1686.                 frmer.Show()
  1687.             Case "门店零售收银 "
  1688.                 Dim frmer As New frmMdck
  1690.                 frmer.MdiParent = Me
  1691.                 frmer.Show()
  1692.             Case "药品采购统计"
  1693.                 Dim frmer As New frmMedRkTotals
  1695.                 frmer.MdiParent = Me
  1696.                 frmer.Show()
  1697.             Case "药品销售统计"
  1698.                 Dim frmer As New frmMedCkTotals
  1700.                 frmer.MdiParent = Me
  1701.                 frmer.Show()
  1702.             Case "中心配送结算"
  1703.                 Dim frmer As New frmPsSk
  1705.                 frmer.MdiParent = Me
  1706.                 frmer.Show()
  1707.             Case "中心统计分析"
  1708.                 Dim frmer As New frmPssktotal
  1710.                 frmer.MdiParent = Me
  1711.                 frmer.Show()
  1712.             Case "处方库管理 "
  1713.                 Dim frmer As New frmMdcf
  1715.                 frmer.MdiParent = Me
  1716.                 frmer.Show()
  1717.             Case "处方库查询 "
  1718.                 Dim frmer As New frmmdcfquery
  1720.                 frmer.MdiParent = Me
  1721.                 frmer.Show()
  1722.             Case "报表设计"
  1723.                 Dim frmer As New StartForm
  1725.                 frmer.MdiParent = Me
  1726.                 frmer.Show()
  1727.             Case "数据维护"
  1728.                 Dim frmer As New frmDataManage
  1729.                 frmer.MdiParent = Me
  1730.                 frmer.Show()
  1731.         End Select
  1733.     End Sub
  1736. End Class