?? mc_fysq.~pas
字號:
begin
BitBtn3.Caption:='交費';
BitBtn5.Enabled:=False;
DBEdit2.BorderStyle:=bsNone;
DBEdit2.Color:=ClScrollBar;
DBEdit2.Enabled:=False;
DateTimePicker2.Enabled:=False;
DBEdit7.Color:=ClScrollBar;
DBEdit7.BorderStyle:=bsNone;
DBEdit7.Enabled:=False;
Table3.Cancel;
end;
end;
procedure TFYSQ.BitBtn6Click(Sender: TObject);
begin
if BitBtn6.caption='交費' then
begin
Table4.Edit;
BitBtn6.Caption:='保存';
BitBtn7.Enabled:=True;
DBEdit10.Enabled:=True;
DBEdit10.BorderStyle:=bssingle;
DBEdit10.Color:=clWhite;
DateTimePicker4.Enabled:=True;
DBEdit15.Enabled:=True;
DBEdit15.Color:=ClWhite;
DBEdit15.BorderStyle:=bssingle;
DBEdit10.SetFocus;
end
else
begin
if (Length(Table4.FieldByName('計費終止日期').AsString)=0)
or (Length(Table4.FieldByName('實收金額').AsString)=0) then
begin
Showmessage('請將信息添全');
end
else
begin
BitBtn6.Caption:='交費';
BitBtn7.Enabled:=False;
DBEdit10.BorderStyle:=bsNone;
DBEdit10.Color:=ClScrollBar;
DBEdit10.Enabled:=False;
DateTimePicker4.Enabled:=False;
DBEdit15.Color:=ClScrollBar;
DBEdit15.BorderStyle:=bsNone;
DBEdit15.Enabled:=False;
Table4.FieldByName('本月余額').AsFloat:=Table4
.FieldByName('實收金額').AsFloat-Table4
.FieldByName('應(yīng)收金額').AsFloat;
Table4.Post;
end;
end;
end;
procedure TFYSQ.BitBtn7Click(Sender: TObject);
begin
BitBtn6.Caption:='交費';
BitBtn7.Enabled:=False;
DBEdit10.BorderStyle:=bsNone;
DBEdit10.Color:=ClScrollBar;
DBEdit10.Enabled:=False;
DateTimePicker4.Enabled:=False;
DBEdit15.Color:=ClScrollBar;
DBEdit15.BorderStyle:=bsNone;
DBEdit15.Enabled:=False;
Table4.Cancel;
end;
procedure TFYSQ.BitBtn8Click(Sender: TObject);
begin
if BitBtn8.caption='交費' then
begin
Table5.Edit;
BitBtn8.Caption:='保存';
BitBtn9.Enabled:=True;
DBEdit18.Enabled:=True;
DBEdit18.BorderStyle:=bssingle;
DBEdit18.Color:=clWhite;
DateTimePicker6.Enabled:=True;
DBEdit23.Enabled:=True;
DBEdit23.Color:=ClWhite;
DBEdit23.BorderStyle:=bssingle;
DBEdit18.SetFocus;
end
else
begin
if (Length(Table5.FieldByName('計費終止日期').AsString)=0)
or (Length(Table5.FieldByName('實收金額').AsString)=0) then
begin
Showmessage('請將信息添全');
end
else
begin
BitBtn8.Caption:='交費';
BitBtn9.Enabled:=False;
DBEdit18.BorderStyle:=bsNone;
DBEdit18.Color:=ClScrollBar;
DBEdit18.Enabled:=False;
DateTimePicker6.Enabled:=False;
DBEdit23.Color:=ClScrollBar;
DBEdit23.BorderStyle:=bsNone;
DBEdit23.Enabled:=False;
Table5.FieldByName('本月余額').AsFloat:=Table5
.FieldByName('實收金額').AsFloat-Table5
.FieldByName('應(yīng)收金額').AsFloat;
Table5.Post;
end;
end;
end;
procedure TFYSQ.BitBtn9Click(Sender: TObject);
begin
BitBtn8.Caption:='交費';
BitBtn9.Enabled:=False;
DBEdit18.BorderStyle:=bsNone;
DBEdit18.Color:=ClScrollBar;
DBEdit18.Enabled:=False;
DateTimePicker6.Enabled:=False;
DBEdit23.Color:=ClScrollBar;
DBEdit23.BorderStyle:=bsNone;
DBEdit23.Enabled:=False;
Table5.Cancel;
end;
procedure TFYSQ.DateTimePicker2CloseUp(Sender: TObject);
begin
Table3.FieldByName('計費終止日期').AsDateTime:=DateTimePicker2.Date;
end;
procedure TFYSQ.DateTimePicker4CloseUp(Sender: TObject);
begin
Table4.FieldByName('計費終止日期').AsDateTime:=DateTimePicker4.Date;
end;
procedure TFYSQ.DateTimePicker6CloseUp(Sender: TObject);
begin
Table5.FieldByName('計費終止日期').AsDateTime:=DateTimePicker6.Date;
end;
procedure TFYSQ.DBGrid3ColExit(Sender: TObject);
begin
{if DBGrid3.SelectedIndex=5 then
if Query2.Modified then
if Query2.FieldByName('減免金額').AsFloat<>0 then
begin
Query2.FieldByName('本次余額').AsFloat:=(Query2
.FieldByName('實收金額').AsFloat+Query2
.FieldByName('減免金額').AsFloat)
-Query2.FieldByName('應(yīng)收金額').AsFloat);
Query2.Post;
end
else
begin
Query2.FieldByName('本次余額').AsFloat:=Query2
.FieldByName('實收金額').AsFloat-Query2
.FieldByName('應(yīng)收金額').AsFloat;
Query2.Post;
end;
if DBGrid3.SelectedIndex=7 then
if Query2.Modified then
if Query2.FieldByName('減免金額').AsFloat<>0 then
begin
Query2.FieldByName('本次余額').AsFloat:=(Query2
.FieldByName('實收金額').AsFloat+Query2
.FieldByName('減免金額').AsFloat)
-Query2.FieldByName('應(yīng)收金額').AsFloat;
Query2.Post;
end;}
end;
procedure TFYSQ.DBGrid3KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_UP then
begin
if Query2.FieldbyName('戶主姓名').AsString='' then
begin
Query2.Cancel;
Abort;
end;
end;
if key=VK_DOWN then
begin
if Query2.FieldbyName('戶主姓名').AsString='' then
begin
Query2.Cancel;
Abort;
end;
end;
if key=VK_Insert then Abort;
end;
procedure TFYSQ.DBGrid4KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_UP then
begin
if Query3.FieldbyName('戶主姓名').AsString='' then
begin
Query3.Cancel;
Abort;
end;
end;
if key=VK_DOWN then
begin
if Query3.FieldbyName('戶主姓名').AsString='' then
begin
Query3.Cancel;
Abort;
end;
end;
if key=VK_Insert then Abort;
end;
procedure TFYSQ.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 TFYSQ.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 TFYSQ.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 TFYSQ.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 TFYSQ.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
BitBtn1.Enabled:=False;
BitBtn2.Enabled:=False;
BitBtn3.Enabled:=False;
BitBtn6.Enabled:=False;
BitBtn8.Enabled:=False;
end;
end;
end;
procedure TFYSQ.ComboBox1Change(Sender: TObject);
begin
Table2.Filter:='單元 = '''+ComboBox1.Items[ComboBox1.ItemIndex]+'''';
Table2.Filtered:=True;
end;
procedure TFYSQ.Query2BeforePost(DataSet: TDataSet);
begin
Try
//if DBGrid3.SelectedIndex=5 then
//if Query2.Modified then
if LENGTH(Query2.FieldByName('計費終止日期').AsSTRING)>0 then
begin
Query2.FieldByName('應(yīng)收金額').AsFloat:=SJ(Query2.FieldByName('計費起始日期').AsDateTime,
Query2.FieldByName('計費終止日期').AsDateTime,
Query2.FieldByName('收費金額').AsFloat);
end;
if Query2.FieldByname('剩余金額').AsFloat>Query2.FieldByName('應(yīng)收金額').AsFloat then
Query2.FieldByName('實收金額').AsFloat:=Query2.FieldByName('應(yīng)收金額').AsFloat
else
Query2.FieldByName('實收金額').AsFloat:=Query2.FieldByName('剩余金額').AsFloat;
if Query2.FieldByName('減免金額').AsFloat<>0 then
begin
Query2.FieldByName('本次余額').AsFloat:=(Query2
.FieldByName('實收金額').AsFloat+Query2
.FieldByName('減免金額').AsFloat+Query2.FieldbyName('本次補交').AsFloat)
-Query2.FieldByName('應(yīng)收金額').AsFloat;
end
else
begin
Query2.FieldByName('本次余額').AsFloat:=(Query2
.FieldByName('實收金額').AsFloat+Query2.FieldbyName('本次補交').AsFloat)-Query2
.FieldByName('應(yīng)收金額').AsFloat;
end;
{if DBGrid3.SelectedIndex=7 then
if Query2.Modified then
if Query2.FieldByName('減免金額').AsFloat<>0 then
begin
Query2.FieldByName('本次余額').AsFloat:=(Query2
.FieldByName('實收金額').AsFloat+Query2
.FieldByName('減免金額').AsFloat+Query2.FieldbyName('本次補交').AsFloat)
-Query2.FieldByName('應(yīng)收金額').AsFloat;
end;}
Except
End;
end;
procedure TFYSQ.Query3BeforePost(DataSet: TDataSet);
begin
Try
//if DBGrid4.SelectedIndex=5 then
// if Query3.Modified then
if LENGTH(Query2.FieldByName('計費終止日期').AsSTRING)>0 then
begin
Query2.FieldByName('應(yīng)收金額').AsFloat:=SJ(Query2.FieldByName('計費起始日期').AsDateTime,
Query2.FieldByName('計費終止日期').AsDateTime,
Query2.FieldByName('收費金額').AsFloat);
end;
if Query2.FieldByname('剩余金額').AsFloat>Query2.FieldByName('應(yīng)收金額').AsFloat then
Query2.FieldByName('實收金額').AsFloat:=Query2.FieldByName('應(yīng)收金額').AsFloat
else
Query2.FieldByName('實收金額').AsFloat:=Query2.FieldByName('剩余金額').AsFloat;
if Query3.FieldByName('減免金額').AsFloat<>0 then
begin
Query3.FieldByName('本次余額').AsFloat:=(Query3
.FieldByName('實收金額').AsFloat+Query3
.FieldByName('減免金額').AsFloat+Query3.FieldbyName('本次補交').AsFloat)
-Query3.FieldByName('應(yīng)收金額').AsFloat;
end
else
begin
Query3.FieldByName('本次余額').AsFloat:=(Query3
.FieldByName('實收金額').AsFloat+Query3.FieldbyName('本次補交').AsFloat)
-Query3.FieldByName('應(yīng)收金額').AsFloat;
end;
{if DBGrid4.SelectedIndex=7 then
if Query3.Modified then
if Query3.FieldByName('減免金額').AsFloat<>0 then
begin
Query3.FieldByName('本次余額').AsFloat:=(Query3
.FieldByName('實收金額').AsFloat+Query3
.FieldByName('減免金額').AsFloat+Query3.FieldbyName('本次補交').AsFloat)
-Query3.FieldByName('應(yīng)收金額').AsFloat;
end;}
Except
end;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -