w_xscjll.~pas

系统管理程序的源码

unit w_xscjll;

interface

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

type
  Txscjll = class(TForm)
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Panel3: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    DBEdit4: TDBEdit;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xscjll: Txscjll;

implementation

uses mydata;

{$R *.dfm}

procedure Txscjll.Button1Click(Sender: TObject);
begin

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

end;

procedure Txscjll.Button2Click(Sender: TObject);
begin

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

end;

procedure Txscjll.Button3Click(Sender: TObject);
begin

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

end;

procedure Txscjll.Button4Click(Sender: TObject);
begin

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

end;

procedure Txscjll.Button5Click(Sender: TObject);
begin
xscjll.Close;
end;

end.