frmmain.frm

ktv场所的包房开房、迎宾、预定管理系统。

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmMain 
   BackColor       =   &H00FFC0C0&
   Caption         =   "海媚仓库管理系统"
   ClientHeight    =   6465
   ClientLeft      =   60
   ClientTop       =   630
   ClientWidth     =   11400
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin MSComctlLib.ImageList ImageList1 
      Left            =   360
      Top             =   1200
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   32
      ImageHeight     =   32
      MaskColor       =   12632256
      _Version        =   393216
      BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
         NumListImages   =   11
         BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0442
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0894
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":0CE6
            Key             =   ""
         EndProperty
         BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":1138
            Key             =   ""
         EndProperty
         BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":158A
            Key             =   ""
         EndProperty
         BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":19DC
            Key             =   ""
         EndProperty
         BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":22B6
            Key             =   ""
         EndProperty
         BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2708
            Key             =   ""
         EndProperty
         BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":2A22
            Key             =   ""
         EndProperty
         BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":3874
            Key             =   ""
         EndProperty
         BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "frmMain.frx":39CE
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.StatusBar sbStatusBar 
      Align           =   2  'Align Bottom
      Height          =   345
      Left            =   0
      TabIndex        =   0
      Top             =   6120
      Width           =   11400
      _ExtentX        =   20108
      _ExtentY        =   609
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   2
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   6
            AutoSize        =   2
            TextSave        =   "05-10-26"
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Style           =   5
            AutoSize        =   2
            TextSave        =   "18:44"
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   810
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   11400
      _ExtentX        =   20108
      _ExtentY        =   1429
      ButtonWidth     =   1455
      ButtonHeight    =   1376
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      HotImageList    =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   7
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "物  品"
            Key             =   "wwxx"
            ImageIndex      =   7
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "入  库  "
            ImageIndex      =   3
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "库  存"
            ImageIndex      =   6
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退  库"
            Key             =   "tk"
            ImageIndex      =   5
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "出  库"
            Key             =   "sale"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出系统"
            Key             =   "tool_add"
            ImageIndex      =   10
         EndProperty
      EndProperty
   End
   Begin VB.Menu mnuSet_jczl 
      Caption         =   "基础资料设置[&B]"
      Begin VB.Menu mnuSet_protype 
         Caption         =   "物品类别设置"
      End
      Begin VB.Menu mnusetdw 
         Caption         =   "物品计量单位"
      End
      Begin VB.Menu mnuSet_product 
         Caption         =   "物品信息管理"
      End
      Begin VB.Menu mnuSet_sup 
         Caption         =   "供应商管理"
      End
   End
   Begin VB.Menu mnuAct_rk 
      Caption         =   "出入库管理[&R]"
      Begin VB.Menu mnuEdit_ps 
         Caption         =   "入库单编辑"
      End
      Begin VB.Menu mnutk 
         Caption         =   "退货单编辑"
      End
      Begin VB.Menu mnubs 
         Caption         =   "报损单编辑"
      End
      Begin VB.Menu mnuout 
         Caption         =   "出库单编辑"
      End
      Begin VB.Menu ff 
         Caption         =   "-"
      End
      Begin VB.Menu mnuRec_ps 
         Caption         =   "入库单审核"
      End
   End
   Begin VB.Menu menu_work 
      Caption         =   "日常工作[&W]"
      Begin VB.Menu menu_lkzf 
         Caption         =   "入库单作废"
      End
      Begin VB.Menu menu_ckzf 
         Caption         =   "出库单作废"
      End
      Begin VB.Menu oplm 
         Caption         =   "-"
      End
      Begin VB.Menu menu_pdbs 
         Caption         =   "盘点报损"
      End
      Begin VB.Menu menu_pdby 
         Caption         =   "盘点报溢"
      End
   End
   Begin VB.Menu mnusql 
      Caption         =   "统计查询[&T]"
      Begin VB.Menu mnusql_kcmx 
         Caption         =   "库存明细"
      End
      Begin VB.Menu mnusql_kcbj 
         Caption         =   "库存报警查询"
      End
      Begin VB.Menu www 
         Caption         =   "-"
      End
      Begin VB.Menu mnusql_sale 
         Caption         =   "销售部门库存明细"
         Visible         =   0   'False
      End
      Begin VB.Menu mnuSql_djps 
         Caption         =   "入库/退货/报损 单据查询"
      End
      Begin VB.Menu mnu_cgreport 
         Caption         =   "入库/退货/报损溢 报表"
      End
      Begin VB.Menu mun_ghcx 
         Caption         =   "供货情况查询"
      End
      Begin VB.Menu menu_outint 
         Caption         =   "物品出入库查询"
      End
      Begin VB.Menu menu_obsoleteseek 
         Caption         =   "作废单据查询"
      End
      Begin VB.Menu menu_pdseek 
         Caption         =   "盘点单据查询"
      End
      Begin VB.Menu aaa 
         Caption         =   "-"
      End
      Begin VB.Menu mnusql_out 
         Caption         =   "出库单查询"
      End
      Begin VB.Menu mnusql_ok 
         Caption         =   "出库报表"
      End
   End
   Begin VB.Menu mnuSystem 
      Caption         =   "系统维护[&Y]"
      Begin VB.Menu mnuSys_info 
         Caption         =   "用户信息"
      End
      Begin VB.Menu menu_syn 
         Caption         =   "统一价格"
      End
      Begin VB.Menu ProSet 
         Caption         =   "权限设置"
      End
      Begin VB.Menu mnuSys_pass 
         Caption         =   "更改密码"
      End
   End
   Begin VB.Menu mnuhelp 
      Caption         =   "帮助[&H]"
      Begin VB.Menu mnuabout 
         Caption         =   "关于(&A)"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private rsSys As ADODB.Recordset

