📄 sc_zztz_djb.frm
字号:
Index = 4
Left = 3420
TabIndex = 15
Top = 300
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 = 90
TabIndex = 14
Top = 1635
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 = 6
Left = 6540
TabIndex = 13
Top = 1195
Width = 825
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 = 6540
TabIndex = 12
Top = 1635
Width = 825
End
End
Begin VB.Frame Frame3
Height = 555
Left = 0
TabIndex = 8
Top = 7350
Width = 2925
Begin VB.CheckBox Check1
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
Index = 1
Left = 2175
TabIndex = 9
Top = 210
Width = 705
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 300
Left = 60
TabIndex = 10
Top = 180
Width = 1815
_ExtentX = 3201
_ExtentY = 529
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
CalendarForeColor= 0
CalendarTitleForeColor= 0
CalendarTrailingForeColor= 4194304
Format = 177930240
CurrentDate = 37712
End
End
Begin TrueOleDBGrid60.TDBGrid TDBGrid1
Bindings = "SC_ZzTz_DjB.frx":4265
Height = 5025
Left = 2970
OleObjectBlob = "SC_ZzTz_DjB.frx":4286
TabIndex = 20
Top = 2010
Width = 9645
End
Begin ResizeLibCtl.ReSize ReSize1
Left = 3000
Top = 4110
_Version = 196608
_ExtentX = 741
_ExtentY = 741
_StockProps = 64
Enabled = -1 'True
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 7980
FormDesignWidth = 12660
End
Begin MSAdodcLib.Adodc Adodc_Body_general
Height = 705
Left = 6180
Top = 3390
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 = 6240
Top = 4230
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_ZzTz_DjB.frx":1188D
Height = 7305
Left = 0
OleObjectBlob = "SC_ZzTz_DjB.frx":118A8
TabIndex = 33
Top = 60
Width = 2925
End
End
Attribute VB_Name = "SC_ZzTz_DjB"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Lb2 As String
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 Tjbz As Boolean
Dim TJ_1, Tj_2, Tj_3, Tj_4 As String
Dim Combo4_Data, combo2_data, combo3_data, dr_DD As Recordset
Dim Combo5_Data As Recordset
Dim Combo6_Data, Ado_WLtj As Recordset
Dim Combo7_data As Recordset
Dim CpkC_TJ, SHSL_tJ As Double
Dim SL_teMp As Recordset
Dim WLtj_StR As String
Private Sub CMd_Find_Click()
On Error Resume Next
Set CX_FrM_SjY = SC_ZzTz_DjB.AdoprimaryRs
CX_SJy = "select * from sc_zztz_H where not zzdh is null "
With SEC_Dialog
.Combo1(0).Clear
.Combo1(1).Clear
.Combo1(0).AddItem ("zzdh(制令单号）")
.Combo1(1).AddItem ("zzdh(制令单号）")
.Combo1(0).AddItem ("jhdh(计划单号）")
.Combo1(1).AddItem ("jhdh(计划单号）")
.Combo1(0).AddItem ("ddbh(订单编号）")
.Combo1(1).AddItem ("ddbh(订单编号）")
.Combo1(0).AddItem ("khbh(客户编号）")
.Combo1(1).AddItem ("khbh(客户编号）")
End With
Load SEC_Dialog
SEC_Dialog.Show 1
End Sub
Private Sub CmD_SH_Click()
Dim Sh_Dh As String
Sh_Dh = Text1(0).Text
DB.Execute "update sc_zztz_h set sh = '已审' where zzdh='" & Text1(0).Text & "'"
AdoprimaryRs.Refresh
AdoprimaryRs.Recordset.Requery
AdoprimaryRs.Recordset.Find ("zzdh='" & Sh_Dh & "'")
End Sub
Private Sub CmdPrint_Click()
sc_zztz_rpt.DataControl1.ConnectionString = Conn_Str
sc_zztz_rpt.DataControl1.Source = "SELECT Sc_Zztz_H.zzDh, Sc_Zztz_H.khbh, Sc_Zztz_H.khmc,Sc_Zztz_H.JhDh, Sc_Zztz_H.ddbh, Sc_Zztz_H.djrq," & _
"Sc_Zztz_H.beizhU, Sc_Zztz_H.sczg, Sc_Zztz_H.shy,Sc_ZZtZ_wLB.ylmc, Sc_ZZtZ_wLB.ylbh, Sc_ZZtZ_wLB.yl_gg," & _
"Sc_ZZtZ_wLB.yl_caizh, Sc_ZZtZ_wLB.yl_yanse, Sc_ZZtZ_wLB.yl_dw,Sc_ZZtZ_wLB.yl_kcsl, Sc_ZZtZ_wLB.sysl, Sc_ZZtZ_wLB.khlh," & _
"Sc_ZZtZ_wLB.wcrq, Sc_ZZtZ_wLB.cplb, Sc_ZZtZ_wLB.cpbh," & _
"Sc_ZZtZ_wLB.cpmc, Sc_ZZtZ_wLB.gg, Sc_ZZtZ_wLB.caizh,Sc_ZZtZ_wLB.yanse, Sc_ZZtZ_wLB.dw, Sc_ZZtZ_wLB.sl," & _
"Sc_ZZtZ_wLB.kcSL as kykc FROM Sc_Zztz_H left JOIN Sc_ZZtZ_wLB ON Sc_Zztz_H.zzDh = Sc_ZZtZ_wLB.zzdh where sc_ZZtZ_h.zzdh='" & Text1(0).Text & "'order by sc_zztz_wlb.cpbh,SC_zztz_wlb.ylbh"
sc_zztz_rpt.Show VBRUN.FormShowConstants.vbModal
End Sub
Private Sub cmdnext_Click() '向后⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -