main.pas

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

    Query.Connection:=DataModuleADO.ADOConnection1;

    Query.SQL.Add('select * from '+s1+' where 编号=''' + s2 + '''');
    Query.Open ;
    if query.RecordCount > 0 then s:=Query.FieldByName('名称').Value;
    query.Close;
    query.Free;

    result:= s;
end;

function Tmainform.getNum1(s1:string):string;
var
    Query:TADOQuery;
    s:string;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;

    s:='-';
    Query.SQL.Add('select * from 组织机构 where 组织机构类别='''+'管理处'+''' and 名称=''' + s1 + '''');
    Query.Open ;
    if query.RecordCount > 0 then s:=Query.FieldByName('编号').Value;
    query.Close;
    query.Free;

    result:= s;
end;

function Tmainform.getNum2(s1:string):string;
var
    Query:TADOQuery;
    s:string;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;

    s:='-';
    Query.SQL.Add('select * from 管理区 where 名称=''' + s1 + '''');
    Query.Open ;
    if query.RecordCount > 0 then s:=Query.FieldByName('编号').Value;
    query.Close;
    query.Free;

    result:= s;
end;

function Tmainform.getNum3(s1:string):string;
var
    Query:TADOQuery;
    s:string;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;

    s:='-';
    Query.SQL.Add('select * from 楼宇 where 名称=''' + s1 + '''');
    Query.Open ;
    if query.RecordCount > 0 then s:=Query.FieldByName('编号').Value;
    query.Close;
    query.Free;

    result:= s;
end;

function Tmainform.getNum4(s1:string):string;
var
    Query:TADOQuery;
    s:string;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;

    s:='-';
    Query.SQL.Add('select * from 停车场 where 名称=''' + s1 + '''');
    Query.Open ;
    if query.RecordCount > 0 then s:=Query.FieldByName('编号').Value;
    query.Close;
    query.Free;

    result:= s;
end;

Function Tmainform.StdInt(str:String):string;
var
    Code:integer;
    r:real;
    d:double;
    i:integer;
    s:string;
begin
    Val(str, r, Code);
    if Code <> 0 then d:=0 else d:=strtofloat(str);
    result:=Format('%.0f',[d]);
end;

Function Tmainform.StdDou2(str:String):string;
var
    Code:integer;
    r:real;
    d:double;
    i:integer;
    s:string;
begin
    Val(str, r, Code);
    if Code <> 0 then d:=0 else d:=strtofloat(str);
    result:=Format('%.2f',[d]);
end;

Function Tmainform.StdDou4(str:String):string;
var
    Code:integer;
    r:real;
    d:double;
    i:integer;
    s:string;
begin
    Val(str, r, Code);
    if Code <> 0 then d:=0 else d:=strtofloat(str);
    result:=Format('%.4f',[d]);
end;

Function Tmainform.StdDou5(str:String):string;
var
    Code:integer;
    r:real;
    d:double;
    i:integer;
    s:string;
begin
    Val(str, r, Code);
    if Code <> 0 then d:=0 else d:=strtofloat(str);
    result:=Format('%.5f',[d]);
end;

Function Tmainform.StdDou8(str:String):string;
var
    Code:integer;
    r:real;
    d:double;
    i:integer;
    s:string;
begin
    Val(str, r, Code);
    if Code <> 0 then d:=0 else d:=strtofloat(str);
    result:=Format('%.8f',[d]);
end;

procedure TMainForm.FormCreate(Sender: TObject);
var strConn:String;
begin
    sg1:='-';sg2:='-';sg3:='-';
    if sg1<>'-' then
    begin
        label2.Caption:=sg1;
        label3.Caption:=sg2;
        label4.Caption:=sg3;
    end
    else
    begin
        sg1:=label2.Caption;
        sg2:=label3.Caption;
        sg3:=label4.Caption;
    end;

    TheCaption:=self.Caption;//+'  '+label2.Caption;
    IsRotate:=False;
    IsRightShift:=False;
    wIcon:=GetSystemMetrics(SM_CXSIZE);
    wButton:=GetSystemMetrics(SM_CXSIZE);

    Timer2.Enabled:=True;
    RIndex:=0;
    JudgeAndAdjust;
    IsRotate:=True;
    StatusBar1.Panels[3].Text:=label2.Caption+' '+label3.caption+' '+label4.Caption;
    bOK := false;

    MyMD5 := TIdHashMessageDigest5.Create;
    sCompany:='物业管理有限公司'
end;

procedure TMainForm.FormShow(Sender: TObject);
var
    Query1:TADOQuery;
    t:string;
    i:integer;

begin
    loginDlg.showmodal;
    if(loginDlg.bOK = false)  then  application.Terminate ;

    //StatusBar1.Panels[1].Text := '操作员：'+czy;
    //StatusBar1.Panels[1].Text := '登陆时间：'+FormatDateTime('YYYY年MM月DD日  hh:mm:ss',now);
    StatusBar1.Panels[1].Text := '日期：'+FormatDateTime('YYYY-MM-DD',now);
end;

procedure TMainForm.FormResize(Sender: TObject);
var
    t:string;
begin
    {t := Format('%.0f',[Width*0.30]);
    StatusBar1.Panels[0].Width := strtoint(t);
    t := Format('%.0f',[Width*0.35]);
    StatusBar1.Panels[1].Width := strtoint(t);  }
end;

procedure TMainForm.Timer1Timer(Sender: TObject);
 begin
    //StatusBar1.Panels[2].Text := '现在时间：'+FormatDateTime('YYYY年MM月DD日  hh:mm:ss',now);
end;

procedure TMainForm.S31Click(Sender: TObject);
begin
    if Application.MessageBox('您确认要退出系统吗?','确认询问',MB_YesNo+MB_DEFBUTTON2+MB_IconQuestion+MB_ApplModal)=IDYES then
    begin
        winexec('DELTEMP.BAT',2);
        //halt;
        Application.Terminate;
    end;
    {
    F_ExitPrompt:=TF_ExitPrompt.Create(self);
    F_ExitPrompt.showmodal;
    if F_ExitPrompt.bOK=true then
    begin
        if DllHandle>0 then FreeLibrary(DllHandle);
        winexec('DELTEMP.BAT',2);
        halt;
    end; }
end;

procedure TMainForm.Timer3Timer(Sender: TObject);
var
    Query:TADOQuery;
    s:string;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;

    DataModuleADO.ADOConnection1.BeginTrans;
    s:='update 系统日志 set 离机时间='''+datetimetostr(now);
    s:=s+''' where 操作员=''' + czy+''' and 登陆时间='''+gTime+'''';
    Query.SQL.Text:=s;
    query.ExecSQL;
    DataModuleADO.ADOConnection1.CommitTrans;

    query.Close ;
    query.Free ;

end;

procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    S31Click(Sender);
    Action := caNone;
end;
        

//房产管理
procedure TMainForm.N244Click(Sender: TObject);
begin
    if getPodo('房产管理','管理区')=false then exit;
    f_RealtyA11:=Tf_RealtyA11.Create(self);
    f_RealtyA11.show;
end;

procedure TMainForm.N245Click(Sender: TObject);
begin
    if getPodo('房产管理','楼宇')=false then exit;
    f_RealtyA12:=Tf_RealtyA12.Create(self);
    f_RealtyA12.show;
end;

procedure TMainForm.N246Click(Sender: TObject);
begin
    if getPodo('房产管理','房间')=false then exit;
    f_RealtyA14:=Tf_RealtyA14.Create(self);
    f_RealtyA14.show;
end;

procedure TMainForm.N247Click(Sender: TObject);
begin
    if getPodo('房产管理','停车场')=false then exit;
    f_RealtyA13:=Tf_RealtyA13.Create(self);
    f_RealtyA13.show;
end;

procedure TMainForm.N248Click(Sender: TObject);
begin
    if getPodo('房产管理','车位')=false then exit;
    f_RealtyA15:=Tf_RealtyA15.Create(self);
    f_RealtyA15.show;
end;

procedure TMainForm.N249Click(Sender: TObject);
begin
    if getPodo('房产管理','批量新增房间')=false then exit;
    f_RealtyA26:=Tf_RealtyA26.create(self);
    f_RealtyA26.show;
end;

procedure TMainForm.N250Click(Sender: TObject);
begin
    if getPodo('房产管理','批量新增车位')=false then exit;
    f_RealtyA27:=Tf_RealtyA27.create(self);
    f_RealtyA27.show;
end;//////

procedure TMainForm.N12Click(Sender: TObject);
begin
    if getPodo('房产管理','房产验收项目')=false then exit;
    f_RealtyA22:=Tf_RealtyA22.Create(self);
    f_RealtyA22.show;
end;

procedure TMainForm.N13Click(Sender: TObject);
begin
    if getPodo('房产管理','房产验收')=false then exit;
    f_RealtyA32:=Tf_RealtyA32.Create(self);
    f_RealtyA32.show;
end;

procedure TMainForm.N251Click(Sender: TObject);
begin
    if getPodo('房产管理','管理区验收结果一览表')=false then exit;
    f_RealtyA32A:=Tf_RealtyA32A.Create(self);
    f_RealtyA32A.show;
end;

procedure TMainForm.N252Click(Sender: TObject);
begin
    if getPodo('房产管理','楼宇验收结果一览表')=false then exit;
    f_RealtyA32B:=Tf_RealtyA32B.Create(self);
    f_RealtyA32B.show;
end;

procedure TMainForm.N253Click(Sender: TObject);
begin
    if getPodo('房产管理','房间验收结果一览表')=false then exit;
    f_RealtyA32C:=Tf_RealtyA32C.Create(self);
    f_RealtyA32C.show;
end;

procedure TMainForm.N254Click(Sender: TObject);
begin
    if getPodo('房产管理','停车场验收结果一览表')=false then exit;
    f_RealtyA32D:=Tf_RealtyA32D.Create(self);
    f_RealtyA32D.show;
end;

procedure TMainForm.N255Click(Sender: TObject);
begin
    if getPodo('房产管理','车位验收结果一览表')=false then exit;
    f_RealtyA32E:=Tf_RealtyA32E.Create(self);
    f_RealtyA32E.show;
end;/////////

procedure TMainForm.M101Click(Sender: TObject);
begin
    if getPodo('房产管理','空置房间一览表')=false then exit;
    f_RealtyA41:=Tf_RealtyA41.Create(self);
    f_RealtyA41.show;
end;

procedure TMainForm.N106Click(Sender: TObject);
begin
    if getPodo('房产管理','空置车位一览表')=false then exit;
    f_RealtyA42:=Tf_RealtyA42.Create(self);
    f_RealtyA42.show;
end;
///////////////////////

//客户管理
procedure TMainForm.N710Click(Sender: TObject);
begin
    if getPodo('客户管理','新增客户成员')=false then exit;
    f_RealtyB21:=Tf_RealtyB21.Create(self);
    f_RealtyB21.show;
end;

procedure TMainForm.N711Click(Sender: TObject);
begin
    if getPodo('客户管理','客户资料一览表')=false then exit;
    f_RealtyB22:=Tf_RealtyB22.Create(self);
    f_RealtyB22.show;
end;

procedure TMainForm.N48Click(Sender: TObject);
begin
    if getPodo('客户管理','客户成员信息一览表')=false then exit;
    f_RealtyB23:=Tf_RealtyB23.Create(self);
    f_RealtyB23.show;
end;//////

procedure TMainForm.N60Click(Sender: TObject);
begin
    if getPodo('客户管理','客户入伙信息一览表')=false then exit;
    f_RealtyB32:=Tf_RealtyB32.Create(self);
    f_RealtyB32.show;
end;

procedure TMainForm.N61Click(Sender: TObject);
begin
    if getPodo('客户管理','客户入伙验收信息一览表')=false then exit;
    f_RealtyB33:=Tf_RealtyB33.Create(self);
    f_RealtyB33.show;
end;

procedure TMainForm.N63Click(Sender: TObject);
begin
    if getPodo('客户管理','客户车位信息一览表')=false then exit;
    f_RealtyB35:=Tf_RealtyB35.Create(self);
    f_RealtyB35.show;
end;///////////

procedure TMainForm.N64Click(Sender: TObject);
begin
    if getPodo('客户管理','客户迁入迁出一览表')=false then exit;
    f_RealtyB41:=Tf_RealtyB41.Create(self);
    f_RealtyB41.show;
end;

procedure TMainForm.N65Click(Sender: TObject);
begin
    if getPodo('客户管理','历史客户信息一览表')=false then exit;
    f_RealtyB42:=Tf_RealtyB42.Create(self);
    f_RealtyB42.show;
end;

procedure TMainForm.N66Click(Sender: TObject);
begin
    if getPodo('客户管理','住房通讯录')=false then exit;
    f_RealtyB43:=Tf_RealtyB43.Create(self);
    f_RealtyB43.show;
end;///////

procedure TMainForm.N114Click(Sender: TObject);
begin
    if getPodo('客户管理','客户事件一览表')=false then exit;
    f_RealtyB51:=Tf_RealtyB51.Create(self);
    f_RealtyB51.show;
end;

procedure TMainForm.N72Click(Sender: TObject);
begin
    if getPodo('客户管理','房产客户关系一览表')=false then exit;
    f_RealtyB61:=Tf_RealtyB61.Create(self);
    f_RealtyB61.show;
end;
////////////////////

//收费管理
procedure TMainForm.N119Click(Sender: TObject);
begin
    if getPodo('收费管理','收费项目')=false then exit;