+
来自「VB开发的ERP系统」· 代码 · 共 460 行 · 第 1/2 页
TXT
460 行
VERSION 5.00
Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
Begin VB.Form Kf_Create
BorderStyle = 3 'Fixed Dialog
Caption = "生成领料申请单"
ClientHeight = 4545
ClientLeft = 45
ClientTop = 330
ClientWidth = 6030
Icon = "库房管理_生成领料单.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4545
ScaleWidth = 6030
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Caption = "考虑因素"
Height = 630
Left = 60
TabIndex = 2
Top = 5760
Width = 5850
Begin VB.CheckBox Check
Caption = "安 全 库 存"
Height = 357
Index = 2
Left = 4020
TabIndex = 5
Top = 195
Value = 1 'Checked
Width = 1320
End
Begin VB.CheckBox Check
Caption = "已 分 配 量"
Height = 357
Index = 1
Left = 2220
TabIndex = 4
Top = 195
Value = 1 'Checked
Width = 1365
End
Begin VB.CheckBox Check
Caption = "现 有 库 存"
Height = 357
Index = 0
Left = 382
TabIndex = 3
Top = 195
Value = 1 'Checked
Width = 1365
End
End
Begin VB.CommandButton Cmd_Cancel
Cancel = -1 'True
Caption = "退出(&E)"
Height = 300
Left = 4785
MouseIcon = "库房管理_生成领料单.frx":1042
MousePointer = 99 'Custom
Picture = "库房管理_生成领料单.frx":134C
TabIndex = 1
Top = 4155
Width = 1120
End
Begin VB.CommandButton cmd_Ok
Caption = "确定(&O)"
Height = 300
Left = 3600
MouseIcon = "库房管理_生成领料单.frx":1656
MousePointer = 99 'Custom
Picture = "库房管理_生成领料单.frx":1960
TabIndex = 0
Top = 4155
Width = 1120
End
Begin VSFlex8Ctl.VSFlexGrid CxbbGrid
Height = 3465
Left = 90
TabIndex = 6
Top = 510
Width = 5850
_ExtentX = 10319
_ExtentY = 6112
Appearance = 1
BorderStyle = 1
Enabled = -1 'True
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
MousePointer = 0
BackColor = 16777215
ForeColor = -2147483640
BackColorFixed = -2147483648
ForeColorFixed = -2147483630
BackColorSel = -2147483635
ForeColorSel = -2147483634
BackColorBkg = -2147483636
BackColorAlternate= 16777215
GridColor = -2147483633
GridColorFixed = -2147483632
TreeColor = -2147483632
FloodColor = 192
SheetBorder = -2147483642
FocusRect = 1
HighLight = 1
AllowSelection = -1 'True
AllowBigSelection= -1 'True
AllowUserResizing= 0
SelectionMode = 0
GridLines = 1
GridLinesFixed = 2
GridLineWidth = 1
Rows = 50
Cols = 10
FixedRows = 1
FixedCols = 0
RowHeightMin = 0
RowHeightMax = 0
ColWidthMin = 0
ColWidthMax = 0
ExtendLastCol = 0 'False
FormatString = ""
ScrollTrack = 0 'False
ScrollBars = 3
ScrollTips = 0 'False
MergeCells = 0
MergeCompare = 0
AutoResize = -1 'True
AutoSizeMode = 0
AutoSearch = 0
MultiTotals = -1 'True
SubtotalPosition= 1
OutlineBar = 0
OutlineCol = 0
Ellipsis = 0
ExplorerBar = 0
PicturesOver = 0 'False
FillStyle = 0
RightToLeft = 0 'False
PictureType = 0
TabBehavior = 0
OwnerDraw = 0
Editable = 0 'False
ShowComboButton = -1 'True
WordWrap = 0 'False
TextStyle = 0
TextStyleFixed = 0
OleDragMode = 0
OleDropMode = 0
DataMode = 0
VirtualData = -1 'True
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "计划周期"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404040&
Height = 240
Left = 2280
TabIndex = 7
Top = 120
Width = 1020
End
End
Attribute VB_Name = "Kf_Create"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'******************************************************************
'* 模 块 名 称 :库房管理-生成领料单
'* 功 能 描 述 :生成领料单
'* 程序员姓名 :乔进
'* 最后修改人 :乔进
'* 最后修改时间:2001/12/21
'* 备 注:程序中所有依实际情况自定义部分均用[>> <<]括起
'******************************************************************
Option Explicit
Dim RecTemp As New ADODB.Recordset '需求表
Dim jdzygs As Integer '控件焦点转移个数
Dim Lrzt As Integer '录入状态标志(0-非录入状态 1-增加 2-修改)
Dim ReportTitle As String '报表主标题
Dim Sqlstr As String 'Sql语句字符串
Dim jsqte As Integer '计数器
'以下为固定使用变量(网格)
Dim Cxnrrec As New ADODB.Recordset '显示查询内容动态集
Dim Dyymctbl As New DY_Dyymsz '打印页面窗体变量
Dim GridCode As String '显示网格网格代码
Dim GridInf() As Variant '整个网格设置信息
Dim Tsxx As String '系统提示信息
Dim Qslz As Long '网格隐藏(非操作显示)列数
Dim Sjhgd As Double '网格数据行高度
Dim GridBoolean() As Boolean '网格列信息(布尔型)
Dim GridStr() As String '网格列信息(字符型)
Dim GridInt() As Integer '网格列信息(整型)
Dim Szzls As Integer '数组总列数(网格列数-1)
'******************************************************************************************************************************
'*过程说明：事件
'*过程名称：Form_KeyPress
'*功能描述：控 制 焦 点 转 移
'*参数说明：
'******************************************************************************************************************************
Private Sub Form_KeyPress(KeyAscii As Integer)
jdzygs = 6
Select Case KeyAscii
Case vbKeyReturn
If Kjjdzy(jdzygs) Then
KeyAscii = 0
End If
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?