:kuux
你看下未知啦!改了极少部分代码!今天又解决了一个问题!关于其中的选订单的问题啊!
unit BillQuery;
function BillQueryShow(l1Mode, l1Select: Integer; b1Read: Boolean): string;
var
frmBillQuery: TfrmBillQuery;
begin
frmBillQuery := TfrmBillQuery.Create(Application);
with frmBillQuery do
begin
lMainMode := l1Mode;
lMode := l1Mode;//我加的!
lSelect := l1Select;
bRead := b1Read;
sReturn := '';
MainShow;
Result := sReturn;
Free;
end;
end;
由于本人比较菜!不要笑我啊!
源码还有很多问题!还请各位高手指点啊!