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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 控制台编程 > 查看源码
frmMain.frm
资源名称：zidongpeiliao.rar　[点击查看]
上传用户：xianglong
上传日期：2022-06-19
资源大小：1105k
文件大小：15k
源码类别：

控制台编程

开发平台：

Visual Basic

frmMain.frm：源码内容
  1. VERSION 5.00
  2. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  3. Begin VB.Form frmMain 
  4.    BackColor       =   &H8000000C&
  5.    Caption         =   "自动配料系统"
  6.    ClientHeight    =   5940
  7.    ClientLeft      =   3690
  8.    ClientTop       =   3030
  9.    ClientWidth     =   8595
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5940
  12.    ScaleWidth      =   8595
  13.    WindowState     =   2  'Maximized
  14.    Begin VB.Data d1 
  15.       Caption         =   "Data1"
  16.       Connect         =   "Access"
  17.       DatabaseName    =   ""
  18.       DefaultCursorType=   0  '缺省游标
  19.       DefaultType     =   2  '使用 ODBC
  20.       Exclusive       =   0   'False
  21.       Height          =   372
  22.       Left            =   3480
  23.       Options         =   0
  24.       ReadOnly        =   0   'False
  25.       RecordsetType   =   1  'Dynaset
  26.       RecordSource    =   ""
  27.       Top             =   3120
  28.       Visible         =   0   'False
  29.       Width           =   1692
  30.    End
  31.    Begin VB.Timer Timer1 
  32.       Interval        =   1000
  33.       Left            =   2160
  34.       Top             =   2040
  35.    End
  36.    Begin MSComctlLib.ImageList ImList 
  37.       Left            =   960
  38.       Top             =   2640
  39.       _ExtentX        =   1005
  40.       _ExtentY        =   1005
  41.       BackColor       =   -2147483643
  42.       ImageWidth      =   16
  43.       ImageHeight     =   16
  44.       MaskColor       =   12632256
  45.       _Version        =   393216
  46.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  47.          NumListImages   =   10
  48.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  49.             Picture         =   "frmMain.frx":0000
  50.             Key             =   "batch"
  51.          EndProperty
  52.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  53.             Picture         =   "frmMain.frx":08DA
  54.             Key             =   "analysis"
  55.          EndProperty
  56.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  57.             Picture         =   "frmMain.frx":11B4
  58.             Key             =   "user"
  59.          EndProperty
  60.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  61.             Picture         =   "frmMain.frx":1A8E
  62.             Key             =   "about"
  63.          EndProperty
  64.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  65.             Picture         =   "frmMain.frx":2368
  66.             Key             =   "exit"
  67.          EndProperty
  68.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  69.             Picture         =   "frmMain.frx":2C42
  70.             Key             =   "view"
  71.          EndProperty
  72.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  73.             Picture         =   "frmMain.frx":351C
  74.             Key             =   "db"
  75.          EndProperty
  76.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  77.             Picture         =   "frmMain.frx":3DF6
  78.             Key             =   "system"
  79.          EndProperty
  80.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  81.             Picture         =   "frmMain.frx":46D0
  82.             Key             =   "permission"
  83.          EndProperty
  84.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  85.             Picture         =   "frmMain.frx":6B82
  86.             Key             =   "help"
  87.          EndProperty
  88.       EndProperty
  89.    End
  90.    Begin MSComctlLib.StatusBar sbrDB 
  91.       Align           =   2  'Align Bottom
  92.       Height          =   510
  93.       Left            =   0
  94.       TabIndex        =   0
  95.       Top             =   5430
  96.       Width           =   8595
  97.       _ExtentX        =   15161
  98.       _ExtentY        =   900
  99.       _Version        =   393216
  100.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  101.          NumPanels       =   4
  102.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  103.             AutoSize        =   1
  104.             Object.Width           =   2646
  105.             Picture         =   "frmMain.frx":81DC
  106.          EndProperty
  107.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  108.             Style           =   6
  109.             AutoSize        =   2
  110.             Object.Width           =   2884
  111.             MinWidth        =   2892
  112.             Picture         =   "frmMain.frx":8AB6
  113.             TextSave        =   "2007-6-3"
  114.          EndProperty
  115.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  116.             Style           =   5
  117.             AutoSize        =   2
  118.             Object.Width           =   3201
  119.             MinWidth        =   1252
  120.             TextSave        =   "☆崔兆阳☆ 10:01"
  121.          EndProperty
  122.          BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  123.             Object.Width           =   5821
  124.             MinWidth        =   5821
  125.             Picture         =   "frmMain.frx":8F08
  126.             Text            =   "版权：崔兆阳(czy) 03201233"
  127.             TextSave        =   "版权：崔兆阳(czy) 03201233"
  128.          EndProperty
  129.       EndProperty
  130.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  131.          Name            =   "宋体"
  132.          Size            =   9.75
  133.          Charset         =   134
  134.          Weight          =   400
  135.          Underline       =   0   'False
  136.          Italic          =   0   'False
  137.          Strikethrough   =   0   'False
  138.       EndProperty
  139.    End
  140.    Begin MSComctlLib.Toolbar Tlbar 
  141.       Align           =   1  'Align Top
  142.       Height          =   570
  143.       Left            =   0
  144.       TabIndex        =   1
  145.       Top             =   0
  146.       Width           =   8595
  147.       _ExtentX        =   15161
  148.       _ExtentY        =   1005
  149.       ButtonWidth     =   1138
  150.       ButtonHeight    =   953
  151.       Appearance      =   1
  152.       Style           =   1
  153.       ImageList       =   "ImList"
  154.       _Version        =   393216
  155.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  156.          NumButtons      =   19
  157.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  158.             Caption         =   "物料"
  159.             Key             =   "batch"
  160.             ImageIndex      =   1
  161.          EndProperty
  162.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  163.             Style           =   3
  164.          EndProperty
  165.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  166.             Caption         =   "分析"
  167.             Key             =   "analysis"
  168.             ImageIndex      =   2
  169.          EndProperty
  170.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  171.             Style           =   3
  172.          EndProperty
  173.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  174.             Caption         =   "用户"
  175.             Key             =   "user"
  176.             ImageIndex      =   3
  177.          EndProperty
  178.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  179.             Style           =   3
  180.          EndProperty
  181.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  182.             Caption         =   "数据库"
  183.             Key             =   "db"
  184.             ImageIndex      =   7
  185.          EndProperty
  186.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  187.             Style           =   3
  188.          EndProperty
  189.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  190.             Caption         =   "辅助"
  191.             Key             =   "system"
  192.             ImageIndex      =   8
  193.             Style           =   5
  194.             BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628} 
  195.                NumButtonMenus  =   4
  196.                BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  197.                   Key             =   "tbndraw"
  198.                   Text            =   "调用画图程序"
  199.                EndProperty
  200.                BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  201.                   Key             =   "tbntxt"
  202.                   Text            =   "调用记事本程序"
  203.                EndProperty
  204.                BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  205.                   Key             =   "tbncounter"
  206.                   Text            =   "调用计算器程序"
  207.                EndProperty
  208.                BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628} 
  209.                   Key             =   "tbnoutlook"
  210.                   Text            =   "调用OutLook"
  211.                EndProperty
  212.             EndProperty
  213.          EndProperty
  214.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  215.             Style           =   3
  216.          EndProperty
  217.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  218.             Caption         =   "关于"
  219.             Key             =   "about"
  220.             ImageIndex      =   4
  221.          EndProperty
  222.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  223.             Style           =   3
  224.          EndProperty
  225.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  226.             Caption         =   "模拟"
  227.             Key             =   "view"
  228.             ImageIndex      =   6
  229.          EndProperty
  230.          BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  231.             Style           =   3
  232.          EndProperty
  233.          BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  234.             Caption         =   "权限"
  235.             Key             =   "permission"
  236.             ImageIndex      =   9
  237.          EndProperty
  238.          BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  239.             Style           =   3
  240.          EndProperty
  241.          BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  242.             Caption         =   "帮助"
  243.             Key             =   "help"
  244.             ImageIndex      =   10
  245.          EndProperty
  246.          BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  247.             Style           =   3
  248.          EndProperty
  249.          BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  250.             Caption         =   "退出"
  251.             Key             =   "exit"
  252.             ImageIndex      =   5
  253.          EndProperty
  254.       EndProperty
  255.    End
  256. End
  257. Attribute VB_Name = "frmMain"
  258. Attribute VB_GlobalNameSpace = False
  259. Attribute VB_Creatable = False
  260. Attribute VB_PredeclaredId = True
  261. Attribute VB_Exposed = False
  262. Public dbs As Database
  263. Public filename As String
  265. 'Dim MyVar
  267. Private Sub Form_Unload(Cancel As Integer)
  268.   End
  269. End Sub
  271. Private Sub Form_Load()
  272.  sbrDB.Panels(1).Text = "User：" & Trim(czy)
  273.  sbrDB.Panels(2).Text = frmLogin.txtDate.Text
  274.  App.HelpFile = App.Path & "Batching.CHM"
  275. End Sub
  276.  
  277. Private Sub CmdHelp_Click()
  278.   Shell "hh.exe   Batching.CHM", vbNormalFocus
  279.   SendKeys "{F1}"
  280. End Sub
  281.  
  282. Private Sub a_Click()
  283. filename = App.Path & "dbmaterialinfo2007.mdb"
  284. Set dbs = OpenDatabase(filename)
  285. Set rec = dbs.OpenRecordset("用户角色表")
  286. D1.DatabaseName = filename
  288. D1.RecordSource = "select * from 用户角色表 where name='" + sbrDB.Panels(1).Text + "'"
  289. D1.Refresh
  291.       If D1.Recordset.Fields(0) = -1 Then
  292.          frmMaterial.Show
  293.          'a.Enabled = True
  294.          
  295.       ElseIf D1.Recordset.Fields(0) = 0 Then
  296.          MsgBox "<@>请选择其他功能，您的权限级别不够<@>"
  297.       End If
  298. 'frmMaterial.Show
  300. End Sub
  302. Private Sub b_Click()
  303. filename = App.Path & "dbmaterialinfo2007.mdb"
  304. Set dbs = OpenDatabase(filename)
  305. Set rec = dbs.OpenRecordset("用户角色表")
  306. D1.DatabaseName = filename
  308. D1.RecordSource = "select * from 用户角色表 where name='" + sbrDB.Panels(1).Text + "'"
  309. D1.Refresh
  311.       If D1.Recordset.Fields(1) = -1 Then
  312.          'b.Enabled = True
  313.          frmAnalysis.Show
  314.       ElseIf D1.Recordset.Fields(1) = 0 Then
  315.          MsgBox "<@>请选择其他功能，您的权限级别不够<@>"
  316.       End If
  318. 'frmAnalysis.Show
  319. End Sub
  321. Private Sub c_Click()
  322. filename = App.Path & "dbmaterialinfo2007.mdb"
  323. Set dbs = OpenDatabase(filename)
  324. Set rec = dbs.OpenRecordset("用户角色表")
  325. D1.DatabaseName = filename
  327. D1.RecordSource = "select * from 用户角色表 where name='" + sbrDB.Panels(1).Text + "'"
  328. D1.Refresh
  330.       If D1.Recordset.Fields(2) = -1 Then
  331.          'c.Enabled = True
  332.          frmUser.Show
  333.       ElseIf D1.Recordset.Fields(2) = 0 Then
  334.          MsgBox "<@>请选择其他功能，您的权限级别不够<@>"
  335.       End If
  337. 'frmUser.Show
  338. End Sub
  340. Private Sub d_Click()
  341. filename = App.Path & "dbmaterialinfo2007.mdb"
  342. Set dbs = OpenDatabase(filename)
  343. Set rec = dbs.OpenRecordset("用户角色表")
  344. D1.DatabaseName = filename
  346. D1.RecordSource = "select * from 用户角色表 where name='" + sbrDB.Panels(1).Text + "'"
  347. D1.Refresh
  349.       If D1.Recordset.Fields(3) = -1 Then
  350.          'd.Enabled = True
  351.          frmPermission.Show
  352.       ElseIf D1.Recordset.Fields(3) = 0 Then
  353.          MsgBox "<@>请选择其他功能，您的权限级别不够<@>"
  354.       End If
  356. 'frmPermission.Show
  357. End Sub
  359. Private Sub e_Click()
  360. filename = App.Path & "dbmaterialinfo2007.mdb"
  361. Set dbs = OpenDatabase(filename)
  362. Set rec = dbs.OpenRecordset("用户角色表")
  363. D1.DatabaseName = filename
  365. D1.RecordSource = "select * from 用户角色表 where name='" + sbrDB.Panels(1).Text + "'"
  366. D1.Refresh
  367. 'frmDb.Show
  368.       If D1.Recordset.Fields(4) = -1 Then
  369.          'e.Enabled = True
  370.          frmDb.Show
  371.       ElseIf D1.Recordset.Fields(4) = 0 Then
  372.          MsgBox "<@>请选择其他功能，您的权限级别不够<@>"
  373.       End If
  375. 'frmDb.Show
  376. End Sub
  378. Private Sub Timer1_Timer()
  379.   sbrDB.Panels(3).Text = Time
  380. End Sub
  382. Private Sub Tlbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  383.   Select Case Button.key
  384.          Case "batch"
  385.          
  386.            a_Click
  387.            'frmMaterial.Show
  388.          Case "analysis"
  389.            b_Click
  390.            'frmAnalysis.Show
  391.          Case "user"
  392.            c_Click
  393.            'frmUser.Show
  394.          Case "db"
  395.            e_Click
  396.            'frmDb.Show
  397.          Case "about"
  398.            frmAbout.Show
  399.          Case "view"
  400.            frmView.Show
  401.          Case "permission"
  402.            d_Click
  403.            'frmPermission.Show
  404.         Case "help"
  405.            CmdHelp_Click
  406.          Case "exit"
  407.            Dim strmsg As String
  408.            strmsg = "您确定退出吗？"
  409.            If MsgBox(strmsg, vbQuestion + vbOKCancel + vbDefaultButton1, "自动配料系统") = vbOK Then
  410.               Cancel = False
  411.               End
  412.            Else
  413.               Cancel = True
  414.            End If
  415.   End Select
  416. End Sub
  418. Private Sub Tlbar_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)
  419.   Select Case ButtonMenu.key
  420.     Case "tbndraw"
  421.       ShellExecute Me.hwnd, "open", "mspaint.exe", "", 1, 5
  422.     Case "tbntxt"
  423.       ShellExecute Me.hwnd, "open", "notepad.exe", "", 1, 5
  424.     Case "tbncounter"
  425.       Shell "calc.exe"
  426.     Case "tbnoutlook"
  427.       ShellExecute Me.hwnd, "open", "outlook.exe", "", 1, 5
  428.   End Select
  429. End Sub