unit1.pas

来自「从英文单词提取、到网上下载翻译」· PAS 代码 · 共 72 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
sql,st,word,a,b:string;
i:integer;
begin
 st:=ExtractFilePath(Application.ExeName);
   adoquery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+st+'english.mdb;Persist Security Info=False';
   adoquery2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+st+'english.mdb;Persist Security Info=False';
memo1.Lines.LoadFromFile(st+'sql.txt');
     sql:='select 单词 from lib';
           form1.adoquery2.Close;
          form1.adoquery2.SQL.Clear;
          form1.adoquery2.SQL.Add(sql);
          form1.adoquery2.Open;
   for i:=0 to form1.ADOQuery2.RecordCount-1 do
   begin
  word:=adoquery2.Fieldbyname('单词').AsString;
        sql:='select * from lib2 where 单词='+#39+word+#39;
          form1.adoquery1.Close;
          form1.adoquery1.SQL.Clear;
          form1.adoquery1.SQL.Add(sql);
          try
          form1.adoquery1.Open;
          except
          end;
     a:= adoquery1.Fieldbyname('频率').AsString;
     b:= adoquery1.Fieldbyname('翻译').AsString;
       sql:='update lib set 频率='+a+',翻译='+#39+b+#39+' where 单词='+#39+word+#39;
          form1.adoquery1.Close;
          form1.adoquery1.SQL.Clear;
          form1.adoquery1.SQL.Add(sql);
          try
          form1.adoquery1.ExecSQL;
            except
          end;
  form1.ADOQuery2.Next;
   end;



end;

end.