?? frmmain.frm

?? ktv場所的包房開房、迎賓、預定管理系統。
?? FRM
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
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
12 下一頁
?? 文件大小 552 K
?? 上傳用戶 xhaibo
?? 所屬分類其他數據庫
??? 相關標簽

#ktv #管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? frmmain.frm

?? 快捷鍵說明
