realtya311.pas

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

unit RealtyA311;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
  StrUtils, ExtDlgs, ComCtrls, math;

type
    Tf_RealtyA311 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
      bOK:bool;
  end;

var
  f_RealtyA311: Tf_RealtyA311;


implementation

uses data, main,RealtyA31;
{$R *.dfm}

//初始化
procedure Tf_RealtyA311.FormCreate(Sender: TObject);
begin
     Caption:=f_RealtyA31.CaptionName+'--新增';
     Label1.Caption:=f_RealtyA31.CaptionName;
     label1.Font.Size:=16;

     if f_RealtyA31.bMod=true then
     begin
         if f_RealtyA31.PageControl1.ActivePageIndex=0 then
         begin
             edit1.Text:=f_RealtyA31.ListView1.Selected.Caption;
             edit2.Text:=f_RealtyA31.ListView1.Selected.SubItems[0];
         end;

         if f_RealtyA31.PageControl1.ActivePageIndex=1 then
         begin

             edit1.Text:=f_RealtyA31.ListView2.Selected.Caption;
             edit2.Text:=f_RealtyA31.ListView2.Selected.SubItems[0];
         end;

         if f_RealtyA31.PageControl1.ActivePageIndex=2 then
         begin
             edit1.Text:=f_RealtyA31.ListView3.Selected.Caption;
             edit2.Text:=f_RealtyA31.ListView3.Selected.SubItems[0];
         end;

         if f_RealtyA31.PageControl1.ActivePageIndex=3 then
         begin
             edit1.Text:=f_RealtyA31.ListView4.Selected.Caption;
             edit2.Text:=f_RealtyA31.ListView4.Selected.SubItems[0];
         end;

         if f_RealtyA31.PageControl1.ActivePageIndex=4 then
         begin
             edit1.Text:=f_RealtyA31.ListView5.Selected.Caption;
             edit2.Text:=f_RealtyA31.ListView5.Selected.SubItems[0];
         end;
     end;
end;

//Tab
procedure Tf_RealtyA311.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then
        Begin
            key:=0;
            perform(WM_NEXTDLGCTL,0,0);
        end
    else if key=VK_ESCAPE then close;
end;


procedure Tf_RealtyA311.Button2Click(Sender: TObject);
begin
    close;
end;

procedure Tf_RealtyA311.Button1Click(Sender: TObject);
Var
     query:TADOQuery;
     s:String;
begin
     query:=TADOQuery.Create(nil);
     query.Connection:=DataModuleADO.ADOConnection1;

     if f_RealtyA31.bMod then
     begin
          if f_RealtyA31.PageControl1.ActivePageIndex=0 then
          begin
               s:='update 房产验收项目 set 名称='''+edit1.Text;
               s:=s+''',说明='''+edit2.Text;
               s:=s+''' where 名称='''+mainform.t1;
               s:=s+''' and 类别='''+'房间验收'+'''';

               query.SQL.Add(s);
               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.Selected do
                    begin
                         Caption:=query.fieldbyname('名称').Value;
                         subitems[0]:=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
               s:='update 房产验收项目 set 名称='''+edit1.Text;
               s:=s+''',说明='''+edit2.Text;
               s:=s+''' where 名称='''+mainform.t1;
               s:=s+''' and 类别='''+'楼宇验收'+'''';

               query.SQL.Clear;
               query.SQL.Add(s);
               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.Selected do
                    begin
                         Caption:=query.fieldbyname('名称').Value;
                         subitems[0]:=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
               s:='update 房产验收项目 set 名称='''+edit1.Text;
               s:=s+''',说明='''+edit2.Text;
               s:=s+''' where 名称='''+mainform.t1;
               s:=s+''' and 类别='''+'管理区验收'+'''';

               query.SQL.Clear;
               query.SQL.Add(s);
               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.Selected do
                    begin
                         Caption:=query.fieldbyname('名称').Value;
                         subitems[0]:=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
               s:='update 房产验收项目 set 名称='''+edit1.Text;
               s:=s+''',说明='''+edit2.Text;
               s:=s+''' where 名称='''+mainform.t1;
               s:=s+''' and 类别='''+'停车场验收'+'''';

               query.SQL.Clear;
               query.SQL.Add(s);
               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.Selected do
                    begin
                         Caption:=query.fieldbyname('名称').Value;
                         subitems[0]:=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
               s:='update 房产验收项目 set 名称='''+edit1.Text;
               s:=s+''',说明='''+edit2.Text;
               s:=s+''' where 名称='''+mainform.t1;
               s:=s+''' and 类别='''+'车位验收'+'''';

               query.SQL.Clear;
               query.SQL.Add(s);
               DataModuleADO.ADOConnection1.BeginTrans;
               query.ExecSQL;