realtyg31a.pas
来自「物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、」· PAS 代码 · 共 663 行 · 第 1/2 页
PAS
663 行
if edit12.text='' then edit12.Text:='-';
if edit13.text='' then edit13.Text:='-';
if edit17.text='' then edit17.Text:='-';
if edit18.text='' then edit18.Text:='-';
Query:=TADOQuery.Create(nil);
Query.Connection:=DataModuleADO.ADOConnection1;
Query1:=TADOQuery.Create(nil);
Query1.Connection:=DataModuleADO.ADOConnection1;
Query2:=TADOQuery.Create(nil);
Query2.Connection:=DataModuleADO.ADOConnection1;
if f_RealtyG31.bNew=true then
begin
s := 'insert into 车辆信息(编号,房间,客户,车牌号,车位,出入证编号,车辆品牌,行驶证编号,驾驶证编号,';
s:=s+'车辆类型,颜色,发动机号,车架号,车底盘号,开卡日期,操作员,修订,核销,审核) values(:s1,:s2,:s3,:s4,';
s:=s+':s5,:s6,:s7,:s8,:s9,:s10,:s11,:s12,:s13,:s14,:s15,:s16,:s17,:s18,:s19)';
query.sql.Clear ;
query.sql.add(s);
query.Parameters.ParamByName('s1').Value:=trim(Edit1.Text);
query.Parameters.ParamByName('s2').Value:=trim(s7);
query.Parameters.ParamByName('s3').Value:=trim(Edit3.text);
query.Parameters.ParamByName('s4').Value:=trim(Edit4.Text);
query.Parameters.ParamByName('s5').Value:=trim(s8);
query.Parameters.ParamByName('s6').Value:=trim(Edit6.Text);
query.Parameters.ParamByName('s7').Value:=s1;
query.Parameters.ParamByName('s8').Value:=trim(Edit8.text);
query.Parameters.ParamByName('s9').Value:=trim(Edit9.Text);
query.Parameters.ParamByName('s10').Value:=s2;
query.Parameters.ParamByName('s11').Value:=s3;
query.Parameters.ParamByName('s12').Value:=trim(Edit12.Text);
query.Parameters.ParamByName('s13').Value:=trim(Edit13.text);
query.Parameters.ParamByName('s14').Value:=trim(Edit14.Text);
query.Parameters.ParamByName('s15').Value:=datetostr(Edit15.date);
query.Parameters.ParamByName('s16').Value:=trim(Edit16.Text);
query.Parameters.ParamByName('s17').Value:=trim(Edit17.Text);
query.Parameters.ParamByName('s18').Value:=trim(Edit18.text);
query.Parameters.ParamByName('s19').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
query1.SQL.Clear;
query1.SQL.Add('select * from 房间 where 编号 ='''+query.fieldbyname('房间').Value+'''') ;
query1.Open;
if query1.RecordCount>0 then
begin
with f_RealtyG31.listview1.Items.Add do
begin
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;
query2.SQL.Clear;
query2.SQL.Add('select * from 楼宇 where 编号='''+query1.fieldbyname('楼宇').Value+'''');
query2.Open;
if query2.RecordCount>0 then
s6:=query2.fieldbyname('名称').Value;
s7:=mainform.getName('房间',query.fieldbyname('房间').Value);
s8:=mainform.getName('车位',query.fieldbyname('车位').Value);
caption:=s4;
subitems.Add(s5);
subitems.Add(s6);
subitems.Add(query.fieldbyname('房间').Value);
subitems.Add(s7);
subitems.Add(query.fieldbyname('编号').Value);
subitems.Add(query.fieldbyname('客户').Value);
query2.SQL.Clear;
query2.SQL.Add('select * from 客户资料 where 客户名称='''+query.fieldbyname('客户').Value+'''');
query2.Open;
if query2.RecordCount>0 then
begin
subitems.Add(query2.fieldbyname('电话').Value);
end
else
begin
subitems.Add('');
end;
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(s8);
query2.SQL.Clear;
query2.SQL.Add('select * from 车位 where 编号='''+query.fieldbyname('车位').Value+'''');
query2.Open;
if query2.RecordCount>0 then
begin
s9:=mainform.getName('停车场',query2.fieldbyname('停车场').Value)
end;
subitems.Add(s9);
subitems.Add(query.fieldbyname('审核').Value);
end;
end;
end;
query2.Close;
query2.Free;
query1.Close;
query1.Free;
query.Close;
query.Free;
//清空，新增
getid;
edit2.text:='';
edit3.Text:='';
edit4.text:='';
edit5.text:='';
edit6.text:='';
edit8.Text:='';
edit9.text:='';
edit12.text:='';
edit13.text:='';
edit14.Text:='';
edit15.date:=date;
edit17.Text:='';
edit18.Text:='';
edit7.ItemIndex:=edit7.Items.IndexOf('');
edit10.ItemIndex:=edit10.Items.IndexOf('');
edit11.ItemIndex:=edit11.Items.IndexOf('');
end;
if f_RealtyG31.bNew=false then
begin
s:='update 车辆信息 set 编号='''+edit1.text;
s:=s+''',房间='''+s7;
s:=s+''',客户='''+edit3.text;
s:=s+''',车牌号='''+edit4.text;
s:=s+''',车位='''+s8;
s:=s+''',出入证编号='''+edit6.Text;
s:=s+''',车辆品牌='''+s1;
s:=s+''',行驶证编号='''+edit8.text;
s:=s+''',驾驶证编号='''+edit9.text;
s:=s+''',车辆类型='''+s2;
s:=s+''',颜色='''+s3;
s:=s+''',发动机号='''+edit12.text;
s:=s+''',车架号='''+edit13.text;
s:=s+''',车底盘号='''+edit14.text;
s:=s+''',开卡日期='''+datetostr(edit15.date);
s:=s+''',操作员='''+edit16.Text;
s:=s+''',修订='''+edit17.text;
s:=s+''',核销='''+edit18.text;
s:=s+''' where 编号='''+f_RealtyG31.ListView1.Selected.SubItems[4]+'''';
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
query1.SQL.Clear;
query1.SQL.Add('select * from 房间 where 编号 ='''+query.fieldbyname('房间').Value+'''') ;
query1.Open;
if query1.RecordCount>0 then
begin
with f_RealtyG31.listview1.Selected do
begin
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;
query2.SQL.Clear;
query2.SQL.Add('select * from 楼宇 where 编号='''+query1.fieldbyname('楼宇').Value+'''');
query2.Open;
if query2.RecordCount>0 then
s6:=query2.fieldbyname('名称').Value;
s7:=mainform.getName('房间',query.fieldbyname('房间').Value);
s8:=mainform.getName('车位',query.fieldbyname('车位').Value);
caption:=s4;
subitems[0]:=s5;
subitems[1]:=s6;
subitems[2]:=query.fieldbyname('房间').Value;
subitems[3]:=s7;
subitems[4]:=query.fieldbyname('编号').Value;
subitems[5]:=query.fieldbyname('客户').Value;
query2.SQL.Clear;
query2.SQL.Add('select * from 客户资料 where 客户名称='''+query.fieldbyname('客户').Value+'''');
query2.Open;
if query2.RecordCount>0 then
begin
subitems[6]:=query2.fieldbyname('电话').Value;
end
else
begin
subitems[6]:='';
end;
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('发动机号').Value;
subitems[16]:=query.fieldbyname('车架号').Value;
subitems[17]:=query.fieldbyname('车底盘号').Value;
subitems[18]:=s8;
query2.SQL.Clear;
query2.SQL.Add('select * from 车位 where 编号='''+query.fieldbyname('车位').Value+'''');
query2.Open;
if query2.RecordCount>0 then
begin
s9:=mainform.getName('停车场',query2.fieldbyname('停车场').Value)
end;
subitems[19]:=s9;
subitems[20]:=query.fieldbyname('审核').Value;
end;
end;
end;
query2.Close;
query2.Free;
query1.Close;
query1.Free;
query.Close;
query.Free;
close;
end;
end;
procedure Tf_RealtyG31A.Button5Click(Sender: TObject);
begin
close;
end;
procedure Tf_RealtyG31A.Button4Click(Sender: TObject);
begin
f_RealtyF31:=Tf_RealtyF31.Create(self);
f_RealtyF31.Button8.Visible:=true;
f_RealtyF31.ShowModal;
if f_RealtyF31.bOk=true then
begin
edit6.Text:=f_RealtyF31.sNum;
end;
end;
procedure Tf_RealtyG31A.edit7Select(Sender: TObject);
begin
if edit7.Text='新增车辆品牌' then
begin
mainform.t1:='车辆品牌';
f_Car4s931:=Tf_Car4s931.Create(self);
f_Car4s931.showmodal;
if f_Car4s931.bOK=true then
begin
edit7.Items.Add(mainform.t1);
edit7.ItemIndex:=edit7.Items.IndexOf(mainform.t1);
end
else edit7.ItemIndex:=edit7.Items.IndexOf('');
end;
end;
procedure Tf_RealtyG31A.edit10Select(Sender: TObject);
begin
if edit10.Text='新增车辆类型' then
begin
mainform.t1:='车辆类型';
f_Car4s931:=Tf_Car4s931.Create(self);
f_Car4s931.showmodal;
if f_Car4s931.bOK=true then
begin
edit10.Items.Add(mainform.t1);
edit10.ItemIndex:=edit10.Items.IndexOf(mainform.t1);
end
else edit10.ItemIndex:=edit10.Items.IndexOf('');
end;
end;
end.
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?