w_xsbkxx.pas

系统管理程序的源码

unit w_xsbkxx;

interface

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

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

var
  xsbkxx: Txsbkxx;

implementation

uses mydata;

{$R *.dfm}

procedure Txsbkxx.Button2Click(Sender: TObject);
begin

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

end;

procedure Txsbkxx.Button3Click(Sender: TObject);
begin

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

   end;
    button2.Enabled :=true;

end;

procedure Txsbkxx.Button4Click(Sender: TObject);
begin
data.tbk.Close;
data.tbk.Open;
data.tbk.Insert ;
data.tbk.FieldByName('学号').Value:=data.txj.fieldbyname('学号').Value ;
data.tbk.FieldByName('姓名').Value:=data.txj.fieldbyname('姓名').Value ;
data.tbk.FieldByName('班级').Value:=data.txj.fieldbyname('班级').Value ;
data.tbk.FieldByName('性别').Value:=data.txj.fieldbyname('性别').Value ;
//button4.Enabled :=false;
//dbedit1.ReadOnly :=false;
//dbedit1.Text :='';
//dbedit2.ReadOnly :=false;
//dbedit2.Text:='';
//dbedit3.ReadOnly :=false;
//dbedit3.Text :='';
//dbcombobox1.ReadOnly :=false;
//dbcombobox1.Text :='';
dbgrid1.ReadOnly :=false;

end;

procedure Txsbkxx.Button1Click(Sender: TObject);
begin

if data.tbk.Modified then
data.tbk.Post;

//dbedit1.ReadOnly :=true;
//dbedit2.ReadOnly :=true;
//dbedit3.ReadOnly :=true;
//dbcombobox1.ReadOnly :=true;
dbgrid1.ReadOnly :=true;

end;

procedure Txsbkxx.Button5Click(Sender: TObject);
begin

if data.tbk.Modified then
data.tbk.Cancel;


end;

procedure Txsbkxx.Button6Click(Sender: TObject);
begin
xsbkxx.Close;
end;

end.