unit2.pas.~61~

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

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Table1: TTable;
    UpDown1: TUpDown;
    Edit1: TEdit;
    Label1: TLabel;
    UpDown2: TUpDown;
    Edit2: TEdit;
    Label2: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
    procedure FormCreate(Sender: TObject);
    procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;  

implementation

{$R *.dfm}

procedure TForm2.UpDown1Click(Sender: TObject; Button: TUDBtnType); //设平时成绩的百分数
begin

    Edit1.Text := IntToStr(UpDown1.Position);
    UpDown2.Position := 100-UpDown1.Position;
    Edit2.Text := IntToStr(UpDown2.Position);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin

    Edit1.Text := IntToStr(UpDown1.Position);
    Edit2.Text := IntToStr(UpDown2.Position);

 
end;

procedure TForm2.UpDown2Click(Sender: TObject; Button: TUDBtnType); //设期评成绩的百分数
begin
    Edit2.Text := IntToStr(UpDown2.Position);
    UpDown1.Position := 100-UpDown2.Position;
    Edit1.Text := IntToStr(UpDown1.Position); 
end;

procedure TForm2.Edit1Exit(Sender: TObject);  //当 Edit1失去焦点时，调整组件UpDown1和UpDown2的positon属性值，以及Edit2的Text属性值
begin
    UpDown1.Position := StrToInt(Edit1.Text);
    UpDown2.Position := 100-UpDown1.Position;
    Edit2.Text := IntToStr(UpDown2.Position);
end;

procedure TForm2.Edit2Exit(Sender: TObject); //当 Edit2失去焦点时，调整组件UpDown1和UpDown2的positon属性值，以及Edit1的Text属性值
begin
    UpDown2.Position := StrToInt(Edit2.Text);
    UpDown1.Position := 100-UpDown2.Position;
    Edit1.Text := IntToStr(UpDown1.Position);
end;

procedure TForm2.Button1Click(Sender: TObject); //生成各学生的期评成绩
var pea_x,fin_x,ave_x:Real;
    pea_per,fin_per:integer;
begin
    table1.First;
    while not table1.Eof do
    begin
        Table1.Edit;
        pea_x := table1.FieldValues['pea_resu'];
        fin_x := table1.FieldValues['fin_resu'];
        pea_per := StrToInt(Edit1.Text);
        fin_per := StrToInt(Edit2.Text);
        ave_x := (pea_per/100.0)*pea_x + (fin_per/100.0)*fin_x;
        Table1.FieldByName('ave_resu').AsFloat := ave_x;
        Table1.Post;
        table1.Next;
    end; 
end;

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

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

procedure TForm2.Button2Click(Sender: TObject);
begin
    close;
end;

end.