userdefine.pas

四川大学图书管理系统！sql+c++实现

unit UserDefine;

interface

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

type
  TUserDefineForm = class(TForm)
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserDefineForm: TUserDefineForm;
  Text : String;
  i : integer;

implementation

uses Data, Main;

{$R *.dfm}

procedure TUserDefineForm.Button1Click(Sender: TObject);
begin
  with Data.DataModule.UserDefine do
    begin
      Close;
      SQL.Clear;
      i := 0;
      Text := Memo1.Lines[i];
      //添加SQL查询语句
      while Text<>'' do
        begin
          SQL.Add(Text);
          i := i+1;
          Text := Memo1.Lines[i];
        end;
      //异常捕获
      try
        Open;
        DBGrid1.DataSource := Data.DataModule.UserDefineDS;
      finally
        Text := 'hello,Exception!'; // ^-^
        abort;
      end;
    end;
end;

procedure TUserDefineForm.Button2Click(Sender: TObject);
begin
  Memo1.Clear;
end;

end.