grcjbbxj.pas

系统管理程序的源码

unit grcjbbxj;

interface

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

type
  Tgrcjbbxz = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  grcjbbxz: Tgrcjbbxz;

implementation

uses mydata, w_xsgrcjbb;

{$R *.dfm}

procedure Tgrcjbbxz.Button1Click(Sender: TObject);
begin
data.tcj.Open;

if (dblookupcombobox1.Text='')and(edit1.text='') then begin
  application.MessageBox('请选择班级和学号!','提示',mb_OK);
 //showmessage('请选择班级和学号。')
  end else begin
  data.tcj.Open;
 // data.tcj.Filter:='班级='''+dblookupcombobox1.text+'''and 学号='''+edit1.text+'''and 学期='''+edit2.text+'''';
  data.tcj.Filtered :=true;
   xsgrcjbb.quickrep1.Preview  ;
   end;
xsgrcjbb.quickrep1.Preview ;
end;

end.