procedureTForm1.Button2Click( );varWbeginifApplication.MessageBox('确认更新当前记录吗?','修改记录',MB_OKCANCEL)=IDCANCELthenexit;ifnotDataCheckOKthenexit;TryWordApp.Documents.Save;WordApp.Documents.Close;WordApp.Visible:=false;exceptend;ADOData.Edit;ADOData['PatentName']:=Edit1.Text;ADOData['PatentType']:=ComboBox1.Text;ADOData['Developer']:=Edit2.Text;ADOData['Mail']:=Edit3.Text;ifEdit4.Text=''thenbeginifADOData['File1']<>''thenADOData['File1']:='';endelseifEdit4.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;
