📄 +
字号:
VERSION 5.00
Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
Begin VB.Form MRP_TotalDemandBuild
BorderStyle = 3 'Fixed Dialog
Caption = "汇总物料需求"
ClientHeight = 4560
ClientLeft = 45
ClientTop = 330
ClientWidth = 6030
Icon = "物料需求计划_汇总需求生成.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4560
ScaleWidth = 6030
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
Caption = "考虑因素"
Height = 630
Left = 60
TabIndex = 4
Top = 5760
Width = 5850
Begin VB.CheckBox Check
Caption = "安 全 库 存"
Height = 357
Index = 2
Left = 4020
TabIndex = 7
Top = 195
Value = 1 'Checked
Width = 1320
End
Begin VB.CheckBox Check
Caption = "已 分 配 量"
Height = 357
Index = 1
Left = 2220
TabIndex = 6
Top = 195
Value = 1 'Checked
Width = 1365
End
Begin VB.CheckBox Check
Caption = "现 有 库 存"
Height = 357
Index = 0
Left = 382
TabIndex = 5
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 = 4185
Width = 1120
End
Begin VB.CommandButton cmd_Ok
Caption = "确定(&O)"
Height = 300
Left = 3540
MouseIcon = "物料需求计划_汇总需求生成.frx":1656
MousePointer = 99 'Custom
Picture = "物料需求计划_汇总需求生成.frx":1960
TabIndex = 0
Top = 4185
Width = 1120
End
Begin VSFlex8Ctl.VSFlexGrid CxbbGrid
Height = 3465
Left = 90
TabIndex = 2
Top = 540
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 = 2430
TabIndex = 3
Top = 150
Width = 1020
End
End
Attribute VB_Name = "MRP_TotalDemandBuild"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************
'* 模 块 名 称 :物料需求计划-汇总物料需求生成
'* 功 能 描 述 :汇总物料需求
'* 程序员姓名 : 乔进
'* 最后修改人 : 乔进
'* 最后修改时间:2001/12/10
'* 备 注:经过自己测试
'*******************************************************
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
Case 39 '屏蔽"'"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -