yhsdffrm.pas

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

end;

procedure Tyhsdf.SpeedButton7Click(Sender: TObject);
var
  i0,i1:pointer;
  yname0,yname1,xm:string;
  ml0,ml1,mj0,mj1,sl0,sl1,sb0,sb1,sj0,sj1,dl0,dl1,db0,db1,dj0,dj1,fz0,fz1,hj0,hj1:real;
  num:integer;
begin
  num:=yfgldata.qyhsdf.FieldByName('序号').AsInteger;
  xm:=yfgldata.qyhsdf.FieldByName('姓名').AsString;
  yfgldata.sdf.Filter:='年度='+floattostr(yhsdf.DBNumberEditEh1.Value)+' and 月份='+floattostr(yhsdf.DBNumberEditEh2.Value);
  yfgldata.sdf.Filtered:=true;
  yfgldata.sdf.Locate('序号',num,[loCaseInsensitive]);
  i0:=yfgldata.sdf.GetBookmark;
  yname0:=yfgldata.sdf.FieldByName('姓名').AsString;
  ml0:=yfgldata.sdf.FieldByName('用气量').AsFloat;
  mj0:=yfgldata.sdf.FieldByName('煤气费').AsFloat;
  sl0:=yfgldata.sdf.FieldByName('用水量').AsFloat;
  sb0:=yfgldata.sdf.FieldByName('用水补助').AsFloat;
  sj0:=yfgldata.sdf.FieldByName('水费').AsFloat;
  dl0:=yfgldata.sdf.FieldByName('用电量').AsFloat;
  db0:=yfgldata.sdf.FieldByName('用电补助').AsFloat;
  dj0:=yfgldata.sdf.FieldByName('电费').AsFloat;
  fz0:=yfgldata.sdf.FieldByName('房租').AsFloat;
  hj0:=yfgldata.sdf.FieldByName('合计').AsFloat;
  yfgldata.sdf.FindNext;
  i1:=yfgldata.sdf.GetBookmark;
  yname1:=yfgldata.sdf.FieldByName('姓名').AsString;
  ml1:=yfgldata.sdf.FieldByName('用气量').AsFloat;
  mj1:=yfgldata.sdf.FieldByName('煤气费').AsFloat;
  sl1:=yfgldata.sdf.FieldByName('用水量').AsFloat;
  sb1:=yfgldata.sdf.FieldByName('用水补助').AsFloat;
  sj1:=yfgldata.sdf.FieldByName('水费').AsFloat;
  dl1:=yfgldata.sdf.FieldByName('用电量').AsFloat;
  db1:=yfgldata.sdf.FieldByName('用电补助').AsFloat;
  dj1:=yfgldata.sdf.FieldByName('电费').AsFloat;
  fz1:=yfgldata.sdf.FieldByName('房租').AsFloat;
  hj1:=yfgldata.sdf.FieldByName('合计').AsFloat;
  yfgldata.sdf.GotoBookmark(i1);
  yfgldata.sdf.Edit;
  yfgldata.sdf.FieldByName('姓名').AsString:=yname0;
  yfgldata.sdf.FieldByName('用气量').Asfloat:=ml0;
  yfgldata.sdf.FieldByName('煤气费').AsFloat:=mj0;
  yfgldata.sdf.FieldByName('用水量').AsFloat:=sl0;
  yfgldata.sdf.FieldByName('用水补助').AsFloat:=sb0;
  yfgldata.sdf.FieldByName('水费').AsFloat:=sj0;
  yfgldata.sdf.FieldByName('用电量').AsFloat:=dl0;
  yfgldata.sdf.FieldByName('用电补助').AsFloat:=db0;
  yfgldata.sdf.FieldByName('电费').AsFloat:=dj0;
  yfgldata.sdf.FieldByName('合计').AsFloat:=hj0;
  yfgldata.sdf.FieldByName('房租').AsFloat:=fz0;
  yfgldata.sdf.Post;
  yfgldata.sdf.GotoBookmark(i0);
  yfgldata.sdf.Edit;
  yfgldata.sdf.FieldByName('姓名').AsString:=yname1;
  yfgldata.sdf.FieldByName('用气量').Asfloat:=ml1;
  yfgldata.sdf.FieldByName('煤气费').AsFloat:=mj1;
  yfgldata.sdf.FieldByName('用水量').AsFloat:=sl1;
  yfgldata.sdf.FieldByName('用水补助').AsFloat:=sb1;
  yfgldata.sdf.FieldByName('水费').AsFloat:=sj1;
  yfgldata.sdf.FieldByName('用电量').AsFloat:=dl1;
  yfgldata.sdf.FieldByName('用电补助').AsFloat:=db1;
  yfgldata.sdf.FieldByName('电费').AsFloat:=dj1;
  yfgldata.sdf.FieldByName('合计').AsFloat:=hj1;
  yfgldata.sdf.FieldByName('房租').AsFloat:=fz1;
  yfgldata.sdf.Post;
  yfgldata.sdf.GotoBookmark(i1);
  if yfgldata.qyhsdf.Active then
  yfgldata.qyhsdf.Active:=false;
  yfgldata.qyhsdf.Params[0].AsInteger:=yhsdf.DBNumberEditEh1.Value;
  yfgldata.qyhsdf.Params[1].AsInteger:=yhsdf.DBNumberEditEh2.Value;
  yfgldata.qyhsdf.Active:=true;
  yfgldata.qyhsdf.Locate('姓名',xm,[loCaseInsensitive]);
  yhsdf.showyhsdf;
end;

procedure Tyhsdf.SpeedButton4Click(Sender: TObject);
begin
application.CreateForm(tzjyhsdfb,zjyhsdfb);
try
  zjyhsdfb.ShowModal;
finally
  zjyhsdfb.Free;
end;
end;

procedure Tyhsdf.SpeedButton10Click(Sender: TObject);
begin
application.CreateForm(tscyhsdfb,scyhsdfb);
try
  scyhsdfb.ShowModal;
finally
  scyhsdfb.Free;
end;
end;

procedure Tyhsdf.SpeedButton11Click(Sender: TObject);
begin
yfgldata.sdf.Filtered:=false;
yfgldata.yhsdf.Active:=false;
application.CreateForm(tyhsdfhz,yhsdfhz);
try

  yhsdfhz.ShowModal;
finally
  yhsdfhz.Free;
end;
end;

procedure Tyhsdf.SpeedButton1Click(Sender: TObject);
begin
application.CreateForm(tzjyhsdf,zjyhsdf);
try
  zjyhsdf.ShowModal;
finally
  zjyhsdf.Free;
end;
end;

procedure Tyhsdf.SpeedButton3Click(Sender: TObject);
begin
application.CreateForm(txgyhsdf,xgyhsdf);
try
  xgyhsdf.ShowModal;
finally
  xgyhsdf.Free;
end;
end;

procedure Tyhsdf.SpeedButton5Click(Sender: TObject);
begin
application.CreateForm(tsdyhchaxun,sdyhchaxun);
try   
  sdyhchaxun.ShowModal;
finally
  sdyhchaxun.Free;
end;
end;

procedure Tyhsdf.SpeedButton9Click(Sender: TObject);
begin
yhsdf.PrintDBGridEh1.PageHeader.CenterText.Clear;
yhsdf.PrintDBGridEh1.PageHeader.CenterText.Add(floattostr(yhsdf.DBNumberEditEh1.Value)+'年'+floattostr(yhsdf.DBNumberEditEh2.Value)+'月水电费表');
yhsdf.PrintDBGridEh1.Preview;
end;

procedure Tyhsdf.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('电费');
  listbox1.Items.Add('房租');
  listbox1.Items.Add('合计');
  vps_filter:='年度='+floattostr(yhsdf.DBNumberEditEh1.Value)+' and 月份='+floattostr(yhsdf.DBNumberEditEh2.Value);
  vps_name:='yfgl_sdf';
  edit1.Text:=floattostr(yhsdf.DBNumberEditEh1.Value)+'年'+floattostr(yhsdf.DBNumberEditEh2.Value)+'月水电费报表';
  try
    ShowModal;
  finally
    free;
  end;
end;
end;

procedure Tyhsdf.SpeedButton12Click(Sender: TObject);
begin
application.CreateForm(tsdfshenh,sdfshenh);
try
  sdfshenh.ShowModal;
finally
  sdfshenh.Free;
end;
end;

procedure Tyhsdf.CheckBox1Click(Sender: TObject);
begin
yhsdf.DBGridEh1.Columns[0].Visible:=not yhsdf.CheckBox1.Checked;
end;

procedure Tyhsdf.CheckBox2Click(Sender: TObject);
begin
yhsdf.DBGridEh1.Columns[2].Visible:=not yhsdf.CheckBox2.Checked;
end;

procedure Tyhsdf.CheckBox3Click(Sender: TObject);
begin
yhsdf.DBGridEh1.Columns[3].Visible:=not yhsdf.CheckBox3.Checked;
end;

procedure Tyhsdf.CheckBox4Click(Sender: TObject);
begin
yhsdf.DBGridEh1.Columns[4].Visible:=not yhsdf.CheckBox4.Checked;
end;

procedure Tyhsdf.CheckBox5Click(Sender: TObject);
begin
yhsdf.DBGridEh1.Columns[5].Visible:=not yhsdf.CheckBox5.Checked;
end;

procedure Tyhsdf.CheckBox9Click(Sender: TObject);
begin
yhsdf.DBGridEh1.Columns[6].Visible:=not yhsdf.CheckBox9.Checked;
end;

procedure Tyhsdf.CheckBox6Click(Sender: TObject);
begin
yhsdf.DBGridEh1.Columns[7].Visible:=not yhsdf.CheckBox6.Checked;
end;

procedure Tyhsdf.CheckBox7Click(Sender: TObject);
begin
yhsdf.DBGridEh1.Columns[8].Visible:=not yhsdf.CheckBox7.Checked;
end;

procedure Tyhsdf.CheckBox10Click(Sender: TObject);
begin
yhsdf.DBGridEh1.Columns[9].Visible:=not yhsdf.CheckBox10.Checked;
end;

procedure Tyhsdf.CheckBox8Click(Sender: TObject);
begin
yhsdf.DBGridEh1.Columns[10].Visible:=not yhsdf.CheckBox8.Checked;
end;

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

end.