unit5.pas.~69~

《Delphi程序员成长攻略》-蒙祖强龚涛的源代码

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure Button3Click(Sender: TObject);
    procedure Edit6MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;  

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);  //保存数据
begin

    table1.Edit;

    Table1.FieldByName('stu_id').AsString := Edit1.Text;
    Table1.FieldByName('name').AsString := Edit2.Text;
    Table1.FieldByName('pea_resu').AsFloat := StrToFloat(Edit3.Text);
    Table1.FieldByName('fin_resu').AsFloat := StrToFloat(Edit4.Text);
    //Table1.FieldByName('ave_resu').AsString := Edit5.Text;
    Table1.FieldByName('class').AsString := Edit6.Text;

    table1.Post;
    button1.Enabled := false;
    button2.Enabled := true;
    button3.Enabled := true;
    DBGrid1.Enabled := true;


    Edit1.Enabled := false; Edit1.Text := '';
    Edit2.Enabled := false; Edit2.Text := '';
    Edit3.Enabled := false; Edit3.Text := '';
    Edit4.Enabled := false; Edit4.Text := '';
    Edit6.Enabled := false; Edit6.Text := '';
   
end;

procedure TForm5.Button2Click(Sender: TObject);  //在当前位置插入
begin
    table1.Insert;

    Edit1.Text := '输入学号'; Edit1.Enabled := true;
    Edit2.Text := '输入姓名';  Edit2.Enabled := true;
    Edit3.Text := IntToStr(0); Edit3.Enabled := true;
    Edit4.Text := IntToStr(0);  Edit4.Enabled := true;
    Edit5.Text := '不能输入';  //Edit1.Enabled := true;
    Edit6.Text := '输入班级';  Edit6.Enabled := true;

    button2.Enabled := false;
    button1.Enabled := true;
    button3.Enabled := false;
    DBGrid1.Enabled := false;

end;

procedure TForm5.Button4Click(Sender: TObject);  //关闭子系统
begin
    self.close;
end;

procedure TForm5.FormCreate(Sender: TObject);  //初始化各组件
begin
    Edit1.Text := Table1.FieldByName('stu_id').AsString;
    Edit2.Text := Table1.FieldByName('name').AsString;
    Edit3.Text := Table1.FieldByName('pea_resu').AsString;
    Edit4.Text := Table1.FieldByName('fin_resu').AsString;
    Edit5.Text := Table1.FieldByName('ave_resu').AsString;
    Edit6.Text := Table1.FieldByName('class').AsString;

    Edit1.Enabled := false;    //禁用各Edit组件
    Edit2.Enabled := false;
    Edit3.Enabled := false;
    Edit4.Enabled := false;
    Edit6.Enabled := false;

    button1.Enabled := false;
   
end;

procedure TForm5.DBGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    Edit1.Text := Table1.FieldByName('stu_id').AsString;
    Edit2.Text := Table1.FieldByName('name').AsString;
    Edit3.Text := Table1.FieldByName('pea_resu').AsString;
    Edit4.Text := Table1.FieldByName('fin_resu').AsString;
    Edit5.Text := Table1.FieldByName('ave_resu').AsString;
    Edit6.Text := Table1.FieldByName('class').AsString;
end;

procedure TForm5.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    Edit1.SelectAll;
end;

procedure TForm5.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
   Edit2.SelectAll;
end;

procedure TForm5.Edit3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    Edit3.SelectAll;
end;

procedure TForm5.Edit4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    Edit4.SelectAll;
end;

procedure TForm5.Edit6MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    Edit6.SelectAll;
end;

procedure TForm5.Button3Click(Sender: TObject);  //在末尾插入
begin
    table1.Append;

    Edit1.Text := '输入学号'; Edit1.Enabled := true;
    Edit2.Text := '输入姓名';  Edit2.Enabled := true;
    Edit3.Text := IntToStr(0); Edit3.Enabled := true;
    Edit4.Text := IntToStr(0);  Edit4.Enabled := true;
    Edit5.Text := '不能输入';  //Edit1.Enabled := true;
    Edit6.Text := '输入班级';  Edit6.Enabled := true;

    button2.Enabled := false;
    button1.Enabled := true;
    button3.Enabled := false;
    DBGrid1.Enabled := false;

end;

end.