📄 mc_insert.pas
字号:
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:='填写读数';
BitBtn3.Caption:='读数初始化';
DBEdit3.BorderStyle:=bsNone;
DBEdit3.Color:=ClScrollBar;
DBEdit3.Enabled:=False;
DBEdit2.BorderStyle:=bsNone;
DBEdit2.Color:=ClScrollBar;
DBEdit2.Enabled:=False;
DateTimePicker2.Enabled:=False;
Table3.FieldByName('使用数').AsInteger:=Table3.FieldByName('本月读数').AsInteger
-Table3.FieldByName('上月读数').AsInteger;
Table3.FieldByName('应收金额').AsFloat:=Table3.FieldByName('使用数').AsInteger
*Table3.FieldByName('收费金额').AsFloat;
Table3.Post;
Exit;
end;
if BitBtn5.Caption='取消读数' then
begin
BitBtn3.Caption:='读数初始化';
BitBtn5.Caption:='填写读数';
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:='填写读数';
BitBtn6.Caption:='读数初始化';
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='读数初始化' then
begin
BitBtn6.Caption:='保存读数';
BitBtn7.Caption:='取消读数';
DBEdit12.BorderStyle:=bsSingle;
DBEdit12.Color:=clWhite;
DBEdit12.Enabled:=True;
Table4.Edit;
DBEdit12.SetFocus;
Exit;
end;
if BitBtn6.Caption='保存读数' then
begin
if Length(Table4.FieldByName('上月读数').AsString)=0 then
ShowMessage('请输入上月读数.')
else
begin
BitBtn6.Caption:='读数初始化';
BitBtn7.Caption:='填写读数';
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='填写读数' 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:='填写读数';
BitBtn6.Caption:='读数初始化';
DBEdit11.BorderStyle:=bsNone;
DBEdit11.Color:=ClScrollBar;
DBEdit11.Enabled:=False;
DBEdit10.BorderStyle:=bsNone;
DBEdit10.Color:=ClScrollBar;
DBEdit10.Enabled:=False;
DateTimePicker4.Enabled:=False;
Table4.FieldByName('使用数').AsInteger:=Table4.FieldByName('本月读数').AsInteger
-Table4.FieldByName('上月读数').AsInteger;
Table4.FieldByName('应收金额').AsFloat:=Table4.FieldByName('使用数').AsInteger
*Table4.FieldByName('收费金额').AsFloat;
Table4.Post;
Exit;
end;
if BitBtn7.Caption='取消读数' then
begin
BitBtn6.Caption:='读数初始化';
BitBtn7.Caption:='填写读数';
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:='填写读数';
BitBtn8.Caption:='读数初始化';
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='读数初始化' then
begin
BitBtn8.Caption:='保存读数';
BitBtn9.Caption:='取消读数';
DBEdit20.BorderStyle:=bsSingle;
DBEdit20.Color:=clWhite;
DBEdit20.Enabled:=True;
Table5.Edit;
DBEdit20.SetFocus;
Exit;
end;
if BitBtn8.Caption='保存读数' then
begin
if Length(Table5.FieldByName('上月读数').AsString)=0 then
ShowMessage('请输入上月读数.')
else
begin
BitBtn8.Caption:='读数初始化';
BitBtn9.Caption:='填写读数';
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='填写读数' 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:='填写读数';
BitBtn8.Caption:='读数初始化';
DBEdit19.BorderStyle:=bsNone;
DBEdit19.Color:=ClScrollBar;
DBEdit19.Enabled:=False;
DBEdit18.BorderStyle:=bsNone;
DBEdit18.Color:=ClScrollBar;
DBEdit18.Enabled:=False;
DateTimePicker6.Enabled:=False;
Table5.FieldByName('使用数').AsInteger:=Table5.FieldByName('本月读数').AsInteger
-Table5.FieldByName('上月读数').AsInteger;
Table5.FieldByName('应收金额').AsFloat:=Table5.FieldByName('使用数').AsInteger
*Table5.FieldByName('收费金额').AsFloat;
Table5.Post;
Exit;
end;
if BitBtn9.Caption='取消读数' then
begin
BitBtn8.Caption:='读数初始化';
BitBtn9.Caption:='填写读数';
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 费用科目,应收金额,实收金额,剩余金额,减免金额 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 费用科目,应收金额,实收金额,剩余金额,减免金额 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='统计指定时间内的[常用费用]信息' then
begin
GroupBox7.Visible:=True;
BitBtn1.Caption:='关闭[常用费用]信息';
end
else
begin
Query4.Close;
GroupBox7.Visible:=False;
BitBtn1.Caption:='统计指定时间内的[常用费用]信息';
end;
end;
procedure TMInsert.BitBtn2Click(Sender: TObject);
begin
if BitBtn2.Caption='统计指定时间内的[其它费用]信息' then
begin
BitBtn2.Caption:='关闭[其它费用]信息';
GroupBox8.Visible:=True;
end
else
begin
Query5.Close;
GroupBox8.Visible:=False;
BitBtn2.Caption:='统计指定时间内的[其它费用]信息';
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.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -