Word 使用範例錯誤訊息 - Delphi K.Top 討論區

發表時間：2005-10-15 12:07:34

IP:220.135.xxx.xxx 未訂閱

站上看到一範例 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;