Word 使用範例錯誤訊息 |
缺席
|
chubby
一般會員 發表:43 回覆:65 積分:21 註冊:2003-05-13 發送簡訊給我 |
站上看到一範例 test 有錯誤 不知少了 ? 謝謝
procedure TForm1.Button2Click(Sender: TObject);
var Template,ItemIndex:OleVariant;
s:string;
i,j,k:integer;
sum:real;
begin
s:=extractfilepath(application.ExeName) 'invoice2.doc';
if Fileexists(s) then
begin
Template:=s;
????????????????????? 出現 [Error] Unit1.pas(112): Not enough actual parameters 錯誤訊息是少了什 use Delphi 7 ????
WordApplication1.Documents.Open(template,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
??????????????????????
ItemIndex:=1;
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
WordApplication1.Visible:= True;
WordDocument1.Range.Select;
WordDocument1.Range.Cut;
ADOQuery1.Active:=false;
if qs1='' then
ADOQuery1.SQL.Strings[3]:=''
else
ADOQuery1.SQL.Strings[3]:=' and a.OrderNo>=' qs1;
if qs2='' then
ADOQuery1.SQL.Strings[4]:=''
else
ADOQuery1.SQL.Strings[4]:=' and a.OrderNo<=' qs2;
ADOQuery1.active:=true;
ADOQuery2.Active:=true;
ADOQuery1.First;
i:=0; //table ¼Æ
while not ADOQuery1.Eof do
begin
Worddocument1.Range.Characters.Last.select;
Worddocument1.Range.Characters.Last.paste;
i:=i 1;
WordDocument1.Tables.Item(i).Cell(1,1).Select;
repl('Company_name',ADOQuery1.fieldbyname('company').asstring);
repl('Address1',ADOQuery1.fieldbyname('Addr1').asstring ',' ADOQuery1.fieldbyname('Addr2').asstring);
repl('Address2',ADOQuery1.fieldbyname('City').asstring ',' ADOQuery1.fieldbyname('State').asstring ',' ADOQuery1.fieldbyname('Zip').asstring);
repl('Address3',ADOQuery1.fieldbyname('Country').asstring);
WordDocument1.Tables.Item(i).Cell(3,1).Range.Text:=ADOQuery1.fieldbyname('OrderNO').asstring;
WordDocument1.Tables.Item(i).Cell(3,2).Range.Text:=ADOQuery1.fieldbyname('CustNO').asstring;
WordDocument1.Tables.Item(i).Cell(3,3).Range.Text:=ADOQuery1.fieldbyname('LastName').asstring ' ' ADOQuery1.fieldbyname('FirstName').asstring;
WordDocument1.Tables.Item(i).Cell(3,4).Range.Text:=ADOQuery1.fieldbyname('SaleDate').asstring;
WordDocument1.Tables.Item(i).Cell(3,5).Range.Text:=ADOQuery1.fieldbyname('ShipDate').asstring;
WordDocument1.Tables.Item(i).Cell(3,6).Range.Text:=ADOQuery1.fieldbyname('ShipVia').asstring;
j:=5;
sum:=0;
While not ADOQuery2.Eof do
begin
WordDocument1.Tables.Item(i).Cell(j,1).Range.Text:=ADOQuery2.fieldbyname('PartNO').asstring;
WordDocument1.Tables.Item(i).Cell(j,2).Range.Text:=ADOQuery2.fieldbyname('Description').asstring;
WordDocument1.Tables.Item(i).Cell(j,3).Range.Text:=ADOQuery2.fieldbyname('Qty').asstring;
WordDocument1.Tables.Item(i).Cell(j,4).Range.Text:=formatfloat('###,####.#0',ADOQuery2.fieldbyname('ListPrice').asfloat);
WordDocument1.Tables.Item(i).Cell(j,5).Range.Text:=formatfloat('###,####.##',ADOQuery2.fieldbyname('Discount').AsFloat);
WordDocument1.Tables.Item(i).Cell(j,6).Range.Text:=formatfloat('###,####.#0',ADOQuery2.fieldbyname('amount').AsFloat);
sum:=sum ADOQuery2.fieldbyname('amount').AsFloat;
j:=j 1;
ADOQuery2.Next;
end;
WordDocument1.Tables.Item(i).Cell(30,2).Range.Text:=formatfloat('###,####.#0',sum);
WordDocument1.Tables.Item(i).Cell(31,2).Range.Text:=formatfloat('###,####.#0',ADOQuery1.fieldbyname('Freight').AsFloat);
WordDocument1.Tables.Item(i).Cell(32,2).Range.Text:=formatfloat('###,####.#0',sum ADOQuery1.fieldbyname('Freight').AsFloat);
ADOQuery1.Next;
end;
WordDocument1.Range.Characters.Last.Delete(emptyparam,ItemIndex);
WordDocument1.Disconnect;
WordApplication1.Disconnect;
ADOQuery1.Active:=false;
ADOQuery1.SQL.Strings[3]:='';
ADOQuery1.SQL.Strings[4]:='';
ADOQuery1.Active:=true;
end else
begin
showmessage('µLªk§ä¨ì' s);
end;
end;
|
chubby
一般會員 發表:43 回覆:65 積分:21 註冊:2003-05-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |