dwsdffrm.pas

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

unit dwsdffrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PrnDbgeh, StdCtrls, Buttons, Grids, DBGridEh, Mask, DBCtrlsEh,
  ExtCtrls,db;

type
  Tdwsdf = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    DBNumberEditEh1: TDBNumberEditEh;
    DBNumberEditEh2: TDBNumberEditEh;
    DBGridEh1: TDBGridEh;
    Panel2: TPanel;
    SpeedButton8: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    SpeedButton11: TSpeedButton;
    SpeedButton12: TSpeedButton;
    SpeedButton13: TSpeedButton;
    Panel3: TPanel;
    Label3: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure DBNumberEditEh1Change(Sender: TObject);
    procedure DBNumberEditEh2Change(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton10Click(Sender: TObject);
    procedure DBGridEh1CellClick(Column: TColumnEh);
    procedure DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure DBGridEh1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure SpeedButton13Click(Sender: TObject);
    procedure SpeedButton11Click(Sender: TObject);
    procedure SpeedButton12Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure showdwsdf;
  end;

var
  dwsdf: Tdwsdf;

implementation

uses datafrm,zjdwsdfbfrm,scdwsdfb,bbdcfrm,dwsdfhzfrm,dwsdfshfrm,tjdwsdffrm,xgdwsdffrm,dwsdfcxfrm;
{$R *.dfm}

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

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

procedure tdwsdf.showdwsdf;
begin
yfgldata.dwsdf.Filtered:=false;
dwsdf.SpeedButton8.Enabled:=(yfgldata.qdwsdf.RecordCount>0) and (yfgldata.qdwsdf.RecNo<>1);
dwsdf.SpeedButton7.Enabled:=(yfgldata.qdwsdf.RecordCount>0) and (yfgldata.qdwsdf.RecNo<>yfgldata.qdwsdf.RecordCount);
dwsdf.SpeedButton10.Enabled:=(yfgldata.dwsdf.RecordCount>0);
dwsdf.SpeedButton11.Enabled:=(yfgldata.dwsdf.RecordCount>0);
dwsdf.SpeedButton5.Enabled:=(yfgldata.dwsdf.RecordCount>0);
dwsdf.SpeedButton2.Enabled:=(yfgldata.qdwsdf.RecordCount>0);
dwsdf.SpeedButton3.Enabled:=(yfgldata.qdwsdf.RecordCount>0);
dwsdf.SpeedButton9.Enabled:=(yfgldata.qdwsdf.RecordCount>0);
dwsdf.SpeedButton12.Enabled:=(yfgldata.qdwsdf.RecordCount>0);
dwsdf.SpeedButton13.Enabled:=(yfgldata.qdwsdf.RecordCount>0);
end;

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

procedure Tdwsdf.CheckBox2Click(Sender: TObject);
begin
dwsdf.DBGridEh1.Columns[1].Visible:=not dwsdf.CheckBox2.Checked;
end;

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

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

procedure Tdwsdf.CheckBox5Click(Sender: TObject);
begin
dwsdf.DBGridEh1.Columns[7].Visible:=not dwsdf.CheckBox5.Checked;
dwsdf.DBGridEh1.Columns[8].Visible:=not dwsdf.CheckBox5.Checked;
end;

procedure Tdwsdf.CheckBox6Click(Sender: TObject);
begin
dwsdf.DBGridEh1.Columns[9].Visible:=not dwsdf.CheckBox6.Checked;
end;

procedure Tdwsdf.DBNumberEditEh1Change(Sender: TObject);
begin
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;

procedure Tdwsdf.DBNumberEditEh2Change(Sender: TObject);
begin
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;

procedure Tdwsdf.SpeedButton8Click(Sender: TObject);
var
  i0,i1:pointer;
  daima0,daima1,mingcheng0,mingcheng1,zerenren0,zerenren1:string;
  gbuzhu0,gbuzhu1,sbuzhu0,sbuzhu1,gjiben0,gjiben1,sjiben0,sjiben1,sgj0,sgj1,dgj0,dgj1:real;
  num:integer;
begin
  num:=yfgldata.qdwsdf.FieldByName('序号').AsInteger;
  yfgldata.dwsdf.Filter:='年度='+floattostr(dwsdf.DBNumberEditEh1.Value)+' and 月份='+floattostr(dwsdf.DBNumberEditEh2.Value);
  yfgldata.dwsdf.Filtered:=true;
  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.FindPrior;
  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.SpeedButton7Click(Sender: TObject);
var
  i0,i1:pointer;
  daima0,daima1,mingcheng0,mingcheng1,zerenren0,zerenren1:string;
  gbuzhu0,gbuzhu1,sbuzhu0,sbuzhu1,gjiben0,gjiben1,sjiben0,sjiben1,sgj0,sgj1,dgj0,dgj1:real;
  num:integer;
begin
  num:=yfgldata.qdwsdf.FieldByName('序号').AsInteger;
  yfgldata.dwsdf.Filter:='年度='+floattostr(dwsdf.DBNumberEditEh1.Value)+' and 月份='+floattostr(dwsdf.DBNumberEditEh2.Value);
  yfgldata.dwsdf.Filtered:=true;