w_xscjlr.~pas

系统管理程序的源码

unit w_xscjlr;

interface

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

type
  Txscjlr = class(TForm)
    Panel2: TPanel;
    Panel3: TPanel;
    Button6: TButton;
    GroupBox1: TGroupBox;
    DBGrid2: TDBGrid;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button1: TButton;
    Button5: TButton;
    Button7: TButton;
    Button8: TButton;
    Label1: TLabel;
    Edit1: TEdit;
    Button9: TButton;
    Button10: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xscjlr: Txscjlr;

implementation

uses mydata;

{$R *.dfm}

procedure Txscjlr.Button3Click(Sender: TObject);
begin
data.txj.next;
end;

procedure Txscjlr.Button2Click(Sender: TObject);
begin
data.txj.Prior;
end;

procedure Txscjlr.Button4Click(Sender: TObject);
begin
data.tcj.Insert ;
data.tcj.FieldByName('学号').Value:=data.txj.fieldbyname('学号').Value ;
data.tcj.FieldByName('姓名').Value:=data.txj.fieldbyname('姓名').Value ;
data.tcj.FieldByName('班级').Value:=data.txj.fieldbyname('班级').Value ;
data.tcj.FieldByName('性别').Value:=data.txj.fieldbyname('性别').Value ;
end;

procedure Txscjlr.Button1Click(Sender: TObject);
begin
if data.tcj.Modified then
data.tcj.Post;
end;

procedure Txscjlr.Button5Click(Sender: TObject);
begin
if data.tcj.Modified then
data.tcj.Cancel;
end;

procedure Txscjlr.Button6Click(Sender: TObject);
begin
xscjlr.Close;
end;

procedure Txscjlr.Button7Click(Sender: TObject);
begin
data.tcj.Prior;
end;
procedure Txscjlr.Button8Click(Sender: TObject);
begin
data.tcj.next;
end;

procedure Txscjlr.Button9Click(Sender: TObject);
begin
data.txj.Close;
data.txj.Open;
if edit1.Text='' then begin
application.MessageBox('请输入学号!','提示',mb_OK);
   //showmessage('请输入学号。')
   end else
 begin

 data.txj.filter:='学号='''+edit1.text+'''';
  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 Txscjlr.Button10Click(Sender: TObject);
begin
if data.txj.Filtered=true then
data.txj.filtered:=false;
if data.tcj.Filtered=true then
data.tcj.Filtered:=false;
end;

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

end.