schoolsetup.pas.~1~

来自「初中成绩录入系统网络版(firebird) firebird下的网络编程」· ~1~ 代码 · 共 75 行

unit SchoolSetup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids,UnitSchoolManager;

type
  TfmSchoolSetup = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    StringGrid1: TStringGrid;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    schManager:TSchoolManager;
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TfmSchoolSetup.FormCreate(Sender: TObject);
begin
  schManager:=TschoolManager.Create;
end;

procedure TfmSchoolSetup.FormDestroy(Sender: TObject);
begin
  schManager.Free;
end;

procedure TfmSchoolSetup.FormShow(Sender: TObject);
begin
  schManager.schoolGrid(StringGrid1);
end;

procedure TfmSchoolSetup.BitBtn1Click(Sender: TObject);
begin
  if(schManager.postschoolgrid(StringGrid1)) then
    self.ModalResult:=mrOK;
end;

procedure TfmSchoolSetup.BitBtn3Click(Sender: TObject);
begin
  StringGrid1.RowCount:=StringGrid1.RowCount+1;
  StringGrid1.FixedRows:=1;
end;

procedure TfmSchoolSetup.BitBtn4Click(Sender: TObject);
var
  i:Integer;
begin
  if StringGrid1.Row<1 then
    exit;
  for i:=stringGrid1.Row to StringGrid1.RowCount-2 do
  begin
    stringGrid1.Cells[0,i]:=stringGrid1.Cells[0,i+1];
    stringGrid1.Cells[1,i]:=stringGrid1.Cells[1,i+1];
  end;
  StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;

end.