SQLStoredProc.StoredProcName:='[dbo].[UpDIMS]';
SQLStoredProc.ParamByName('@Mindex').AsInteger:=mInfo.Mindex;
SQLStoredProc.ParamByName('@Longitude').AsInteger:=mInfo.Longitude;
SQLStoredProc.ParamByName('@Latitude').AsInteger:=mInfo.Latitude;
SQLStoredProc.ParamByName('@Angle').AsInteger:=mInfo.Angle;
SQLStoredProc.ParamByName('@Speed').AsInteger:=mInfo.Speed;
SQLStoredProc.ParamByName('@Time').AsInteger:=mInfo.Time;
SQLStoredProc.ExecProc;
存储过程如下:
ALTER PROCEDURE [dbo].[UpDIMS]
-- Add the parameters for the stored procedure here
@Mindex int,
@Longitude int,
@Latitude int,
@Angle int,
@Speed int,
@Time datetime
AS
BEGIN
--判断db_info中是否存在记录
if(select count(*)
from db_info where Mindex=@Mindex)>0
update db_info set Longitude=@Longitude,Latitude=@Latitude,Speed=@Speed,Angle=@Angle,[Time]=@Time where Mindex=@Mindex
else
insert into db_info values(@Mindex,@Longitude,@Latitude,@Speed,@Angle,@Time)
insert into db_info_his values(@Mindex,@Longitude,@Latitude,@Speed,
我在出库窗口写了个方法:ADOQueryBill 的bNum 字段的OnValidate方法 实现的是出库数量不能大于入库的数量,否则就重新输入数量,以下是我的代码:
procedure TFrmStockOut.ADOQueryBillbNum_Validate(Sender: TFie ......