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

📄

📁 VB开发的ERP系统
💻
📖 第 1 页 / 共 3 页
字号:
         End
         Begin VB.TextBox lrText 
            Height          =   300
            Index           =   6
            Left            =   1005
            TabIndex        =   6
            Text            =   "6"
            Top             =   1680
            Width           =   1725
         End
         Begin VB.TextBox lrText 
            BackColor       =   &H00FFFFFF&
            Height          =   300
            Index           =   9
            Left            =   1005
            TabIndex        =   9
            Text            =   "9"
            Top             =   2400
            Width           =   4245
         End
         Begin VB.CommandButton Ydcommand1 
            Height          =   300
            Index           =   0
            Left            =   5250
            Picture         =   "单据列表查询_销售出库单查询.frx":25B6
            Style           =   1  'Graphical
            TabIndex        =   48
            Top             =   240
            Width           =   300
         End
         Begin VB.CommandButton Ydcommand1 
            Height          =   300
            Index           =   3
            Left            =   2715
            Picture         =   "单据列表查询_销售出库单查询.frx":2940
            Style           =   1  'Graphical
            TabIndex        =   47
            Top             =   960
            Width           =   300
         End
         Begin VB.CommandButton Ydcommand1 
            Height          =   300
            Index           =   4
            Left            =   5250
            Picture         =   "单据列表查询_销售出库单查询.frx":2CCA
            Style           =   1  'Graphical
            TabIndex        =   46
            Top             =   960
            Width           =   300
         End
         Begin VB.CommandButton Ydcommand1 
            Height          =   300
            Index           =   9
            Left            =   5250
            Picture         =   "单据列表查询_销售出库单查询.frx":3054
            Style           =   1  'Graphical
            TabIndex        =   45
            Top             =   2400
            Width           =   300
         End
         Begin VB.TextBox lrText 
            Height          =   300
            Index           =   5
            Left            =   1005
            TabIndex        =   5
            Text            =   "5"
            Top             =   1320
            Width           =   4245
         End
         Begin VB.CommandButton Ydcommand1 
            Height          =   300
            Index           =   5
            Left            =   5250
            Picture         =   "单据列表查询_销售出库单查询.frx":33DE
            Style           =   1  'Graphical
            TabIndex        =   44
            Top             =   1320
            Width           =   300
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "存货编码:"
            Height          =   195
            Index           =   5
            Left            =   150
            TabIndex        =   63
            Top             =   1740
            Width           =   765
         End
         Begin VB.Line Line2 
            Index           =   0
            X1              =   3165
            X2              =   3330
            Y1              =   1815
            Y2              =   1815
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "发货单号:"
            Height          =   195
            Index           =   3
            Left            =   150
            TabIndex        =   62
            Top             =   2100
            Width           =   765
         End
         Begin VB.Line Line1 
            Index           =   0
            X1              =   3165
            X2              =   3330
            Y1              =   750
            Y2              =   750
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "单据号:"
            Height          =   180
            Index           =   4
            Left            =   150
            TabIndex        =   61
            Top             =   660
            Width           =   630
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "仓库:"
            Height          =   180
            Index           =   6
            Left            =   150
            TabIndex        =   60
            Top             =   300
            Width           =   450
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "出库日期:"
            Height          =   195
            Index           =   7
            Left            =   150
            TabIndex        =   59
            Top             =   1020
            Width           =   765
         End
         Begin VB.Line Line1 
            Index           =   1
            X1              =   3165
            X2              =   3330
            Y1              =   1110
            Y2              =   1110
         End
         Begin VB.Label Label1 
            AutoSize        =   -1  'True
            Caption         =   "出库类别:"
            Height          =   195
            Index           =   8
            Left            =   150
            TabIndex        =   58
            Top             =   2850
            Width           =   765
         End
         Begin VB.Label Label2 
            Caption         =   "存货分类:"
            Height          =   225
            Left            =   165
            TabIndex        =   57
            Top             =   1380
            Width           =   765
         End
         Begin VB.Label Label3 
            Caption         =   "客户:"
            Height          =   225
            Left            =   150
            TabIndex        =   56
            Top             =   2460
            Width           =   855
         End
      End
      Begin VB.TextBox Txt_LrText 
         Height          =   300
         Index           =   19
         Left            =   -73920
         TabIndex        =   33
         Text            =   "19"
         Top             =   3330
         Width           =   3735
      End
      Begin VB.TextBox Txt_LrText 
         Height          =   300
         Index           =   18
         Left            =   -73920
         TabIndex        =   32
         Text            =   "18"
         Top             =   2940
         Width           =   3735
      End
      Begin VB.TextBox Txt_LrText 
         Height          =   300
         Index           =   17
         Left            =   -73920
         TabIndex        =   31
         Text            =   "17"
         Top             =   2550
         Width           =   3735
      End
      Begin VB.TextBox Txt_LrText 
         Height          =   300
         Index           =   16
         Left            =   -73920
         TabIndex        =   30
         Text            =   "16"
         Top             =   2160
         Width           =   3735
      End
      Begin VB.TextBox Txt_LrText 
         Height          =   300
         Index           =   11
         Left            =   -73920
         TabIndex        =   29
         Text            =   "11"
         Top             =   990
         Width           =   1875
      End
      Begin VB.TextBox Txt_LrText 
         Height          =   300
         Index           =   12
         Left            =   -71745
         TabIndex        =   28
         Text            =   "12"
         Top             =   990
         Width           =   1830
      End
      Begin VB.TextBox Txt_LrText 
         Height          =   300
         Index           =   14
         Left            =   -71745
         TabIndex        =   27
         Text            =   "14"
         Top             =   1380
         Width           =   1830
      End
      Begin VB.TextBox Txt_LrText 
         Height          =   300
         Index           =   15
         Left            =   -73920
         TabIndex        =   26
         Text            =   "15"
         Top             =   1770
         Width           =   3735
      End
      Begin VB.TextBox Txt_LrText 
         Height          =   300
         Index           =   13
         Left            =   -73920
         TabIndex        =   25
         Text            =   "13"
         Top             =   1380
         Width           =   1860
      End
      Begin VB.TextBox Txt_LrText 
         Height          =   300
         Index           =   10
         Left            =   -73920
         TabIndex        =   24
         Text            =   "10"
         Top             =   600
         Width           =   3735
      End
      Begin VB.Line Line2 
         Index           =   3
         X1              =   -72045
         X2              =   -71775
         Y1              =   1515
         Y2              =   1515
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "数量:"
         Height          =   180
         Index           =   17
         Left            =   -74805
         TabIndex        =   42
         Top             =   1050
         Width           =   450
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "金额:"
         Height          =   180
         Index           =   16
         Left            =   -74805
         TabIndex        =   41
         Top             =   1440
         Width           =   450
      End
      Begin VB.Line Line2 
         Index           =   2
         X1              =   -72060
         X2              =   -71760
         Y1              =   1125
         Y2              =   1125
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "验收员:"
         Height          =   180
         Index           =   15
         Left            =   -74805
         TabIndex        =   40
         Top             =   2250
         Width           =   630
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "保管员:"
         Height          =   180
         Index           =   9
         Left            =   -74805
         TabIndex        =   39
         Top             =   2640
         Width           =   630
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "业务员:"
         Height          =   180
         Index           =   10
         Left            =   -74805
         TabIndex        =   38
         Top             =   1860
         Width           =   630
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "制单人:"
         Height          =   180
         Index           =   18
         Left            =   -74805
         TabIndex        =   37
         Top             =   3030
         Width           =   630
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "记帐人:"
         Height          =   180
         Index           =   19
         Left            =   -74805
         TabIndex        =   36
         Top             =   3390
         Width           =   630
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "采购类型:"
         Height          =   180
         Index           =   13
         Left            =   -74805
         TabIndex        =   35
         Top             =   645
         Width           =   810
      End
      Begin VB.Label Label1 
         AutoSize        =   -1  'True
         Caption         =   "审核人:"
         Height          =   180
         Index           =   14
         Left            =   -74820
         TabIndex        =   34
         Top             =   3810
         Width           =   630
      End
   End
End
Attribute VB_Name = "LBCX_SellOutBillListFind"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************
'*    模 块 名 称 :销售出库单列表查询条件
'*    功 能 描 述 :
'*    程序员姓名  :杨波
'*    最后修改人  :杨波
'*    最后修改时间:2001/11/26
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'******************************************************************
Dim Tsxx As String                       '系统信息提示

'以下为固定使用变量(文本框)
Dim Textvar() As Variant                 '存储变体型文本框信息
Dim Textboolean() As Boolean             '存储布尔型文本框信息
Dim Textint() As Integer                 '存储整型文本框信息
Dim Textstr() As String                  '存储字符型文本框信息
Dim Max_Text_Index As Integer            '最大录入文本框索引值

⌨️ 快捷键说明

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