📄 sc_lltz_djb.frm
字号:
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = "adoprimaryrs"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 136
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSAdodcLib.Adodc Adodc_body_general
Height = 615
Left = 3240
Top = 3270
Width = 3855
_ExtentX = 6800
_ExtentY = 1085
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 = "Tahoma"
Size = 9
Charset = 136
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin TrueOleDBGrid60.TDBGrid TDBGrid3
Bindings = "Sc_LLtZ_DjB.frx":138AA
Height = 6735
Left = 30
OleObjectBlob = "Sc_LLtZ_DjB.frx":138C5
TabIndex = 29
Top = 60
Width = 2955
End
Begin MSAdodcLib.Adodc Ado_cpxx
Height = 615
Left = 600
Top = 3210
Width = 1695
_ExtentX = 2990
_ExtentY = 1085
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 = "Ado_cpxx"
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 ResizeLibCtl.ReSize ReSize1
Left = 810
Top = 4920
_Version = 196608
_ExtentX = 741
_ExtentY = 741
_StockProps = 64
Enabled = -1 'True
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 7440
FormDesignWidth = 11655
End
End
Attribute VB_Name = "Sc_LLtZ_DjB"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'2004年7月12日 曹汉华 编写 汇能科技开发有限公司
'_____________________________________________________________
Dim Combo6_Data, Combo5_Data, Combo4_Data, Combo7, LLdH_Ado, Dr_ZZtZ, Ado_WLCx, Ado_KcTJ As Recordset
Dim Dr_STR As String
Dim YLSL_Tj, Y_KcSL As Double
Dim Tjbz As Boolean
Private Sub CmD_SH_Click()
Dim Sh_Dh As String
Sh_Dh = Text1(0).Text
DB.Execute "update sc_lltz_h set sh = '已审' where lldh='" & Text1(0).Text & "'"
AdoprimaryRs.Refresh
AdoprimaryRs.Recordset.Requery
AdoprimaryRs.Recordset.Find ("lldh='" & Sh_Dh & "'")
End Sub
Private Sub Cmdreturn_Click() '退出
Unload Me
End Sub
Private Sub Form_Load() '装载窗体
Me.Width = main_FRM.Picture1.Width - 30
Me.Top = main_FRM.ActiveBar21.Bands("Band7").Height * 2.5 - 65
Me.Height = main_FRM.Picture1.Height - 300
Me.Left = main_FRM.Picture1.Left + 15
Me.DTPicker1.Value = VBA.Date
Call Com_Load
Tjbz = False
If SH_Right = True Then
CmD_SH.Visible = True
Else
CmD_SH.Visible = False
End If
AdoprimaryRs.ConnectionString = Conn_Str
AdoprimaryRs.RecordSource = "select * from sc_lltz_H where djrq='" & VBA.Date & "'"
AdoprimaryRs.Refresh
For i = 0 To Text1.Count - 1
Text1(i).Locked = True
Next i
For i = 0 To Combo.Count - 1
Combo(i).Locked = True
Next i
End Sub
Private Sub T_Sh_Change()
If T_Sh.Text = "已审" And SH_Right = False Then
Cmdedit.Visible = False
Cmddelete.Visible = False
Else
Cmdedit.Visible = True
Cmddelete.Visible = True
End If
End Sub
Private Sub T_Sh_GotFocus()
SendKeys "{TAB}"
End Sub
Private Sub TDBGrid1_Change()
If Cmdadd.Enabled = False And Col = 0 And Check2.Value = 1 Then
TDBGrid2.Visible = True
Ado_cpxx.ConnectionString = Conn_Str
Ado_cpxx.RecordSource = "SELECT SyS_YlMc_B.cplb, SyS_YlMc_B.cpmc, SyS_YlMc_B.gg,SyS_YlMc_B.caizh, SyS_YlMc_B.yanse, SyS_YlMc_B.dw," & _
"SyS_YlMc_B.kcxx, SyS_YlMc_B.DJ, isnull(CK_YL_HzK.sl,0) as kcsl,SyS_YlMc_B.cpbh_s FROM SyS_YlMc_B left JOIN CK_YL_HzK ON SyS_YlMc_B.cpbh_s = CK_YL_HzK.cpbh AND " & _
"SyS_YlMc_B.cpmc = CK_YL_HzK.cpmc where SyS_YlMc_B.cpbh_s like '%" & TDBGrid1.Columns(0).Text & "%'"
Ado_cpxx.Refresh
End If
End Sub
Private Sub TDBGrid1_AfterColUpdate(ByVal ColIndex As Integer) '超领提示
If Cmdadd.Enabled = False And (ColIndex = 10 Or ColIndex = 6 Or ColIndex = 12) Then
If Val(TDBGrid1.Columns(10).Text) + Val(TDBGrid1.Columns(6).Text) >= Val(TDBGrid1.Columns(12).Text) Then
MsgBox "此制令领料数量已足.超领" & Str((Val(TDBGrid1.Columns(6).Text) + Val(TDBGrid1.Columns(10).Text)) - Val(TDBGrid1.Columns(12).Text)), 64 + vbOKOnly, "系统提示"
Adodc_body_general.Recordset.Fields("ll_qk").Value = "已领完"
End If
If Val(TDBGrid1.Columns(10).Text) + Val(TDBGrid1.Columns(6).Text) < Val(TDBGrid1.Columns(12).Text) Then
Adodc_body_general.Recordset.Fields("ll_qk").Value = "未领完"
End If
End If
End Sub
Private Sub TDBGrid1_KeyDown(KeyCode As Integer, Shift As Integer) '表格记录删除 2002年9月18日 曹汉华
On Error Resume Next
If Cmdadd.Enabled = False Then
If KeyCode = 46 Then
Adodc_body_general.Recordset.Delete
Adodc_body_general.Recordset.UpdateBatch adAffectAll
Adodc_body_general.Refresh
End If
End If
End Sub
Private Sub TDBGrid2_Click() '手动选择需求物料
On Error Resume Next
Call Sd_YL_SL
TDBGrid1.Columns(0).Value = TDBGrid2.Columns(8).Value
TDBGrid1.Columns(1).Value = TDBGrid2.Columns(0).Value
TDBGrid1.Columns(2).Value = TDBGrid2.Columns(1).Value
TDBGrid1.Columns(3).Value = TDBGrid2.Columns(2).Value
TDBGrid1.Columns(4).Value = TDBGrid2.Columns(3).Value
TDBGrid1.Columns(5).Value = TDBGrid2.Columns(4).Value
TDBGrid1.Columns(6).Value = 0
TDBGrid1.Columns(7).Value = Trim(Text1(0).Text)
TDBGrid1.Columns(8).Value = TDBGrid2.Columns(7).Value
TDBGrid1.Columns(9).Value = Trim(Combo(1).Text)
TDBGrid1.Columns(11).Value = TDBGrid2.Columns(5).Value
Adodc_body_general.Recordset.Fields("zzdh").Value = Trim(Combo(3).Text)
TDBGrid1.Columns(10).Value = YLSL_Tj
End Sub
Private Sub Text1_Change(Index As Integer) '从表变化
If Index = 0 Then
Adodc_body_general.ConnectionString = Conn_Str
Adodc_body_general.RecordSource = "select * from sc_lltz_B where lldh='" & Text1(0).Text & "'"
Adodc_body_general.Refresh
End If
End Sub
Private Sub cmdnext_Click() '向后
On Error GoTo GoNextError
If Not AdoprimaryRs.Recordset.EOF Then AdoprimaryRs.Recordset.MoveNext
If AdoprimaryRs.Recordset.EOF And AdoprimaryRs.Recordset.RecordCount > 0 Then
Beep
AdoprimaryRs.Recordset.MoveLast
End If
Exit Sub
GoNextError:
MsgBox Err.Description
End Sub
Private Sub CmdPrint_Click() '打印按钮
If Trim(Text1(0).Text) <> "" Then
If MsgBox("是否打印简明领料单？否，则打印详细领料表。", vbYesNo + 32, "系统提示") = vbYes Then
Sc_LLtZ_RpT.DataControl1.ConnectionString = Conn_Str
Sc_LLtZ_RpT.DataControl1.Source = "SELECT Sc_LLtZ_B.ylbh, Sc_LLtZ_B.ylmc, Sc_LLtZ_B.gg,Sc_LLtZ_B.caizh, Sc_LLtZ_B.yanse, Sc_LLtZ_B.dw, Sc_LLtZ_B.Sl,Sc_LLtZ_B.YLSL, Sc_LLtZ_B.KCSL, Sc_LLtZ_B.SYSL,Sc_LLtZ_B.zzdh, Sc_LLtZ_B.ddbh, Sc_LLtZ_B.jhdh,Sc_LLtZ_B.khbh, Sc_LLtZ_B.cpbh, Sc_LLtZ_B.cpmc, Sc_LLtZ_H.lllx," & _
"Sc_LLtZ_H.djrq, Sc_LLtZ_H.bmmc, Sc_LLtZ_H.beizhu,Sc_LLtZ_H.sczg, Sc_LLtZ_H.zzdh AS Expr1, Sc_LLtZ_H.lldh FROM Sc_LLtZ_B INNER JOIN Sc_LLtZ_H ON Sc_LLtZ_B.lldh = Sc_LLtZ_H.lldh where sc_lltz_h.lldh='" & Text1(0).Text & "' order by sc_lltz_b.ylbh"
Sc_LLtZ_RpT.Show VBRUN.FormShowConstants.vbModal
Else
Sc_LLtZ_XXRpT.DataControl1.ConnectionString = Conn_Str
Sc_LLtZ_XXRpT.DataControl1.Source = "SELECT Sc_LLtZ_B.ylbh, Sc_LLtZ_B.ylmc, Sc_LLtZ_B.gg,Sc_LLtZ_B.caizh, Sc_LLtZ_B.yanse, Sc_LLtZ_B.dw, Sc_LLtZ_B.Sl,Sc_LLtZ_B.YLSL, Sc_LLtZ_B.KCSL, Sc_LLtZ_B.SYSL,Sc_LLtZ_B.zzdh, Sc_LLtZ_B.ddbh, Sc_LLtZ_B.jhdh,Sc_LLtZ_B.khbh, Sc_LLtZ_B.cpbh, Sc_LLtZ_B.cpmc, Sc_LLtZ_H.lllx," & _
"Sc_LLtZ_H.djrq, Sc_LLtZ_H.bmmc, Sc_LLtZ_H.beizhu,Sc_LLtZ_H.sczg, Sc_LLtZ_H.zzdh AS Expr1, Sc_LLtZ_H.lldh FROM Sc_LLtZ_B INNER JOIN Sc_LLtZ_H ON Sc_LLtZ_B.lldh = Sc_LLtZ_H.lldh where sc_lltz_h.lldh='" & Text1(0).Text & "' order by sc_lltz_b.cpbh"
Sc_LLtZ_XXRpT.Show VBRUN.FormShowConstants.vbModal
End If
End If
End Sub
Private Sub Cmdqd_Click() '首端
If AdoprimaryRs.Recordset.RecordCount > 0 Then
If AdoprimaryRs.BOFAction = False Then
AdoprimaryRs.Recordset.MoveFirst
Else
AdoprimaryRs.Recordset.MoveNext
End If
Else
Exit Sub
End If
End Sub
Private Sub cmdxq_Click() '向前
On Error GoTo GoPrevError
If Not AdoprimaryRs.Recordset.BOF Then AdoprimaryRs.Recordset.MovePrevious
If AdoprimaryRs.Recordset.BOF And AdoprimaryRs.Recordset.RecordCount > 0 Then
Beep
AdoprimaryRs.Recordset.MoveFirst
End If
Exit Sub
GoPrevError:
MsgBox Err.Description
End Sub
Private Sub cmdmd_Click() '末端
If AdoprimaryRs.Recordset.RecordCount > 0 Then
If AdoprimaryRs.Recordset.EOF = False Then
AdoprimaryRs.Recordset.MoveLast
Else
AdoprimaryRs.Recordset.MovePrevious
End If
Else
Exit Sub
End If
End Sub
Private Sub Cmdadd_Click() '增加
Tjbz = True
CmD_FinD.Enabled = False
Cmdprint.Enabled = False
TDBGrid3.Enabled = False
CmD_SH.Enabled = False
Cmddelete.Enabled = False
Cmdadd.Enabled = False
Cmdedit.Enabled = False
Cmdreturn.Enabled = False
CmdOK.Enabled = True
Cmdcancel.Enabled = True
cmdxq.Enabled = False
cmdnext.Enabled = False
cmdmd.Enabled = False
cmdqd.Enabled = False
TDBGrid1.AllowAddNew = True
TDBGrid1.AllowDelete = True
TDBGrid1.AllowUpdate = True
ni = Right(Year(Date), 2)
If Len(Month(Date)) < 2 Then
yue = "0" & Month(Date)
Else
yue = Month(Date)
End If
If Len(Day(Date)) < 2 Then
ri = "0" & Day(Date)
Else
ri = Day(Date)
End If
Set LLdH_Ado = New Recordset
LLdH_Ado.Open "select distinct lldh from sc_lltz_H where year(djrq)='" & Year(Date) & "'and month(djrq)='" & Month(Date) & "' order by lldh", DB, adOpenStatic
If LLdH_Ado.RecordCount < 1 Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -