realtya311.pas

来自「物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、」· PAS 代码 · 共 481 行 · 第 1/2 页

               DataModuleADO.ADOConnection1.CommitTrans;

               mainform.t1:=edit1.Text;

               query.SQL.Clear;
               query.SQL.Add('select * from 房产验收项目 where 类别='''+'车位验收'+''' and 名称='''+mainform.t1+'''');
               query.Open;
               if query.RecordCount>0 then
               begin
                    with f_RealtyA31.ListView5.Selected do
                    begin
                         Caption:=query.fieldbyname('名称').Value;
                         subitems[0]:=query.fieldbyname('说明').Value;
                    end;
               end;
               if f_RealtyA31.ListView5.Items.Count>0 then f_RealtyA31.ListView5.Items.Item[0].Selected:=true;
         end;
     end
     else
     begin
         if f_RealtyA31.PageControl1.ActivePageIndex=0 then
         begin
             query.SQL.Clear;
             query.SQL.Add('select * from 房产验收项目 where 类别='''+'房间验收'+''' and 名称='''+edit1.Text+'''');
             query.open;
             if query.RecordCount>0 then
             begin
                 showmessage('房间验收名称重复');
                 edit1.SetFocus;
                 query.Close;
                 query.free;
                 exit;
             end;

             s:='insert into 房产验收项目(名称,说明,类别) values(:s1,:s2,:s3)';
             query.sql.Clear;
             query.SQL.Add(s);

             query.Parameters.ParamByName('s1').Value:=trim(edit1.Text);
             query.Parameters.ParamByName('s2').Value:=trim(edit2.Text);
             query.Parameters.ParamByName('s3').Value:='房间验收';

             DataModuleADO.ADOConnection1.BeginTrans;
             query.ExecSQL;
             DataModuleADO.ADOConnection1.CommitTrans;

             mainform.t1:=edit1.Text;

             query.SQL.Clear;
             query.SQL.Add('select * from 房产验收项目 where 类别='''+'房间验收'+''' and 名称='''+mainform.t1+'''');
             query.open;
             if query.RecordCount>0 then
             begin
                  with f_RealtyA31.ListView1.Items.Add do
                  begin
                       Caption:=query.fieldbyname('名称').Value;
                       Subitems.Add(query.fieldbyname('说明').Value);
                  end;
             end;
             if f_RealtyA31.ListView1.Items.Count>0 then f_RealtyA31.ListView1.Items.Item[0].Selected:=true;

         end;

         if f_RealtyA31.PageControl1.ActivePageIndex=1 then
         begin
             query.SQL.Clear;
             query.SQL.Add('select * from 房产验收项目 where 类别='''+'楼宇验收'+''' and 名称='''+edit1.Text+'''');
             query.open;
             if query.RecordCount>0 then
             begin
                 showmessage('楼宇验收名称重复');
                 edit1.SetFocus;
                 query.Close;
                 query.free;
                 exit;
             end;

             s:='insert into 房产验收项目(名称,说明,类别) values(:s1,:s2,:s3)';
             query.sql.Clear;
             query.SQL.Add(s);

             query.Parameters.ParamByName('s1').Value:=trim(edit1.Text);
             query.Parameters.ParamByName('s2').Value:=trim(edit2.Text);
             query.Parameters.ParamByName('s3').Value:='楼宇验收';

             DataModuleADO.ADOConnection1.BeginTrans;
             query.ExecSQL;
             DataModuleADO.ADOConnection1.CommitTrans;

             mainform.t1:=edit1.Text;

             query.SQL.Clear;
             query.SQL.Add('select * from 房产验收项目 where 类别='''+'楼宇验收'+''' and 名称='''+mainform.t1+'''');
             query.open;
             if query.RecordCount>0 then
             begin
                  with f_RealtyA31.ListView2.Items.Add do
                  begin
                       Caption:=query.fieldbyname('名称').Value;
                       Subitems.Add(query.fieldbyname('说明').Value);
                  end;
             end;
             if f_RealtyA31.ListView2.Items.Count>0 then f_RealtyA31.ListView2.Items.Item[0].Selected:=true;

         end;

         if f_RealtyA31.PageControl1.ActivePageIndex=2 then
         begin
             query.SQL.Clear;
             query.SQL.Add('select * from 房产验收项目 where 类别='''+'管理区验收'+''' and 名称='''+edit1.Text+'''');
             query.open;
             if query.RecordCount>0 then
             begin
                 showmessage('管理区验收名称重复');
                 edit1.SetFocus;
                 query.Close;
                 query.free;
                 exit;
             end;

             s:='insert into 房产验收项目(名称,说明,类别) values(:s1,:s2,:s3)';
             query.sql.Clear;
             query.SQL.Add(s);

             query.Parameters.ParamByName('s1').Value:=trim(edit1.Text);
             query.Parameters.ParamByName('s2').Value:=trim(edit2.Text);
             query.Parameters.ParamByName('s3').Value:='管理区验收';

             DataModuleADO.ADOConnection1.BeginTrans;
             query.ExecSQL;
             DataModuleADO.ADOConnection1.CommitTrans;

             mainform.t1:=edit1.Text;

             query.SQL.Clear;
             query.SQL.Add('select * from 房产验收项目 where 类别='''+'管理区验收'+''' and 名称='''+mainform.t1+'''');
             query.open;
             if query.RecordCount>0 then
             begin
                  with f_RealtyA31.ListView3.Items.Add do
                  begin
                       Caption:=query.fieldbyname('名称').Value;
                       Subitems.Add(query.fieldbyname('说明').Value);
                  end;
             end;
             if f_RealtyA31.ListView3.Items.Count>0 then f_RealtyA31.ListView3.Items.Item[0].Selected:=true;
         end;

         if f_RealtyA31.PageControl1.ActivePageIndex=3 then
         begin
             query.SQL.Clear;
             query.SQL.Add('select * from 房产验收项目 where 类别='''+'停车场验收'+''' and 名称='''+edit1.Text+'''');
             query.open;
             if query.RecordCount>0 then
             begin
                 showmessage('停车场验收名称重复');
                 edit1.SetFocus;
                 query.Close;
                 query.free;
                 exit;
             end;

             s:='insert into 房产验收项目(名称,说明,类别) values(:s1,:s2,:s3)';
             query.sql.Clear;
             query.SQL.Add(s);

             query.Parameters.ParamByName('s1').Value:=trim(edit1.Text);
             query.Parameters.ParamByName('s2').Value:=trim(edit2.Text);
             query.Parameters.ParamByName('s3').Value:='停车场验收';

             DataModuleADO.ADOConnection1.BeginTrans;
             query.ExecSQL;
             DataModuleADO.ADOConnection1.CommitTrans;

             mainform.t1:=edit1.Text;

             query.SQL.Clear;
             query.SQL.Add('select * from 房产验收项目 where 类别='''+'停车场验收'+''' and 名称='''+mainform.t1+'''');
             query.open;
             if query.RecordCount>0 then
             begin
                  with f_RealtyA31.ListView4.Items.Add do
                  begin
                       Caption:=query.fieldbyname('名称').Value;
                       Subitems.Add(query.fieldbyname('说明').Value);
                  end;
             end;
             if f_RealtyA31.ListView4.Items.Count>0 then f_RealtyA31.ListView4.Items.Item[0].Selected:=true;
         end;

         if f_RealtyA31.PageControl1.ActivePageIndex=4 then
         begin
             query.SQL.Clear;
             query.SQL.Add('select * from 房产验收项目 where 类别='''+'车位验收'+''' and 名称='''+edit1.Text+'''');
             query.open;
             if query.RecordCount>0 then
             begin
                 showmessage('车位验收名称重复');
                 edit1.SetFocus;
                 query.Close;
                 query.free;
                 exit;
             end;

             s:='insert into 房产验收项目(名称,说明,类别) values(:s1,:s2,:s3)';
             query.sql.Clear;
             query.SQL.Add(s);

             query.Parameters.ParamByName('s1').Value:=trim(edit1.Text);
             query.Parameters.ParamByName('s2').Value:=trim(edit2.Text);
             query.Parameters.ParamByName('s3').Value:='车位验收';

             DataModuleADO.ADOConnection1.BeginTrans;
             query.ExecSQL;
             DataModuleADO.ADOConnection1.CommitTrans;

             mainform.t1:=edit1.Text;

             query.SQL.Clear;
             query.SQL.Add('select * from 房产验收项目 where 类别='''+'车位验收'+''' and 名称='''+mainform.t1+'''');
             query.open;
             if query.RecordCount>0 then
             begin
                  with f_RealtyA31.ListView5.Items.Add do
                  begin
                       Caption:=query.fieldbyname('名称').Value;
                       Subitems.Add(query.fieldbyname('说明').Value);
                  end;
             end;
             if f_RealtyA31.ListView5.Items.Count>0 then f_RealtyA31.ListView5.Items.Item[0].Selected:=true;
         end;
     end;
     query.Close;
     query.Free;

     close;
end;

end.