updbase.pas
来自「拥有全套神州数码马易飞ERP源码,现上传部分源码」· PAS 代码 · 共 22 行
PAS
22 行
unit updBASE;
interface
uses sysUtils, dbtables, db, LibStrs,Constdef ;
const
C_MAXFLAG = 999;
type
PArrayData = ^TArrayData;
TArrayData = array[0..2] of string;
type
TBaseUpdateUnit = class(TObject)
procedure Query1BeforeOpen(DataSet: TDataSet);
procedure Query2BeforeOpen(DataSet: TDataSet);
private
FVarSaved: Boolean;
protected
SourceTxnCode: string;
Action: string; //絋粄┪
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?