unit14.pas

来自「作者针对当前酒店客房管理的现状」· PAS 代码 · 共 46 行

unit Unit14;

interface

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

type
  TForm14 = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Query1: TQuery;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure RadioButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;

implementation

{$R *.dfm}

procedure TForm14.RadioButton1Click(Sender: TObject);
begin
  with Query1 do
  begin
    Close;
    Sql.Clear;
    Sql.Add('select count(code)as 借阅次数,code as 图书编号 from jieyueb');
    sql.Add('where 1=1');
    Sql.Add(' group by code order by 借阅次数');
    Open;
  end;  
end;

end.