frm_yzu.~pas

能够记录、管理小区内各楼盘的基本信息 对业主、房产资料要有记录、管理

unit frm_yzU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Grids, DBGrids, StdCtrls, DBCtrls,DataMU,DB, ADODB,config;

type
  TFrm_yz = class(TForm)
    Panel1: TPanel;
    DBGridYZ: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    btnAdd: TButton;
    btnEdit: TButton;
    btnDel: TButton;
    btnClose: TButton;
    dblupCbxLPH: TDBLookupComboBox;
    dblupCbxDYH: TDBLookupComboBox;
    btn_fee: TButton;
    DataS: TDataSource;
    DataS_lph: TDataSource;
    DataS_dyh: TDataSource;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure dblupCbxLPHCloseUp(Sender: TObject);
    procedure dblupCbxDYHCloseUp(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure btnCloseClick(Sender: TObject);
    procedure btnRefreshClick(Sender: TObject);
    procedure btnDelClick(Sender: TObject);
    procedure btn_feeClick(Sender: TObject);
    procedure DBGridYZCellClick(Column: TColumn);
  private
    { Private declarations }
  public
    procedure FillLPH;
    procedure FillDYH(lph:integer);
    procedure FillDataGrid(lph,dyh:integer);
  end;

var
  Frm_yz: TFrm_yz;

implementation
{$R *.dfm}
uses frm_yzEditU,frm_feePayU,Control_yzU;
procedure TFrm_yz.FillDataGrid(lph,dyh:integer);
begin
  DataS.DataSet:=Control_yzU.GetYZByLPHandDYH(lph,dyh);
  self.DBGridYZ.DataSource:=DataS;
  DataS.DataSet.FieldByName('id').Visible:=false;
  DataS.DataSet.FieldByName('楼牌号id').Visible:=false;
  DataS.DataSet.FieldByName('单元号id').Visible:=false;

end;
//填充楼牌号
procedure TFrm_yz.FillDYH(lph:integer);
var
  sql:string;
begin
  DataS_dyh.DataSet:=Control_yzU.GetBUnitByBID(lph);
  self.dblupCbxDYH.ListSource :=DataS_dyh;
  self.dblupCbxDYH.ListField :='单元号';
  self.dblupCbxDYH.KeyField:='id';
end;
//填充单元号
procedure TFrm_yz.FillLPH;
var
  sql:string;
begin
  DataS_lph.DataSet:=Control_yzU.GetBuildingArray;
  self.dblupCbxLPH.ListSource :=DataS_lph;
  self.dblupCbxLPH.ListField :='楼牌号';
  self.dblupCbxLPH.KeyField:='id';
end;
procedure TFrm_yz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DataM.ADOCon.Close;
action:=cafree;
end;

procedure TFrm_yz.FormShow(Sender: TObject);
begin
FillLPH;
end;

procedure TFrm_yz.dblupCbxLPHCloseUp(Sender: TObject);
begin
if(self.dblupCbxLPH.KeyValue>0) then
  begin
    FillDYH(self.dblupCbxLPH.KeyValue);
    btnRefreshClick(Sender);
  end;
end;

procedure TFrm_yz.dblupCbxDYHCloseUp(Sender: TObject);
var
  lph,dyh:integer;
begin
lph:=self.dblupCbxLPH.KeyValue;
dyh:=self.dblupCbxDYH.KeyValue;
if((lph>0) and (dyh>0)) then
 FillDataGrid(lph,dyh);

end;

procedure TFrm_yz.btnAddClick(Sender: TObject);
var
  frm_yzEdit: Tfrm_yzEdit;
  lph,dyh:integer;
begin
  if(VarIsNull(self.dblupCbxLPH.KeyValue) ) then
     begin
       showmessage('请选择楼牌号');
       exit;
     end;
  if(VarIsNull(self.dblupCbxDYH.KeyValue )) then
     begin
       showmessage('请选择单元号');
       exit;
     end;
  lph:=self.dblupCbxLPH.KeyValue;
  dyh:=self.dblupCbxDYH.KeyValue;
  if((lph>0) and (dyh>0)) then
    begin
      frm_yzEdit:=Tfrm_yzEdit.Create(self);
      frm_yzEdit.i_lph:=lph;
      frm_yzEdit.i_dyh:=dyh;
      frm_yzEdit.ShowModal;
      //刷新
      FillDataGrid(lph,dyh);
    end
  else
    showmessage('请选择楼牌号和单元号');
end;

procedure TFrm_yz.btnEditClick(Sender: TObject);
var
  frm_yzEdit: Tfrm_yzEdit;
  Bookmarklist:TBookmarkList;
  lph,dyh:integer;
begin
if(VarIsNull(self.dblupCbxLPH.KeyValue) ) then
     begin
       showmessage('请选择楼牌号');
       exit;
     end;
  if(VarIsNull(self.dblupCbxDYH.KeyValue )) then
     begin
       showmessage('请选择单元号');
       exit;
     end;
if((DataS.DataSet.RecordCount>0) and (not DataS.DataSet.FieldByName('id').IsNull)) then
  begin
    frm_yzEdit:=Tfrm_yzEdit.Create(self);
    frm_yzEdit.btnNext.Visible:=false;
    frm_yzEdit.EdtName.Text:=DataS.DataSet.FieldValues['姓名'];
    frm_yzEdit.EdtWork.Text:=DataS.DataSet.FieldValues['工作单位'];
    frm_yzEdit.EdtNo.Text:=DataS.DataSet.FieldValues['门牌号'];
    frm_yzEdit.EdtArea.Text:=DataS.DataSet.FieldValues['面积'];
    frm_yzEdit.EdtHouseStyle.Text:=DataS.DataSet.FieldValues['户型'];
    frm_yzEdit.EdtTel.Text:=DataS.DataSet.FieldValues['固定电话'];
    frm_yzEdit.EdtMobil.Text:=DataS.DataSet.FieldValues['手机'];
    frm_yzEdit.memRemark.Text:=DataS.DataSet.FieldValues['备注'];
    frm_yzEdit.i_id :=DataS.DataSet.FieldValues['id'];
    frm_yzEdit.i_lph :=DataS.DataSet.FieldValues['楼牌号id'];
    frm_yzEdit.i_dyh :=DataS.DataSet.FieldValues['单元号id'];
    frm_yzEdit.ShowModal;
    lph:=self.dblupCbxLPH.KeyValue;
    dyh:=self.dblupCbxDYH.KeyValue;
    if((lph>0) and (dyh>0)) then
      FillDataGrid(lph,dyh);
  end
else
  begin
     showmessage('请选择要修改的条目');
  end;
end;

procedure TFrm_yz.btnCloseClick(Sender: TObject);
begin
close;
end;

procedure TFrm_yz.btnRefreshClick(Sender: TObject);
var
  lph,dyh:integer;
begin
if((self.dblupCbxLPH.KeyValue =null )or (self.dblupCbxDYH.KeyValue =null)) then
  exit;
lph:=self.dblupCbxLPH.KeyValue;
dyh:=self.dblupCbxDYH.KeyValue;
if((lph>0) and (dyh>0)) then
 FillDataGrid(lph,dyh);
end;

procedure TFrm_yz.btnDelClick(Sender: TObject);
begin
if(VarIsNull(self.dblupCbxLPH.KeyValue) ) then
     begin
       showmessage('请选择楼牌号和单元号');
       exit;
     end;
  if(VarIsNull(self.dblupCbxDYH.KeyValue )) then
     begin
       showmessage('请选择楼牌号和单元号');
       exit;
     end;
if((DataS.DataSet.RecordCount>0) and (not DataS.DataSet.FieldByName('id').IsNull))  then
  begin
    if (MessageBox(Handle, '您确定要删除改业主信息吗？', '小区物业', MB_ICONQUESTION or MB_OKCANCEL) = IDOK )  then
    begin
      DataS.DataSet.Delete;
    end;
  end
else
  begin
    showmessage('请选择要删除的条目');
  end;
end;

procedure TFrm_yz.btn_feeClick(Sender: TObject);
var
  frm_feePay:Tfrm_feePay;
begin
 if(VarIsNull(self.dblupCbxLPH.KeyValue) ) then
     begin
       showmessage('请选择要楼牌号和单元号');
       exit;
     end;
  if(VarIsNull(self.dblupCbxDYH.KeyValue )) then
     begin
       showmessage('请选择要楼牌号和单元号');
       exit;
     end;
if(DataS.DataSet.FieldValues['id']=null) then
  begin
   MessageBox(Handle, '请选择要缴费的用户', '小区物业', MB_ICONASTERISK);
   exit;
  end ;
  frm_feePay:=Tfrm_feePay.Create(self);
  frm_feePay.yzID:=DataS.DataSet.FieldValues['id'];
  frm_feePay.lab_yzname.Caption:=DataS.DataSet.FieldValues['姓名'];
  frm_feePay.ShowModal;
end;

procedure TFrm_yz.DBGridYZCellClick(Column: TColumn);
begin
 //MessageBox(Handle, pchar(inttostr(self.DBGridYZ.SelectedIndex)), '小区物业', MB_ICONASTERISK);
end;

end.