realtyc322.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

unit RealtyC322;

interface

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

type
    Tf_RealtyC322 = class(TForm)
    GroupBox1: TGroupBox;
    ListView1: TListView;
    Label2: TLabel;
    Button6: TButton;
    ToolButton1: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Button1: TButton;



    procedure Button6Click(Sender: TObject);


    procedure FormCreate(Sender: TObject);


    procedure ListView1DblClick(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private
    { Private declarations }
  public
    { Public declarations }
     bMod:bool;
     sTable:string;
     cols:integer;
     bOk:bool;
     sNum:string;
  end;

var
  f_RealtyC322: Tf_RealtyC322;
implementation
uses data, main,RealtyF31A,RealtyF32,RealtyC321;
{$R *.dfm}






procedure Tf_RealtyC322.Button6Click(Sender: TObject);
begin
    CLOSE;
end;



procedure Tf_RealtyC322.FormCreate(Sender: TObject);
var
    Query,query1:TADOQuery;
    i,ii,iii:integer;
    s,s1:string;
begin
    query:=TADOQuery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;

    s:='select * from 楼宇 where 管理区='''+ mainform.getNum(f_RealtyC321.Edit8.Text);
    s:=s+'''';

    query.sql.add(s);
    query.Open;
    while not query.eof do
    begin
        ComboBox1.Items.Add(query.fieldbyname('编号').Value+'--'+query.fieldbyname('名称').Value);
        query.Next;
    end;

    if f_RealtyC321.combobox2.text='楼宇分摊表' then
    begin
        combobox1.Enabled:=false;
        Button1.Enabled:=true;
    end;

    if f_RealtyC321.combobox2.text='房间分摊表' then
    begin
        combobox1.Enabled:=true;
        Button1.Enabled:=false;
    end;


    s:='select * from 公摊仪表明细 where 编号='''+f_RealtyC321.Edit1.Text;
    s:=s+'''';

    query.SQL.Clear;
    query.sql.add(s);
    query.Open;
    while not query.Eof do
    begin
        with ListView1.Items.Add do
        begin
            Caption:='Y';
            SubItems.Add(Query.FieldByName('类型编号').Value);
            SubItems.Add(Query.FieldByName('类型名称').Value);
            SubItems.Add(Query.FieldByName('类型').Value);
        end;

        query.next;
    end;

    query.close;
    query.Free;
end;



procedure Tf_RealtyC322.ListView1DblClick(Sender: TObject);
begin
    if listview1.SelCount=0 then exit;

    if listview1.Selected.Caption='Y' then listview1.Selected.Caption:='N'
    else listview1.Selected.Caption:='Y';
end;

procedure Tf_RealtyC322.ComboBox1Select(Sender: TObject);
var
    Query,query1:TADOQuery;
    i,ii,iii:integer;
    s,s1:string;
begin
    query:=TADOQuery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;
    query1:=TADOQuery.Create(nil);
    query1.Connection:=DataModuleADO.ADOConnection1;

    listview1.Items.Clear;

    query.sql.add('select * from 房间 where 楼宇='''+mainform.getNum(combobox1.Text)+'''');
    query.Open;
    while not query.eof do
    begin
        s:='select * from 公摊仪表明细 where 编号='''+f_RealtyC321.Edit1.Text;
        s:=s+''' and 类型编号='''+ Query.FieldByName('编号').Value;
        s:=s+'''';

        s1:='N';
        query1.SQL.Clear;
        query1.sql.add(s);
        query1.Open;
        if query1.RecordCount>0 then s1:='Y';

        with ListView1.Items.Add do
        begin
            Caption:=s1;
            SubItems.Add(Query.FieldByName('编号').Value);
            SubItems.Add(Query.FieldByName('名称').Value);
            SubItems.Add('房间');
        end;

        query.Next;
    end;
    query.close;
    query.Free;

end;

procedure Tf_RealtyC322.ToolButton1Click(Sender: TObject);
var
    Query,query1:TADOQuery;
    i,ii,iii:integer;
    s,s1:string;
begin
    query:=TADOQuery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;

    DataModuleADO.ADOConnection1.BeginTrans;
    query.SQL.Text:='delete from 公摊仪表明细 where 编号='''+f_RealtyC321.Edit1.Text+'''';
    query.ExecSQL;
    DataModuleADO.ADOConnection1.CommitTrans;

    for i:=0 to listview1.Items.Count-1 do
    begin
        if listview1.Items.Item[i].Caption='Y' then
        begin
            s:='insert into 公摊仪表明细(编号,类型编号,类型名称,类型)';
            s:=s+'values (:s1,:s2,:s3,:s4)';

            query.SQL.Clear;
            query.SQL.Add(s);

            query.Parameters.ParamByName('s1').Value:=f_RealtyC321.Edit1.Text;
            query.Parameters.ParamByName('s2').Value:=listview1.Items.Item[i].SubItems[0];
            query.Parameters.ParamByName('s3').Value:=listview1.Items.Item[i].SubItems[1];
            query.Parameters.ParamByName('s4').Value:=listview1.Items.Item[i].SubItems[2];

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

procedure Tf_RealtyC322.Button1Click(Sender: TObject);
var
    Query,query1:TADOQuery;
    i,ii,iii:integer;
    s,s1:string;
begin
    query:=TADOQuery.Create(nil);
    query.Connection:=DataModuleADO.ADOConnection1;
    query1:=TADOQuery.Create(nil);
    query1.Connection:=DataModuleADO.ADOConnection1;

    listview1.Items.Clear;

    s:='select * from 楼宇 where 管理区='''+ mainform.getNum(f_RealtyC321.Edit8.Text);
    s:=s+'''';

    query.sql.add(s);
    query.Open;
    while not query.eof do
    begin
        s1:='N';
        s:='select * from 公摊仪表明细 where 编号='''+f_RealtyC321.Edit1.Text;
        s:=s+''' and 类型编号='''+Query.FieldByName('编号').Value;
        s:=s+'''';

        query1.SQL.Clear;
        query1.sql.add(s);
        query1.Open;
        if query1.RecordCount>0 then s1:='Y';


        with ListView1.Items.Add do
        begin
            Caption:=s1;
            SubItems.Add(Query.FieldByName('编号').Value);
            SubItems.Add(Query.FieldByName('名称').Value);
            SubItems.Add('楼宇');
        end;


        query.next;
    end;

    query.close;
    query.Free;
    query1.close;
    query1.Free;
end;

procedure Tf_RealtyC322.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    Action := caFree;
end;

end.