w_grchhg.~pas

系统管理程序的源码

unit W_grchhg;

interface

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

type
  Ttjgrcjhg = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label3: TLabel;
    Edit2: TEdit;
    Label4: TLabel;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  tjgrcjhg: Ttjgrcjhg;

implementation

uses mydata, w_grcjhgxx;

{$R *.dfm}

procedure Ttjgrcjhg.Button1Click(Sender: TObject);
begin
data.txj.close;
data.txj.Open;
//count:=0;
if (dblookupcombobox1.Text='')and(edit1.Text='') then begin
application.MessageBox('请选择班级和学号!','提示',mb_OK);
 // showmessage('请选择班级和学号。')
  end else begin
  data.txj.Open;
  //data.txj.Filter:='班级='''+dblookupcombobox1.text+'''and 学号='''+edit1.text+'''and 成绩>''60''';
  data.txj.Filter:='班级='''+dblookupcombobox1.text+'''and 学号='''+edit1.text+'''';
  data.tcj.Filter:='学期='''+edit3.text+'''and 成绩>''60''' ;
  data.txj.Filtered :=true;
  data.tcj.filtered:=true;
  edit2.Text:=inttostr(data.tcj.recordcount) ;
 // count:=count+1;

  end;


end;

procedure Ttjgrcjhg.Button2Click(Sender: TObject);
begin
grcjhgxx.showmodal;
data.tcj.Open;
//count:=0;

 // data.tcj.Filter:='班级='''+dblookupcombobox1.text+'''and 学号='''+edit1.text+'''';
 // data.tcj.Filtered :=true;


end;

procedure Ttjgrcjhg.Button3Click(Sender: TObject);
begin
data.tcj.Close;
data.tcj.Open;
tjgrcjhg.close;
end;

procedure Ttjgrcjhg.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.