📄 edparts.vbs
字号:
'USEUNIT Db
'USEUNIT dcdbctl
'USEUNIT StdCtrls
'USEUNIT DBCtrls
'USEUNIT Buttons
'USEUNIT ExtCtrls
'USEUNIT Datamod
'-------------------------------------------------------------------
sub Edit(PartNo)
MastData.Parts.Open
call MastData.Parts.Locate("PartNo", PartNo, 0)
EdPartsForm.ShowModal
End Sub
'-------------------------------------------------------------------
sub PrintBtnClick(Sender)
if MessageDlg(" Print this form?", mtConfirmation, MkSet(mbYes,mbNo), 0)= mrYes then Print
End Sub
'-------------------------------------------------------------------
sub FormCloseQuery(Sender,CanClose)
CanClose = Datamod.DataSetApplyUpdates(MastData.Parts, (ModalResult = mrOK))
End SUb
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -