stringgrid
stringgrid
stringgrid
stringgrid
stringgrid
stringgrid
stringgrid
stringgrid
stringgrid
stringgrid
stringgrid
for i:=
begin
stringgrid
stringgrid
end;
//
adoquery
adoquery
adoquery
combobox
while not adoquery
begin
combobox
adoquery
end;
end;
//
//
//
procedure Toutput
ARow: Integer; var CanSelect: Boolean);
var
price
j:integer;
begin
//讀取選取的當前單元的行
currentCol:=ACol;
currentRow:=ARow;
//只有當選取倉庫時
if (currentCol<>
combobox
//只有商品信息不為空時才可以輸入單位和默認稅率
if (currentCol=
begin
adoquery
adoquery
adoquery
=
adoquery
stringgrid
stringgrid
end;
right
From:http://tw.wingwit.com/Article/program/Delphi/201311/24915.html