w_tjbjcjhg.pas

系统管理程序的源码

unit w_tjbjcjhg;

interface

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

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

var
  tjbjcjhg: Ttjbjcjhg;

implementation

uses mydata, w_bjcjhgxx;

{$R *.dfm}

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

  end;

end;

procedure Ttjbjcjhg.Button3Click(Sender: TObject);
begin
data.tcj.Close;
data.tcj.Open;

tjbjcjhg.Close;
end;

procedure Ttjbjcjhg.Button2Click(Sender: TObject);
begin
bjcjhgxx.showmodal;
end;

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

end.