sdyhfrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 224 行

unit sdyhfrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, Buttons,db, DBGridEh, dxBarDBNav;

type
  Tsdyh = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    DBGridEh1: TDBGridEh;
    dxBarDBNavigator1: TdxBarDBNavigator;
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure DBGridEh1CellClick(Column: TColumnEh);
    procedure DBGridEh1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure showsdyh;
  end;

var
  sdyh: Tsdyh;

implementation

uses datafrm,findsdyhfrm,tjsdyhfrm,xgsdyhfrm;
{$R *.dfm}

procedure Tsdyh.SpeedButton6Click(Sender: TObject);
begin
sdyh.close;
end;

procedure Tsdyh.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(tfindsdyh,findsdyh);
try
  findsdyh.ShowModal;
finally
  findsdyh.Free;
end;
end;

procedure tsdyh.showsdyh;
begin
sdyh.SpeedButton2.Enabled:=(yfgldata.sdyh.RecordCount>0);
sdyh.SpeedButton3.Enabled:=(yfgldata.sdyh.RecordCount>0);
sdyh.SpeedButton5.Enabled:=(yfgldata.sdyh.RecordCount>0);
sdyh.SpeedButton8.Enabled:=(yfgldata.sdyh.RecordCount>0) and (yfgldata.sdyh.RecNo<>1);
sdyh.SpeedButton7.Enabled:=(yfgldata.sdyh.RecordCount>0) and (yfgldata.sdyh.RecNo<>yfgldata.sdyh.RecordCount);
end;

procedure Tsdyh.FormShow(Sender: TObject);
begin
sdyh.showsdyh;
end;

procedure Tsdyh.SpeedButton1Click(Sender: TObject);
begin
application.CreateForm(ttjsdyh,tjsdyh);
try
  tjsdyh.ShowModal;
finally
  tjsdyh.Free;
end;
end;

procedure Tsdyh.SpeedButton2Click(Sender: TObject);
var
num,rec:integer;
begin
if messagebox(sdyh.Handle,'确认要删除本记录吗？','营房工作管理系统',33)=1 then
  begin
  rec:=yfgldata.sdyh.RecNo;
  yfgldata.sdyh.Delete;
  yfgldata.sdyh.First;
  for num:=1 to yfgldata.sdyh.RecordCount do
    begin
      yfgldata.sdyh.Edit;
      yfgldata.sdyh.Fields[0].AsInteger:=num;
      yfgldata.sdyh.Post;
      yfgldata.sdyh.Next;
    end;
  end;
  yfgldata.sdyh.Locate('序号',rec,[loCaseInsensitive]);
  sdyh.showsdyh;
end;

procedure Tsdyh.SpeedButton3Click(Sender: TObject);
begin
application.CreateForm(txgsdyh,xgsdyh);
try
  xgsdyh.ShowModal;
finally
  xgsdyh.Free;
end;
end;

procedure Tsdyh.SpeedButton8Click(Sender: TObject);
var
  i0,i1:pointer;
  xm0,xm1,zj0,zj1:string;
  fz0,fz1,sb0,sb1,db0,db1:real;
begin
i0:=yfgldata.sdyh.GetBookmark;
yfgldata.sdyh.GotoBookmark(i0);
xm0:=yfgldata.sdyh.FieldByName('姓名').AsString;
zj0:=yfgldata.sdyh.FieldByName('职级').AsString;
fz0:=yfgldata.sdyh.FieldByName('房租').AsFloat;
sb0:=yfgldata.sdyh.FieldByName('用水补助').AsFloat;
db0:=yfgldata.sdyh.FieldByName('用电补助').AsFloat;
yfgldata.sdyh.FindPrior;
i1:=yfgldata.sdyh.GetBookmark;
xm1:=yfgldata.sdyh.FieldByName('姓名').AsString;
zj1:=yfgldata.sdyh.FieldByName('职级').AsString;
fz1:=yfgldata.sdyh.FieldByName('房租').AsFloat;
sb1:=yfgldata.sdyh.FieldByName('用水补助').AsFloat;
db1:=yfgldata.sdyh.FieldByName('用电补助').AsFloat;
yfgldata.sdyh.GotoBookmark(i1);
yfgldata.sdyh.Edit;
yfgldata.sdyh.FieldByName('姓名').AsString:=xm0;
yfgldata.sdyh.FieldByName('职级').AsString:=zj0;
yfgldata.sdyh.FieldByName('用水补助').AsFloat:=sb0;
yfgldata.sdyh.FieldByName('用电补助').AsFloat:=db0;
yfgldata.sdyh.FieldByName('房租').AsFloat:=fz0;
yfgldata.sdyh.Post;
yfgldata.sdyh.GotoBookmark(i0);
yfgldata.sdyh.Edit;
yfgldata.sdyh.FieldByName('姓名').AsString:=xm1;
yfgldata.sdyh.FieldByName('职级').AsString:=zj1;
yfgldata.sdyh.FieldByName('用水补助').AsFloat:=sb1;
yfgldata.sdyh.FieldByName('用电补助').AsFloat:=db1;
yfgldata.sdyh.FieldByName('房租').AsFloat:=fz1;
yfgldata.sdyh.Post;
yfgldata.sdyh.GotoBookmark(i1);
end;

procedure Tsdyh.SpeedButton7Click(Sender: TObject);
var
  i0,i1:pointer;
  xm0,xm1,zj0,zj1:string;
  fz0,fz1,sb0,sb1,db0,db1:real;
begin
i0:=yfgldata.sdyh.GetBookmark;
yfgldata.sdyh.GotoBookmark(i0);
xm0:=yfgldata.sdyh.FieldByName('姓名').AsString;
zj0:=yfgldata.sdyh.FieldByName('职级').AsString;
fz0:=yfgldata.sdyh.FieldByName('房租').AsFloat;
sb0:=yfgldata.sdyh.FieldByName('用水补助').AsFloat;
db0:=yfgldata.sdyh.FieldByName('用电补助').AsFloat;
yfgldata.sdyh.FindNext;
i1:=yfgldata.sdyh.GetBookmark;
xm1:=yfgldata.sdyh.FieldByName('姓名').AsString;
zj1:=yfgldata.sdyh.FieldByName('职级').AsString;
fz1:=yfgldata.sdyh.FieldByName('房租').AsFloat;
sb1:=yfgldata.sdyh.FieldByName('用水补助').AsFloat;
db1:=yfgldata.sdyh.FieldByName('用电补助').AsFloat;
yfgldata.sdyh.GotoBookmark(i1);
yfgldata.sdyh.Edit;
yfgldata.sdyh.FieldByName('姓名').AsString:=xm0;
yfgldata.sdyh.FieldByName('职级').AsString:=zj0;
yfgldata.sdyh.FieldByName('用水补助').AsFloat:=sb0;
yfgldata.sdyh.FieldByName('用电补助').AsFloat:=db0;
yfgldata.sdyh.FieldByName('房租').AsFloat:=fz0;
yfgldata.sdyh.Post;
yfgldata.sdyh.GotoBookmark(i0);
yfgldata.sdyh.Edit;
yfgldata.sdyh.FieldByName('姓名').AsString:=xm1;
yfgldata.sdyh.FieldByName('职级').AsString:=zj1;
yfgldata.sdyh.FieldByName('用水补助').AsFloat:=sb1;
yfgldata.sdyh.FieldByName('用电补助').AsFloat:=db1;
yfgldata.sdyh.FieldByName('房租').AsFloat:=fz1;
yfgldata.sdyh.Post;
yfgldata.sdyh.GotoBookmark(i1);
end;

procedure Tsdyh.DBGridEh1CellClick(Column: TColumnEh);
begin
sdyh.showsdyh;
end;

procedure Tsdyh.DBGridEh1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
sdyh.showsdyh;
end;

procedure Tsdyh.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
sdyh.showsdyh;
end;

procedure Tsdyh.DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
sdyh.showsdyh;
end;

end.