Delphi+SQL Server小型连锁超市进销存系统 第40页

procedure TfrmOutDepot.ClearPickList(const Col: TColumn);

var

  i: Integer;

begin

  for i := 0 to Col.PickList.Count - 1 do

    FreeMem(PChar(Col.PickList.Objects[i]));

  Col.PickList.Clear;

end;

procedure TfrmOutDepot.qryCHUKUMXCalcFields(DataSet: TDataSet);

var

  i: Integer;

  List: TStrings;

begin

  List := GridMX.Columns[1].PickList;

  for i := 0 to List.Count - 1 do

    if CompareText(Trim(List[i]), Trim(DataSet.FieldByName('商品编码').AsString))=0 then

    begin

      qryCHUKUMXProductName.AsString := PChar(List.Objects[i]);

      Break;

    end;

end;

procedure TfrmOutDepot.qryCHUKUMXNewRecord(DataSet: TDataSet);

begin

  DataSet.FieldByName('出库单据号').AsString := qryCHUKU.FieldByName('出库单据号').AsString;

end;

procedure TfrmOutDepot.qryCHUKUBeforePost(DataSet: TDataSet);

const

  SQL_KCB = ' SELECT 商品编码, 当前库存,最小库存 FROM kcb where Trim(仓库号)=''%s''';

var

  qryBatch: TADOQuery;

begin

  if (DataSet.State = dsInsert) and DataSet.FieldByName('是否已审核').AsBoolean then

  begin

    ShowMessage('新增出库单先要保存才能审核！！');

    DataSet.FieldByName('是否已审核').AsBoolean := False;

    Abort;

  end;

  if DataSet.FieldByName('仓库号').AsString = '' then

  begin

    ShowMessage('仓库号不能为空');

    cmbDepot.SetFocus;

    Abort;

  end;

 << 上一页  [31] [32] [33] [34] [35] [36] [37] [38] [39] [40]  ... 下一页  >>