关于数据库

Question

好说好说，做过，不过的点麻烦，你就当是我在灌水吧

Answer 1

呵呵
procedure TMainForm.btnReadCapitalsClick(Sender: TObject);
var
  {$H +}
  F: TextFile;
  Bh: String[20];
  Mc: String[20];
  Jg ：String[20];
begin
  DrQuery.Open;
  if Opendialog1.Execute
  AssignFile(F, Opendialog1.FileName);
  Reset(F);
  try
    while not Eof(F) do
    begin
      Readln(F, Bh,Mc,Jg);
      with DrQuery do 
      begin
        Insert;
        FieldByName('Bh').AsString := Bh;
        FieldByName('Mc').AsString := Mc;
        FieldByName('Jg').AsString := Jg;
        Post;
      end;
    end;
  finally
    CloseFile(F); // Close the file when finished.
  end;
end;
先说明啊，没有调试，是在这儿随便写的，如果用不成了，就当是灌水：）

Answer 2

谢谢，我调试一下，非常感谢你的帮助。