📄 sc_jh_mrp.frm
字号:
Index = 0
Left = 120
TabIndex = 11
Top = 240
Width = 1155
End
End
Begin TrueOleDBGrid60.TDBGrid TDBGrid1
Bindings = "Sc_jH_MRP.frx":1131
Height = 5535
Left = 2880
OleObjectBlob = "Sc_jH_MRP.frx":1152
TabIndex = 0
Top = 1110
Width = 9705
End
Begin ResizeLibCtl.ReSize ReSize1
Left = 3000
Top = 4170
_Version = 196608
_ExtentX = 741
_ExtentY = 741
_StockProps = 64
Enabled = -1 'True
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 7650
FormDesignWidth = 12660
End
Begin MSAdodcLib.Adodc Adodc_Body_general
Height = 705
Left = 3330
Top = 3960
Width = 4395
_ExtentX = 7752
_ExtentY = 1244
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "Adodc_Body_general"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc AdoPrimaryRs
Height = 435
Left = 3750
Top = 4200
Width = 3915
_ExtentX = 6906
_ExtentY = 767
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 8
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "AdoPrimaryRs"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin TrueOleDBGrid60.TDBGrid TDBGrid3
Bindings = "Sc_jH_MRP.frx":BDFD
Height = 7005
Left = 0
OleObjectBlob = "Sc_jH_MRP.frx":BE18
TabIndex = 4
Top = 60
Width = 2805
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 = 8
Left = 2940
TabIndex = 26
Top = 465
Width = 1575
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 = 6
Left = 2940
TabIndex = 25
Top = 825
Width = 1725
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 = 5
Left = 8730
TabIndex = 24
Top = 825
Width = 1725
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 = 4
Left = 8760
TabIndex = 23
Top = 465
Width = 1575
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 = 2940
TabIndex = 18
Top = 105
Width = 1635
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 = 7
Left = 9180
TabIndex = 17
Top = 105
Width = 1185
End
End
Attribute VB_Name = "Sc_jH_MRP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CMD_CgJH_Click()
SC_CgJH_Rpt.DataControl1.ConnectionString = Conn_Str
SC_CgJH_Rpt.DataControl1.Source = "SELECT SC_JhD_B.cpbh, SC_JhD_B.cpmc, SC_JhD_B.jhdh," & _
"SC_JhD_B.ddbh, SC_JhD_B.khlh, SC_JhD_B.cplb, SC_JhD_B.gg," & _
"SC_JhD_B.caizh, SC_JhD_B.yanse, SC_JhD_B.dw, SC_JhD_B.sl," & _
"SC_JhD_B.djrq, SC_JhD_B.shrq, SC_JhD_B.bacp, SC_JhD_B.hybh," & _
"SC_JhD_B.htbh, SC_JhD_B.khbh, SC_JhD_B.khmc,SC_JhD_B.wCRq, SC_JhD_B.SXH, SC_JhD_B.WANCH," & _
"SC_JhD_B.DR_F, SC_Bom_B.ylbh, SC_Bom_B.ylmc,SC_Bom_B.gg AS yl_gg, SC_Bom_B.caizh AS yl_caizh," & _
"SC_Bom_B.yanse AS yl_yanse, SC_Bom_B.yycc, SC_Bom_B.shL,SC_Bom_B.dsh, SC_Bom_B.dw AS yl_dw,(SC_Bom_B.dsh * SC_JhD_B.sl) / (1 - SC_Bom_B.shL / 100) AS SYSL," & _
"CK_YL_HzK.sl AS KCSL, CK_YL_HzK.kcsx, CK_YL_HzK.kcxx FROM SC_Bom_B left JOIN SC_JhD_B ON SC_Bom_B.cpbh_s = SC_JhD_B.cpbh AND SC_Bom_B.CPMC = SC_JhD_B.cpmc left JOIN CK_YL_HzK ON SC_Bom_B.ylbh = CK_YL_HzK.cpbh AND SC_Bom_B.ylmc = CK_YL_HzK.cpmc where SC_JhD_B.jhdh='" & TDBGrid3.Columns(0).Text & "' order by sc_bom_b.ylbh"
SC_CgJH_Rpt.Show VBRUN.FormShowConstants.vbModal
End Sub
Private Sub Cmd_xQmX_Click()
SC_WLXq_MxB.DataControl1.ConnectionString = Conn_Str
SC_WLXq_MxB.DataControl1.Source = "SELECT SC_JhD_B.cpbh, SC_JhD_B.cpmc, SC_JhD_B.jhdh," & _
"SC_JhD_B.ddbh, SC_JhD_B.khlh, SC_JhD_B.cplb, SC_JhD_B.gg," & _
"SC_JhD_B.caizh, SC_JhD_B.yanse, SC_JhD_B.dw, SC_JhD_B.sl," & _
"SC_JhD_b.djrq, SC_JhD_B.shrq, SC_JhD_B.bacp, SC_JhD_B.hybh," & _
"SC_JhD_B.htbh, SC_JhD_B.khbh, SC_JhD_B.khmc,SC_JhD_B.wCRq, SC_JhD_B.SXH, SC_JhD_B.WANCH," & _
"SC_JhD_B.DR_F, SC_Bom_B.ylbh, SC_Bom_B.ylmc,SC_Bom_B.gg AS yl_gg, SC_Bom_B.caizh AS yl_caizh," & _
"SC_Bom_B.yanse AS yl_yanse, SC_Bom_B.yycc, SC_Bom_B.shL,SC_Bom_B.dsh, SC_Bom_B.dw AS yl_dw,(SC_Bom_B.dsh * SC_JhD_B.sl) / (1 - SC_Bom_B.shL / 100) AS SYSL," & _
"CK_YL_HzK.sl AS KCSL, CK_YL_HzK.kcsx, CK_YL_HzK.kcxx FROM SC_Bom_B left JOIN SC_JhD_B ON SC_Bom_B.cpbh_s = SC_JhD_B.cpbh AND SC_Bom_B.CPMC = SC_JhD_B.cpmc left JOIN CK_YL_HzK ON SC_Bom_B.ylbh = CK_YL_HzK.cpbh AND SC_Bom_B.ylmc = CK_YL_HzK.cpmc where SC_JhD_B.jhdh='" & TDBGrid3.Columns(0).Text & "' order by sc_bom_b.ylbh"
SC_WLXq_MxB.Show VBRUN.FormShowConstants.vbModal
End Sub
Private Sub Cmdreturn_Click()
Unload Me
End Sub
Private Sub Form_Load()
Me.Top = main_FRM.Picture1.Top + 300
Me.Left = main_FRM.Picture1.Left + 30
Me.Width = main_FRM.Picture1.Width - 60
Me.Height = main_FRM.Picture1.Height - 500
AdoprimaryRs.ConnectionString = Conn_Str
AdoprimaryRs.RecordSource = "select * FROM sc_jhd_H" 'where year(djrq)='" & Year(VBA.Date) & "' and month(djrq)='" & Month(VBA.Date) & "'oRDER BY jhdh"
AdoprimaryRs.Refresh
Me.DTPicker1.Value = VBA.Date
End Sub
Private Sub Text_Change(Index As Integer)
If Index = 0 Then
Adodc_body_general.ConnectionString = Conn_Str
Adodc_body_general.CommandType = adCmdUnknown
Adodc_body_general.RecordSource = "SELECT SC_JhD_B.cpbh, SC_JhD_B.cpmc, SC_JhD_B.jhdh," & _
"SC_JhD_B.ddbh, SC_JhD_B.khlh, SC_JhD_B.cplb, SC_JhD_B.gg," & _
"SC_JhD_B.caizh, SC_JhD_B.yanse, SC_JhD_B.dw, SC_JhD_B.sl," & _
"SC_JhD_B.djrq, SC_JhD_B.shrq, SC_JhD_B.bacp, SC_JhD_B.hybh," & _
"SC_JhD_B.htbh, SC_JhD_B.khbh, SC_JhD_B.khmc,SC_JhD_B.wCRq, SC_JhD_B.SXH, SC_JhD_B.WANCH," & _
"SC_JhD_B.DR_F, SC_Bom_B.ylbh, SC_Bom_B.ylmc,SC_Bom_B.gg AS yl_gg, SC_Bom_B.caizh AS yl_caizh," & _
"SC_Bom_B.yanse AS yl_yanse, SC_Bom_B.yycc, SC_Bom_B.shL,SC_Bom_B.dsh, SC_Bom_B.dw AS yl_dw,(SC_Bom_B.dsh * SC_JhD_B.sl) / (1 - SC_Bom_B.shL / 100) AS SYSL," & _
"CK_YL_HzK.sl AS KCSL, CK_YL_HzK.kcsx, CK_YL_HzK.kcxx FROM SC_Bom_B left JOIN SC_JhD_B ON SC_Bom_B.cpbh_s = SC_JhD_B.cpbh AND SC_Bom_B.CPMC = SC_JhD_B.cpmc left JOIN CK_YL_HzK ON SC_Bom_B.ylbh = CK_YL_HzK.cpbh AND SC_Bom_B.ylmc = CK_YL_HzK.cpmc where SC_JhD_B.jhdh='" & Text(0).Text & "' order by sc_bom_b.ylbh"
Adodc_body_general.Refresh
End If
End Sub
Private Sub Text1_Change()
If Trim(Text1.Text) <> "" Then
Adodc_body_general.ConnectionString = Conn_Str
Adodc_body_general.CommandType = adCmdUnknown
Adodc_body_general.RecordSource = "SELECT SC_JhD_B.cpbh, SC_JhD_B.cpmc, SC_JhD_B.jhdh," & _
"SC_JhD_B.ddbh, SC_JhD_B.khlh, SC_JhD_B.cplb, SC_JhD_B.gg," & _
"SC_JhD_B.caizh, SC_JhD_B.yanse, SC_JhD_B.dw, SC_JhD_B.sl," & _
"SC_JhD_B.djrq, SC_JhD_B.shrq, SC_JhD_B.bacp, SC_JhD_B.hybh," & _
"SC_JhD_B.htbh, SC_JhD_B.khbh, SC_JhD_B.khmc,SC_JhD_B.wCRq, SC_JhD_B.SXH, SC_JhD_B.WANCH," & _
"SC_JhD_B.DR_F, SC_Bom_B.ylbh, SC_Bom_B.ylmc,SC_Bom_B.gg AS yl_gg, SC_Bom_B.caizh AS yl_caizh," & _
"SC_Bom_B.yanse AS yl_yanse, SC_Bom_B.yycc, SC_Bom_B.shL,SC_Bom_B.dsh, SC_Bom_B.dw AS yl_dw,(SC_Bom_B.dsh * SC_JhD_B.sl) / (1 - SC_Bom_B.shL / 100) AS SYSL," & _
"CK_YL_HzK.sl AS KCSL, CK_YL_HzK.kcsx, CK_YL_HzK.kcxx FROM SC_Bom_B left JOIN SC_JhD_B ON SC_Bom_B.cpbh_s = SC_JhD_B.cpbh AND SC_Bom_B.CPMC = SC_JhD_B.cpmc left JOIN CK_YL_HzK ON SC_Bom_B.ylbh = CK_YL_HzK.cpbh AND SC_Bom_B.ylmc = CK_YL_HzK.cpmc where SC_JhD_B.ddbh like '%" & Text1.Text & "%' and SC_JhD_B.jhdh='" & TDBGrid3.Columns(0).Text & "' order by sc_bom_b.ylbh"
Adodc_body_general.Refresh
End If
End Sub
Private Sub Text2_Change()
If Trim(Text2.Text) <> "" Then
Adodc_body_general.ConnectionString = Conn_Str
Adodc_body_general.CommandType = adCmdUnknown
Adodc_body_general.RecordSource = "SELECT SC_JhD_B.cpbh, SC_JhD_B.cpmc, SC_JhD_B.jhdh," & _
"SC_JhD_B.ddbh, SC_JhD_B.khlh, SC_JhD_B.cplb, SC_JhD_B.gg," & _
"SC_JhD_B.caizh, SC_JhD_B.yanse, SC_JhD_B.dw, SC_JhD_B.sl," & _
"SC_JhD_B.djrq, SC_JhD_B.shrq, SC_JhD_B.bacp, SC_JhD_B.hybh," & _
"SC_JhD_B.htbh, SC_JhD_B.khbh, SC_JhD_B.khmc,SC_JhD_B.wCRq, SC_JhD_B.SXH, SC_JhD_B.WANCH," & _
"SC_JhD_B.DR_F, SC_Bom_B.ylbh, SC_Bom_B.ylmc,SC_Bom_B.gg AS yl_gg, SC_Bom_B.caizh AS yl_caizh," & _
"SC_Bom_B.yanse AS yl_yanse, SC_Bom_B.yycc, SC_Bom_B.shL,SC_Bom_B.dsh, SC_Bom_B.dw AS yl_dw,(SC_Bom_B.dsh * SC_JhD_B.sl) / (1 - SC_Bom_B.shL / 100) AS SYSL," & _
"CK_YL_HzK.sl AS KCSL, CK_YL_HzK.kcsx, CK_YL_HzK.kcxx FROM SC_Bom_B left JOIN SC_JhD_B ON SC_Bom_B.cpbh_s = SC_JhD_B.cpbh AND SC_Bom_B.CPMC = SC_JhD_B.cpmc left JOIN CK_YL_HzK ON SC_Bom_B.ylbh = CK_YL_HzK.cpbh AND SC_Bom_B.ylmc = CK_YL_HzK.cpmc where SC_Bom_B.ylbh like '%" & Text2.Text & "%' and SC_JhD_B.jhdh='" & TDBGrid3.Columns(0).Text & "' order by sc_bom_b.ylbh"
Adodc_body_general.Refresh
End If
End Sub
Private Sub Text3_Change()
If Trim(Text3.Text) <> "" Then
Adodc_body_general.ConnectionString = Conn_Str
Adodc_body_general.CommandType = adCmdUnknown
Adodc_body_general.RecordSource = "SELECT SC_JhD_B.cpbh, SC_JhD_B.cpmc, SC_JhD_B.jhdh," & _
"SC_JhD_B.ddbh, SC_JhD_B.khlh, SC_JhD_B.cplb, SC_JhD_B.gg," & _
"SC_JhD_B.caizh, SC_JhD_B.yanse, SC_JhD_B.dw, SC_JhD_B.sl," & _
"SC_JhD_B.djrq, SC_JhD_B.shrq, SC_JhD_B.bacp, SC_JhD_B.hybh," & _
"SC_JhD_B.htbh, SC_JhD_B.khbh, SC_JhD_B.khmc,SC_JhD_B.wCRq, SC_JhD_B.SXH, SC_JhD_B.WANCH," & _
"SC_JhD_B.DR_F, SC_Bom_B.ylbh, SC_Bom_B.ylmc,SC_Bom_B.gg AS yl_gg, SC_Bom_B.caizh AS yl_caizh," & _
"SC_Bom_B.yanse AS yl_yanse, SC_Bom_B.yycc, SC_Bom_B.shL,SC_Bom_B.dsh, SC_Bom_B.dw AS yl_dw,(SC_Bom_B.dsh * SC_JhD_B.sl) / (1 - SC_Bom_B.shL / 100) AS SYSL," & _
"CK_YL_HzK.sl AS KCSL, CK_YL_HzK.kcsx, CK_YL_HzK.kcxx FROM SC_Bom_B left JOIN SC_JhD_B ON SC_Bom_B.cpbh_s = SC_JhD_B.cpbh AND SC_Bom_B.CPMC = SC_JhD_B.cpmc left JOIN CK_YL_HzK ON SC_Bom_B.ylbh = CK_YL_HzK.cpbh AND SC_Bom_B.ylmc = CK_YL_HzK.cpmc where SC_JhD_B.cpbh like '%" & Text3.Text & "%' and SC_JhD_B.jhdh='" & TDBGrid3.Columns(0).Text & "' order by sc_bom_b.ylbh"
Adodc_body_general.Refresh
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -