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

 'where 仓库号 = ''%s''';

var

  PCKH: PChar;

  Column: TColumn;

begin

  with data1.qryTemp do

  begin

    ApplySQL(data1.qryTemp, Format(SQLStr, [qryCHUKU.FieldByName('仓库号').AsString]));

    Column := GridMX.Columns[1];

    ClearPickList(Column);

    while not Eof do

    begin

      GetMem(PCKH, 13);

      FillChar(PCKH^, 13, 0);

      Move(PChar(Fields[1].AsString)^, PCKH^, 13);

      Column.PickList.AddObject(Fields[0].AsString, TObject(PCKH));

      Next;

    end;

  end;

end;