w_tjbjzrs.~pas

系统管理程序的源码

unit w_tjbjzrs;

interface

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

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

var
  tjbjzrs: Ttjbjzrs;

implementation

uses mydata, W_bjrsxx;

{$R *.dfm}

procedure Ttjbjzrs.Button2Click(Sender: TObject);
begin

data.txj.Close;
data.txj.open;

tjbjzrs.Close;
end;

procedure Ttjbjzrs.Button1Click(Sender: TObject);
begin
data.txj.Close;
data.txj.Open;
//count:=0;
if dblookupcombobox1.Text='' then begin
application.MessageBox('请选择班级!','提示',mb_OK);
  //showmessage('请选择班级')
   end else begin
  data.txj.Open;
  data.txj.Filter:='班级='''+dblookupcombobox1.text+'''';
  data.txj.Filtered :=true;
  edit1.Text:=inttostr(data.txj.recordcount) ;
 // count:=count+1;

  end;
  //edit1.text:=count;
 edit1.Text:=inttostr(data.txj.recordcount) ;
 data.txj.Close;
data.txj.Open;
end;


procedure Ttjbjzrs.Button3Click(Sender: TObject);
begin
bjrsxx.showmodal;
end;

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

procedure Ttjbjzrs.FormShow(Sender: TObject);
begin
 data.txj.open;
end;

end.