📄 realtyb12b.pas
字号:
if checkbox2.Checked then s4:='Y' else s4:='N'; //房间以前客户全部迁出
if radiobutton1.Checked then s5:='按金额';
if radiobutton2.Checked then s5:='按日期';
if f_RealtyB33.bMod then
begin
DataModuleADO.ADOConnection1.BeginTrans;
query.SQL.Text:='delete from 入伙登记明细 where 单号='''+f_RealtyB33.listview1.Selected.SubItems[11]+'''';
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
s:='update 入伙登记 set 单号='''+edit12.text;
s:=s+''',房间='''+s10;
s:=s+''',客户='''+edit2.Text;
s:=s+''',入伙日期='''+datetostr(datetimepicker1.date);
s:=s+''',接待人员='''+edit3.Text;
s:=s+''',入伙收费='+edit4.Text;
s:=s+',钥匙发放='''+s1;
s:=s+''',资料发放='''+s2;
s:=s+''',购房合同号='''+edit5.Text;
s:=s+''',收楼书号='''+edit6.Text;
s:=s+''',入伙通知书='''+edit7.Text;
s:=s+''',存放位置='''+edit8.Text;
s:=s+''',产权证号='''+edit9.Text;
s:=s+''',土地证号='''+edit10.Text;
s:=s+''',客户迁入='''+s3;
s:=s+''',房间以前客户全部迁出='''+s4;
s:=s+''',代缴类型='''+s5;
s:=s+''',金额='+edit11.Text;
s:=s+',代缴开始日期='''+datetostr(datetimepicker2.date);
s:=s+''' where 单号='''+f_RealtyB33.listview1.Selected.SubItems[11]+'''';
DataModuleADO.ADOConnection1.BeginTrans;
query.SQL.Text:=s;
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 入伙登记明细 (单号,房间验收项目,验收结果,验收人,验收说明,';
s:=s+'备注)';
s:=s+' values (:s1,:s2,:s3,:s4,:s5,';
s:=s+':s6)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit12.Text;
query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].Caption;
query.Parameters.ParamByName('s3').Value:=listview1.Items.Item[i].SubItems[0];
query.Parameters.ParamByName('s4').Value:=listview1.Items.Item[i].SubItems[1];
query.Parameters.ParamByName('s5').Value:=listview1.Items.Item[i].SubItems[2];
query.Parameters.ParamByName('s6').Value:=listview1.Items.Item[i].SubItems[3];
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
query.SQL.Clear;
Query.SQL.Add('select * from 入伙登记明细 where 单号='''+edit12.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
s1:='-';
s2:='-';
s3:='-';
s4:='-';
s5:='-';
s6:='-';
query1.SQL.Clear;
query1.SQL.Add('select * from 入伙登记 where 单号='''+query.fieldbyname('单号').Value+'''');
query1.Open;
if query1.RecordCount>0 then
begin
s8:=query1.fieldbyname('房间').Value;
s1:=query1.fieldbyname('客户').Value;
s9:=query1.fieldbyname('入伙日期').Value;
s10:=query1.fieldbyname('审核').value;
end;
query1.SQL.Clear;
query1.SQL.Add('select * from 职员 where 名称='''+query.fieldbyname('验收人').value+'''');
query1.Open;
if query1.RecordCount>0 then s7:=query1.fieldbyname('岗位').Value;
query1.SQL.Clear;
query1.SQL.Add('select * from 房间 where 编号='''+s8+'''');
query1.Open;
if query1.RecordCount>0 then
begin
s2:=query1.fieldbyname('名称').Value;
query2.SQL.Clear;
query2.SQL.Add('select * from 楼宇 where 编号='''+query1.fieldbyname('楼宇').Value+'''');
query2.Open;
if query2.RecordCount>0 then s3:=query2.fieldbyname('名称').Value;
query2.SQL.Clear;
query2.SQL.Add('select * from 组织机构 where 编号='''+query1.fieldbyname('管理处').Value+'''');
query2.Open;
if query2.RecordCount>0 then s4:=query2.fieldbyname('名称').Value;
query2.SQL.Clear;
query2.SQL.Add('select * from 管理区 where 编号='''+query1.fieldbyname('管理区').Value+'''');
query2.Open;
if query2.RecordCount>0 then s5:=query2.fieldbyname('名称').Value;
end;
with f_RealtyB33.ListView1.Selected do
begin
Caption:=s4;
SubItems[0]:=s5;
SubItems[1]:=s3;
SubItems[2]:=s8;
SubItems[3]:=s2;
SubItems[4]:=s1;
SubItems[5]:=Query.FieldByName('房间验收项目').Value;
SubItems[6]:=Query.FieldByName('验收结果').Value;
SubItems[7]:=Query.FieldByName('验收说明').Value;
SubItems[8]:=Query.FieldByName('验收人').Value;
SubItems[9]:=s7;
SubItems[10]:=s9;
SubItems[11]:=Query.FieldByName('单号').Value;
SubItems[12]:=s10;
end;
end;
query2.Close;
query2.Free;
query1.Close;
query1.Free;
query.Close;
query.Free;
close;
end
else
begin
query.SQL.Clear;
query.sql.Add('select * from 入伙登记 where 单号='''+edit12.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
showmessage('单号重复!');
edit12.SetFocus;
query.Close;
query.Free;
exit;
end;
//-------------------保存主表
s:='insert into 入伙登记 (单号,房间,客户,入伙日期,接待人员,入伙收费,';
s:=s+'钥匙发放,资料发放,购房合同号,收楼书号,入伙通知书,';
s:=s+'存放位置,产权证号,土地证号,客户迁入,房间以前客户全部迁出,';
s:=s+'代缴类型,金额,代缴开始日期,审核)';
s:=s+'values (:s1,:s2,:s3,:s4,:s5,';
s:=s+':s6,:s7,:s8,:s9,:s10,';
s:=s+':s11,:s12,:s13,:s14,:s15,';
s:=s+':s16,:s17,:s18,:s19,:s20)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit12.Text;
query.Parameters.ParamByName('s2').Value:=s10;
query.Parameters.ParamByName('s3').Value:=edit2.Text;
query.Parameters.ParamByName('s4').Value:=datetostr(datetimepicker1.Date);
query.Parameters.ParamByName('s5').Value:=edit3.Text;
query.Parameters.ParamByName('s6').Value:=strtofloat(mainform.stddou2(edit4.Text));
query.Parameters.ParamByName('s7').Value:=s1;
query.Parameters.ParamByName('s8').Value:=s2;
query.Parameters.ParamByName('s9').Value:=edit5.Text;
query.Parameters.ParamByName('s10').Value:=edit6.Text;
query.Parameters.ParamByName('s11').Value:=edit7.Text;
query.Parameters.ParamByName('s12').Value:=edit8.Text;
query.Parameters.ParamByName('s13').Value:=edit9.Text;
query.Parameters.ParamByName('s14').Value:=edit10.Text;
query.Parameters.ParamByName('s15').Value:=s3;
query.Parameters.ParamByName('s16').Value:=s4;
query.Parameters.ParamByName('s17').Value:=s5;
query.Parameters.ParamByName('s18').Value:=strtofloat(edit11.Text);
query.Parameters.ParamByName('s19').Value:=datetostr(datetimepicker2.Date);
query.Parameters.ParamByName('s20').Value:='N';
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 入伙登记明细 (单号,房间验收项目,验收结果,验收人,验收说明,';
s:=s+'备注)';
s:=s+' values (:s1,:s2,:s3,:s4,:s5,';
s:=s+':s6)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit12.Text;
query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].Caption;
query.Parameters.ParamByName('s3').Value:=listview1.Items.Item[i].SubItems[0];
query.Parameters.ParamByName('s4').Value:=listview1.Items.Item[i].SubItems[1];
query.Parameters.ParamByName('s5').Value:=listview1.Items.Item[i].SubItems[2];
query.Parameters.ParamByName('s6').Value:=listview1.Items.Item[i].SubItems[3];
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
showmessage('保存成功!');
query.SQL.Clear;
Query.SQL.Add('select * from 入伙登记明细 where 单号='''+edit12.Text+'''');
query.Open;
if query.RecordCount>0 then
begin
s1:='-';
s2:='-';
s3:='-';
s4:='-';
s5:='-';
s6:='-';
query1.SQL.Clear;
query1.SQL.Add('select * from 入伙登记 where 单号='''+query.fieldbyname('单号').Value+'''');
query1.Open;
if query1.RecordCount>0 then
begin
s8:=query1.fieldbyname('房间').Value;
s1:=query1.fieldbyname('客户').Value;
s9:=query1.fieldbyname('入伙日期').Value;
s10:=query1.fieldbyname('审核').value;
end;
query1.SQL.Clear;
query1.SQL.Add('select * from 职员 where 名称='''+query.fieldbyname('验收人').value+'''');
query1.Open;
if query1.RecordCount>0 then s7:=query1.fieldbyname('岗位').Value;
query1.SQL.Clear;
query1.SQL.Add('select * from 房间 where 编号='''+s8+'''');
query1.Open;
if query1.RecordCount>0 then
begin
s2:=query1.fieldbyname('名称').Value;
query2.SQL.Clear;
query2.SQL.Add('select * from 楼宇 where 编号='''+query1.fieldbyname('楼宇').Value+'''');
query2.Open;
if query2.RecordCount>0 then s3:=query2.fieldbyname('名称').Value;
query2.SQL.Clear;
query2.SQL.Add('select * from 组织机构 where 编号='''+query1.fieldbyname('管理处').Value+'''');
query2.Open;
if query2.RecordCount>0 then s4:=query2.fieldbyname('名称').Value;
query2.SQL.Clear;
query2.SQL.Add('select * from 管理区 where 编号='''+query1.fieldbyname('管理区').Value+'''');
query2.Open;
if query2.RecordCount>0 then s5:=query2.fieldbyname('名称').Value;
end;
with f_RealtyB33.ListView1.Items.Add do
begin
Caption:=s4;
SubItems.Add(s5);
SubItems.Add(s3);
SubItems.Add(s8);
SubItems.Add(s2);
SubItems.Add(s1);
SubItems.Add(Query.FieldByName('房间验收项目').Value);
SubItems.Add(Query.FieldByName('验收结果').Value);
SubItems.Add(Query.FieldByName('验收说明').Value);
SubItems.Add(Query.FieldByName('验收人').Value);
SubItems.Add(s7);
SubItems.Add(s9);
SubItems.Add(Query.FieldByName('单号').Value);
SubItems.Add(s10);
end;
end;
query2.Close;
query2.Free;
query1.Close;
query1.Free;
query.Close;
query.Free;
if f_RealtyB33.listview1.Items.Count > 0 then f_RealtyB33.ListView1.Items.Item[0].Selected := True;
getID;
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
checkbox1.Checked:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
checkbox4.Checked:=false;
datetimepicker1.Date:=date;
datetimepicker2.Date:=date;
radiobutton1.Checked:=true;
listview1.Items.Clear;
end;
end;
procedure Tf_RealtyB12B.ToolButton5Click(Sender: TObject);
begin
close;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -