sql.pas

该系统是学生人事管理系统

unit SQL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, DBGrids, StdCtrls, Buttons, DBActns, ActnList,
  bsSkinCtrls, bsSkinGrids, bsDBGrids, bsSkinBoxCtrls;

type
  TForm8 = class(TForm)
    Panel2: TPanel;
    Bevel1: TBevel;
    ActionList1: TActionList;
    DataSetFirst1: TDataSetFirst;
    DataSetPrior1: TDataSetPrior;
    DataSetNext1: TDataSetNext;
    DataSetLast1: TDataSetLast;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    Memo1: TMemo;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinGroupBox3: TbsSkinGroupBox;
    DataSetDelete1: TDataSetDelete;
    DataSetEdit1: TDataSetEdit;
    DataSetPost1: TDataSetPost;
    DataSetCancel1: TDataSetCancel;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    bsSkinListBox1: TbsSkinListBox;
    Panel3: TPanel;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton1: TSpeedButton;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure Memo1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm8.bsSkinButton1Click(Sender: TObject);
begin
  datamodule3.ADOQuery1.Active:=false;
datamodule3.ADOQuery1.SQL:=memo1.Lines;
datamodule3.ADOQuery1.Active:=true;
datamodule3.ADOConnection1.Open;
end;

procedure TForm8.bsSkinButton2Click(Sender: TObject);
begin
close;
end;

procedure TForm8.bsSkinButton3Click(Sender: TObject);
var
str:string;
begin
str:='select * from jbzl ';
end;

procedure TForm8.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
 if (Key=#13) then
 begin
  bsskinbutton1click(sender);
  end;
end;

procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caFree
end;

end.