📄 sc_zjh_pqb.frm
字号:
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 7500
FormDesignWidth = 12675
End
Begin MSAdodcLib.Adodc Adodc_Body_general
Height = 705
Left = 6180
Top = 3420
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 = 6210
Top = 5250
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_ZjH_PQB.frx":1170E
Height = 6825
Left = 0
OleObjectBlob = "Sc_ZjH_PQB.frx":11729
TabIndex = 31
Top = 60
Width = 2775
End
Begin VB.Label Label2
Caption = "选择排序顺序："
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 255
Left = 2910
TabIndex = 41
Top = 6240
Width = 1395
End
End
Attribute VB_Name = "Sc_ZjH_PQB"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim mvBookMark As Variant
Dim khdk As Adodb.Recordset
Dim ddxg_RPT As Adodb.Recordset
Dim zztz_rpt As Adodb.Recordset
Dim LcYY As String
Dim Bmky As String
Dim Bmkt As String
Dim HXkt As String
Dim Eky As String
Dim Ekt As String
Dim Combo5_Data As Recordset
Dim Combo6_Data As Recordset
Dim Tjbz As Boolean
Dim TJ_1, Tj_2, Tj_3, Tj_4 As String
Private Sub CMD_Dr_Click()
On Error Resume Next
If Cmdadd.Enabled = False And Adodc_body_general.Recordset.RecordCount <= 0 Then
Dim dr_DD As Recordset
Set dr_DD = New Recordset
dr_DD.Open "SELECT yy_khdd.ddbh, yy_khddt.khbh, yy_khddt.khmc, yy_khddt.djrq,yy_khdd.cplb, yy_khdd.cpbh, yy_khdd.cpmc, yy_khdd.gg,yy_khdd.yanse, yy_khdd.caizh, yy_khdd.khlh,isnull(yy_khdd.sl,0) as sl," & _
"yy_khdd.hybh, yy_khdd.htbh, yy_khdd.bacp, yy_khdd.dj, yy_khdd.dw,yy_khdd.shrq FROM yy_khdd INNER JOIN yy_khddt ON yy_khdd.ddbh = yy_khddt.ddbh where yy_khddt.djrq>='" & CVDate(Text1(3).Text) & "' and yy_khddt.djrq<='" & CVDate(Text1(4).Text) & "'and yy_khdd.wanch<>'完成' and sh='已审' and (yy_khdd.dr_pq='' or yy_khdd.dr_pq<>'已排期' or yy_khdd.dr_pq is null)", DB, adOpenStatic, adLockReadOnly
If dr_DD.RecordCount > 0 Then
For i = 1 To dr_DD.RecordCount
dr_DD.ActiveConnection.Execute "insert into sc_jhd_B(jhdh,ddbh,cpbh,khlh,cplb,cpmc,gg,caizh,yanse,dw,dj,sl,djrq,shrq,bacp,hybh,htbh,khbh,khmc,wcrq,wanch,sxh) values('" & Trim(Text1(0).Text) & "','" & dr_DD!ddbh & "','" & dr_DD!cpbh & "','" & dr_DD!khlh & "','" & dr_DD!cplb & "','" & dr_DD!cpmc & "','" & dr_DD!gg & "','" & dr_DD!caizh & "','" & dr_DD!yanse & "','" & dr_DD!dw & "','" & dr_DD!dj & "','" & dr_DD!Sl & "','" & dr_DD.Fields("djrq").Value & "','" & dr_DD.Fields("shrq").Value & "','" & dr_DD!bacp & "','" & dr_DD!hybh & "','" & dr_DD!htbh & "','" & dr_DD!khbh & "','" & dr_DD!KHMc & "','" & dr_DD.Fields("shrq").Value & "','未完成','" & Str(i) & "')"
dr_DD.MoveNext
Next i
Else
MsgBox "所选定日期内的订单，已纳入生产计划，或者订单未审核。", vbOKOnly + 16, "系统提示"
Call cmdCancel_Click
Exit Sub
End If
Adodc_body_general.Recordset.ActiveConnection.Execute "update yy_khdd set dr_pq='已排期' where yy_khdd.djrq>='" & CVDate(Text1(3).Text) & "' and yy_khdd.djrq<='" & CVDate(Text1(4).Text) & "'and yy_khdd.wanch<>'完成' and (yy_khdd.dr_pq='未排期' or yy_khdd.dr_pq is null or yy_khdd.dr_pq='')"
Adodc_body_general.Recordset.Requery
End If
End Sub
Private Sub CMd_Find_Click()
On Error Resume Next
Set CX_FrM_SjY = Sc_ZjH_PQB.AdoprimaryRs
CX_SJy = "select * from sc_jhd_h where not jhdh is null "
With SEC_Dialog
.Combo1(0).Clear
.Combo1(1).Clear
.Combo1(0).AddItem ("bmmc(部门名称）")
.Combo1(1).AddItem ("bmmc(部门名称）")
.Combo1(0).AddItem ("jhdh(计划单号）")
.Combo1(1).AddItem ("jhdh(计划单号）")
End With
Load SEC_Dialog
SEC_Dialog.Show 1
End Sub
Private Sub Cmd_Print_Click()
If Trim(Combo1(0).Text) <> "" Then
Select Case Trim(Combo1(0).Text)
Case "交货日期"
TJ_1 = "order by SC_JhD_B.shrq"
Case "订货日期"
TJ_1 = "order by SC_JhD_B.djrq"
Case "完工日期"
TJ_1 = "order by SC_JhD_B.wcrq"
Case "客户名称"
TJ_1 = "order by SC_JhD_B.khbh"
Case "产品名称 "
TJ_1 = "order by SC_JhD_B.cpmc"
End Select
Else
TJ_1 = ""
End If
If Trim(Combo1(1).Text) <> "" Then
Select Case Trim(Combo1(1).Text)
Case "交货日期"
If Trim(Combo1(0).Text) = "" Then
Tj_2 = "order by SC_JhD_B.shrq"
Else
Tj_2 = ",SC_JhD_B.shrq"
End If
Case "订货日期"
If Trim(Combo1(0).Text) = "" Then
Tj_2 = "order by SC_JhD_B.djrq"
Else
Tj_2 = ",SC_JhD_B.djrq"
End If
Case "完工日期"
If Trim(Combo1(0).Text) = "" Then
Tj_2 = "order by SC_JhD_B.wcrq"
Else
Tj_2 = ",SC_JhD_B.wcrq"
End If
Case "客户名称"
If Trim(Combo1(0).Text) = "" Then
Tj_2 = "order by SC_JhD_B.khbh"
Else
Tj_2 = ",SC_JhD_B.khbh"
End If
Case "产品名称 "
If Trim(Combo1(0).Text) = "" Then
Tj_2 = "order by SC_JhD_B.cpmc"
Else
Tj_2 = ",SC_JhD_B.cpmc"
End If
End Select
Else
Tj_2 = ""
End If
If Trim(Combo1(2).Text) <> "" Then
Select Case Trim(Combo1(2).Text)
Case "交货日期"
If Trim(Combo1(0).Text) = "" And Trim(Combo1(1).Text) = "" Then
Tj_3 = "order by shrq"
Else
Tj_3 = ",shrq"
End If
Case "订货日期"
If Trim(Combo1(0).Text) = "" And Trim(Combo1(1).Text) = "" Then
Tj_3 = "order by djrq"
Else
Tj_3 = ",SC_JhD_B.djrq"
End If
Case "完工日期"
If Trim(Combo1(0).Text) = "" And Trim(Combo1(1).Text) = "" Then
Tj_3 = "order by SC_JhD_B.wcrq"
Else
Tj_3 = ",SC_JhD_B.wcrq"
End If
Case "客户名称"
If Trim(Combo1(0).Text) = "" And Trim(Combo1(1).Text) = "" Then
Tj_3 = "order by SC_JhD_B.khbh"
Else
Tj_3 = ",SC_JhD_B.khbh"
End If
Case "产品名称 "
If Trim(Combo1(0).Text) = "" And Trim(Combo1(1).Text) = "" Then
Tj_3 = "order by SC_JhD_B.cpmc"
Else
Tj_3 = ",SC_JhD_B.cpmc"
End If
End Select
Else
Tj_3 = ""
End If
Sc_JhD_RpT.DataControl1.ConnectionString = Conn_Str
Sc_JhD_RpT.DataControl1.Source = "SELECT SC_JhD_B.jhdh, SC_JhD_B.ddbh, SC_JhD_B.cpbh,SC_JhD_B.khlh, SC_JhD_B.cplb, SC_JhD_B.cpmc, 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_H.bmmc, Sc_JhD_H.zdy, Sc_JhD_H.sczg," & _
"Sc_JhD_H.shy, Sc_JhD_H.jhqsrq, Sc_JhD_H.jhjzrq,Sc_JhD_H.djrq AS zdrq FROM SC_JhD_B INNER JOIN Sc_JhD_H ON SC_JhD_B.jhdh = Sc_JhD_H.jhdh where sc_jhd_B.jhdh='" & Text1(0).Text & "'" & TJ_1 & Tj_2 & Tj_3
Sc_JhD_RpT.Show VBRUN.FormShowConstants.vbModal
End Sub
Private Sub CMD_PX_Click()
If Trim(Combo1(0).Text) <> "" Then
Select Case Trim(Combo1(0).Text)
Case "交货日期"
TJ_1 = "order by shrq"
Case "订货日期"
TJ_1 = "order by djrq"
Case "完工日期"
TJ_1 = "order by wcrq"
Case "客户名称"
TJ_1 = "order by khbh"
Case "产品名称 "
TJ_1 = "order by cpmc"
End Select
Else
TJ_1 = ""
End If
If Trim(Combo1(1).Text) <> "" Then
Select Case Trim(Combo1(1).Text)
Case "交货日期"
If Trim(Combo1(0).Text) = "" Then
Tj_2 = "order by shrq"
Else
Tj_2 = ",shrq"
End If
Case "订货日期"
If Trim(Combo1(0).Text) = "" Then
Tj_2 = "order by djrq"
Else
Tj_2 = ",djrq"
End If
Case "完工日期"
If Trim(Combo1(0).Text) = "" Then
Tj_2 = "order by wcrq"
Else
Tj_2 = ",wcrq"
End If
Case "客户名称"
If Trim(Combo1(0).Text) = "" Then
Tj_2 = "order by khmc"
Else
Tj_2 = ",khmc"
End If
Case "产品名称 "
If Trim(Combo1(0).Text) = "" Then
Tj_2 = "order by cpmc"
Else
Tj_2 = ",cpmc"
End If
End Select
Else
Tj_2 = ""
End If
If Trim(Combo1(2).Text) <> "" Then
Select Case Trim(Combo1(2).Text)
Case "交货日期"
If Trim(Combo1(0).Text) = "" And Trim(Combo1(1).Text) = "" Then
Tj_3 = "order by shrq"
Else
Tj_3 = ",shrq"
End If
Case "订货日期"
If Trim(Combo1(0).Text) = "" And Trim(Combo1(1).Text) = "" Then
Tj_3 = "order by djrq"
Else
Tj_3 = ",djrq"
End If
Case "完工日期"
If Trim(Combo1(0).Text) = "" And Trim(Combo1(1).Text) = "" Then
Tj_3 = "order by wcrq"
Else
Tj_3 = ",wcrq"
End If
Case "客户名称"
If Trim(Combo1(0).Text) = "" And Trim(Combo1(1).Text) = "" Then
Tj_3 = "order by khbh"
Else
Tj_3 = ",khbh"
End If
Case "产品名称 "
If Trim(Combo1(0).Text) = "" And Trim(Combo1(1).Text) = "" Then
Tj_3 = "order by cpmc"
Else
Tj_3 = ",cpmc"
End If
End Select
Else
Tj_3 = ""
End If
Adodc_body_general.ConnectionString = Conn_Str
Adodc_body_general.CommandType = adCmdUnknown
Adodc_body_general.RecordSource = "select * from sc_jhd_B where jhdh='" & Trim(Text1(0).Text) & "'" & TJ_1 & Tj_2 & Tj_3
Adodc_body_general.Refresh
End Sub
Private Sub Cmd_Qk_Click()
Combo1(0).Text = " "
Combo1(1).Text = " "
Combo1(2).Text = " "
End Sub
Private Sub CmD_SH_Click()
Dim Sh_Dh As String
Sh_Dh = Text1(0).Text
DB.Execute "update sc_jhd_h set sh = '已审' where jhdh='" & Text1(0).Text & "'"
AdoprimaryRs.Refresh
AdoprimaryRs.Recordset.Requery
AdoprimaryRs.Recordset.Find ("jhdh='" & Sh_Dh & "'")
End Sub
Private Sub cmdnext_Click() '向后⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -