?? mc_cshbzfy.pas
字號:
unit MC_CSHBZFY;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
DBCtrls, StdCtrls, Db, DBTables, Grids, DBGrids, Buttons;
type
TCSHBZFY = class(TForm)
GroupBox1: TGroupBox;
DBLookupComboBox1: TDBLookupComboBox;
DataSource1: TDataSource;
Query1: TQuery;
Query1BDEDesigner: TStringField;
Query1BDEDesigner2: TStringField;
GroupBox2: TGroupBox;
DBGrid1: TDBGrid;
DataSource2: TDataSource;
Table1: TTable;
Table1BDEDesigner: TStringField;
Table1BDEDesigner2: TStringField;
Table1BDEDesigner7: TStringField;
GroupBox3: TGroupBox;
DBGrid2: TDBGrid;
Table2: TTable;
DataSource3: TDataSource;
Table2BDEDesigner: TStringField;
Table2BDEDesigner2: TStringField;
Table2BDEDesigner3: TStringField;
Table2BDEDesigner4: TStringField;
Table2BDEDesigner6: TStringField;
Table2BDEDesigner18: TStringField;
GroupBox4: TGroupBox;
DBGrid3: TDBGrid;
GroupBox5: TGroupBox;
Table3: TTable;
DataSource4: TDataSource;
Table3BDEDesigner: TStringField;
Table3BDEDesigner2: TStringField;
Table3BDEDesigner3: TStringField;
Table3BDEDesigner4: TFloatField;
Table3BDEDesigner5: TDateTimeField;
Table3BDEDesigner6: TDateTimeField;
Table3BDEDesigner7: TIntegerField;
Table3BDEDesigner8: TIntegerField;
Table3BDEDesigner9: TIntegerField;
Table3BDEDesigner10: TFloatField;
Table3BDEDesigner11: TFloatField;
Table3BDEDesigner12: TFloatField;
DBGrid4: TDBGrid;
GroupBox6: TGroupBox;
DBGrid5: TDBGrid;
Table4: TTable;
Table5: TTable;
DataSource5: TDataSource;
DataSource6: TDataSource;
Table4BDEDesigner: TStringField;
Table4BDEDesigner2: TStringField;
Table4BDEDesigner3: TStringField;
Table4BDEDesigner4: TFloatField;
Table4BDEDesigner5: TDateTimeField;
Table4BDEDesigner6: TDateTimeField;
Table4BDEDesigner7: TIntegerField;
Table4BDEDesigner8: TIntegerField;
Table4BDEDesigner9: TIntegerField;
Table4BDEDesigner10: TFloatField;
Table4BDEDesigner11: TFloatField;
Table4BDEDesigner12: TFloatField;
Table5BDEDesigner: TStringField;
Table5BDEDesigner2: TStringField;
Table5BDEDesigner3: TStringField;
Table5BDEDesigner4: TFloatField;
Table5BDEDesigner5: TDateTimeField;
Table5BDEDesigner6: TDateTimeField;
Table5BDEDesigner7: TIntegerField;
Table5BDEDesigner8: TIntegerField;
Table5BDEDesigner9: TIntegerField;
Table5BDEDesigner10: TFloatField;
Table5BDEDesigner11: TFloatField;
Table5BDEDesigner12: TFloatField;
Query2: TQuery;
GroupBox7: TGroupBox;
DBGrid6: TDBGrid;
DataSource7: TDataSource;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn6: TBitBtn;
Query3: TQuery;
BitBtn4: TBitBtn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
CSHBZFY: TCSHBZFY;
implementation
uses MC_FYBZSD;
{$R *.DFM}
procedure TCSHBZFY.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CSHBZFY.Release;
CSHBZFY:=Nil;
end;
procedure TCSHBZFY.BitBtn6Click(Sender: TObject);
begin
Close;
end;
procedure TCSHBZFY.BitBtn3Click(Sender: TObject);
begin
if Table3.RecordCount<>0 then
if MessageDLg('是否更新['+Table3.FieldByName('戶主姓名').AsString
+']家的收費標準?'
,mtCustom,[mbYes,mbNo],0)=mrYes then
begin
Query3.CLose;
Query3.SQL.Clear;
Query3.SQL.Add('Update 水費 set 收費標準=:A,收費金額=:B');
Query3.SQL.Add('where 水表編號=:C');
Query3.ParamByName('A').AsString:=Query2.Fieldbyname('費用類型').AsString;
Query3.ParamByName('B').AsFloat:=Query2.Fieldbyname('水費').AsFloat;
Query3.paramByName('C').AsString:=Table3.FieldByName('水表編號').AsSTring;
Query3.ExecSQL;
//---------------------------------------------------------
Query3.CLose;
Query3.SQL.Clear;
Query3.SQL.Add('Update 電費 set 收費標準=:A,收費金額=:B');
Query3.SQL.Add('where 電表編號=:C');
Query3.ParamByName('A').AsString:=Query2.Fieldbyname('費用類型').AsString;
Query3.ParamByName('B').AsFloat:=Query2.Fieldbyname('電費').AsFloat;
Query3.paramByName('C').AsString:=Table4.FieldByName('電表編號').AsSTring;
Query3.ExecSQL;
//---------------------------------------------------------
Query3.CLose;
Query3.SQL.Clear;
Query3.SQL.Add('Update 煤氣費 set 收費標準=:A,收費金額=:B');
Query3.SQL.Add('where 煤氣表編號=:C');
Query3.ParamByName('A').AsString:=Query2.Fieldbyname('費用類型').AsString;
Query3.ParamByName('B').AsFloat:=Query2.Fieldbyname('煤氣費').AsFloat;
Query3.paramByName('C').AsString:=Table5.FieldByName('煤氣表編號').AsSTring;
Query3.ExecSQL;
//---------------------------------------------------------
Table3.Refresh;
Table4.Refresh;
Table5.Refresh;
ShowMessage('更新成功.');
end;
end;
procedure TCSHBZFY.BitBtn1Click(Sender: TObject);
begin
if Table2.RecordCount<>0 then
if MessageDLG('是否更新['+Table1.FieldByName('大樓名稱')
.AsString+']大樓里所有業(yè)戶的費用標準'
,mtCustom,[mbYes,mbNo],0)=mrYes then
begin
//------------------------------------------------------
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('Update 水費 set 收費標準=:A,收費金額=:B');
Query3.SQL.Add('where 水表編號 in (select 房間編號 from 房屋信息表 where 區(qū)名=:C and 大樓名=:D)');
Query3.ParamByName('A').AsString:=Query2.FieldByName('費用類型').AsString;
Query3.ParamByName('B').AsFloat:=Query2.FieldByName('水費').AsFloat;
Query3.ParamByName('C').AsString:=Query1.FieldByName('小區(qū)名').AsString;
Query3.ParamByName('D').AsString:=Table1.FieldByName('大樓名稱').AsString;
Query3.ExecSQL;
//------------------------------------------------------
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('Update 電費 set 收費標準=:A,收費金額=:B');
Query3.SQL.Add('where 電表編號 in (select 房間編號 from 房屋信息表 where 區(qū)名=:C and 大樓名=:D)');
Query3.ParamByName('A').AsString:=Query2.FieldByName('費用類型').AsString;
Query3.ParamByName('B').AsFloat:=Query2.FieldByName('電費').AsFloat;
Query3.ParamByName('C').AsString:=Query1.FieldByName('小區(qū)名').AsString;
Query3.ParamByName('D').AsString:=Table1.FieldByName('大樓名稱').AsString;
Query3.ExecSQL;
//------------------------------------------------------
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('Update 煤氣費 set 收費標準=:A,收費金額=:B');
Query3.SQL.Add('where 煤氣表編號 in (select 房間編號 from 房屋信息表 where 區(qū)名=:C and 大樓名=:D)');
Query3.ParamByName('A').AsString:=Query2.FieldByName('費用類型').AsString;
Query3.ParamByName('B').AsFloat:=Query2.FieldByName('煤氣費').AsFloat;
Query3.ParamByName('C').AsString:=Query1.FieldByName('小區(qū)名').AsString;
Query3.ParamByName('D').AsString:=Table1.FieldByName('大樓名稱').AsString;
Query3.ExecSQL;
//------------------------------------------------------
ShowMessage('更新完畢');
Table3.Refresh;
Table4.Refresh;
Table5.Refresh;
end;
end;
procedure TCSHBZFY.BitBtn2Click(Sender: TObject);
begin
if Query1.RecordCount<>0 then
if MessageDLG('是否更新['+Query1.FieldByName('小區(qū)名')
.AsString+']小區(qū)里所有業(yè)戶的費用標準'
,mtCustom,[mbYes,mbNo],0)=mrYes then
begin
//------------------------------------------------------
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('Update 水費 set 收費標準=:A,收費金額=:B');
Query3.SQL.Add('where 水表編號 in (select 房間編號 from 房屋信息表 where 區(qū)名=:C )');
Query3.ParamByName('A').AsString:=Query2.FieldByName('費用類型').AsString;
Query3.ParamByName('B').AsFloat:=Query2.FieldByName('水費').AsFloat;
Query3.ParamByName('C').AsString:=Query1.FieldByName('小區(qū)名').AsString;
Query3.ExecSQL;
//------------------------------------------------------
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('Update 電費 set 收費標準=:A,收費金額=:B');
Query3.SQL.Add('where 電表編號 in (select 房間編號 from 房屋信息表 where 區(qū)名=:C)');
Query3.ParamByName('A').AsString:=Query2.FieldByName('費用類型').AsString;
Query3.ParamByName('B').AsFloat:=Query2.FieldByName('電費').AsFloat;
Query3.ParamByName('C').AsString:=Query1.FieldByName('小區(qū)名').AsString;
Query3.ExecSQL;
//------------------------------------------------------
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('Update 煤氣費 set 收費標準=:A,收費金額=:B');
Query3.SQL.Add('where 煤氣表編號 in (select 房間編號 from 房屋信息表 where 區(qū)名=:C)');
Query3.ParamByName('A').AsString:=Query2.FieldByName('費用類型').AsString;
Query3.ParamByName('B').AsFloat:=Query2.FieldByName('煤氣費').AsFloat;
Query3.ParamByName('C').AsString:=Query1.FieldByName('小區(qū)名').AsString;
Query3.ExecSQL;
//------------------------------------------------------
ShowMessage('更新完畢');
Table3.Refresh;
Table4.Refresh;
Table5.Refresh;
end;
end;
procedure TCSHBZFY.FormShow(Sender: TObject);
begin
DBLookupComboBox1.KeyValue:=Query1.FieldByName('小區(qū)名').AsString;
end;
procedure TCSHBZFY.BitBtn4Click(Sender: TObject);
begin
if not Assigned(FYBZSD) then
begin
FYBZSD:=TFYBZSD.Create(Self);
FYBZSD.ShowModal;
Query2.close;
Query2.Open;
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -