w_xsbkxxcx.~pas

学生学籍管理源码

unit w_xsbkxxcx;

interface

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

type
  Txsbkxxcx = class(TForm)
    Panel1: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    GroupBox2: TGroupBox;
    Panel2: TPanel;
    Panel3: TPanel;
    Button2: TButton;
    Button3: TButton;
    Button1: TButton;
    Button4: TButton;
    DBGrid1: TDBGrid;
    Label8: TLabel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label9: TLabel;
    ComboBox1: TComboBox;
    Edit3: TEdit;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit3: TDBEdit;
    DBComboBox1: TDBComboBox;
    Button6: TButton;
    Button5: TButton;
    Button7: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xsbkxxcx: Txsbkxxcx;

implementation

uses mydata;

{$R *.dfm}

procedure Txsbkxxcx.Button2Click(Sender: TObject);
begin

data.txj.Prior ;
 if (data.txj.bof=true) then
  begin
    button2.Enabled:=false;
  end;
   button3.Enabled:=true;

end;

procedure Txsbkxxcx.Button3Click(Sender: TObject);
begin

data.txj.Next;
if (data.txj.eof=true) then
   begin
    button3.Enabled:=false;

   end;
    button2.Enabled :=true;

end;

procedure Txsbkxxcx.SpeedButton1Click(Sender: TObject);
begin
if (combobox1.Text='')or(edit3.Text='') then
begin
application.MessageBox('请选择查询方式和输入查询内容!','提示',mb_OK);
  // showmessage('请选择查询方式和输入查询内容')
end
 else
 begin
   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);
      application.MessageBox('没有符合条件的记录!','提示',mb_OK);
     //showmessage('没有符合条件的记!');
     if messagedlg('是否继续查询？',mtinformation,[mbyes,mbno],0)=mrno then
       begin
       data.txj.filtered:=false;
       end;
     end;
 end;
end;

procedure Txsbkxxcx.SpeedButton2Click(Sender: TObject);
begin
data.txj.open;
if data.txj.filtered=true then
data.txj.Filtered :=false;
end;

procedure Txsbkxxcx.Button1Click(Sender: TObject);
begin
data.tbk.edit;
end;

procedure Txsbkxxcx.Button4Click(Sender: TObject);
begin

if data.tbk.Modified then
data.tbk.post;
if data.tbk.filtered=true then
data.tbk.Filtered:=false;

end;

procedure Txsbkxxcx.Button5Click(Sender: TObject);
begin

if data.tbk.Modified then
data.tbk.post;
if data.tbk.filtered=true then
data.tbk.Filtered:=false;

end;

procedure Txsbkxxcx.Button6Click(Sender: TObject);
begin

xsbkxxcx.Close ;
end;

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

procedure Txsbkxxcx.Button7Click(Sender: TObject);
begin
data.tbk.Edit;
if  messagedlg('是否真的要删除此记录？',mtinformation,[mbyes,mbno],0)=mryes then
begin
data.tbk.Delete;
if data.tbk.Modified then
data.tbk.Post;
end;
end;

end.