w_grcjbb.~pas

系统管理程序的源码

unit w_grcjbb;

interface

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

type
  Tgrcjbb = class(TForm)
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Label3: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  grcjbb: Tgrcjbb;

implementation

uses mydata, w_xsgrcjbb;

{$R *.dfm}

procedure Tgrcjbb.Button1Click(Sender: TObject);
begin
if edit1.text='' then begin
  showmessage('请输入学号。')   end else begin
  data.txj.Open;
  //data.tcj.Filter:='班级='''+dblookupcombobox1.text+'''and 学号='''+edit1.text+'''and 学期='''+edit2.text+'''';
  data.txj.Filter:='学号='''+edit1.text+'''';
  data.tcj.Filter:='学期='''+edit2.text+'''';
  data.txj.Filtered :=true;
  data.tcj.Filtered:=true;
   xsgrcjbb.quickrep1.Preview  ;
   end;
   end;

procedure Tgrcjbb.Button2Click(Sender: TObject);
begin
grcjbb.close;
end;

procedure Tgrcjbb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if data.txj.Filtered=true then
data.txj.Filtered:=false;
if data.tcj.filtered=true then
data.tcj.filtered:=false;
end;

end.