cchaxun.txt

来自「一个程序而已」· 文本 代码 · 共 70 行

查询事件的源程序Cchaxun.pas

五种查询方式的代码：
unit CChaxun;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBTables,
  Buttons;
type
  TForm3 = class(TForm)
    Label1: TLabel;
    StaticText1: TStaticText;
    Bevel1: TBevel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Bevel2: TBevel;
    Memo1: TMemo;
    Label2: TLabel;
    Edit1: TEdit;
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    SpeedButton1: TSpeedButton;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form3: TForm3;
implementation
{$R *.dfm}
procedure TForm3.RadioButton1Click(Sender: TObject);
begin
memo1.Text:='学号';
end;
procedure TForm3.RadioButton2Click(Sender: TObject);
begin
memo1.Text:='姓名';
end;
procedure TForm3.RadioButton3Click(Sender: TObject);
begin
memo1.Text:='系别';
end;
procedure TForm3.RadioButton4Click(Sender: TObject);
begin
memo1.Text:='专业';
end;
procedure TForm3.RadioButton5Click(Sender: TObject);
begin
memo1.Text:='性别';
end;
end.