?? dwsdffrm.pas

?? 本人編寫的有關軍隊營房工作的管理系統
?? PAS
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
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;
12 下一頁
?? 文件大小 1892 K
?? 上傳用戶 sunny_02
?? 所屬分類其他行業
??? 相關標簽

#編寫 #管理系統
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? dwsdffrm.pas

?? 快捷鍵說明
