jcdytempunit.pas

delphi sqlserver 学生学籍管理系统

unit jcdytempunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,datadomule;

type
  Tjcdytemp = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jcdytemp: Tjcdytemp;

implementation

{$R *.dfm}

procedure Tjcdytemp.Button1Click(Sender: TObject);
begin



if radiobutton1.Checked then
begin
with datamodule1.qry_jcdy do
begin
close;
sql.Clear ;
sql.Add('select * from jlb0 where xsxh_id=:id');
parambyname('id').asstring:=edit1.text;
open;
if not findfirst then
begin
application.MessageBox('没有该学生的奖励记录，请核对后再输！','提示',mb_ok+mb_iconinformation);
exit;
end;
end;



end;
if radiobutton2.Checked then
begin

end;

end;

end.