unit5.~pas

上次我同样上传了个score-manager

unit Unit5;

interface

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

type
  Tchaxun = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    RadioGroup1: TRadioGroup;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    Bevel1: TBevel;
    SpeedButton2: TSpeedButton;
    Memo1: TMemo;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    ComboBox1: TComboBox;
    Table1: TTable;
    Query1: TQuery;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  chaxun: Tchaxun;

implementation

{$R *.dfm}



procedure Tchaxun.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure Tchaxun.SpeedButton1Click(Sender: TObject);
begin
   with query1 do
   begin
    close;
    sql.Clear;
   sql.Addstrings(memo1.lines);
    try
    Prepare;
     case radiogroup1.ItemIndex of
     0:query1.open;
     1:query1.execsql;
     else
     showmessage('请选择SQL语句类型');
     end;
   except
       on edbengineerror do
      showmessage('SQL语句出错!请仔细检查!');
    end;
   end;
   DataSource1.DataSet:=query1;
   statusbar1.Panels[2].Text:=inttostr(query1.RecordCount);
end;

procedure Tchaxun.Timer1Timer(Sender: TObject);
begin
statusbar1.Panels[4].Text:=datetostr(date);
end;

procedure Tchaxun.ComboBox1Change(Sender: TObject);
begin
if combobox1.itemindex<>-1 then
  begin
    query1.Close;
    table1.TableName:=combobox1.Text;
    table1.Active:=true;
    DataSource1.DataSet:=table1;
  end
else
showmessage('没有选择数据表!');
end;

procedure Tchaxun.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

end.