📄 realtyb22a.pas
字号:
end;
s:='select * from 客户资料 where 客户代码='''+Edit1.Text;
s:=s+'''';
query.SQL.Clear;
query.SQL.Add(s);
query.open;
if query.RecordCount>0 then
begin
with f_RealtyB22.ListView1.Items.Add do
begin
Caption:=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);
SubItems.Add(Query.FieldByName('地址').Value);
SubItems.Add(Query.FieldByName('邮编').Value);
SubItems.Add(Query.FieldByName('MSN').Value);
SubItems.Add(Query.FieldByName('备注').Value);
SubItems.Add(mainform.getName('组织机构',Query.FieldByName('管理处').Value));
end;
end;
query.Close;
query.Free;
getID;
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit18.ItemIndex:=Edit18.Items.IndexOf('');
combobox1.ItemIndex:=combobox1.Items.IndexOf('');
combobox2.ItemIndex:=combobox2.Items.IndexOf('');
combobox3.ItemIndex:=combobox3.Items.IndexOf('');
datetimepicker1.Date:=date;
listview1.Items.Clear;
listview2.Items.Clear;
Edit1.SetFocus;
end;
if f_RealtyB22.bMod=true then
begin
if f_RealtyB22.ListView1.Selected.Caption<> Edit1.text then
begin
s:='select * from 客户资料 where 客户代码='''+Edit1.Text;
s:=s+'''';
query.sql.clear;
query.SQL.Add(s);
query.Open;
if query.RecordCount>0 then
begin
showmessage('客户代码重复, 请重新输入!');
edit1.SetFocus;
exit;
end;
end;
s:='update 客户资料 set 客户代码='''+edit1.text;
s:=s+''',客户名称='''+edit2.Text;
s:=s+''',客户类型='''+s1;
s:=s+''',工作单位='''+edit3.Text;
s:=s+''',电话='''+edit4.Text;
s:=s+''',手机号='''+edit5.Text;
s:=s+''',性别='''+s2;
s:=s+''',文化程度='''+s3;
s:=s+''',MSN='''+edit6.Text;
s:=s+''',邮编='''+edit7.Text;
s:=s+''',出生日期='''+datetostr(datetimepicker1.Date);
s:=s+''',身份证号码='''+edit8.Text;
s:=s+''',籍贯='''+edit9.Text;
s:=s+''',传真='''+edit10.Text;
s:=s+''',电子邮件='''+edit11.Text;
s:=s+''',备注='''+edit12.Text;
s:=s+''',地址='''+edit13.Text;
s:=s+''',联系人='''+edit14.Text;
s:=s+''',管理处='''+mainform.getNum(Edit18.Text);
s:=s+''' where 客户代码='''+f_RealtyB22.ListView1.Selected.Caption;
s:=s+'''';
DataModuleADO.ADOConnection1.BeginTrans;
query.SQL.Text:=s;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
s:='delete from 客户资料账号 where 客户代码='''+f_RealtyB22.ListView1.Selected.Caption;
s:=s+'''';
DataModuleADO.ADOConnection1.BeginTrans;
query.SQL.Text:=s;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
s:='delete from 客户资料家庭成员 where 客户代码='''+f_RealtyB22.ListView1.Selected.Caption;
s:=s+'''';
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]:='-';
if listview1.Items.Item[i].SubItems[4]='' then listview1.Items.Item[i].SubItems[4]:='-';
if listview1.Items.Item[i].SubItems[5]='' then listview1.Items.Item[i].SubItems[5]:='-';
s:='insert into 客户资料账号 (客户代码,开户名称,开户银行,银行账号,账号类型,';
s:=s+'开户银行地址,是否主账号,备注)';
s:=s+' values (:s1,:s2,:s3,:s4,:s5,';
s:=s+':s6,:s7,:s8)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.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];
query.Parameters.ParamByName('s7').Value:=listview1.Items.Item[i].SubItems[4];
query.Parameters.ParamByName('s8').Value:=listview1.Items.Item[i].SubItems[5];
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
for i:=0 to listview2.Items.Count-1 do
begin
if listview2.Items.Item[i].Caption='' then listview2.Items.Item[i].Caption:='-';
if listview2.Items.Item[i].SubItems[0]='' then listview2.Items.Item[i].SubItems[0]:='-';
if listview2.Items.Item[i].SubItems[1]='' then listview2.Items.Item[i].SubItems[1]:='-';
if listview2.Items.Item[i].SubItems[2]='' then listview2.Items.Item[i].SubItems[2]:='-';
if listview2.Items.Item[i].SubItems[3]='' then listview2.Items.Item[i].SubItems[3]:='-';
if listview2.Items.Item[i].SubItems[4]='' then listview2.Items.Item[i].SubItems[4]:='-';
s:='insert into 客户资料家庭成员 (客户代码,与客户关系,名称,电话,手机,';
s:=s+'性别,说明)';
s:=s+' values (:s1,:s2,:s3,:s4,:s5,';
s:=s+':s6,:s7)';
query.SQL.Clear;
query.SQL.Add(s);
query.Parameters.ParamByName('s1').Value:=edit1.Text;
query.Parameters.ParamByName('s2').Value:=listview2.Items.Item[i].Caption;
query.Parameters.ParamByName('s3').Value:=listview2.Items.Item[i].SubItems[0];
query.Parameters.ParamByName('s4').Value:=listview2.Items.Item[i].SubItems[1];
query.Parameters.ParamByName('s5').Value:=listview2.Items.Item[i].SubItems[2];
query.Parameters.ParamByName('s6').Value:=listview2.Items.Item[i].SubItems[3];
query.Parameters.ParamByName('s7').Value:=listview2.Items.Item[i].SubItems[4];
DataModuleADO.ADOConnection1.BeginTrans;
query.ExecSQL;
DataModuleADO.ADOConnection1.CommitTrans;
end;
s:='select * from 客户资料 where 客户代码='''+Edit1.Text;
s:=s+'''';
query.SQL.Clear;
query.SQL.Add(s);
query.Open;
if query.RecordCount>0 then
begin
with f_RealtyB22.ListView1.Selected do
begin
Caption:=Query.FieldByName('客户代码').Value;
SubItems[0]:=Query.FieldByName('客户名称').Value;
SubItems[1]:=Query.FieldByName('联系人').Value;
SubItems[2]:=Query.FieldByName('电话').Value;
SubItems[3]:=Query.FieldByName('手机号').Value;
SubItems[4]:=Query.FieldByName('性别').Value;
SubItems[5]:=Query.FieldByName('客户类型').Value;
SubItems[6]:=Query.FieldByName('身份证号码').Value;
SubItems[7]:=Query.FieldByName('出生日期').Value;
SubItems[8]:=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('MSN').Value;
SubItems[16]:=Query.FieldByName('备注').Value;
SubItems[17]:=mainform.getName('组织机构',Query.FieldByName('管理处').Value);
end;
end;
query.Close;
query.free;
close;
end;
end;
procedure Tf_RealtyB22A.ToolButton1Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyB22A.ComboBox3Select(Sender: TObject);
begin
if ComboBox3.Text='新增文化程度' then
begin
mainform.t1:='文化程度';
f_Car4s931:=Tf_Car4s931.Create(self);
f_Car4s931.showmodal;
if f_Car4s931.bOK=true then
begin
ComboBox3.Items.Add(mainform.t1);
ComboBox3.ItemIndex:=ComboBox3.Items.IndexOf(mainform.t1);
end
else ComboBox3.ItemIndex:=ComboBox3.Items.IndexOf('');
end;
end;
procedure Tf_RealtyB22A.ComboBox1Select(Sender: TObject);
begin
if ComboBox1.Text='新增客户类型' then
begin
mainform.t1:='客户类型';
f_Car4s931:=Tf_Car4s931.Create(self);
f_Car4s931.showmodal;
if f_Car4s931.bOK=true then
begin
ComboBox1.Items.Add(mainform.t1);
ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf(mainform.t1);
end
else ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf('');
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -