好友
阅读权限10
听众
最后登录1970-1-1
|
YYYQG
发表于 2021-3-16 10:53
procedure OrderDtlKeyDown(var Key: Word; Shift: TShiftState); function GetqryPurchaseTemp: TADOQuery; function GetqryProduceTemp: TADOQuery; function GetqryProColorTemp: TADOQuery; function GetqryOtherCostTemp: TADOQuery; procedure PurchaseFieldOnChange(AField: TField); property qryHdrTemp: TADOQuery read GetqryHdrTemp; property qryDtlTemp: TADOQuery read GetqryDtlTemp; property qryPropTemp: TADOQuery read GetqryPropTemp; property qryMarkTemp: TADOQuery read GetqryMarkTemp; property qryPurchaseTemp: TADOQuery read GetqryPurchaseTemp; property qryProduceTemp: TADOQuery read GetqryProduceTemp; property qryProColorTemp: TADOQuery read GetqryProColorTemp; property qryOtherCostTemp: TADOQuery read GetqryOtherCostTemp; //设置批次中的折扣额 procedure CalcAmount; procedure CreateContract; procedure DeleteContract; procedure ChooseMaterialColor(iColorCategory: integer); |
-
开头
-
中间部分
|
发帖前要善用【论坛搜索】功能,那里可能会有你要找的答案或者已经有人发布过相同内容了,请勿重复发帖。 |
|
|
|
|