w_xscjcx.~pas

系统管理程序的源码

unit w_xscjcx;

interface

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

type
  Txscjcx = class(TForm)
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Panel3: TPanel;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBComboBox1: TDBComboBox;
    DBEdit3: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 

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

var
  xscjcx: Txscjcx;

implementation

uses mydata;

{$R *.dfm}

procedure Txscjcx.SpeedButton1Click(Sender: TObject);
begin
{data.tcj.Close;
data.tcj.Open;
if edit3.Text='' then begin
   showmessage('请输入学号。') end else
 begin
 data.tcj.filter:='学号='''+edit3.Text+'''';
  data.tcj.filtered:=true;
    if data.tcj.RecordCount=0 then begin
   messagebeep(1);
   showmessage('没有符合条件的记!');
   if messagedlg('是否继续查询？',mtinformation,[mbyes,mbno],0)=mrno then
     begin
     data.tcj.filtered:=false;

     end;
     end;

     end;
             }
if edit3.Text='' then begin
 application.MessageBox('请选择查询方式和输入查询内容!','提示',mb_OK);
   //showmessage('请选择查询方式和输入查询内容') end else
 begin
   data.txj.filter:='学号='''+edit3.Text+'''';
   data.txj.open;
  data.txj.filtered:=true;
    if data.txj.RecordCount=0 then begin
   messagebeep(1);
     application.MessageBox('没有符合条件的记录!','提示',mb_OK);
   //showmessage('没有符合条件的记!');
   if messagedlg('是否继续查询？',mtinformation,[mbyes,mbno],0)=mrno then
     begin
     data.txj.filtered:=false;

     end;
     end;
    
     end;
end;

procedure Txscjcx.SpeedButton2Click(Sender: TObject);
begin
if data.txj.filtered=true then
data.txj.Filtered:=false;
data.tcj.Close;
data.tcj.Open;
end;

procedure Txscjcx.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;

procedure Txscjcx.Button5Click(Sender: TObject);
begin
if data.tcj.filtered=true then
data.tcj.Filtered:=false;
xscjcx.Close ;
data.tcj.Close;
data.txj.Open;
end;

procedure Txscjcx.Button2Click(Sender: TObject);
begin

data.tcj.Prior;
if (data.tcj.Bof=true) then  begin
   button2.Enabled :=false;
   button1.Enabled :=false;
   button3.Enabled :=true;
   button4.Enabled :=true;
   end;

end;

procedure Txscjcx.Button3Click(Sender: TObject);
begin

data.tcj.next;
if (data.tcj.eof=true) then
 begin  button3.Enabled :=false;
 button4.Enabled:=false;
 button1.Enabled:=true;
 button2.Enabled:=true;
 end;
end;

procedure Txscjcx.Button4Click(Sender: TObject);
begin

data.tcj.Last ;
if (data.tcj.eof=true) then
 begin  button3.Enabled :=false;
 button4.Enabled:=false;
 button1.Enabled:=true;
 button2.Enabled:=true;
end;
end;
procedure Txscjcx.Button1Click(Sender: TObject);
begin

data.tcj.First ;
if (data.tcj.Bof=true) then  begin
   button2.Enabled :=false;
   button1.Enabled :=false;
   button3.Enabled :=true;
   button4.Enabled :=true;
   end;
end;

end.