e22.pas

delphi的学习资料

unit E22;

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

type
  TfmE22 = class(TForm)
    Connect: TADOConnection;
    dbgA: TDBGrid;
    tbA: TADOTable;
    dsA: TDataSource;
    rbtnB: TRadioButton;
    rbtnS: TRadioButton;
    btnOpen: TBitBtn;
    btnPrior: TBitBtn;
    btnMov: TBitBtn;
    edtN: TEdit;
  //-----------------------------
    Panel1: TPanel;
    sg: TStringGrid;
    dbgB: TDBGrid;
    qryB: TADOQuery;
    dsB: TDataSource;
    btnDo: TBitBtn;
    btnDispLine: TBitBtn;
    btnSQL: TBitBtn;
    memo: TMemo;
    qryC: TADOQuery;
    procedure btnOpenClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnPriorClick(Sender: TObject);
    procedure btnMovClick(Sender: TObject);
    procedure btnDoClick(Sender: TObject);
    procedure btnDispLineClick(Sender: TObject);
    procedure btnSQLClick(Sender: TObject);
    procedure rbtnBS_Click(Sender: TObject);
  private    { Private declarations }
  public     { Public declarations }
  end;

var
  fmE22: TfmE22;


////////////////////////////////////////////////////////////////////////////////
implementation

{$R *.dfm}

procedure TfmE22.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  tbA.Close;
  qryB.Close;
  qryC.Close;
end;

//==============================================================================
procedure TfmE22.btnOpenClick(Sender: TObject);
begin
  if rbtnB.Checked then
    tbA.TableName:='Basic'
  else
    tbA.TableName:='Study';

  if btnOpen.Caption='打开' then
    begin
      tbA.Open;
      btnOpen.Caption:='关闭';
    end
  else
    begin
      tbA.Close;
      btnOpen.Caption:='打开';
    end;
end;

//==============================================================================
procedure TfmE22.rbtnBS_Click(Sender: TObject);
begin
  if (Sender as TRadioButton).Checked {and (btnOpen.Caption='关闭')} then
    begin
      tbA.Close;
      btnOpen.Caption:='打开';
      btnOpenClick(Self);
    end;
end;

//==============================================================================
procedure TfmE22.btnPriorClick(Sender: TObject);
begin
  tbA.Prior;
end;

//==============================================================================
procedure TfmE22.btnMovClick(Sender: TObject);
begin
  tbA.MoveBy(StrToInt(edtN.Text));
end;

//==============================================================================
procedure TfmE22.btnDoClick(Sender: TObject);
var sSQL: string;
begin
  sSQL:='Select * From BASIC Where Sex=''M'' order By Birth';
  qryB.Close;
  qryB.SQL.Text:=sSQL;
  qryB.Open;
end;

//==============================================================================
procedure TfmE22.btnDispLineClick(Sender: TObject);
var s: string;
begin
  sg.Cells[0,1]:=tbA.FieldByName('sNo').AsString;
  sg.Cells[1,1]:=tbA.FieldByName('Name').AsString;
  s:=tbA.FieldByName('Sex').AsString;
  if s='M' then
    s:='男==='
  else
    s:='女****';
  sg.Cells[2,1]:=s;
end;

//==============================================================================
procedure TfmE22.btnSQLClick(Sender: TObject);
begin
  qryC.Close;
  qryC.SQL.Text:=memo.Lines.Text;
  try
    qryC.ExecSQL;
  except
    ShowMessage('    失败了');
  end;
end;


end.