📄 realtye32a.pas
字号:
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);
query.Parameters.ParamByName('s14').Value:=ss;
query.Parameters.ParamByName('s15').Value:=trim(Edit16.text);
query.Parameters.ParamByName('s16').Value:=strtofloat(mainform.StdDou2(Edit17.text));
query.Parameters.ParamByName('s17').Value:='N';
query.Parameters.ParamByName('s18').Value:='1980-01-01';
query.Parameters.ParamByName('s19').Value:='未审核';
query.Parameters.ParamByName('s20').Value:='N';
query.Parameters.ParamByName('s21').Value:='N';
DataModuleADO.ADOConnection1.BeginTrans;
query.execsql;
DataModuleADO.ADOConnection1.CommitTrans;
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;
sDate:=query.fieldbyname('截止日期').Value;
if sDate>datetostr(date) then sState:='合同中'
else sState:='合同过期';
with f_RealtyE32.ListView1.Items.Add do
begin
Caption:=Query.FieldByName('单号').Value;
SubItems.Add(Query.FieldByName('日期').Value);
SubItems.Add(mainform.getName('房间', 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(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);
SubItems.Add(Query.FieldByName('审核人').Value);
end;
end;
query1.close;
query1.free;
query.Close;
query.Free;
if f_RealtyE32.listview1.Items.Count>0 then f_RealtyE32.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:='';
edit15.text:='';
edit16.text:='';
edit17.text:='';
end;
if f_RealtyE32.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+''',房间='''+ss;
s:=s+''',建筑面积='''+edit16.text;
s:=s+''',租金='+edit17.text;
s:=s+' where 单号='''+f_RealtyE32.ListView1.Selected.Caption+'''';
query.SQL.Clear;
query.SQL.Add(s);
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
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;
if query.FieldByName('合同是否终止').Value='Y' then sSTate:='合同终止'
else
begin
sDate:=query.fieldbyname('截止日期').Value;
if sDate>datetostr(date) then sState:='合同中'
else sState:='合同过期';
end;
with f_RealtyE32.ListView1.selected do
begin
Caption:=Query.FieldByName('单号').Value;
SubItems[0]:=Query.FieldByName('日期').Value;
SubItems[1]:=mainform.getName('房间', Query.FieldByName('房间').Value);
SubItems[2]:=s1;
SubItems[3]:=Query.FieldByName('客户').Value;
SubItems[4]:=Query.FieldByName('记租日期').Value;
SubItems[5]:=Query.FieldByName('截止日期').Value;
SubItems[6]:=sState;
SubItems[7]:=Query.FieldByName('单号').Value;
SubItems[8]:=floattostr(d1);
SubItems[9]:=floattostr(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;
SubItems[16]:=Query.FieldByName('审核人').Value;
end;
end;
query1.close;
query1.free;
query.Close;
query.Free;
close;
end;
end;
procedure Tf_RealtyE32A.Button5Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyE32A.Button3Click(Sender: TObject);
var
query,query1:TADOQuery;
s,s1,s2,s3:string;
begin
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
Query1:=TADOQuery.Create(nil);
Query1.Connection:=DataModuleADO.ADOConnection1;
f_RealtyE11:=Tf_RealtyE11.Create(self);
f_RealtyE11.Button10.Visible:=true;
f_RealtyE11.Button5.Enabled:=false;
f_RealtyE11.Button2.Enabled:=false;
f_RealtyE11.Button7.Enabled:=false;
f_RealtyE11.listview1.items.clear;
s:='select * from 房间 where 可租='''+'Y'+''' and 是否已租='''+'N'+'''';
query.SQL.Add(s);
query.Open;
while not query.Eof do
begin
query1.SQL.Clear;
query1.SQL.Add('select * from 管理区 where 编号='''+query.fieldbyname('管理区').Value+'''');
query1.Open;
if query1.RecordCount>0 then s1:=query.fieldbyname('名称').Value;
query1.SQL.Clear;
query1.SQL.Add('select * from 楼宇 where 编号='''+query.fieldbyname('楼宇').Value+'''');
query1.Open;
if query1.RecordCount>0 then s2:=query.fieldbyname('名称').Value;
with f_RealtyE11.listview1.Items.Add do
begin
Caption:=Query.FieldByName('编号').Value;
SubItems.Add(s1);
SubItems.Add(s2);
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);
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;
query.next;
end;
if f_RealtyE11.listview1.Items.Count > 0 then f_RealtyE11.ListView1.Items.Item[0].Selected := True;
f_RealtyE11.ShowModal;
if f_RealtyE11.bOk=true then
begin
edit15.Text:=f_RealtyE11.sNum+'--'+f_RealtyE11.sName;
edit16.Text:=mainform.StdDou2(f_RealtyE11.ListView1.Selected.SubItems[7])
end;
query.Close;
query.Free;
query1.Close;
query1.Free;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -