dwsdffrm.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 479 行 · 第 1/2 页

  yfgldata.dwsdf.Locate('序号',num,[loCaseInsensitive]);
  i0:=yfgldata.dwsdf.GetBookmark;
  daima0:=yfgldata.dwsdf.FieldByName('单位代码').AsString;
  mingcheng0:=yfgldata.dwsdf.FieldByName('单位名称').AsString;
  zerenren0:=yfgldata.dwsdf.FieldByName('单位责任人').AsString;
  gbuzhu0:=yfgldata.dwsdf.FieldByName('水电费标准').AsFloat;
  sbuzhu0:=yfgldata.dwsdf.FieldByName('用水量').AsFloat;
  gjiben0:=yfgldata.dwsdf.FieldByName('用电量').AsFloat;
  sjiben0:=yfgldata.dwsdf.FieldByName('水消耗定额').AsFloat;
  sgj0:=yfgldata.dwsdf.FieldByName('电消耗定额').AsFloat;
  dgj0:=yfgldata.dwsdf.FieldByName('水电费节约').AsFloat;
  yfgldata.dwsdf.FindNext;
  i1:=yfgldata.dwsdf.GetBookmark;
  daima1:=yfgldata.dwsdf.FieldByName('单位代码').AsString;
  mingcheng1:=yfgldata.dwsdf.FieldByName('单位名称').AsString;
  zerenren1:=yfgldata.dwsdf.FieldByName('单位责任人').AsString;
  gbuzhu1:=yfgldata.dwsdf.FieldByName('水电费标准').AsFloat;
  sbuzhu1:=yfgldata.dwsdf.FieldByName('用水量').AsFloat;
  gjiben1:=yfgldata.dwsdf.FieldByName('用电量').AsFloat;
  sjiben1:=yfgldata.dwsdf.FieldByName('水消耗定额').AsFloat;
  sgj1:=yfgldata.dwsdf.FieldByName('电消耗定额').AsFloat;
  dgj1:=yfgldata.dwsdf.FieldByName('水电费节约').AsFloat;
  yfgldata.dwsdf.GotoBookmark(i1);
  yfgldata.dwsdf.Edit;
  yfgldata.dwsdf.FieldByName('单位代码').AsString:=daima0;
  yfgldata.dwsdf.FieldByName('单位名称').AsString:=mingcheng0;
  yfgldata.dwsdf.FieldByName('单位责任人').AsString:=zerenren0;
  yfgldata.dwsdf.FieldByName('水电费标准').AsFloat:=gbuzhu0;
  yfgldata.dwsdf.FieldByName('用水量').AsFloat:=sbuzhu0;
  yfgldata.dwsdf.FieldByName('用电量').AsFloat:=gjiben0;
  yfgldata.dwsdf.FieldByName('水消耗定额').AsFloat:=sjiben0;
  yfgldata.dwsdf.FieldByName('电消耗定额').AsFloat:=sgj0;
  yfgldata.dwsdf.FieldByName('水电费节约').AsFloat:=dgj0;
  yfgldata.dwsdf.Post;
  yfgldata.dwsdf.GotoBookmark(i0);
  yfgldata.dwsdf.Edit;
  yfgldata.dwsdf.FieldByName('单位代码').AsString:=daima1;
  yfgldata.dwsdf.FieldByName('单位名称').AsString:=mingcheng1;
  yfgldata.dwsdf.FieldByName('单位责任人').AsString:=zerenren1;
  yfgldata.dwsdf.FieldByName('水电费标准').AsFloat:=gbuzhu1;
  yfgldata.dwsdf.FieldByName('用水量').AsFloat:=sbuzhu1;
  yfgldata.dwsdf.FieldByName('用电量').AsFloat:=gjiben1;
  yfgldata.dwsdf.FieldByName('水消耗定额').AsFloat:=sjiben1;
  yfgldata.dwsdf.FieldByName('电消耗定额').AsFloat:=sgj1;
  yfgldata.dwsdf.FieldByName('水电费节约').AsFloat:=dgj1;
  yfgldata.dwsdf.Post;
  yfgldata.dwsdf.GotoBookmark(i1);
  if yfgldata.qdwsdf.Active then
  yfgldata.qdwsdf.Active:=false;
  yfgldata.qdwsdf.Params[0].AsInteger:=dwsdf.DBNumberEditEh1.Value;
  yfgldata.qdwsdf.Params[1].AsInteger:=dwsdf.DBNumberEditEh2.Value;
  yfgldata.qdwsdf.Active:=true;
  yfgldata.qdwsdf.Locate('单位代码',daima0,[loCaseInsensitive]);
  dwsdf.showdwsdf;
end;

procedure Tdwsdf.SpeedButton4Click(Sender: TObject);
begin
application.CreateForm(tzjdwsdfb,zjdwsdfb);
try
  zjdwsdfb.ShowModal;
finally
  zjdwsdfb.Free;
end;
end;

procedure Tdwsdf.SpeedButton10Click(Sender: TObject);
begin
application.CreateForm(tscdwsdf,scdwsdf);
try
  scdwsdf.ShowModal;
finally
  scdwsdf.Free;
end;
end;

procedure Tdwsdf.DBGridEh1CellClick(Column: TColumnEh);
begin
dwsdf.showdwsdf;
end;

