BitBtn5.Caption:='保存填寫';
BitBtn3.Caption:='取消填寫';
DBEdit3.BorderStyle:=bsSingle;
DBEdit3.Color:=clWhite;
DBEdit3.Enabled:=True;
DBEdit3.SetFocus;
DBEdit2.BorderStyle:=bsSingle;
DBEdit2.Color:=clWhite;
DBEdit2.Enabled:=True;
DateTimePicker2.Enabled:=True;
Table3.Edit;
Exit;
end;
if BitBtn5.Caption='保存填寫' then
begin
BitBtn5.Caption:='填寫讀數(shù)';
BitBtn3.Caption:='讀數(shù)初始化';
DBEdit3.BorderStyle:=bsNone;
DBEdit3.Color:=ClScrollBar;
DBEdit3.Enabled:=False;
DBEdit2.BorderStyle:=bsNone;
DBEdit2.Color:=ClScrollBar;
DBEdit2.Enabled:=False;
DateTimePicker2.Enabled:=False;
Table3.FieldByName('使用數(shù)').AsInteger:=Table3.FieldByName('本月讀數(shù)').AsInteger
-Table3.FieldByName('上月讀數(shù)').AsInteger;
Table3.FieldByName('應(yīng)收金額').AsFloat:=Table3.FieldByName('使用數(shù)').AsInteger
*Table3.FieldByName('收費金額').AsFloat;
Table3.Post;
Exit;
end;
if BitBtn5.Caption='取消讀數(shù)' then
begin
BitBtn3.Caption:='讀數(shù)初始化';
BitBtn5.Caption:='填寫讀數(shù)';
DBEdit4.BorderStyle:=bsNone;
DBEdit4.Color:=ClScrollBar;
DBEDit4.Enabled:=False;
Table3.Cancel;
Exit;
end;
//-------------------------------------------------
end;
end;
procedure TMInsert.BitBtn6Click(Sender: TObject);
begin
if Table4.RecordCount<>0 then
begin
//-------------------------------------------------------
if BitBtn6.Caption='取消填寫' then
begin
BitBtn7.Caption:='填寫讀數(shù)';
BitBtn6.Caption:='讀數(shù)初始化';
DBEdit10.BorderStyle:=bsNone;
DBEdit10.Color:=ClScrollBar;
DBEdit10.Enabled:=False;
DBEdit11.BorderStyle:=bsNone;
DBEdit11.Color:=ClScrollBar;
DBEdit11.Enabled:=False;
DateTimePicker4.Enabled:=False;
Table4.Cancel;
Exit;
end;
if BitBtn6.Caption='讀數(shù)初始化' then
begin
BitBtn6.Caption:='保存讀數(shù)';
BitBtn7.Caption:='取消讀數(shù)';
DBEdit12.BorderStyle:=bsSingle;
DBEdit12.Color:=clWhite;
DBEdit12.Enabled:=True;
Table4.Edit;
DBEdit12.SetFocus;
Exit;
end;
if BitBtn6.Caption='保存讀數(shù)' then
begin
if Length(Table4.FieldByName('上月讀數(shù)').AsString)=0 then
ShowMessage('請輸入上月讀數(shù).')
else
begin
BitBtn6.Caption:='讀數(shù)初始化';
BitBtn7.Caption:='填寫讀數(shù)';
DBEdit12.BorderStyle:=bsNone;
DBEdit12.Color:=ClScrollBar;
DBEdit12.Enabled:=False;
DateTimePicker4.Enabled:=False;
Table4.Post;
Exit;
end;
end;
//--------------------------------------------------------
end;
end;
procedure TMInsert.BitBtn7Click(Sender: TObject);
begin
if Table4.RecordCount<>0 then
begin
//-------------------------------------------------------
if BitBtn7.Caption='填寫讀數(shù)' then
begin
BitBtn7.Caption:='保存填寫';
BitBtn6.Caption:='取消填寫';
DBEdit11.BorderStyle:=bsSingle;
DBEdit11.Color:=clWhite;
DBEdit11.Enabled:=True;
DBEdit11.SetFocus;
DBEdit10.BorderStyle:=bsSingle;
DBEdit10.Color:=clWhite;
DBEdit10.Enabled:=True;
DateTimePicker4.Enabled:=True;
Table4.Edit;
Exit;
end;
if BitBtn7.Caption='保存填寫' then
begin
BitBtn7.Caption:='填寫讀數(shù)';
BitBtn6.Caption:='讀數(shù)初始化';
DBEdit11.BorderStyle:=bsNone;
DBEdit11.Color:=ClScrollBar;
DBEdit11.Enabled:=False;
DBEdit10.BorderStyle:=bsNone;
DBEdit10.Color:=ClScrollBar;
DBEdit10.Enabled:=False;
DateTimePicker4.Enabled:=False;
Table4.FieldByName('使用數(shù)').AsInteger:=Table4.FieldByName('本月讀數(shù)').AsInteger
-Table4.FieldByName('上月讀數(shù)').AsInteger;
Table4.FieldByName('應(yīng)收金額').AsFloat:=Table4.FieldByName('使用數(shù)').AsInteger
*Table4.FieldByName('收費金額').AsFloat;
Table4.Post;
Exit;
end;
if BitBtn7.Caption='取消讀數(shù)' then
begin
BitBtn6.Caption:='讀數(shù)初始化';
BitBtn7.Caption:='填寫讀數(shù)';
DBEdit12.BorderStyle:=bsNone;
DBEdit12.Color:=ClScrollBar;
DBEDit12.Enabled:=False;
DateTimePicker4.Enabled:=False;
Table4.Cancel;
Exit;
end;
//----------------------------------------------------
end;
end;
procedure TMInsert.BitBtn8Click(Sender: TObject);
begin
if Table5.RecordCount<>0 then
begin
//-------------------------------------------------------
if BitBtn8.Caption='取消填寫' then
begin
BitBtn9.Caption:='填寫讀數(shù)';
BitBtn8.Caption:='讀數(shù)初始化';
DBEdit18.BorderStyle:=bsNone;
DBEdit18.Color:=ClScrollBar;
DBEdit18.Enabled:=False;
DBEdit19.BorderStyle:=bsNone;
DBEdit19.Color:=ClScrollBar;
DBEdit19.Enabled:=False;
DateTimePicker6.Enabled:=False;
Table5.Cancel;
Exit;
end;
if BitBtn8.Caption='讀數(shù)初始化' then
begin
BitBtn8.Caption:='保存讀數(shù)';
BitBtn9.Caption:='取消讀數(shù)';
DBEdit20.BorderStyle:=bsSingle;
DBEdit20.Color:=clWhite;
DBEdit20.Enabled:=True;
Table5.Edit;
DBEdit20.SetFocus;
Exit;
end;
if BitBtn8.Caption='保存讀數(shù)' then
begin
if Length(Table5.FieldByName('上月讀數(shù)').AsString)=0 then
ShowMessage('請輸入上月讀數(shù).')
else
begin
BitBtn8.Caption:='讀數(shù)初始化';
BitBtn9.Caption:='填寫讀數(shù)';
DBEdit20.BorderStyle:=bsNone;
DBEdit20.Color:=ClScrollBar;
DBEdit20.Enabled:=False;
DateTimePicker6.Enabled:=False;
Table5.Post;
Exit;
end;
end;
//-------------------------------------------------
end;
end;
procedure TMInsert.BitBtn9Click(Sender: TObject);
begin
if Table5.RecordCount<>0 then
begin
//-------------------------------------------------------
if BitBtn9.Caption='填寫讀數(shù)' then
begin
BitBtn9.Caption:='保存填寫';
BitBtn8.Caption:='取消填寫';
DBEdit19.BorderStyle:=bsSingle;
DBEdit19.Color:=clWhite;
DBEdit19.Enabled:=True;
DBEdit19.SetFocus;
DBEdit18.BorderStyle:=bsSingle;
DBEdit18.Color:=clWhite;
DBEdit18.Enabled:=True;
DateTimePicker6.Enabled:=True;
Table5.Edit;
Exit;
end;
if BitBtn9.Caption='保存填寫' then
begin
BitBtn9.Caption:='填寫讀數(shù)';
BitBtn8.Caption:='讀數(shù)初始化';
DBEdit19.BorderStyle:=bsNone;
DBEdit19.Color:=ClScrollBar;
DBEdit19.Enabled:=False;
DBEdit18.BorderStyle:=bsNone;
DBEdit18.Color:=ClScrollBar;
DBEdit18.Enabled:=False;
DateTimePicker6.Enabled:=False;
Table5.FieldByName('使用數(shù)').AsInteger:=Table5.FieldByName('本月讀數(shù)').AsInteger
-Table5.FieldByName('上月讀數(shù)').AsInteger;
Table5.FieldByName('應(yīng)收金額').AsFloat:=Table5.FieldByName('使用數(shù)').AsInteger
*Table5.FieldByName('收費金額').AsFloat;
Table5.Post;
Exit;
end;
if BitBtn9.Caption='取消讀數(shù)' then
begin
BitBtn8.Caption:='讀數(shù)初始化';
BitBtn9.Caption:='填寫讀數(shù)';
DBEdit20.BorderStyle:=bsNone;
DBEdit20.Color:=ClScrollBar;
DBEdit20.Enabled:=False;
DateTimePicker6.Enabled:=False;
Table5.Cancel;
Exit;
end;
//--------------------------------------------------------------
end;
end;
procedure TMInsert.DateTimePicker2CloseUp(Sender: TObject);
begin
Table3.FieldByName('計費終止日期').AsDateTime:=DateTimePicker2.Date;
end;
procedure TMInsert.DateTimePicker4CloseUp(Sender: TObject);
begin
Table4.FieldByName('計費終止日期').AsDateTime:=DateTimePicker4.Date;
end;
procedure TMInsert.DateTimePicker6CloseUp(Sender: TObject);
begin
Table5.FieldByName('計費終止日期').AsDateTime:=DateTimePicker6.Date;
end;
procedure TMInsert.BitBtn11Click(Sender: TObject);
begin
with Query5 do
begin
Close;
SQL.Clear;
SQL.Add('Select 費用科目,應(yīng)收金額,實收金額,剩余金額,減免金額 From 歷史其它費用');
SQL.Add('where 計費起始日期>=:A and 計費終止日期<=:B and 收費編號=:C');
SQL.Add('ORDER BY 費用科目 ASC');
ParamByName('A').AsDateTime:=DateTimePicker9.Date;
ParamByName('B').AsDateTime:=DateTimePicker10.Date;
ParamByName('C').AsString:=Table2.FieldByName('房間編號').AsString;
Open;
end;
end;
procedure TMInsert.BitBtn10Click(Sender: TObject);
begin
with Query4 do
begin
Close;
SQL.Clear;
SQL.Add('Select 費用科目,應(yīng)收金額,實收金額,剩余金額,減免金額 From 歷史常用費用');
SQL.Add('where 計費起始日期>=:A and 計費終止日期<=:B and 收費編號=:C');
SQL.Add('ORDER BY 費用科目 ASC');
ParamByName('A').AsDateTime:=DateTimePicker7.Date;
ParamByName('B').AsDateTime:=DateTimePicker8.Date;
ParamByName('C').AsString:=Table2.FieldByName('房間編號').AsString;
Open;
end;
end;
procedure TMInsert.BitBtn1Click(Sender: TObject);
begin
if BitBtn1.Caption='統(tǒng)計指定時間內(nèi)的[常用費用]信息' then
begin
GroupBox7.Visible:=True;
BitBtn1.Caption:='關(guān)閉[常用費用]信息';
end
else
begin
Query4.Close;
GroupBox7.Visible:=False;
BitBtn1.Caption:='統(tǒng)計指定時間內(nèi)的[常用費用]信息';
end;
end;
procedure TMInsert.BitBtn2Click(Sender: TObject);
begin
if BitBtn2.Caption='統(tǒng)計指定時間內(nèi)的[其它費用]信息' then
begin
BitBtn2.Caption:='關(guān)閉[其它費用]信息';
GroupBox8.Visible:=True;
end
else
begin
Query5.Close;
GroupBox8.Visible:=False;
BitBtn2.Caption:='統(tǒng)計指定時間內(nèi)的[其它費用]信息';
end;
end;
procedure TMInsert.FormShow(Sender: TObject);
var a : Integer;
begin
if Table1.RecordCount<>0 then
begin
with Query6 do
begin
Close;
SQL.Clear;
SQL.Add('Select Max(單元) From 房屋信息表 Where 大樓名=:A');
ParamByName('A').AsString:=Table1.FieldByName('大樓名稱').AsString;
Open;
end;
For a:=1 to Query6.Fields[0].AsInteger do
begin
ComboBox1.Items.Add(IntToStr(a));
end;
end;
Query6.Close;
if MainForm.Query1.Locate('使用選項','填寫收費通知單',[loCaseInsensitive]) then
begin
if MainForm.Query1.FieldByName('讀寫').AsString='讀' then
begin
bitbtn3.Enabled:=False;
bitbtn5.Enabled:=False;
bitbtn6.Enabled:=False;
bitbtn7.Enabled:=False;
bitbtn8.Enabled:=False;
end;
end;
end;
procedure TMInsert.ComboBox1Change(Sender: TObject);
begin
Table2.Filter:='單元 = '''+ComboBox1.Items[ComboBox1.ItemIndex]+'''';
Table2.Filtered:=True;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -