?? 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 + -