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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
main.frm
资源名称：ERPSYS.zip　[点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：20k
源码类别：

企业管理

开发平台：

Visual Basic

main.frm：源码内容
  1. VERSION 5.00
  2. Begin VB.Form MainForm 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "总控台"
  5.    ClientHeight    =   6360
  6.    ClientLeft      =   1680
  7.    ClientTop       =   2385
  8.    ClientWidth     =   9000
  9.    Icon            =   "main.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    LockControls    =   -1  'True
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   6360
  15.    ScaleWidth      =   9000
  16.    Begin VB.Label Label1 
  17.       AutoSize        =   -1  'True
  18.       BackStyle       =   0  'Transparent
  19.       Caption         =   "退出"
  20.       BeginProperty Font 
  21.          Name            =   "宋体"
  22.          Size            =   10.5
  23.          Charset         =   0
  24.          Weight          =   400
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       ForeColor       =   &H8000000E&
  30.       Height          =   210
  31.       Index           =   21
  32.       Left            =   7260
  33.       MouseIcon       =   "main.frx":1042
  34.       MousePointer    =   99  'Custom
  35.       TabIndex        =   21
  36.       Top             =   5220
  37.       Width           =   420
  38.    End
  39.    Begin VB.Label Label1 
  40.       AutoSize        =   -1  'True
  41.       BackStyle       =   0  'Transparent
  42.       Caption         =   "基础数据"
  43.       BeginProperty Font 
  44.          Name            =   "宋体"
  45.          Size            =   10.5
  46.          Charset         =   0
  47.          Weight          =   400
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       ForeColor       =   &H8000000E&
  53.       Height          =   210
  54.       Index           =   20
  55.       Left            =   5400
  56.       MouseIcon       =   "main.frx":134C
  57.       MousePointer    =   99  'Custom
  58.       TabIndex        =   20
  59.       Top             =   5220
  60.       Width           =   840
  61.    End
  62.    Begin VB.Label Label1 
  63.       AutoSize        =   -1  'True
  64.       BackStyle       =   0  'Transparent
  65.       Caption         =   "财务分析"
  66.       BeginProperty Font 
  67.          Name            =   "宋体"
  68.          Size            =   10.5
  69.          Charset         =   0
  70.          Weight          =   400
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       ForeColor       =   &H8000000E&
  76.       Height          =   210
  77.       Index           =   19
  78.       Left            =   5400
  79.       MouseIcon       =   "main.frx":1656
  80.       MousePointer    =   99  'Custom
  81.       TabIndex        =   19
  82.       Top             =   3210
  83.       Width           =   840
  84.    End
  85.    Begin VB.Label Label1 
  86.       AutoSize        =   -1  'True
  87.       BackStyle       =   0  'Transparent
  88.       Caption         =   "成本核算"
  89.       BeginProperty Font 
  90.          Name            =   "宋体"
  91.          Size            =   10.5
  92.          Charset         =   0
  93.          Weight          =   400
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       ForeColor       =   &H8000000E&
  99.       Height          =   210
  100.       Index           =   18
  101.       Left            =   5400
  102.       MouseIcon       =   "main.frx":1960
  103.       MousePointer    =   99  'Custom
  104.       TabIndex        =   18
  105.       Top             =   2775
  106.       Width           =   840
  107.    End
  108.    Begin VB.Label Label1 
  109.       AutoSize        =   -1  'True
  110.       BackStyle       =   0  'Transparent
  111.       Caption         =   "包装物管理"
  112.       BeginProperty Font 
  113.          Name            =   "宋体"
  114.          Size            =   10.5
  115.          Charset         =   0
  116.          Weight          =   400
  117.          Underline       =   0   'False
  118.          Italic          =   0   'False
  119.          Strikethrough   =   0   'False
  120.       EndProperty
  121.       ForeColor       =   &H8000000E&
  122.       Height          =   210
  123.       Index           =   4
  124.       Left            =   7260
  125.       MouseIcon       =   "main.frx":1C6A
  126.       MousePointer    =   99  'Custom
  127.       TabIndex        =   17
  128.       Top             =   2775
  129.       Width           =   1050
  130.    End
  131.    Begin VB.Label Label1 
  132.       AutoSize        =   -1  'True
  133.       BackStyle       =   0  'Transparent
  134.       Caption         =   "运输系统"
  135.       BeginProperty Font 
  136.          Name            =   "宋体"
  137.          Size            =   10.5
  138.          Charset         =   0
  139.          Weight          =   400
  140.          Underline       =   0   'False
  141.          Italic          =   0   'False
  142.          Strikethrough   =   0   'False
  143.       EndProperty
  144.       ForeColor       =   &H8000000E&
  145.       Height          =   210
  146.       Index           =   16
  147.       Left            =   7260
  148.       MouseIcon       =   "main.frx":1F74
  149.       MousePointer    =   99  'Custom
  150.       TabIndex        =   16
  151.       Top             =   3210
  152.       Width           =   840
  153.    End
  154.    Begin VB.Label Label1 
  155.       AutoSize        =   -1  'True
  156.       BackStyle       =   0  'Transparent
  157.       Caption         =   "系统管理"
  158.       BeginProperty Font 
  159.          Name            =   "宋体"
  160.          Size            =   10.5
  161.          Charset         =   0
  162.          Weight          =   400
  163.          Underline       =   0   'False
  164.          Italic          =   0   'False
  165.          Strikethrough   =   0   'False
  166.       EndProperty
  167.       ForeColor       =   &H8000000E&
  168.       Height          =   210
  169.       Index           =   17
  170.       Left            =   7260
  171.       MouseIcon       =   "main.frx":227E
  172.       MousePointer    =   99  'Custom
  173.       TabIndex        =   15
  174.       Top             =   4830
  175.       Width           =   840
  176.    End
  177.    Begin VB.Label Label1 
  178.       AutoSize        =   -1  'True
  179.       BackStyle       =   0  'Transparent
  180.       Caption         =   "财务总帐"
  181.       BeginProperty Font 
  182.          Name            =   "宋体"
  183.          Size            =   10.5
  184.          Charset         =   0
  185.          Weight          =   400
  186.          Underline       =   0   'False
  187.          Italic          =   0   'False
  188.          Strikethrough   =   0   'False
  189.       EndProperty
  190.       ForeColor       =   &H8000000E&
  191.       Height          =   210
  192.       Index           =   0
  193.       Left            =   5400
  194.       MouseIcon       =   "main.frx":2588
  195.       MousePointer    =   99  'Custom
  196.       TabIndex        =   14
  197.       Top             =   1110
  198.       Width           =   840
  199.    End
  200.    Begin VB.Label Label1 
  201.       AutoSize        =   -1  'True
  202.       BackStyle       =   0  'Transparent
  203.       Caption         =   "应付系统"
  204.       BeginProperty Font 
  205.          Name            =   "宋体"
  206.          Size            =   10.5
  207.          Charset         =   0
  208.          Weight          =   400
  209.          Underline       =   0   'False
  210.          Italic          =   0   'False
  211.          Strikethrough   =   0   'False
  212.       EndProperty
  213.       ForeColor       =   &H8000000E&
  214.       Height          =   210
  215.       Index           =   1
  216.       Left            =   5400
  217.       MouseIcon       =   "main.frx":2892
  218.       MousePointer    =   99  'Custom
  219.       TabIndex        =   13
  220.       Top             =   1920
  221.       Width           =   840
  222.    End
  223.    Begin VB.Label Label1 
  224.       AutoSize        =   -1  'True
  225.       BackStyle       =   0  'Transparent
  226.       Caption         =   "质量系统"
  227.       BeginProperty Font 
  228.          Name            =   "宋体"
  229.          Size            =   10.5
  230.          Charset         =   0
  231.          Weight          =   400
  232.          Underline       =   0   'False
  233.          Italic          =   0   'False
  234.          Strikethrough   =   0   'False
  235.       EndProperty
  236.       ForeColor       =   &H8000000E&
  237.       Height          =   210
  238.       Index           =   14
  239.       Left            =   7260
  240.       MouseIcon       =   "main.frx":2B9C
  241.       MousePointer    =   99  'Custom
  242.       TabIndex        =   12
  243.       Top             =   4020
  244.       Width           =   840
  245.    End
  246.    Begin VB.Label Label1 
  247.       AutoSize        =   -1  'True
  248.       BackStyle       =   0  'Transparent
  249.       Caption         =   "生产计划"
  250.       BeginProperty Font 
  251.          Name            =   "宋体"
  252.          Size            =   10.5
  253.          Charset         =   0
  254.          Weight          =   400
  255.          Underline       =   0   'False
  256.          Italic          =   0   'False
  257.          Strikethrough   =   0   'False
  258.       EndProperty
  259.       ForeColor       =   &H8000000E&
  260.       Height          =   210
  261.       Index           =   13
  262.       Left            =   7260
  263.       MouseIcon       =   "main.frx":2EA6
  264.       MousePointer    =   99  'Custom
  265.       TabIndex        =   11
  266.       Top             =   3615
  267.       Width           =   840
  268.    End
  269.    Begin VB.Label Label1 
  270.       AutoSize        =   -1  'True
  271.       BackStyle       =   0  'Transparent
  272.       Caption         =   "工资管理"
  273.       BeginProperty Font 
  274.          Name            =   "宋体"
  275.          Size            =   10.5
  276.          Charset         =   0
  277.          Weight          =   400
  278.          Underline       =   0   'False
  279.          Italic          =   0   'False
  280.          Strikethrough   =   0   'False
  281.       EndProperty
  282.       ForeColor       =   &H8000000E&
  283.       Height          =   210
  284.       Index           =   7
  285.       Left            =   5400
  286.       MouseIcon       =   "main.frx":31B0
  287.       MousePointer    =   99  'Custom
  288.       TabIndex        =   10
  289.       Top             =   4425
  290.       Width           =   840
  291.    End
  292.    Begin VB.Label Label1 
  293.       AutoSize        =   -1  'True
  294.       BackStyle       =   0  'Transparent
  295.       Caption         =   "人事管理"
  296.       BeginProperty Font 
  297.          Name            =   "宋体"
  298.          Size            =   10.5
  299.          Charset         =   0
  300.          Weight          =   400
  301.          Underline       =   0   'False
  302.          Italic          =   0   'False
  303.          Strikethrough   =   0   'False
  304.       EndProperty
  305.       ForeColor       =   &H8000000E&
  306.       Height          =   210
  307.       Index           =   6
  308.       Left            =   5400
  309.       MouseIcon       =   "main.frx":34BA
  310.       MousePointer    =   99  'Custom
  311.       TabIndex        =   9
  312.       Top             =   4020
  313.       Width           =   840
  314.    End
  315.    Begin VB.Label Label1 
  316.       AutoSize        =   -1  'True
  317.       BackStyle       =   0  'Transparent
  318.       Caption         =   "存货核算"
  319.       BeginProperty Font 
  320.          Name            =   "宋体"
  321.          Size            =   10.5
  322.          Charset         =   0
  323.          Weight          =   400
  324.          Underline       =   0   'False
  325.          Italic          =   0   'False
  326.          Strikethrough   =   0   'False
  327.       EndProperty
  328.       ForeColor       =   &H8000000E&
  329.       Height          =   210
  330.       Index           =   11
  331.       Left            =   7260
  332.       MouseIcon       =   "main.frx":37C4
  333.       MousePointer    =   99  'Custom
  334.       TabIndex        =   8
  335.       Top             =   1920
  336.       Width           =   840
  337.    End
  338.    Begin VB.Label Label1 
  339.       AutoSize        =   -1  'True
  340.       BackStyle       =   0  'Transparent
  341.       Caption         =   "库存系统"
  342.       BeginProperty Font 
  343.          Name            =   "宋体"
  344.          Size            =   10.5
  345.          Charset         =   0
  346.          Weight          =   400
  347.          Underline       =   0   'False
  348.          Italic          =   0   'False
  349.          Strikethrough   =   0   'False
  350.       EndProperty
  351.       ForeColor       =   &H8000000E&
  352.       Height          =   210
  353.       Index           =   10
  354.       Left            =   7260
  355.       MouseIcon       =   "main.frx":3ACE
  356.       MousePointer    =   99  'Custom
  357.       TabIndex        =   7
  358.       Top             =   1515
  359.       Width           =   840
  360.    End
  361.    Begin VB.Label Label1 
  362.       AutoSize        =   -1  'True
  363.       BackStyle       =   0  'Transparent
  364.       Caption         =   "销售系统"
  365.       BeginProperty Font 
  366.          Name            =   "宋体"
  367.          Size            =   10.5
  368.          Charset         =   0
  369.          Weight          =   400
  370.          Underline       =   0   'False
  371.          Italic          =   0   'False
  372.          Strikethrough   =   0   'False
  373.       EndProperty
  374.       ForeColor       =   &H8000000E&
  375.       Height          =   210
  376.       Index           =   12
  377.       Left            =   7260
  378.       MouseIcon       =   "main.frx":3DD8
  379.       MousePointer    =   99  'Custom
  380.       TabIndex        =   6
  381.       Top             =   2370
  382.       Width           =   840
  383.    End
  384.    Begin VB.Label Label1 
  385.       AutoSize        =   -1  'True
  386.       BackStyle       =   0  'Transparent
  387.       Caption         =   "采购系统"
  388.       BeginProperty Font 
  389.          Name            =   "宋体"
  390.          Size            =   10.5
  391.          Charset         =   0
  392.          Weight          =   400
  393.          Underline       =   0   'False
  394.          Italic          =   0   'False
  395.          Strikethrough   =   0   'False
  396.       EndProperty
  397.       ForeColor       =   &H8000000E&
  398.       Height          =   210
  399.       Index           =   9
  400.       Left            =   7260
  401.       MouseIcon       =   "main.frx":40E2
  402.       MousePointer    =   99  'Custom
  403.       TabIndex        =   5
  404.       Top             =   1110
  405.       Width           =   840
  406.    End
  407.    Begin VB.Label Label1 
  408.       AutoSize        =   -1  'True
  409.       BackStyle       =   0  'Transparent
  410.       Caption         =   "电子报表"
  411.       BeginProperty Font 
  412.          Name            =   "宋体"
  413.          Size            =   10.5
  414.          Charset         =   0
  415.          Weight          =   400
  416.          Underline       =   0   'False
  417.          Italic          =   0   'False
  418.          Strikethrough   =   0   'False
  419.       EndProperty
  420.       ForeColor       =   &H8000000E&
  421.       Height          =   210
  422.       Index           =   5
  423.       Left            =   5400
  424.       MouseIcon       =   "main.frx":43EC
  425.       MousePointer    =   99  'Custom
  426.       TabIndex        =   4
  427.       Top             =   3615
  428.       Width           =   840
  429.    End
  430.    Begin VB.Label Label1 
  431.       AutoSize        =   -1  'True
  432.       BackStyle       =   0  'Transparent
  433.       Caption         =   "应收系统"
  434.       BeginProperty Font 
  435.          Name            =   "宋体"
  436.          Size            =   10.5
  437.          Charset         =   0
  438.          Weight          =   400
  439.          Underline       =   0   'False
  440.          Italic          =   0   'False
  441.          Strikethrough   =   0   'False
  442.       EndProperty
  443.       ForeColor       =   &H8000000E&
  444.       Height          =   210
  445.       Index           =   2
  446.       Left            =   5400
  447.       MouseIcon       =   "main.frx":46F6
  448.       MousePointer    =   99  'Custom
  449.       TabIndex        =   3
  450.       Top             =   1515
  451.       Width           =   840
  452.    End
  453.    Begin VB.Label Label1 
  454.       AutoSize        =   -1  'True
  455.       BackStyle       =   0  'Transparent
  456.       Caption         =   "设备管理"
  457.       BeginProperty Font 
  458.          Name            =   "宋体"
  459.          Size            =   10.5
  460.          Charset         =   0
  461.          Weight          =   400
  462.          Underline       =   0   'False
  463.          Italic          =   0   'False
  464.          Strikethrough   =   0   'False
  465.       EndProperty
  466.       ForeColor       =   &H8000000E&
  467.       Height          =   210
  468.       Index           =   15
  469.       Left            =   7260
  470.       MouseIcon       =   "main.frx":4A00
  471.       MousePointer    =   99  'Custom
  472.       TabIndex        =   2
  473.       Top             =   4425
  474.       Width           =   840
  475.    End
  476.    Begin VB.Label Label1 
  477.       AutoSize        =   -1  'True
  478.       BackStyle       =   0  'Transparent
  479.       Caption         =   "固定资产"
  480.       BeginProperty Font 
  481.          Name            =   "宋体"
  482.          Size            =   10.5
  483.          Charset         =   0
  484.          Weight          =   400
  485.          Underline       =   0   'False
  486.          Italic          =   0   'False
  487.          Strikethrough   =   0   'False
  488.       EndProperty
  489.       ForeColor       =   &H00FFFFFF&
  490.       Height          =   210
  491.       Index           =   3
  492.       Left            =   5400
  493.       MouseIcon       =   "main.frx":4D0A
  494.       MousePointer    =   99  'Custom
  495.       TabIndex        =   1
  496.       Top             =   2370
  497.       Width           =   840
  498.    End
  499.    Begin VB.Label Label1 
  500.       AutoSize        =   -1  'True
  501.       BackStyle       =   0  'Transparent
  502.       Caption         =   "考核管理"
  503.       BeginProperty Font 
  504.          Name            =   "宋体"
  505.          Size            =   10.5
  506.          Charset         =   0
  507.          Weight          =   400
  508.          Underline       =   0   'False
  509.          Italic          =   0   'False
  510.          Strikethrough   =   0   'False
  511.       EndProperty
  512.       ForeColor       =   &H8000000E&
  513.       Height          =   210
  514.       Index           =   8
  515.       Left            =   5400
  516.       MouseIcon       =   "main.frx":5014
  517.       MousePointer    =   99  'Custom
  518.       TabIndex        =   0
  519.       Top             =   4830
  520.       Width           =   840
  521.    End
  522.    Begin VB.Image Image1 
  523.       Height          =   6375
  524.       Left            =   0
  525.       Picture         =   "main.frx":531E
  526.       Top             =   -30
  527.       Width           =   9000
  528.    End
  529. End
  530. Attribute VB_Name = "MainForm"
  531. Attribute VB_GlobalNameSpace = False
  532. Attribute VB_Creatable = False
  533. Attribute VB_PredeclaredId = True
  534. Attribute VB_Exposed = False
  535. Option Explicit
  537. Private Sub Form_Load()
  538.     Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
  539.     
  540.     If App.PrevInstance Then
  541.         MsgBox "您已经打开了一个控制台！请切换到这个控制台。", vbInformation, "提醒"
  542.         End
  543.     End If
  544.     
  545. End Sub
  548. Private Sub Label1_Click(Index As Integer)
  549.     On Error GoTo EXIT_ERR
  550.     
  551.     Select Case Index
  552.        Case 0
  553.          Shell App.Path & "财务总帐.exe", vbNormalFocus
  554.        Case 1
  555.          Shell App.Path & "应付系统.exe", vbNormalFocus
  556.        Case 2
  557.          Shell App.Path & "应收系统.exe", vbNormalFocus
  558.        Case 3
  559.          Shell App.Path & "固定资产.exe", vbNormalFocus
  560.        Case 4
  561.          Shell App.Path & "包装物管理.exe", vbNormalFocus
  562.        Case 5
  563.          Shell App.Path & "电子报表.exe", vbNormalFocus
  564.        Case 6
  565.          Shell App.Path & "人事管理.exe", vbNormalFocus
  566.        Case 7
  567.          Shell App.Path & "工资管理.exe", vbNormalFocus
  568.        Case 8
  569.          Shell App.Path & "考核管理.exe", vbNormalFocus
  570.        Case 9
  571.          Shell App.Path & "采购系统.exe", vbNormalFocus
  572.        Case 10
  573.          Shell App.Path & "库存系统.exe", vbNormalFocus
  574.        Case 11
  575.          Shell App.Path & "存货核算.exe", vbNormalFocus
  576.        Case 12
  577.          Shell App.Path & "销售系统.exe", vbNormalFocus
  578.        Case 13
  579.          Shell App.Path & "生产计划.exe", vbNormalFocus
  580.        Case 14
  581.          Shell App.Path & "质量系统.exe", vbNormalFocus
  582.        Case 15
  583.          Shell App.Path & "设备管理.exe", vbNormalFocus
  584.        Case 16
  585.          Shell App.Path & "运输系统.exe", vbNormalFocus
  586.        Case 17
  587.          Shell App.Path & "系统管理.exe", vbNormalFocus
  588.        Case 18
  589.          Shell App.Path & "成本核算.exe", vbNormalFocus
  590.        Case 19
  591.          Shell App.Path & "财务分析.exe", vbNormalFocus
  592.        Case 20
  593.          Shell App.Path & "基础数据.exe", vbNormalFocus
  594.        Case 21
  595.          Unload Me
  596.          Exit Sub
  597.     End Select
  598.     Me.WindowState = 1
  599.     Exit Sub
  601. EXIT_ERR:
  602.     MsgBox "没有安装此子系统！", 48
  604. End Sub
  605. Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  606.   Label1(Index).ForeColor = &HFF&
  607.   Label1(Index).FontBold = True
  608. End Sub
  609. Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  610.     Dim i As Integer
  611.     For i = 0 To Label1.Count - 1
  612.       Label1(i).ForeColor = &HFFFFFF
  613.       Label1(i).FontBold = False
  614.     Next i
  615. End Sub