procedure Tdwsdf.DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
dwsdf.showdwsdf;
end;

procedure Tdwsdf.DBGridEh1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
dwsdf.showdwsdf;
end;

procedure Tdwsdf.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
dwsdf.showdwsdf;
end;

procedure Tdwsdf.SpeedButton13Click(Sender: TObject);
begin
application.CreateForm(tbbdc,bbdc);
with bbdc do
begin
  listbox1.Items.Add('序号');
  listbox1.Items.Add('单位代码');
  listbox1.Items.Add('单位名称');
  listbox1.Items.Add('单位责任人');
  listbox1.Items.Add('水电费标准');
  listbox1.Items.Add('用水量');
  listbox1.Items.Add('用电量');
  listbox1.Items.Add('水消耗定额');
  listbox1.Items.Add('电消耗定额');
  listbox1.Items.Add('水电费节约');
  listbox1.Items.Add('年度');
  listbox1.Items.Add('月份');
  vps_filter:='年度='+floattostr(dwsdf.DBNumberEditEh1.Value)+' and 月份='+floattostr(dwsdf.DBNumberEditEh2.Value);
  vps_name:='yfgl_dwsdf';
  edit1.Text:=floattostr(dwsdf.DBNumberEditEh1.Value)+'年'+floattostr(dwsdf.DBNumberEditEh2.Value)+'月水电费报表';
  try
    ShowModal;
  finally
    free;
  end;
end;
end;

procedure Tdwsdf.SpeedButton11Click(Sender: TObject);
begin
application.CreateForm(tdwsdfhz,dwsdfhz);
try
  dwsdfhz.ShowModal;
finally
  dwsdfhz.Free;
end;
end;

procedure Tdwsdf.SpeedButton12Click(Sender: TObject);
begin
application.CreateForm(tdwsdfsh,dwsdfsh);
try
  dwsdfsh.ShowModal;
finally
  dwsdfsh.Free;
end;
end;

procedure Tdwsdf.SpeedButton1Click(Sender: TObject);
begin
application.CreateForm(ttjdwsdf,tjdwsdf);
try
  tjdwsdf.ShowModal;
finally
  tjdwsdf.Free;
end;
end;

procedure Tdwsdf.SpeedButton2Click(Sender: TObject);
var
str:string;
num:integer;
begin
if messagebox(dwsdf.Handle,'确认要删除本单位吗？','营房工作管理系统',33)=1 then
begin
  str:=yfgldata.qdwsdf.FieldByName('单位代码').AsString;
  yfgldata.dwsdf.Filter:='年度='+floattostr(dwsdf.DBNumberEditEh1.Value)+' and 月份='+floattostr(dwsdf.DBNumberEditEh2.Value);
  yfgldata.dwsdf.Filtered:=true;
  yfgldata.dwsdf.Locate('单位代码',str,[loCaseInsensitive]);
  yfgldata.dwsdf.Delete;
  yfgldata.dwsdf.FindFirst;
  for num:=1 to yfgldata.dwsdf.RecordCount do
  begin
    yfgldata.dwsdf.Edit;
    yfgldata.dwsdf.FieldByName('序号').AsInteger:=num;
    yfgldata.dwsdf.Post;
    yfgldata.dwsdf.FindNext;
  end;
  if yfgldata.qdwsdf.Active then
  yfgldata.qdwsdf.Active:=false;
  yfgldata.qdwsdf.Params[0].AsInteger:=dwsdf.DBNumberEditEh1.Value;
  yfgldata.qdwsdf.Params[1].AsInteger:=dwsdf.DBNumberEditEh2.Value;
  yfgldata.qdwsdf.Active:=true;
  dwsdf.showdwsdf;
end;
end;

procedure Tdwsdf.SpeedButton3Click(Sender: TObject);
begin
application.CreateForm(txgdwsdf,xgdwsdf);
try
  xgdwsdf.ShowModal;
finally
  xgdwsdf.Free;
end;
end;

procedure Tdwsdf.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(tdwsdfcx,dwsdfcx);
try
  dwsdfcx.ShowModal;
finally
  dwsdfcx.Free;
end;
end;

procedure Tdwsdf.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
if yfgldata.qdwsdf.FieldByName('水电费节约').AsFloat<0 then
  begin
    dwsdf.DBGridEh1.Canvas.Font.Color:=clred;
    dwsdf.DBGridEh1.Canvas.Brush.color:=clyellow;
  end;
dwsdf.DBGridEh1.DefaultDrawColumnCell(rect,datacol,column,state);
;
end;

procedure Tdwsdf.FormShow(Sender: TObject);
var
present:tdatetime;
Year, Month, Day: Word;
begin
present:=now;
decodedate(present,year,month,day);
dwsdf.DBNumberEditEh1.Value:=year;
dwsdf.DBNumberEditEh2.Value:=month;
if yfgldata.qdwsdf.Active then
  yfgldata.qdwsdf.Active:=false;
yfgldata.qdwsdf.Params[0].AsInteger:=dwsdf.DBNumberEditEh1.Value;
yfgldata.qdwsdf.Params[1].AsInteger:=dwsdf.DBNumberEditEh2.Value;
yfgldata.qdwsdf.Active:=true;
dwsdf.showdwsdf;
end;

end.