⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 fmbgds.frm

📁 利用Visual basic 构建POS进销存源码
💻 FRM
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form FMBGDS 
   Caption         =   "商品数据处理"
   ClientHeight    =   6600
   ClientLeft      =   3375
   ClientTop       =   3105
   ClientWidth     =   9885
   LinkTopic       =   "Form1"
   ScaleHeight     =   6600
   ScaleWidth      =   9885
   Begin VB.TextBox BGMRK 
      DataField       =   "BGMRK"
      DataSource      =   "Adodc1"
      Height          =   2550
      Left            =   240
      TabIndex        =   61
      Top             =   3900
      Width           =   4305
   End
   Begin VB.TextBox BGDAT 
      DataField       =   "BGDAT"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   3100
      TabIndex        =   47
      Top             =   3600
      Width           =   1500
   End
   Begin VB.TextBox BGQTE 
      DataField       =   "BGQTE"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   810
      TabIndex        =   46
      Top             =   3600
      Width           =   1500
   End
   Begin VB.TextBox BGCSS 
      DataField       =   "BGCSS"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   3100
      TabIndex        =   45
      Top             =   3300
      Width           =   1500
   End
   Begin VB.TextBox BGUSE 
      DataField       =   "BGUSE"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   810
      TabIndex        =   44
      Top             =   3300
      Width           =   1500
   End
   Begin VB.TextBox BGUNW 
      DataField       =   "BGUNW"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   3100
      TabIndex        =   43
      Top             =   3000
      Width           =   1500
   End
   Begin VB.TextBox BGCLW 
      DataField       =   "BGCLW"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   3100
      TabIndex        =   42
      Top             =   2700
      Width           =   1500
   End
   Begin VB.TextBox BGCLH 
      DataField       =   "BGCLH"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   810
      TabIndex        =   41
      Top             =   3000
      Width           =   1500
   End
   Begin VB.TextBox BGCLR 
      DataField       =   "BGCLR"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   810
      TabIndex        =   40
      Top             =   2700
      Width           =   1500
   End
   Begin VB.TextBox BGUNP 
      DataField       =   "BGUNP"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   3100
      TabIndex        =   39
      Top             =   2400
      Width           =   1500
   End
   Begin VB.TextBox BGUNS 
      DataField       =   "BGUNS"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   3100
      TabIndex        =   38
      Top             =   2100
      Width           =   1500
   End
   Begin VB.TextBox BGGAU 
      DataField       =   "BGGAU"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   810
      TabIndex        =   37
      Top             =   2400
      Width           =   1500
   End
   Begin VB.TextBox BGRUL 
      DataField       =   "BGRUL"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   810
      TabIndex        =   36
      Top             =   2100
      Width           =   1500
   End
   Begin VB.TextBox BGCNA 
      DataField       =   "BGCNA"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   810
      TabIndex        =   35
      Top             =   600
      Width           =   3000
   End
   Begin VB.TextBox BGENO 
      DataField       =   "BGENO"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   810
      TabIndex        =   17
      Top             =   0
      Width           =   3000
   End
   Begin VB.TextBox BGNAM 
      DataField       =   "BGNAM"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   810
      TabIndex        =   19
      Top             =   300
      Width           =   3000
   End
   Begin VB.TextBox BGKIN 
      DataField       =   "BGKIN"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   810
      TabIndex        =   21
      Top             =   900
      Width           =   2200
   End
   Begin VB.TextBox BGPST 
      DataField       =   "BGPST"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   810
      TabIndex        =   23
      Top             =   1200
      Width           =   700
   End
   Begin VB.TextBox BGPVP 
      DataField       =   "BGPVP"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   2400
      TabIndex        =   25
      Top             =   1200
      Width           =   700
   End
   Begin VB.TextBox BGPMM 
      DataField       =   "BGPMM"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   3900
      TabIndex        =   27
      Top             =   1200
      Width           =   700
   End
   Begin VB.TextBox BGQTS 
      DataField       =   "BGQTS"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   840
      TabIndex        =   29
      Top             =   1500
      Width           =   2200
   End
   Begin VB.TextBox BGCOS 
      DataField       =   "BGCOS"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   3900
      TabIndex        =   31
      Top             =   1500
      Width           =   700
   End
   Begin VB.TextBox BGSUP 
      DataField       =   "BSENO"
      DataSource      =   "Adodc1"
      Height          =   270
      Left            =   810
      TabIndex        =   33
      Top             =   1800
      Width           =   2200
   End
   Begin VB.CommandButton BTN_QUT 
      Caption         =   "结束"
      Height          =   615
      Left            =   8040
      Picture         =   "FMBGDS.frx":0000
      Style           =   1  'Graphical
      TabIndex        =   15
      Top             =   5400
      Width           =   1695
   End
   Begin VB.Frame Frame1 
      Caption         =   "查询"
      Height          =   1455
      Left            =   4680
      TabIndex        =   6
      Top             =   5040
      Width           =   3135
      Begin VB.TextBox LB_BGCNA 
         Height          =   270
         Left            =   840
         TabIndex        =   11
         Top             =   1080
         Width           =   975
      End
      Begin VB.CommandButton Command1 
         Caption         =   "清除"
         Height          =   375
         Left            =   1920
         TabIndex        =   10
         Top             =   960
         Width           =   1000
      End
      Begin VB.TextBox LB_BGNAM 
         Height          =   270
         Left            =   840
         TabIndex        =   9
         Top             =   720
         Width           =   975
      End
      Begin VB.TextBox LB_BGENO 
         Height          =   270
         Left            =   840
         TabIndex        =   8
         Top             =   360
         Width           =   975
      End
      Begin VB.CommandButton BTN_SEA 
         Caption         =   "查询"
         Height          =   495
         Left            =   1920
         TabIndex        =   7
         Top             =   360
         Width           =   1000
      End
      Begin VB.Label Label9 
         Caption         =   "英文名称"
         Height          =   195
         Left            =   120
         TabIndex        =   14
         Top             =   1125
         Width           =   795
      End
      Begin VB.Label Label8 
         Caption         =   "商品名称"
         Height          =   195
         Left            =   120
         TabIndex        =   13
         Top             =   758
         Width           =   795
      End
      Begin VB.Label Label7 
         Caption         =   "商品编号"
         Height          =   195
         Left            =   120
         TabIndex        =   12
         Top             =   398
         Width           =   795
      End
   End
   Begin VB.CommandButton BTN_LAST 
      Caption         =   "最后一笔"
      Height          =   615
      Left            =   8040
      Picture         =   "FMBGDS.frx":0102
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   3840
      Width           =   1695
   End
   Begin VB.CommandButton BTN_FIRST 
      Caption         =   "第一笔"
      Height          =   615
      Left            =   8040
      Picture         =   "FMBGDS.frx":0204
      Style           =   1  'Graphical
      TabIndex        =   4
      Top             =   1680
      Width           =   1695
   End
   Begin VB.CommandButton BTN_NEXT 
      Caption         =   "下一笔"
      Height          =   615
      Left            =   8040
      Picture         =   "FMBGDS.frx":0306
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   3120
      Width           =   1695
   End
   Begin VB.CommandButton BTN_PRE 
      Caption         =   "上一笔"
      Height          =   615
      Left            =   8040
      Picture         =   "FMBGDS.frx":0408
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   2400
      Width           =   1695
   End
   Begin VB.CommandButton BTN_DEL 
      Caption         =   "删除数据"
      Height          =   615
      Left            =   8040
      Picture         =   "FMBGDS.frx":050A
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   840
      Width           =   1695
   End
   Begin VB.CommandButton BTN_INS 
      Caption         =   "新增数据

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -