procedureTForm1.Image3Click( );varWbeginifADOData['File1']=''thenexit;Image3.Cursor:=crAppStart;TryWordApp:=GetActiveOleObject('Word.Application');exceptWordApp:=CreateOleObject('Word.Application');end;TryWordApp.Documents.Save;WordApp.Documents.Close;exceptend;WordStream:=TADOBlobStream.Create(TBlobField(ADOData.Fields[5]),bmRead);WordStream.Position:=0;TBlobField(ADOData.Fields[5]).SaveToStream(WordStream);WordStream.SaveToFile(CurDir+'\File1.doc');WordApp.Documents.Open(CurDir+'\File1.doc');WordApp.Caption:='專利附件';WordApp.Visible:=true;Edit4.Text:=CurDir+'\File1.doc';Image3.Cursor:=crDefault;end;procedureTForm1.Button1Click( );varWbeginifApplication.MessageBox('確認(rèn)添加記錄嗎?','添加記錄',MB_OKCANCEL)=IDCANCELthenexit;ifnotDataCheckOKthenexit;TryWordApp.Documents.Save;WordApp.Documents.Close;WordApp.Visible:=false;exceptend;ADOData.Insert;ADOData['PatentName']:=Edit1.Text;ADOData['PatentType']:=ComboBox1.Text;ADOData['Developer']:=Edit2.Text;ADOData['Mail']:=Edit3.Text;if(Edit4.Text<>'')and(Edit4.Text<>'(Word文檔)')thenbeginWordStream:=TADOBlobStream.Create(TBlobField(ADOData.Fields[5]),bmWrite);WordStream.LoadFromFile(Edit4.Text);WordStream.Position:=0;TBlobField(ADOData.Fields[5]).LoadFromStream(WordStream);WordStream.Free;end;ADOData.Post;ADOData.Requery;ShowData;end;

熱心網(wǎng)友

我也希望能看到很基礎(chǔ)的東西，雖然書上講得很多，但希望很短而精。

熱心網(wǎng)友

procedureTForm1.Image3Click( );//如果點(diǎn)擊了TForm1表單上的Image3控件的話....end;//結(jié)束如果你連這么基本的都不知道的話,建議你買本書自己好好學(xué)習(xí),全是很基礎(chǔ)的東東。