w_xsxxcx.~pas

系统管理程序的源码

unit W_xsxxcx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Mask, DBCtrls, Grids, DBGrids, ExtCtrls, DB,
  DBTables;

type
  Txsxxcx = class(TForm)
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Memo1: TMemo;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    Label4: TLabel;
    Panel3: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xsxxcx: Txsxxcx;

implementation

uses mydata;

{$R *.dfm}

procedure Txsxxcx.SpeedButton1Click(Sender: TObject);
begin
  data.txj.Close;
     data.txj.Open;
if (combobox1.Text='')or(edit3.Text='') then begin
   showmessage('请选择查询方式和输入查询内容')
end else
   begin
    //data.txj.filtered:=false;
  {if edit2.Text='' then
  showmessage('请输入查询内容');  }
   if combobox1.Text='学号' then data.txj.filter:='学号='''+edit3.Text+'''';
   if combobox1.Text='姓名' then data.txj.filter:='姓名='''+edit3.Text+'''';
   if combobox1.text='班级' then data.txj.filter:='班级='''+edit3.Text+'''';
    data.txj.open;

  data.txj.filtered:=true;
    if (dbedit1.Text='') and (dbedit2.Text ='') and (dbedit3.text='') then
    begin
   messagebeep(1);
   showmessage('没有符合条件的记!');
   if messagedlg('是否继续查询？',mtinformation,[mbyes,mbno],0)=mrno then
     begin
     data.txj.filtered:=false;

     end;
     end;
     end;
  end;
procedure Txsxxcx.SpeedButton2Click(Sender: TObject);
begin
xsxxcx.Close ;
if data.txj.filtered=true then
data.txj.filtered:=false;
 data.txj.Close;
 data.txj.Open;
 data.txj.Refresh;
 
end;

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

end.