aa.pas

delphi的学习资料

unit AA;

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

type
  TfmAA = class(TForm)
    Panel2: TPanel;
    dbgA: TDBGrid;
    Panel1: TPanel;
    dbgB: TDBGrid;
    Label1: TLabel;
    btnSearD: TBitBtn;
    edtH: TEdit;
    cmbSex: TComboBox;
    btn00: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnSearDClick(Sender: TObject);
    procedure btn00Click(Sender: TObject);
  private    { Private declarations }
  public     { Public declarations }
  end;

const T=True;  F=False;

var
  fmAA: TfmAA;


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



{$R *.dfm}

procedure TfmAA.FormCreate(Sender: TObject);
var  i: byte;
const
  colWid: array[0..4]of word
    =(60,80,36,50,60);

  colCap: array[0..4]of string
    =('学号','姓名','性别','总分','学号');
begin
  dbgA.DataSource:=frDm.dsQ1;
//                 dsQ1在frDm中, 调用时必须写上“frDm.”
  with frDm.qry1 do
  begin
    Close;
    SQL.Text:='SELECT sNo,Name,SEX,SUMM,sNo FROM Basic A,Study B WHERE'
      +' A.sNO=B.sNo';
    Open;
  end;

//  dbgA.Columns[4].Title.Caption:='学号';
  for i:=0 to 4 do
  begin
    dbgA.Columns[i].Width:=colWid[i];
    dbgA.Columns[i].Title.Caption:=colCap[i];
  end;

end;


//==============================================================================
procedure TfmAA.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frDm.qry1.Close;    //必须写上“frDm.”
  frDm.qry2.Close;
end;


//==============================================================================
procedure TfmAA.btnSearDClick(Sender: TObject);
var
  sx, sh: string;
begin
  if cmbSex.Text='男' then
    sx:='M'
  else
    sx:='F';

  sh:=Trim(edtH.Text);

  dbgB.DataSource:=frDm.dsQ2;
  with frDm.qry2 do
  begin
    Close;
    SQL.Text:='SELECT * From Basic Where Sex=''' +sx
        +''' AND High>='+sh;;
    Open;
  end;
end;


procedure TfmAA.btn00Click(Sender: TObject);
var xx,yy: SmallInt;
begin
  xx:=3;
  yy:=fff(xx);    // fff在Func中, 可以直接调用
end;

end.