u_form1.pas

很好地delphi书籍源码

unit U_Form1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Query1: TQuery;
    DataSource1: TDataSource;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Database1: TDatabase;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
var
  DSQL:string;
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  DSQL:='SELECT GuestName 客户姓名,TKind 交通工具, TDate as 车票日期,'
        +' Foregift 预付押金,DesTown 目的地,BDate 订票时间, Note 备注 '
        +' From tbBookTicket  where TKind=:S_Kind ';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add(DSQL);
    Params[0].AsString:=ComboBox1.Text;
    Open;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  with Query1 do
  begin
    Close;
    SQL.Clear;
    case ComboBox1.ItemIndex of
     0: SQL.Add('Select * from tbBookTicket_View1');
     1: SQL.Add('Select * from tbBookTicket_View2');
     2: SQL.Add('Select * from tbBookTicket_View3');
     3: SQL.Add('Select * from tbBookTicket_View4');
    end;
    Open;
  end;
end;

end.