realtya321c.pas

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

unit RealtyA321C;

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_RealtyA321C = class(TForm)
    Button2: TButton;
    Label2: TLabel;
    Button1: TButton;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    DateTimePicker1: TDateTimePicker;
    edit1: TComboBox;
    Label9: TLabel;
    Edit7: TEdit;
    Button3: TButton;
    Edit2: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit2Select(Sender: TObject);


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

var
  f_RealtyA321C: Tf_RealtyA321C;


implementation

uses data, main,RealtyA32C,RealtyA11,RealtyA12,RealtyA13,RealtyA14,RealtyA15,Car4s931;
{$R *.dfm}

//初始化
procedure Tf_RealtyA321C.FormCreate(Sender: TObject);
var
    query:TADOQuery;
    s,s1:string;
begin
     DateTimepicker1.Date:=date;

     query:=TADOQuery.Create(nil);
     query.Connection:=DataModuleADO.ADOConnection1;


    edit2.Items.Add('新增验收结果');
    query.SQL.Clear;
    query.SQL.Add('select * from 辅助资料 where 类别='''+'验收结果'+'''');
    query.Open;
    while not query.Eof do
    begin
         edit2.Items.Add(query.fieldbyname('名称').Value);
         query.Next;
    end;


    


    query.SQL.Clear;
    query.SQL.Add('select * from 房产验收项目 where 类别='''+'房间验收项目'+'''');
    query.Open;
    while not query.Eof do
    begin
        edit1.Items.Add(query.fieldbyname('名称').value);
        query.Next;
    end;


     if f_RealtyA32C.bMod=true then
     begin
         s1:='房间';

        s:='select * from 房产验收 where 所属单位='''+f_RealtyA32C.listview1.Selected.Subitems[10];
        s:=s+''' and 类别='''+s1;
        s:=s+''' and 审核='''+'Y';
        s:=s+''' and 验收项目='''+f_RealtyA32C.listview1.Selected.Subitems[3]+'''';

        query.SQL.Clear;
        query.SQL.Add(s);
        query.Open;
        if query.RecordCount>0 then Button1.Enabled:=false;

         s1:=f_RealtyA32C.ListView1.Selected.SubItems[10]+'--'+f_RealtyA32C.ListView1.Selected.Caption;
         edit7.text:=s1;
         edit1.ItemIndex:=Edit1.Items.IndexOf(f_RealtyA32C.ListView1.Selected.SubItems[3]);
         edit2.ItemIndex:=Edit2.Items.IndexOf(f_RealtyA32C.ListView1.Selected.SubItems[4]);
         DateTimePicker1.Date:=strtodate(f_RealtyA32C.ListView1.Selected.SubItems[5]);
         edit3.Text:=f_RealtyA32C.ListView1.Selected.SubItems[6];
         edit4.Text:=f_RealtyA32C.ListView1.Selected.SubItems[7];
         edit5.Text:=f_RealtyA32C.ListView1.Selected.SubItems[8];
         edit6.Text:=f_RealtyA32C.ListView1.Selected.SubItems[9];
     end;
end;

//Tab
procedure Tf_RealtyA321C.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_RealtyA321C.Button2Click(Sender: TObject);
begin
    close;
end;


//确定
procedure Tf_RealtyA321C.Button1Click(Sender: TObject);
Var
     query:TADOQuery;
     s,s1,s2,s3,s4,s5,s6,s7,r1,r2,r3:string;
begin
     s1:='房间';

     if edit1.Text='' then
     begin
          showmessage('验收项目不能为空');
          edit1.SetFocus;
          exit;
     end;

     if edit2.Text='' then
     begin
          showmessage('验收结果不能为空');
          edit2.SetFocus;
          exit;
     end;

     if Edit7.Text='' then
     begin
         showmessage(s1+'不能为空');
         edit7.SetFocus;
         exit;
     end
     else s3:=mainform.getNum(Edit7.Text);
     s4:=mainform.getLastName(Edit7.Text);



     if edit2.Text='' then edit2.Text:='-';
     if edit3.Text='' then edit3.Text:='-';
     if edit4.Text='' then edit4.Text:='-';
     if edit5.Text='' then edit5.Text:='-';
     if edit6.Text='' then edit6.Text:='-';

     query:=TADOQuery.Create(nil);
     query.Connection:=DataModuleADO.ADOConnection1;


     s5:='-';
    query.SQL.Add('select * from 房间 where 编号='''+s3+'''');
    query.Open;
    if query.RecordCount>0 then
    begin
        s5:=query.fieldbyname('管理处').Value;
        s5:=mainform.getName('组织机构',s5);
        s6:=query.fieldbyname('管理区').Value;
        s6:=mainform.getName('管理区',s6);
        s7:=query.fieldbyname('楼宇').Value;
        s7:=mainform.getName('楼宇',s7);
    end;


     if  f_RealtyA32C.bMod=false then
     begin
        query.SQL.Clear;
        query.SQL.Add('select * from 房产验收 where 类别='''+s1+''' and 所属单位='''+s3+''' and 验收项目='''+edit1.Text+'''');
        query.Open;
        if query.RecordCount>0 then
        begin
           showmessage('验收项目重复');
           edit1.SetFocus;
           exit;
        end;

        s:='insert into 房产验收 (验收项目,验收结果,验收日期,负责人,验收人,验收说明,备注,类别,所属单位,审核)';
        s:=s+'values(:s1,:s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10)';

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

        query.Parameters.ParamByName('s1').Value:=edit1.Text;
        query.Parameters.ParamByName('s2').Value:=edit2.Text;
        query.Parameters.ParamByName('s3').Value:=datetostr(datetimepicker1.Date);
        query.Parameters.ParamByName('s4').Value:=edit3.Text;
        query.Parameters.ParamByName('s5').Value:=edit4.Text;
        query.Parameters.ParamByName('s6').Value:=edit5.Text;
        query.Parameters.ParamByName('s7').Value:=edit6.Text;
        query.Parameters.ParamByName('s8').Value:=s1;
        query.Parameters.ParamByName('s9').Value:=s3;
        query.Parameters.ParamByName('s10').Value:='N';

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

        with f_RealtyA32C.ListView1.Items.Add do
        begin
            Caption:=s4;
            subitems.Add(s7);
            subitems.Add(s6);
            subitems.Add(s5);
            subitems.Add(edit1.Text);
            subitems.Add(edit2.Text);
            subitems.Add(datetostr(datetimepicker1.Date));
            subitems.Add(edit3.Text);
            subitems.Add(edit4.Text);
            subitems.Add(edit5.Text);
            subitems.Add(edit6.Text);
            subitems.Add(s3);
        end;


        Edit1.ItemIndex:=Edit1.Items.IndexOf('');
        Edit2.Text:='';
        Edit3.Text:='';
        Edit4.Text:='';
        Edit5.Text:='';
        Edit6.Text:='';
        Edit7.Text:='';
        Edit1.SetFocus;
     end;


     if  f_RealtyA32C.bMod=true then
     begin
        r2:=f_RealtyA32C.listview1.Selected.Subitems[2];
        r3:=f_RealtyA32C.listview1.Selected.Subitems[9];

        if Edit1.Text<> f_RealtyA32C.listview1.Selected.Subitems[3] then
        begin
            s:='select * from 房产验收 where 所属单位='''+f_RealtyA32C.listview1.Selected.Caption;
            s:=s+''' and 类别='''+s1;
            s:=s+''' and 验收项目='''+edit1.Text+'''';

            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+''',验收日期='''+datetostr(datetimepicker1.Date);
        s:=s+''',负责人='''+Edit3.Text;
        s:=s+''',验收人='''+Edit4.Text;
        s:=s+''',验收说明='''+Edit5.Text;
        s:=s+''',备注='''+Edit6.Text;
        s:=s+''',所属单位='''+s3;
        s:=s+''' where 类别='''+ s1;
        s:=s+''' and 验收项目='''+r2;
        s:=s+''' and 所属单位='''+r3;
        s:=s+'''';

        DataModuleADO.ADOConnection1.BeginTrans;
        Query.SQL.Text:=s;
        query.ExecSQL;
        DataModuleADO.ADOConnection1.CommitTrans;


        with f_RealtyA32C.ListView1.Selected do
        begin
            Caption:=s4;
            subitems[0]:=s7;
            subitems[1]:=s6;
            subitems[2]:=s5;
            subitems[3]:=edit1.Text;
            subitems[4]:=edit2.Text;
            subitems[5]:=datetostr(datetimepicker1.Date);
            subitems[6]:=edit3.Text;
            subitems[7]:=edit4.Text;
            subitems[8]:=edit5.Text;
            subitems[9]:=edit6.Text;
            subitems[10]:=s3;
        end;


        close;
     end;
end;

//查找
procedure Tf_RealtyA321C.Button3Click(Sender: TObject);
begin

    f_RealtyA14:=Tf_RealtyA14.Create(self);
    f_RealtyA14.ToolButton6.Visible:=true;
    f_RealtyA14.ShowModal;

    if  f_RealtyA14.bOk=true then
    begin
        edit7.Text:=f_RealtyA14.sNum+'--'+f_RealtyA14.sName;
    end; 
end;

procedure Tf_RealtyA321C.Edit2Select(Sender: TObject);
begin
    if edit2.Text='新增验收结果' then
    begin
        mainform.t1:='验收结果';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            edit2.Items.Add(mainform.t1);
            edit2.ItemIndex:=edit2.Items.IndexOf(mainform.t1);
        end
        else edit2.ItemIndex:=edit2.Items.IndexOf('');
    end;
end;

end.