sys_bmsz.frm

基于SQL2000的企业管理MRPII,包含进销存,财务,报关等组件,VB6开发,带文档说明.

VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#3.0#0"; "RESIZE32.OCX"
Begin VB.Form sys_bmsz 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "部门名称设置"
   ClientHeight    =   6810
   ClientLeft      =   1635
   ClientTop       =   1530
   ClientWidth     =   10005
   Icon            =   "Sys_bmsz.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Moveable        =   0   'False
   ScaleHeight     =   6810
   ScaleWidth      =   10005
   Begin VB.Frame Frame1 
      Height          =   6765
      Left            =   30
      TabIndex        =   0
      Top             =   0
      Width           =   9945
      Begin VB.Frame Frame3 
         Caption         =   "预设上级部门"
         Height          =   735
         Left            =   3510
         TabIndex        =   19
         Top             =   270
         Width           =   6225
         Begin VB.ComboBox Combo1 
            Height          =   300
            ItemData        =   "Sys_bmsz.frx":030A
            Left            =   1320
            List            =   "Sys_bmsz.frx":030C
            TabIndex        =   20
            Top             =   360
            Width           =   4215
         End
         Begin VB.Label Label1 
            Caption         =   "上级部门:"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   255
            Index           =   3
            Left            =   120
            TabIndex        =   21
            Top             =   360
            Width           =   1215
         End
      End
      Begin VB.TextBox Text 
         DataField       =   "bmbh"
         DataSource      =   "AdoprimaryRs"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   11.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Index           =   0
         Left            =   4740
         Locked          =   -1  'True
         TabIndex        =   1
         Top             =   1530
         Width           =   2175
      End
      Begin VB.TextBox Text 
         DataField       =   "bmmc"
         DataSource      =   "AdoprimaryRs"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   11.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Index           =   1
         Left            =   4740
         Locked          =   -1  'True
         TabIndex        =   2
         Top             =   2055
         Width           =   4455
      End
      Begin VB.TextBox Text 
         DataField       =   "sjbm"
         DataSource      =   "AdoprimaryRs"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   11.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Index           =   2
         Left            =   4740
         Locked          =   -1  'True
         TabIndex        =   3
         Top             =   2535
         Width           =   4455
      End
      Begin VB.Frame Frame2 
         Height          =   975
         Left            =   3360
         TabIndex        =   4
         Top             =   5640
         Width           =   6495
         Begin VB.CommandButton cmdmd 
            Caption         =   "末端"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   610
            Left            =   1965
            Picture         =   "Sys_bmsz.frx":030E
            Style           =   1  'Graphical
            TabIndex        =   14
            Top             =   240
            Width           =   615
         End
         Begin VB.CommandButton cmdnext 
            Caption         =   "向后"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   610
            Index           =   1
            Left            =   1350
            Picture         =   "Sys_bmsz.frx":08E0
            Style           =   1  'Graphical
            TabIndex        =   13
            Top             =   240
            Width           =   615
         End
         Begin VB.CommandButton cmdxq 
            Caption         =   "向前"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   610
            Left            =   735
            Picture         =   "Sys_bmsz.frx":0EB2
            Style           =   1  'Graphical
            TabIndex        =   12
            Top             =   240
            Width           =   615
         End
         Begin VB.CommandButton cmdqd 
            Caption         =   "首端"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   610
            Index           =   0
            Left            =   120
            Picture         =   "Sys_bmsz.frx":1484
            Style           =   1  'Graphical
            TabIndex        =   11
            Top             =   240
            Width           =   615
         End
         Begin VB.CommandButton Cmdadd 
            Caption         =   "新增"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   610
            Left            =   2700
            Picture         =   "Sys_bmsz.frx":1A56
            Style           =   1  'Graphical
            TabIndex        =   10
            Top             =   240
            Width           =   615
         End
         Begin VB.CommandButton CmdOK 
            Caption         =   "确认"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   610
            Left            =   4560
            Picture         =   "Sys_bmsz.frx":2078
            Style           =   1  'Graphical
            TabIndex        =   9
            Top             =   240
            Width           =   615
         End
         Begin VB.CommandButton Cmddelete 
            Caption         =   "删除"
            BeginProperty Font 
               Name            =   "宋体"
               Size            =   11.25
               Charset         =   134
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   610
            Left            =   3315
            Picture         =   "Sys_bmsz.frx":216A
            Style           =   1  'Graphical
            TabIndex        =   8
            Top             =   240
            Width           =   615
         End