delrk.frm

网吧库存管理系统 主要对商品网费等费用和数量管理

VERSION 5.00
Object = "{D07CD9D2-ECE9-493F-86F2-186659945889}#1.0#0"; "Xpbutton.ocx"
Begin VB.Form rkwh 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "神龙科技(网吧库管)"
   ClientHeight    =   495
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5445
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   ScaleHeight     =   495
   ScaleWidth      =   5445
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.Frame Frame2 
      BackColor       =   &H000000FF&
      BorderStyle     =   0  'None
      Height          =   435
      Left            =   60
      TabIndex        =   5
      Top             =   15
      Width           =   5355
      Begin 工程1.xpcmdbutton xpcmdbutton5 
         Height          =   390
         Left            =   4005
         TabIndex        =   6
         Top             =   30
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   688
         Caption         =   "取消"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin 工程1.xpcmdbutton xpcmdbutton6 
         Height          =   390
         Left            =   2715
         TabIndex        =   7
         Top             =   30
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   688
         Caption         =   "修改出库单"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin 工程1.xpcmdbutton xpcmdbutton7 
         Height          =   390
         Left            =   1365
         TabIndex        =   8
         Top             =   30
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   688
         Caption         =   "退   库"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin 工程1.xpcmdbutton xpcmdbutton8 
         Height          =   390
         Left            =   60
         TabIndex        =   9
         Top             =   30
         Width           =   1215
         _ExtentX        =   2143
         _ExtentY        =   688
         Caption         =   "出库单删除"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H000000FF&
      BorderStyle     =   0  'None
      Height          =   450
      Left            =   45
      TabIndex        =   0
      Top             =   30
      Width           =   5370
      Begin 工程1.xpcmdbutton xpcmdbutton4 
         Height          =   405
         Left            =   4005
         TabIndex        =   1
         Top             =   15
         Width           =   1305
         _ExtentX        =   2302
         _ExtentY        =   714
         Caption         =   "取消"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin 工程1.xpcmdbutton xpcmdbutton3 
         Height          =   405
         Left            =   2670
         TabIndex        =   2
         Top             =   15
         Width           =   1305
         _ExtentX        =   2302
         _ExtentY        =   714
         Caption         =   "修改入库单"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin 工程1.xpcmdbutton xpcmdbutton2 
         Height          =   405
         Left            =   1350
         TabIndex        =   3
         Top             =   15
         Width           =   1305
         _ExtentX        =   2302
         _ExtentY        =   714
         Caption         =   "退   货"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
      Begin 工程1.xpcmdbutton xpcmdbutton1 
         Height          =   405
         Left            =   60
         TabIndex        =   4
         Top             =   15
         Width           =   1305
         _ExtentX        =   2302
         _ExtentY        =   714
         Caption         =   "入库单删除"
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
      End
   End
End
Attribute VB_Name = "rkwh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Form_Load()
tim = 0
If username = "" Then loginfrm.Show
Me.Top = 400
Me.Left = Screen.Width - Me.Width - rkth.Width
End Sub

Private Sub Form_Unload(Cancel As Integer)
tim = 0
If username = "" Then loginfrm.Show
End Sub

Private Sub xpcmdbutton1_Click()
tim = 0
If username = "" Then loginfrm.Show
rkth.rkdzt = 0
rkth.Show
rkwh.Hide
End Sub

Private Sub xpcmdbutton2_Click()
tim = 0
If username = "" Then loginfrm.Show
rkth.rkdzt = 1
rkth.Show
rkwh.Hide
End Sub

Private Sub xpcmdbutton3_Click()
tim = 0
If username = "" Then loginfrm.Show
rkth.rkdzt = 2
rkth.Show
rkwh.Hide
End Sub

Private Sub xpcmdbutton4_Click()
tim = 0
If username = "" Then loginfrm.Show
Unload Me
End Sub

Private Sub xpcmdbutton5_Click()
Unload Me
tim = 0
If username = "" Then loginfrm.Show
End Sub

Private Sub xpcmdbutton6_Click()
tim = 0
If username = "" Then loginfrm.Show
cktk.ckdzt = 2
cktk.Show
rkwh.Hide
End Sub

Private Sub xpcmdbutton7_Click()
tim = 0
If username = "" Then loginfrm.Show
cktk.ckdzt = 1
cktk.Show
rkwh.Hide
End Sub

Private Sub xpcmdbutton8_Click()
tim = 0
If username = "" Then loginfrm.Show
cktk.ckdzt = 0
cktk.Show
rkwh.Hide
End Sub