Private Sub MDIForm_Load()
    Dim strsql As String
    systemset (strCurUser)
    If regedita = False Then
        strsql = "update r_parameter set psnumber=psnumber +1"
        Set rsSys = New ADODB.Recordset
        rsSys.Open strsql, cnn, adOpenDynamic, adLockOptimistic
    End If
    strsql = "select offline,psnumber from r_parameter"
    Set rsSys = New ADODB.Recordset
    rsSys.Open strsql, cnn, adOpenDynamic, adLockOptimistic
    rsSys.MoveFirst
    If regedita = False Then
        If rsSys!psnumber > 80 Then
            MsgBox "请与软件开发商联系！"
            End
        End If
    End If
    If rsSys!offline Then
        mnusql.Enabled = False
        mnuSet_jczl.Enabled = False
        mnuAct_rk.Enabled = False
        frmMain.Toolbar1.Buttons(1).Enabled = False
        frmMain.Toolbar1.Buttons(2).Enabled = False
        frmMain.Toolbar1.Buttons(5).Enabled = False
        frmMain.Toolbar1.Buttons(6).Enabled = False
    Else
        mnusql.Enabled = True
        mnuSet_jczl.Enabled = True
        mnuAct_rk.Enabled = True
        frmMain.Toolbar1.Buttons(1).Enabled = True
        frmMain.Toolbar1.Buttons(2).Enabled = True
        frmMain.Toolbar1.Buttons(5).Enabled = True
        frmMain.Toolbar1.Buttons(6).Enabled = True
    End If
    Toolbar1.Buttons(1).Enabled = mnuSet_product.Enabled
    Toolbar1.Buttons(2).Enabled = mnuEdit_ps.Enabled
    Toolbar1.Buttons(3).Enabled = mnusql_kcmx.Enabled
    mnuEdit_ps.Visible = prover
    mnusql_kcmx.Visible = prover
    Toolbar1.Buttons(2).Visible = prover
    Toolbar1.Buttons(3).Visible = prover
    mnuAct_rk.Visible = prover
    mnuSql_djps.Visible = prover