pda.txt

编译原理课程设计的编程部分LL(1)算法分析

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOCommand1: TADOCommand;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);

 var   biaoming,sleft,sright,scontent : string;
begin

  biaoming := 'select?ˉo?' ;
  ADOCommand1.commandtext:='drop table ?¤2a·???'''+biaoming+'''';
  ADOCommand1.Execute;
  ADOCommand1.commandtext:='create table ?¤2a·???'''+biaoming+''' ([·????á\???á·?] varchar(20))';
  ADOCommand1.Execute;

  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Text:='select selectleft,selectright,content from select?ˉo? ';
  ADOQuery1.Open;

  ADOQuery1.first;
  while not ADOQuery1.Eof do

begin

  sright:=adoquery1.Fieldbyname('selectright').AsString;
  ADOCommand1.commandtext:='alter table ?¤2a·???'''+biaoming+''' drop  '''+sright+'''';
  ADOCommand1.Execute;
  ADOCommand1.commandtext:='alter table ?¤2a·???'''+biaoming+''' add '''+sright+''' varchar(20)';
  ADOCommand1.Execute;
  ADOQuery1.next;

end;

  ADOQuery1.first;
  while not ADOQuery1.Eof do

begin

  sleft:=adoquery1.Fieldbyname('selectright').AsString;
  ADOCommand1.commandtext:='insert into ?¤2a·???'''+biaoming+''' ([·????á\???á·?] varchar(20)) values '''+sleft+'''';
  ADOCommand1.Execute;
  ADOQuery1.next;

end;

  ADOQuery1.first;
  while not ADOQuery1.Eof do

begin

  sleft:=adoquery1.Fieldbyname('selectleft').AsString;
  scontent:=adoquery1.Fieldbyname('content').AsString;
  sright:=adoquery1.Fieldbyname('selectright').AsString;
  ADOCommand1.CommandText:='update ?¤2a·???'''+biaoming+''' set '''+sright+''' ='''+scontent+'''  where [·????á\???á·?] ='''+sleft+'''';
  ADOCommand1.Execute;
  ADOQuery1.Next;

end;

  ADOQuery1.close;




end;

end.