📄 realtye15a.pas
字号:
if Edit2.Text='' then
begin
showmessage('客户不能为空。');
Edit2.SetFocus;
exit;
end;
if edit6.text='' then edit6.Text:='0.00';
if edit7.text='' then edit7.Text:='-';
if edit8.text='' then edit8.Text:='-';
if edit9.text='' then edit9.Text:='0.00';
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
Query1:=TADOQuery.Create(nil);
Query1.Connection:=DataModuleADO.ADOConnection1;
if f_RealtyE15.bNew=true then
begin
query.SQL.Clear;
Query.SQL.Add('select * from 租赁合同 where 单号='''+Edit1.text+'''');
Query.Open ;
if query.RecordCount>0 then
begin
showmessage('单号重复，请重新输入');
Edit1.SetFocus;
query.Close ;
query.Free ;
exit;
end;
s := 'insert into 租赁合同(单号,客户,日期,记租日期,截止日期,保证金,客户电话,身份证号码,';
s:=s+'保证金额,租赁用途,备注,操作员,修订) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11,:s12,:s13)';
query.sql.Clear ;
query.sql.add(s);
query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
query.Parameters.ParamByName('s2').Value:=Edit2.text;
query.Parameters.ParamByName('s3').Value:=datetostr(Edit3.date);
query.Parameters.ParamByName('s4').Value:=datetostr(Edit4.date);
query.Parameters.ParamByName('s5').Value:=datetostr(Edit5.date);
query.Parameters.ParamByName('s6').Value:=trim(Edit6.text);
query.Parameters.ParamByName('s7').Value:=trim(Edit7.text);
query.Parameters.ParamByName('s8').Value:=trim(Edit8.text);
query.Parameters.ParamByName('s9').Value:=strtofloat(Edit9.text);
query.Parameters.ParamByName('s10').Value:=trim(Edit10.text);
query.Parameters.ParamByName('s11').Value:=trim(Edit11.text);
query.Parameters.ParamByName('s12').Value:=trim(Edit12.text);
query.Parameters.ParamByName('s13').Value:=trim(Edit13.text);
DataModuleADO.ADOConnection1.BeginTrans;
query.execsql;
DataModuleADO.ADOConnection1.CommitTrans;
//保存从表
for i:=0 to listview1.Items.Count-1 do
begin
if listview1.Items.Item[i].Caption='' then listview1.Items.Item[i].Caption:='-';
if listview1.Items.Item[i].SubItems[0]='' then listview1.Items.Item[i].SubItems[0]:='-';
if listview1.Items.Item[i].SubItems[1]='' then listview1.Items.Item[i].SubItems[1]:='-';
if listview1.Items.Item[i].SubItems[2]='' then listview1.Items.Item[i].SubItems[2]:='-';
if listview1.Items.Item[i].SubItems[3]='' then listview1.Items.Item[i].SubItems[3]:='-';
s:='insert into 租赁合同租金(房间,建筑面积,收费项目,收费标准,单价,金额,时间,单位1,';
s:=s+'比例,周期,单位2,开始递增时间,单号) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11,:s12,:s13)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=trim(mainform.getNum(listview1.Items.Item[i].Caption));
query.Parameters.ParamByName('s2').Value:=strtofloat(mainform.stddou2(listview1.Items.Item[i].SubItems[0]));
query.Parameters.ParamByName('s3').Value:=trim(listview1.Items.Item[i].SubItems[1]);
query.Parameters.ParamByName('s4').Value:=trim(listview1.Items.Item[i].SubItems[2]);
query.Parameters.ParamByName('s5').Value:=strtofloat(listview1.Items.Item[i].SubItems[3]);
query.Parameters.ParamByName('s6').Value:=strtofloat(listview1.Items.Item[i].SubItems[4]);
query.Parameters.ParamByName('s7').Value:=trim(listview1.Items.Item[i].SubItems[5]);
query.Parameters.ParamByName('s8').Value:=trim(listview1.Items.Item[i].SubItems[6]);
query.Parameters.ParamByName('s9').Value:=trim(listview1.Items.Item[i].SubItems[7]);
query.Parameters.ParamByName('s10').Value:=trim(listview1.Items.Item[i].SubItems[8]);
query.Parameters.ParamByName('s11').Value:=(listview1.Items.Item[i].SubItems[9]);
query.Parameters.ParamByName('s12').Value:=(listview1.Items.Item[i].SubItems[10]);
query.Parameters.ParamByName('s13').Value:=trim(edit1.Text);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
for i:=0 to listview2.Items.Count-1 do
begin
s:='insert into 租赁合同收费(收费项目,收费金额,单号) values(:s1,:s2,:s3)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=trim(listview2.Items.Item[i].Caption);
query.Parameters.ParamByName('s2').Value:=strtofloat(mainform.stddou2(listview2.Items.Item[i].SubItems[0]));
query.Parameters.ParamByName('s3').Value:=trim(edit1.Text);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
showmessage('保存成功。');
query.SQL.Clear;
query.SQL.Add('select * from 租赁合同 where 单号='''+edit1.Text+'''');
Query.Open ;
if query.recordcount>0 then
begin
s1:='-';
d1:=0.00;
query1.SQL.Clear;
query1.SQL.Add('select * from 客户资料 where 客户名称='''+query.fieldbyname('客户').Value+'''');
query1.Open;
if query1.RecordCount>0 then s1:=query1.fieldbyname('客户代码').Value;
query1.SQL.Clear;
query1.SQL.Add('select * from 租赁合同收费 where 单号='''+query.fieldbyname('单号').Value+'''');
query1.Open;
while not query1.Eof do
begin
d1:=d1+strtofloat(query1.fieldbyname('收费金额').Value);
query1.Next;
end;
sDate:=query.fieldbyname('截止日期').Value;
if (sDate<datetostr(date)) then sState:='合同中'
else sState:='合同过期';
with f_RealtyE15.ListView1.Items.Add do
begin
Caption:=Query.FieldByName('单号').Value;
SubItems.Add(Query.FieldByName('日期').Value);
SubItems.Add(s1);
SubItems.Add(Query.FieldByName('客户').Value);
SubItems.Add(Query.FieldByName('记租日期').Value);
SubItems.Add(Query.FieldByName('截止日期').Value);
SubItems.Add(sState);
SubItems.Add(Query.FieldByName('单号').Value);
SubItems.Add(floattostr(d1));
SubItems.Add(floattostr(Query.FieldByName('保证金额').Value));
SubItems.Add(Query.FieldByName('操作员').Value);
SubItems.Add(Query.FieldByName('修订').Value);
SubItems.Add(Query.FieldByName('租赁用途').Value);
SubItems.Add(Query.FieldByName('备注').Value);
SubItems.Add(Query.FieldByName('审核').Value);
SubItems.Add(Query.FieldByName('审核日期').Value);
SubItems.Add(Query.FieldByName('审核人').Value);
end;
end;
query1.close;
query1.free;
query.Close;
query.Free;
if f_RealtyE15.listview1.Items.Count>0 then f_RealtyE15.listview1.Items.Item[0].Selected:=true;
//清空，新增
getId;
edit2.Text:='';
edit3.date:=date;
edit4.date:=date;
edit5.date:=date;
edit6.text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
edit12.Text:=czy;
edit13.Text:='';
edit14.Text:='';
listview1.Items.Clear;
listview2.Items.Clear;
end;
if f_RealtyE15.bNew=false then
begin
s:='update 租赁合同 set 单号='''+edit1.text;
s:=s+''',客户='''+edit2.text;
s:=s+''',日期='''+datetostr(edit3.date);
s:=s+''',记租日期='''+datetostr(edit4.date);
s:=s+''',截止日期='''+datetostr(edit5.date);
s:=s+''',保证金='''+edit6.text;
s:=s+''',客户电话='''+edit7.text;
s:=s+''',身份证号码='''+edit8.text;
s:=s+''',保证金额='+edit9.text;
s:=s+',租赁用途='''+edit10.text;
s:=s+''',备注='''+edit11.text;
s:=s+''',修订='''+edit13.text;
s:=s+''' where 单号='''+f_RealtyE15.ListView1.Selected.Caption+'''';
query.SQL.Clear;
query.SQL.Add(s);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
// 二删除从表再重新保存从表
DataModuleADO.ADOConnection1.BeginTrans;
query.sql.clear;
Query.SQL.Text:='delete from 租赁合同租金 where 单号='''+f_RealtyE15.listview1.Selected.caption+'''';
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
DataModuleADO.ADOConnection1.BeginTrans;
query.sql.clear;
Query.SQL.Text:='delete from 租赁合同收费 where 单号='''+f_RealtyE15.listview1.Selected.caption+'''';
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
//保存从表
for i:=0 to listview1.Items.Count-1 do
begin
s:='insert into 租赁合同租金(房间,建筑面积,收费项目,收费标准,单价,金额,时间,单位1,';
s:=s+'比例,周期,单位2,开始递增时间,单号) values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10,:s11,:s12,:s13)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=trim(listview1.Items.Item[i].Caption);
query.Parameters.ParamByName('s2').Value:=trim(listview1.Items.Item[i].SubItems[0]);
query.Parameters.ParamByName('s3').Value:=trim(listview1.Items.Item[i].SubItems[1]);
query.Parameters.ParamByName('s4').Value:=trim(listview1.Items.Item[i].SubItems[2]);
query.Parameters.ParamByName('s5').Value:=trim(listview1.Items.Item[i].SubItems[3]);
query.Parameters.ParamByName('s6').Value:=trim(listview1.Items.Item[i].SubItems[4]);
query.Parameters.ParamByName('s7').Value:=strtofloat(mainform.stddou2(listview1.Items.Item[i].SubItems[5]));
query.Parameters.ParamByName('s8').Value:=strtofloat(mainform.stddou2(listview1.Items.Item[i].SubItems[6]));
query.Parameters.ParamByName('s9').Value:=trim(listview1.Items.Item[i].SubItems[7]);
query.Parameters.ParamByName('s10').Value:=trim(listview1.Items.Item[i].SubItems[8]);
query.Parameters.ParamByName('s11').Value:=strtofloat(mainform.stddou2(listview1.Items.Item[i].SubItems[9]));
query.Parameters.ParamByName('s12').Value:=strtofloat(mainform.stddou2(listview1.Items.Item[i].SubItems[10]));
query.Parameters.ParamByName('s13').Value:=trim(edit1.Text);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
for i:=0 to listview2.Items.Count-1 do
begin
s:='insert into 租赁合同收费(收费项目,收费金额,单号) values(:s1,:s2,:s3)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=trim(listview2.Items.Item[i].Caption);
query.Parameters.ParamByName('s2').Value:=strtofloat(mainform.stddou2(listview2.Items.Item[i].SubItems[0]));
query.Parameters.ParamByName('s3').Value:=trim(edit1.Text);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
query.sql.clear;
query.SQL.Add('select * from 租赁合同 where 单号='''+edit1.Text+'''');
Query.Open ;
if query.recordcount>0 then
begin
s1:='-';
d1:=0.00;
query1.SQL.Clear;
query1.SQL.Add('select * from 客户资料 where 客户名称='''+query.fieldbyname('客户').Value+'''');
query1.Open;
if query1.RecordCount>0 then s1:=query1.fieldbyname('客户代码').Value;
query1.SQL.Clear;
query1.SQL.Add('select * from 租赁合同收费 where 单号='''+query.fieldbyname('单号').Value+'''');
query1.Open;
while not query1.Eof do
begin
d1:=d1+strtofloat(query1.fieldbyname('收费金额').Value);
query1.Next;
end;
sDate:=query.fieldbyname('截止日期').Value;
if (sDate<datetostr(date)) then sState:='合同中'
else sState:='合同过期';
with f_RealtyE15.ListView1.selected do
begin
Caption:=Query.FieldByName('单号').Value;
SubItems[0]:=Query.FieldByName('日期').Value;
SubItems[1]:=s1;
SubItems[2]:=Query.FieldByName('客户').Value;
SubItems[3]:=Query.FieldByName('记租日期').Value;
SubItems[4]:=Query.FieldByName('截止日期').Value;
SubItems[5]:=sState;
SubItems[6]:=Query.FieldByName('单号').Value;
SubItems[7]:=floattostr(d1);
SubItems[8]:=floattostr(Query.FieldByName('保证金额').Value);
SubItems[9]:=Query.FieldByName('操作员').Value;
SubItems[10]:=Query.FieldByName('修订').Value;
SubItems[11]:=Query.FieldByName('租赁用途').Value;
SubItems[12]:=Query.FieldByName('备注').Value;
SubItems[13]:=Query.FieldByName('审核').Value;
SubItems[14]:=Query.FieldByName('审核日期').Value;
SubItems[15]:=Query.FieldByName('审核人').Value;
end;
end;
query1.close;
query1.free;
query.Close;
query.Free;
close;
end;
end;
procedure Tf_RealtyE15A.Button5Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyE15A.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action := caFree;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -