|
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;
type
TForm2 = class(TForm)
ADOConnection1: TADOConnection;
ADOQuery_select: TADOQuery;
ADOQuery_yezhu_insert: TADOQuery;
Button1: TButton;
ADOQuery_insert: TADOQuery;
ADOQuery_dengjicx: TADOQuery;
ADOQuery_kehucx: TADOQuery;
ADOQuery_cx: TADOQuery;
ADOQuery_insert_kehudengji: TADOQuery;
ADOQuery_yezhutianjia: TADOQuery;
ADOQuery_insert_xiaoshoujibenyixiang: TADOQuery;
ADOQuery_insert_xiaoshoushoukuan: TADOQuery;
ADOQuery_temp: TADOQuery;
ADOQuery_ruzhu_insert: TADOQuery;
Button2: TButton;
ADOQuery_select_daikuan: TADOQuery;
ADOQuery_update_daikuan: TADOQuery;
Button3: TButton;
procedure Button1Click(Sender: TObject);
Procedure tianjiafangyuan(Sender: TObject); //添加房源
Procedure tianjiaxiaoshoujibenyixiang(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject); //添加销售基本意向
private
kehubianhao:string;
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
var py: array[216..247] of string = (
{216}'CJWGNSPGCGNESYPB' + 'TYYZDXYKYGTDJNMJ' + 'QMBSGZSCYJSYYZPG' +
{216}'KBZGYCYWYKGKLJSW' + 'KPJQHYZWDDZLSGMR' + 'YPYWWCCKZNKYDG',
{217}'TTNJJEYKKZYTCJNM' + 'CYLQLYPYQFQRPZSL' + 'WBTGKJFYXJWZLTBN' +
{217}'CXJJJJZXDTTSQZYC' + 'DXXHGCKBPHFFSSYY' + 'BGMXLPBYLLLHLX',
{218}'SPZMYJHSOJNGHDZQ' + 'YKLGJHXGQZHXQGKE' + 'ZZWYSCSCJXYEYXAD' +
{218}'ZPMDSSMZJZQJYZCD' + 'JEWQJBDZBXGZNZCP' + 'WHKXHQKMWFBPBY',
{219}'DTJZZKQHYLYGXFPT' + 'YJYYZPSZLFCHMQSH' + 'GMXXSXJJSDCSBBQB' +
{219}'EFSJYHXWGZKPYLQB' + 'GLDLCCTNMAYDDKSS' + 'NGYCSGXLYZAYBN',
{220}'PTSDKDYLHGYMYLCX' + 'PYCJNDQJWXQXFYYF' + 'JLEJBZRXCCQWQQSB' +
{220}'ZKYMGPLBMJRQCFLN' + 'YMYQMSQYRBCJTHZT' + 'QFRXQHXMJJCJLX',
{221}'QGJMSHZKBSWYEMYL' + 'TXFSYDSGLYCJQXSJ' + 'NQBSCTYHBFTDCYZD' +
{221}'JWYGHQFRXWCKQKXE' + 'BPTLPXJZSRMEBWHJ' + 'LBJSLYYSMDXLCL',
{222}'QKXLHXJRZJMFQHXH' + 'WYWSBHTRXXGLHQHF' + 'NMCYKLDYXZPWLGGS' +
{222}'MTCFPAJJZYLJTYAN' + 'JGBJPLQGDZYQYAXB' + 'KYSECJSZNSLYZH',
{223}'ZXLZCGHPXZHZNYTD' + 'SBCJKDLZAYFMYDLE' + 'BBGQYZKXGLDNDNYS' +
{223}'KJSHDLYXBCGHXYPK' + 'DQMMZNGMMCLGWZSZ' + 'XZJFZNMLZZTHCS',
{224}'YDBDLLSCDDNLKJYK' + 'JSYCJLKOHQASDKNH' + 'CSGANHDAASHTCPLC' +
{224}'PQYBSDMPJLPCJOQL' + 'CDHJJYSPRCHNKNNL' + 'HLYYQYHWZPTCZG',
{225}'WWMZFFJQQQQYXACL' + 'BHKDJXDGMMYDJXZL' + 'LSYGXGKJRYWZWYCL' +
{225}'ZMSSJZLDBYDCPCXY' + 'HLXCHYZJQSQQAGMN' + 'YXPFRKSSBJLYXY',
{226}'SYGLNSCMHCWWMNZJ' + 'JLXXHCHSYD CTXRY' + 'CYXBYHCSMXJSZNPW' +
{226}'GPXXTAYBGAJCXLYS' + 'DCCWZOCWKCCSBNHC' + 'PDYZNFCYYTYCKX',
{227}'KYBSQKKYTQQXFCWC' + 'HCYKELZQBSQYJQCC' + 'LMTHSYWHMKTLKJLY' +
{227}'CXWHEQQHTQHZPQSQ' + 'SCFYMMDMGBWHWLGS' + 'LLYSDLMLXPTHMJ',
{228}'HWLJZYHZJXHTXJLH' + 'XRSWLWZJCBXMHZQX' + 'SDZPMGFCSGLSXYMJ' +
{228}'SHXPJXWMYQKSMYPL' + 'RTHBXFTPMHYXLCHL' + 'HLZYLXGSSSSTCL',
{229}'SLDCLRPBHZHXYYFH' + 'BBGDMYCNQQWLQHJJ' + 'ZYWJZYEJJDHPBLQX' +
{229}'TQKWHLCHQXAGTLXL' + 'JXMSLXHTZKZJECXJ' + 'CJNMFBYCSFYWYB',
{230}'JZGNYSDZSQYRSLJP' + 'CLPWXSDWEJBJCBCN' + 'AYTWGMPABCLYQPCL' +
{230}'ZXSBNMSGGFNZJJBZ' + 'SFZYNDXHPLQKZCZW' + 'ALSBCCJXJYZHWK',
{231}'YPSGXFZFCDKHJGXD' + 'LQFSGDSLQWZKXTMH' + 'SBGZMJZRGLYJBPML' +
{231}'MSXLZJQQHZSJCZYD' + 'JWBMJKLDDPMJEGXY' + 'HYLXHLQYQHKYCW',
{232}'CJMYYXNATJHYCCXZ' + 'PCQLBZWWYTWBQCML' + 'PMYRJCCCXFPZNZZL' +
{232}'JPLXXYZTZLGDLDCK' + 'LYRLZGQTGJHHGJLJ' + 'AXFGFJZSLCFDQZ',
{233}'LCLGJDJCSNCLLJPJ' + 'QDCCLCJXMYZFTSXG' + 'CGSBRZXJQQCTZHGY' +
{233}'QTJQQLZXJYLYLBCY' + 'AMCSTYLPDJBYREGK' + 'JZYZHLYSZQLZNW',
{234}'CZCLLWJQJJJKDGJZ' + 'OLBBZPPGLGHTGZXY' + 'GHZMYCNQSYCYHBHG' +
{234}'XKAMTXYXNBSKYZZG' + 'JZLQJDFCJXDYGJQJ' + 'JPMGWGJJJPKQSB',
{235}'GBMMCJSSCLPQPDXC' + 'DYYKYWCJDDYYGYWR' + 'HJRTGZNYQLDKLJSZ' +
{235}'ZGZQZJGDYKSHPZMT' + 'LCPWNJAFYZDJCNMW' + 'ESCYGLBTZCGMSS',
{236}'LLYXQSXSBSJSBBGG' + 'GHFJLYPMZJNLYYWD' + 'QSHZXTYYWHMCYHYW' +
{236}'DBXBTLMSYYYFSXJC' + 'SDXXLHJHF SXZQHF' + 'ZMZCZTQCXZXRTT',
{237}'DJHNNYZQQMNQDMMG' + 'LYDXMJGDHCDYZBFF' + 'ALLZTDLTFXMXQZDN' +
{237}'GWQDBDCZJDXBZGSQ' + 'QDDJCMBKZFFXMKDM' + 'DSYYSZCMLJDSYN',
{238}'SPRSKMKMPCKLGDBQ' + 'TFZSWTFGGLYPLLJZ' + 'HGJJGYPZLTCSMCNB' +
{238}'TJBQFKTHBYZGKPBB' + 'YMTDSSXTBNPDKLEY' + 'CJNYCDYKZDDHQH',
{239}'SDZSCTARLLTKZLGE' + 'CLLKJLQJAQNBDKKG' + 'HPJTZQKSECSHALQF' +
{239}'MMGJNLYJBBTMLYZX' + 'DCJPLDLPCQDHZYCB' + 'ZSCZBZMSLJFLKR',
{240}'ZJSNFRGJHXPDHYJY' + 'BZGDLJCSEZGXLBLH' + 'YXTWMABCHECMWYJY' +
{240}'ZLLJJYHLGBDJLSLY' + 'GKDZPZXJYYZLWCXS' + 'ZFGWYYDLYHCLJS',
{241}'CMBJHBLYZLYCBLYD' + 'PDQYSXQZBYTDKYYJ' + 'YYCNRJMPDJGKLCLJ' +
{241}'BCTBJDDBBLBLCZQR' + 'PPXJCGLZCSHLTOLJ' + 'NMDDDLNGKAQHQH',
{242}'JHYKHEZNMSHRP QQ' + 'JCHGMFPRXHJGDYCH' + 'GHLYRZQLCYQJNZSQ' +
{242}'TKQJYMSZSWLCFQQQ' + 'XYFGGYPTQWLMCRNF' + 'KKFSYYLQBMQAMM',
{243}'MYXCTPSHCPTXXZZS' + 'MPHPSHMCLMLDQFYQ' + 'XSZYJDJJZZHQPDSZ' +
{243}'GLSTJBCKBXYQZJSG' + 'PSXQZQZRQTBDKYXZ' + 'KHHGFLBCSMDLDG',
{244}'DZDBLZYYCXNNCSYB' + 'ZBFGLZZXSWMSCCMQ' + 'NJQSBDQSJTXXMBLT' +
{244}'XZCLZSHZCXRQJGJY' + 'LXZFJPHYXZQQYDFQ' + 'JJLZZNZJCDGZYG',
{245}'CTXMZYSCTLKPHTXH' + 'TLBJXJLXSCDQXCBB' + 'TJFQZFSLTJBTKQBX' +
{245}'XJJLJCHCZDBZJDCZ' + 'JDCPRNPQCJPFCZLC' + 'LZXBDMXMPHJSGZ',
{246}'GSZZQLYLWTJPFSYA' + 'SMCJBTZYYCWMYTCS' + 'JJLQCQLWZMALBXYF' +
{246}'BPNLSFHTGJWEJJXX' + 'GLLJSTGSHJQLZFKC' + 'GNNDSZFDEQFHBS',
{247}'AQTGYLBXMMYGSZLD' + 'YDQMJJRGBJTKGDHG' + 'KBLQKBDMBYLXWCXY' +
{247}'TTYBKMRTJZXQJBHL' + 'MHMJJZMQASLDCYXY' + 'QDLQCAFYWYXQHZ'
);
function ChnPy(Value: array of char): Char;
begin
Result := #0;
case Byte(Value[0]) of
176:
case Byte(Value[1]) of
161..196: Result := 'A';
197..254: Result := 'B';
end; {case}
177:
Result := 'B';
178:
case Byte(Value[1]) of
161..192: Result := 'B';
193..205: Result := 'C';
206: Result := 'S'; //参
207..254: Result := 'C';
end; {case}
179:
Result := 'C';
180:
case Byte(Value[1]) of
161..237: Result := 'C';
238..254: Result := 'D';
end; {case}
181:
Result := 'D';
182:
case Byte(Value[1]) of
161..233: Result := 'D';
234..254: Result := 'E';
end; {case}
183:
case Byte(Value[1]) of
161: Result := 'E';
162..254: Result := 'F';
end; {case}
184:
case Byte(Value[1]) of
161..192: Result := 'F';
193..254: Result := 'G';
end; {case}
185:
case Byte(Value[1]) of
161..253: Result := 'G';
254: Result := 'H';
end; {case}
186:
Result := 'H';
187:
case Byte(Value[1]) of
161..246: Result := 'H';
247..254: Result := 'J';
end; {case}
188..190:
Result := 'J';
191:
case Byte(Value[1]) of
161..165: Result := 'J';
166..254: Result := 'K';
end; {case}
192:
case Byte(Value[1]) of
161..171: Result := 'K';
172..254: Result := 'L';
end; {case}
193:
Result := 'L';
194:
case Byte(Value[1]) of
161..231: Result := 'L';
232..254: Result := 'M';
end; {case}
195:
Result := 'M';
196:
case Byte(Value[1]) of
161..194: Result := 'M';
195..254: Result := 'N';
end; {case}
197:
case Byte(Value[1]) of
161..181: Result := 'N';
182..189: Result := 'O';
190..254: Result := 'P';
end; {case}
198:
case Byte(Value[1]) of
161..217: Result := 'P';
218..254: Result := 'Q';
end; {case}
199:
Result := 'Q';
200:
case Byte(Value[1]) of
161..186: Result := 'Q';
187..245: Result := 'R';
246..254: Result := 'S';
end; {case}
201..202:
Result := 'S';
203:
case Byte(Value[1]) of
161..249: Result := 'S';
250..254: Result := 'T';
end; {case}
204:
Result := 'T';
205:
case Byte(Value[1]) of
161..217: Result := 'T';
218..254: Result := 'W';
end; {case}
206:
case Byte(Value[1]) of
161..243: Result := 'W';
244..254: Result := 'X';
end; {case}
207..208:
Result := 'X';
209:
case Byte(Value[1]) of
161..184: Result := 'X';
185..254: Result := 'Y';
end; {case}
210..211:
Result := 'Y';
212:
case Byte(Value[1]) of
161..208: Result := 'Y';
209..254: Result := 'Z';
end; {case}
213..215:
Result := 'Z';
216..247:
Result := py[Byte(Value[0])][Byte(Value[1]) - 160];
end; {case}
end;
function ChnToPY(Value: string): string;
var
I, L: Integer;
C: array[0..1] of char;
R: Char;
begin
Result := '';
L := Length(Value);
I := 1;
while I <= (L - 1) do
begin
if Value[I] < #160 then
begin
Result := Result + Value[I];
Inc(I);
end
else
begin
C[0] := Value[I];
C[1] := Value[I + 1];
R := ChnPY(C);
if r <> #0 then
Result := Result + R;
Inc(I, 2);
end;
end;
if I = L then
Result := Result + Value[L];
end;
procedure TForm2.Button1Click(Sender: TObject);
var
i:integer;
label
first_start;
begin
with ADOQuery_Select do
begin
Close;
SQL.Clear;
//SQL.Add('select * from [00台账] WHERE 付款方式 = ''按揭'' ');
SQL.Add('select * from [00台账] order by id');
Open;
end;
if ADOQuery_Select.RecordCount>0 then
begin
with ADOQuery_Select do
begin
ADOQuery_Select.First;
for i:=1 to ADOQuery_Select.RecordCount do
begin
first_start:
//添加房源信息
tianjiafangyuan(Sender);
if (Trim(ADOQuery_Select.FieldValues['状态'])='售出') or (Trim(ADOQuery_Select.FieldValues['状态'])='抵账') then
begin
//添加成交客户登记
//根据客户名称与电话号码查询客户登记中是否有该客户信息
with ADOQuery_kehucx do
begin
Close;
SQL.Clear;
SQL.Add('select * from S_kehudengji where kehumingcheng=:kehumingcheng and dianhua=:dianhua');
Parameters.ParamByName('kehumingcheng').Value:=Trim(ADOQuery_Select.FieldValues['姓名']);
if ADOQuery_Select.FieldValues['联系方式']=null then
begin
Parameters.ParamByName('dianhua').Value:='';
end
else
begin
Parameters.ParamByName('dianhua').Value:=Trim(ADOQuery_Select.FieldValues['联系方式']);
end;
Open;
end;
//如果不存在该客户信息，添加该客户信息
if ADOQuery_kehucx.RecordCount<1 then
begin
with ADOQuery_cx do
begin
Close;
SQL.Clear;
SQL.Add('select max(kehubianhao) as maxcard from s_kehudengji');
Open;
end;
if ADOQuery_cx.FieldValues['maxcard']=null then
begin
kehubianhao:='000001';
end
else
begin
kehubianhao:=Format('%.6d', [strtoint(Trim(ADOQuery_cx.FieldValues['maxcard']))+1]);
end;
with ADOQuery_insert_kehudengji do
begin
Close;
Parameters.ParamByName('zhuangtai').Value:='成交';
Parameters.ParamByName('kehubianhao').Value:=Trim(kehubianhao);
Parameters.ParamByName('kehumingcheng').Value:=Trim(ADOQuery_Select.FieldValues['姓名']);
Parameters.ParamByName('pinyinma').Value:=ChnToPY(Trim(ADOQuery_Select.FieldValues['姓名']));
if ADOQuery_Select.FieldValues['性别']=null then
begin
Parameters.ParamByName('xingbie').Value:='';
end
else
begin
Parameters.ParamByName('xingbie').Value:=Trim(ADOQuery_Select.FieldValues['性别']);
end;
if ADOQuery_Select.FieldValues['身份证号']=null then
begin
Parameters.ParamByName('zhengjianhao').Value:='';
end
else
begin
Parameters.ParamByName('zhengjianhao').Value:=Trim(ADOQuery_Select.FieldValues['身份证号']);
end;
if ADOQuery_Select.FieldValues['联系方式']=null then
begin
Parameters.ParamByName('dianhua').Value:='';
end
else
begin
Parameters.ParamByName('dianhua').Value:=Trim(ADOQuery_Select.FieldValues['联系方式']);
end;
Parameters.ParamByName('shouji').Value:='';
Parameters.ParamByName('youbian').Value:='';
if ADOQuery_Select.FieldValues['居住地']=null then
begin
Parameters.ParamByName('tongxundizhi').Value:='';
end
else
begin
Parameters.ParamByName('tongxundizhi').Value:=Trim(ADOQuery_Select.FieldValues['居住地']);
end;
Parameters.ParamByName('guishuloupan').Value:='御海龙湾小区';
if ADOQuery_Select.FieldValues['置业顾问']=null then
begin
Parameters.ParamByName('yewuyuan').Value:='';
end
else
begin
Parameters.ParamByName('yewuyuan').Value:=Trim(ADOQuery_Select.FieldValues['置业顾问']);
end;
Parameters.ParamByName('czy').Value:='001';
ExecSQL();
end;
//添加物业业主信息 W_yezhuxinxi
with ADOQuery_yezhutianjia do
begin
Close;
SQL.Clear;
SQL.Add('insert into W_yezhuxinxi (loupan,donghao,fangjianhao,xingming,shifouyezhu,zhengjianhaoma,xingbie,dianhua,shoujihao,czy) '+
'values(:loupan,:donghao,:fangjianhao,:xingming,:shifouyezhu,:zhengjianhaoma,:xingbie,:dianhua,:shoujihao,:czy) ');
Parameters.ParamByName('loupan').Value:='御海龙湾小区';
if (Trim(ADOQuery_Select.FieldValues['楼栋'])='写字楼') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='门市') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车库') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车位') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='商铺') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='社区用房') then
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋']);
end
else
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋'])+'#'; end;
Parameters.ParamByName('fangjianhao').Value:=Trim(ADOQuery_Select.FieldValues['代号']);
Parameters.ParamByName('xingming').Value:=Trim(ADOQuery_Select.FieldValues['姓名']);
Parameters.ParamByName('shifouyezhu').Value:='是';
if ADOQuery_Select.FieldValues['身份证号']=null then
begin
Parameters.ParamByName('zhengjianhaoma').Value:='';
end
else
begin
Parameters.ParamByName('zhengjianhaoma').Value:=Trim(ADOQuery_Select.FieldValues['身份证号']);
end;
if ADOQuery_Select.FieldValues['性别']=null then
begin
Parameters.ParamByName('xingbie').Value:='';
end
else
begin
Parameters.ParamByName('xingbie').Value:=Trim(ADOQuery_Select.FieldValues['性别']);
end;
if ADOQuery_Select.FieldValues['联系方式']=null then
begin
Parameters.ParamByName('dianhua').Value:='';
end
else
begin
Parameters.ParamByName('dianhua').Value:=Trim(ADOQuery_Select.FieldValues['联系方式']);
end;
Parameters.ParamByName('shoujihao').Value:='';
Parameters.ParamByName('czy').Value:='001';
ExecSQL;
end;
//添加入住登记信息
if ADOQuery_Select.FieldValues['入住时间']<>null then
begin
with ADOQuery_ruzhu_insert do
begin
Close;
Parameters.ParamByName('loupan').Value:='御海龙湾小区';
if (Trim(ADOQuery_Select.FieldValues['楼栋'])='写字楼') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='门市') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车库') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车位') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='商铺') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='社区用房') then
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋']);
end
else
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋'])+'#';
end;
Parameters.ParamByName('fangjianhao').Value:=Trim(ADOQuery_Select.FieldValues['代号']);
Parameters.ParamByName('banliren').Value:='001';
if ADOQuery_Select.FieldValues['联系方式']=null then
begin
Parameters.ParamByName('dianhua').Value:='';
end
else
begin
Parameters.ParamByName('dianhua').Value:=Trim(ADOQuery_Select.FieldValues['联系方式']);
end;
Parameters.ParamByName('tuoshouyinhang').Value:='';
Parameters.ParamByName('yinhangzhanghao').Value:='';
Parameters.ParamByName('hetonghao').Value:='';
Parameters.ParamByName('shouloushuhao').Value:='';
Parameters.ParamByName('ruzhutongzhishu').Value:='';
Parameters.ParamByName('cunfangweizhi').Value:='';
Parameters.ParamByName('chanquanzhenghao').Value:='';
Parameters.ParamByName('tudizhenghao').Value:='';
if ADOQuery_Select.FieldValues['入住时间']=null then
begin
Parameters.ParamByName('ruzhuriqi').Value:='';
end
else
begin
Parameters.ParamByName('ruzhuriqi').Value:=Trim(ADOQuery_Select.FieldValues['入住时间']);
end;
if ADOQuery_Select.FieldValues['起征月日']=null then
begin
Parameters.ParamByName('qiyue').Value:='';
Parameters.ParamByName('qiri').Value:='';
end
else
begin
Parameters.ParamByName('qiyue').Value:=copy(Trim(ADOQuery_Select.FieldValues['起征月日']),1,pos('-',Trim(ADOQuery_Select.FieldValues['起征月日']))-1);
Parameters.ParamByName('qiri').Value:=copy(Trim(ADOQuery_Select.FieldValues['起征月日']),pos('-',Trim(ADOQuery_Select.FieldValues['起征月日']))+1,length(Trim(ADOQuery_Select.FieldValues['起征月日']))-pos('-',Trim(ADOQuery_Select.FieldValues['起征月日'])));
end;
if ADOQuery_Select.FieldValues['止付月日']=null then
begin
Parameters.ParamByName('zhiyue').Value:='';
Parameters.ParamByName('zhiri').Value:='';
end
else
begin
Parameters.ParamByName('zhiyue').Value:=copy(Trim(ADOQuery_Select.FieldValues['止付月日']),1,pos('-',Trim(ADOQuery_Select.FieldValues['止付月日']))-1);
Parameters.ParamByName('zhiri').Value:=copy(Trim(ADOQuery_Select.FieldValues['止付月日']),pos('-',Trim(ADOQuery_Select.FieldValues['止付月日']))+1,length(Trim(ADOQuery_Select.FieldValues['止付月日']))-pos('-',Trim(ADOQuery_Select.FieldValues['止付月日'])));
end;
Parameters.ParamByName('jiedairen').Value:='';
Parameters.ParamByName('beizhu').Value:='';
Parameters.ParamByName('ziliaofafang').Value:='是';
Parameters.ParamByName('yaoshifafang').Value:='是';
Parameters.ParamByName('czy').Value:='001';
ExecSQL();
//更新房源资料入住信息
with ADOQuery_temp do
begin
Close;
SQL.Clear;
SQL.Add('update S_fangyuanxinxi set fangchanzhuangtai=:fangchanzhuangtai '+
'where loupanmingcheng=:loupan and donghao=:donghao and fangjianhao=:fangjianhao');
Parameters.ParamByName('fangchanzhuangtai').Value:='入住';
Parameters.ParamByName('loupan').Value:='御海龙湾小区';
if (Trim(ADOQuery_Select.FieldValues['楼栋'])='写字楼') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='门市') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车库') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车位') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='商铺') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='社区用房') then
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋']);
end
else
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋'])+'#';
end;
Parameters.ParamByName('fangjianhao').Value:=Trim(ADOQuery_Select.FieldValues['代号']);
ExecSQL();
end;
end;
end;
end;
//已存在客户信息
if ADOQuery_kehucx.RecordCount>0 then
begin
kehubianhao:=Trim(ADOQuery_kehucx.FieldValues['kehubianhao']);
//添加物业业主信息 W_yezhuxinxi
with ADOQuery_yezhutianjia do
begin
Close;
SQL.Clear;
SQL.Add('insert into W_yezhuxinxi (loupan,donghao,fangjianhao,xingming,shifouyezhu,zhengjianhaoma,xingbie,dianhua,shoujihao,czy) '+
'values(:loupan,:donghao,:fangjianhao,:xingming,:shifouyezhu,:zhengjianhaoma,:xingbie,:dianhua,:shoujihao,:czy) ');
Parameters.ParamByName('loupan').Value:='御海龙湾小区';
if (Trim(ADOQuery_Select.FieldValues['楼栋'])='写字楼') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='门市') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车库') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车位') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='商铺') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='社区用房') then
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋']);
end
else
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋'])+'#';
end;
Parameters.ParamByName('fangjianhao').Value:=Trim(ADOQuery_Select.FieldValues['代号']);
Parameters.ParamByName('xingming').Value:=Trim(ADOQuery_Select.FieldValues['姓名']);
Parameters.ParamByName('shifouyezhu').Value:='是';
if ADOQuery_Select.FieldValues['身份证号']=null then
begin
Parameters.ParamByName('zhengjianhaoma').Value:='';
end
else
begin
Parameters.ParamByName('zhengjianhaoma').Value:=Trim(ADOQuery_Select.FieldValues['身份证号']);
end;
if ADOQuery_Select.FieldValues['性别']=null then
begin
Parameters.ParamByName('xingbie').Value:='';
end
else
begin
Parameters.ParamByName('xingbie').Value:=Trim(ADOQuery_Select.FieldValues['性别']);
end;
if ADOQuery_Select.FieldValues['联系方式']=null then
begin
Parameters.ParamByName('dianhua').Value:='';
end
else
begin
Parameters.ParamByName('dianhua').Value:=Trim(ADOQuery_Select.FieldValues['联系方式']);
end;
Parameters.ParamByName('shoujihao').Value:='';
Parameters.ParamByName('czy').Value:='001';
ExecSQL;
end;
//添加入住登记信息
if ADOQuery_Select.FieldValues['入住时间']<>null then
begin
with ADOQuery_ruzhu_insert do
begin
Close;
Parameters.ParamByName('loupan').Value:='御海龙湾小区';
if (Trim(ADOQuery_Select.FieldValues['楼栋'])='写字楼') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='门市') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车库') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车位') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='商铺') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='社区用房') then
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋']);
end
else
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋'])+'#';
end;
Parameters.ParamByName('fangjianhao').Value:=Trim(ADOQuery_Select.FieldValues['代号']);
Parameters.ParamByName('banliren').Value:='001';
if ADOQuery_Select.FieldValues['联系方式']=null then
begin
Parameters.ParamByName('dianhua').Value:='';
end
else
begin
Parameters.ParamByName('dianhua').Value:=Trim(ADOQuery_Select.FieldValues['联系方式']);
end;
Parameters.ParamByName('tuoshouyinhang').Value:='';
Parameters.ParamByName('yinhangzhanghao').Value:='';
Parameters.ParamByName('hetonghao').Value:='';
Parameters.ParamByName('shouloushuhao').Value:='';
Parameters.ParamByName('ruzhutongzhishu').Value:='';
Parameters.ParamByName('cunfangweizhi').Value:='';
Parameters.ParamByName('chanquanzhenghao').Value:='';
Parameters.ParamByName('tudizhenghao').Value:='';
if ADOQuery_Select.FieldValues['入住时间']=null then
begin
Parameters.ParamByName('ruzhuriqi').Value:='';
end
else
begin
Parameters.ParamByName('ruzhuriqi').Value:=Trim(ADOQuery_Select.FieldValues['入住时间']);
end;
if ADOQuery_Select.FieldValues['起征月日']=null then
begin
Parameters.ParamByName('qiyue').Value:='';
Parameters.ParamByName('qiri').Value:='';
end
else
begin
Parameters.ParamByName('qiyue').Value:=copy(Trim(ADOQuery_Select.FieldValues['起征月日']),1,pos('-',Trim(ADOQuery_Select.FieldValues['起征月日']))-1);
Parameters.ParamByName('qiri').Value:=copy(Trim(ADOQuery_Select.FieldValues['起征月日']),pos('-',Trim(ADOQuery_Select.FieldValues['起征月日']))+1,length(Trim(ADOQuery_Select.FieldValues['起征月日']))-pos('-',Trim(ADOQuery_Select.FieldValues['起征月日'])));
end;
if ADOQuery_Select.FieldValues['止付月日']=null then
begin
Parameters.ParamByName('zhiyue').Value:='';
Parameters.ParamByName('zhiri').Value:='';
end
else
begin
Parameters.ParamByName('zhiyue').Value:=copy(Trim(ADOQuery_Select.FieldValues['止付月日']),1,pos('-',Trim(ADOQuery_Select.FieldValues['止付月日']))-1);
Parameters.ParamByName('zhiri').Value:=copy(Trim(ADOQuery_Select.FieldValues['止付月日']),pos('-',Trim(ADOQuery_Select.FieldValues['止付月日']))+1,length(Trim(ADOQuery_Select.FieldValues['止付月日']))-pos('-',Trim(ADOQuery_Select.FieldValues['止付月日'])));
end;
Parameters.ParamByName('jiedairen').Value:='';
Parameters.ParamByName('beizhu').Value:='';
Parameters.ParamByName('ziliaofafang').Value:='是';
Parameters.ParamByName('yaoshifafang').Value:='是';
Parameters.ParamByName('czy').Value:='001';
ExecSQL();
//更新房源资料入住信息
with ADOQuery_temp do
begin
Close;
SQL.Clear;
SQL.Add('update S_fangyuanxinxi set fangchanzhuangtai=:fangchanzhuangtai '+
'where loupanmingcheng=:loupan and donghao=:donghao and fangjianhao=:fangjianhao');
Parameters.ParamByName('fangchanzhuangtai').Value:='入住';
Parameters.ParamByName('loupan').Value:='御海龙湾小区';
if (Trim(ADOQuery_Select.FieldValues['楼栋'])='写字楼') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='门市') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车库') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车位') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='商铺') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='社区用房') then
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋']);
end
else
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋'])+'#';
end;
Parameters.ParamByName('fangjianhao').Value:=Trim(ADOQuery_Select.FieldValues['代号']);
ExecSQL();
end;
end;
end;
end;
//添加销售基本意向
tianjiaxiaoshoujibenyixiang(Sender);
//添加销售收款
if (Trim(ADOQuery_Select.FieldValues['状态'])<>'待售') and (Trim(ADOQuery_Select.FieldValues['状态'])<>'公司贷款') then
begin
//按揭情况：1.公司垫款（交垫款，交首付款） 2.交首付款
if Trim(ADOQuery_Select.FieldValues['付款方式'])='按揭' then
begin
//公司垫款
if (ADOQuery_Select.FieldValues['公司垫款']<>null) and (ADOQuery_Select.FieldValues['公司垫款']>0) then
begin
//1.添加公司垫款
with ADOQuery_insert_xiaoshoushoukuan do
begin
Close;
//选取年度最大开头为'SK'的单据号
with ADOQuery_temp do
begin
Close;
SQL.Clear;
SQL.Add('SELECT MAX(SUBSTRING(shoujuhao, 3, 9)) AS shoujuhao FROM S_xiaoshoushoukuan '+
'WHERE loupan=:loupan and (SUBSTRING(shoujuhao, 1, 2) = ''SK'') and (SUBSTRING(shoujuhao, 3, 4) =:niandu) ');
Parameters.ParamByName('loupan').Value:='御海龙湾小区';
//公司垫款日期以签约日期为准
Parameters.ParamByName('niandu').Value:=FormatDateTime('yyyy',StrToDate(ADOQuery_Select.FieldValues['签约日期']));
Open;
end;
if ADOQuery_temp.FieldValues['shoujuhao']=null then
begin
Parameters.ParamByName('shoujuhao').Value:='SK'+FormatDateTime('yyyy',StrToDate(ADOQuery_Select.FieldValues['签约日期']))+'00001';
end
else
begin
Parameters.ParamByName('shoujuhao').Value:='SK'+FormatDateTime('yyyy',StrToDate(ADOQuery_Select.FieldValues['签约日期']))+Format('%.5d', [strtoint(copy(ADOQuery_temp.FieldValues['shoujuhao'],5,5))+1]);
end;
Parameters.ParamByName('kehubianhao').Value:=kehubianhao;
Parameters.ParamByName('kehumingcheng').Value:=Trim(ADOQuery_Select.FieldValues['姓名']);
Parameters.ParamByName('fangjianhao').Value:=Trim(ADOQuery_Select.FieldValues['代号']);
Parameters.ParamByName('loupan').Value:='御海龙湾小区';
if (Trim(ADOQuery_Select.FieldValues['楼栋'])='写字楼') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='门市') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车库') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='车位') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='商铺') or (Trim(ADOQuery_Select.FieldValues['楼栋'])='社区用房') then
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋']);
end
else
begin
Parameters.ParamByName('donghao').Value:=Trim(ADOQuery_Select.FieldValues['楼栋'])+'#';
end;
Parameters.ParamByName('dianhua').Value:=Trim(ADOQuery_Select.FieldValues['联系方式']);
Parameters.ParamByName('shouji').Value:='';
Parameters.ParamByName('fukuanfangshi').Value:='按揭';
Parameters.ParamByName('shoukuanriqi').Value:=FormatDateTime('yyyy-mm-dd',StrToDate(Trim(ADOQuery_Select.FieldValues['签约日期'])));
Parameters.ParamByName('zhaiyao').Value:='公司垫款';
|
客服电话
APP下载
官方微信
请发表评论