frm_louyuinfou.pas

这是一个小区物业管理系统

unit frm_louyuInfoU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids,DB, ADODB,Config;

type
  Tfrm_louyu = class(TForm)
    DBGridLPH: TDBGrid;
    DBGridDYH: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    btn_addlouyu: TButton;
    btn_editlouyu: TButton;
    btn_adddany: TButton;
    btn_editdany: TButton;
    btn_dellouyu: TButton;
    btn_deldany: TButton;
    btn_close: TButton;
    DataSLY: TDataSource;
    DataSDY: TDataSource;
    procedure btn_closeClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_addlouyuClick(Sender: TObject);
    procedure btn_adddanyClick(Sender: TObject);
    procedure btn_editlouyuClick(Sender: TObject);
    procedure btn_editdanyClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DBGridLPHCellClick(Column: TColumn);
    procedure btn_dellouyuClick(Sender: TObject);
    procedure btn_deldanyClick(Sender: TObject);
    procedure DBGridLPHKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
   
  public
    procedure FillUI();
    procedure FillUI_dyInfo(lph:integer);
  
  end;

var
  frm_louyu: Tfrm_louyu;

implementation
uses frm_louyuAddU, DataMU,Control_yzU;
{$R *.dfm}
procedure Tfrm_louyu.FillUI_dyInfo(lph:integer);
begin
  DataSDY.DataSet:=Control_yzU.GetBUnitByBID(lph);
  DataSDY.DataSet.FieldByName('id').Visible:=false;
  DBGridDYH.DataSource:=DataSDY;
  
end;
procedure Tfrm_louyu.FillUI;
begin
  DataSLY.DataSet:=Control_yzU.GetBuildingArray;
  DataSLY.DataSet.FieldByName('id').Visible:=false;
  DBGridLPH.DataSource:=DataSLY;
end;
procedure Tfrm_louyu.btn_closeClick(Sender: TObject);
begin
close;
end;

procedure Tfrm_louyu.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Tfrm_louyu.btn_addlouyuClick(Sender: TObject);
var
  frm_louyuAdd:Tfrm_louyuAdd;
begin
  frm_louyuAdd:=Tfrm_louyuAdd.Create(self);
  frm_louyuAdd.LYorDY:='楼宇';
  frm_louyuAdd.AddOrEdit:='添加';
  frm_louyuAdd.ShowModal;
  FillUI;
  if(DataSLY.DataSet.FieldValues['id'] <>null)then
    FillUI_dyInfo(DataSLY.DataSet.FieldValues['id']);
end;

procedure Tfrm_louyu.btn_adddanyClick(Sender: TObject);
var
  frm_louyuAdd:Tfrm_louyuAdd;
begin
  frm_louyuAdd:=Tfrm_louyuAdd.Create(self);

  frm_louyuAdd.LYorDY:='单元';
  frm_louyuAdd.LYHid:=DataSLY.DataSet.FieldValues['id'];
  frm_louyuAdd.Label1.Caption :=DataSLY.DataSet.FieldValues['楼牌号'];
  frm_louyuAdd.AddOrEdit:='添加';
  frm_louyuAdd.ShowModal;
  if(DataSLY.DataSet.FieldValues['id'] <>null)then
    FillUI_dyInfo(DataSLY.DataSet.FieldValues['id']);
   
end;

procedure Tfrm_louyu.btn_editlouyuClick(Sender: TObject);
var
  frm_louyuAdd:Tfrm_louyuAdd;
begin
    if(DataSLY.DataSet.FieldValues['id']=null) then
    begin
      MessageBox(Handle, '请选择要编辑的楼宇', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  frm_louyuAdd:=Tfrm_louyuAdd.Create(self);
  frm_louyuAdd.Caption:='编辑';
  frm_louyuAdd.LYorDY:='楼宇';
  frm_louyuAdd.LYHid:=DataSLY.DataSet.FieldValues['id'];
  frm_louyuAdd.Edt_name.Text :=DataSLY.DataSet.FieldValues['楼牌号'];
  frm_louyuAdd.AddOrEdit:='编辑';
  frm_louyuAdd.ShowModal;
  FillUI;
  if(DataSLY.DataSet.FieldValues['id'] <>null)then
    FillUI_dyInfo(DataSLY.DataSet.FieldValues['id']);
end;

procedure Tfrm_louyu.btn_editdanyClick(Sender: TObject);
var
  frm_louyuAdd:Tfrm_louyuAdd;
begin
  if(DataSDY.DataSet.FieldValues['id']=null) then
    begin
      MessageBox(Handle, '请选择要编辑的单元', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  frm_louyuAdd:=Tfrm_louyuAdd.Create(self);
  frm_louyuAdd.Caption:='编辑';
  frm_louyuAdd.LYorDY:='单元';
  frm_louyuAdd.LYHid:=DataSLY.DataSet.FieldValues['id'];
  frm_louyuAdd.DYHid:=DataSDY.DataSet.FieldValues['id'];
  frm_louyuAdd.Label1.Caption :=DataSLY.DataSet.FieldValues['楼牌号'];
  frm_louyuAdd.Edt_name.Text :=DataSDY.DataSet.FieldValues['单元号'];
  frm_louyuAdd.AddOrEdit:='编辑';
  frm_louyuAdd.ShowModal;
  if(DataSDY.DataSet.FieldValues['id'] <>null)then
    FillUI_dyInfo(DataSDY.DataSet.FieldValues['id']);
end;

procedure Tfrm_louyu.FormShow(Sender: TObject);
begin
FillUI;
if(DataSLY.DataSet.FieldValues['id'] <>null)then
  FillUI_dyInfo(DataSLY.DataSet.FieldValues['id']);
end;

procedure Tfrm_louyu.DBGridLPHCellClick(Column: TColumn);
begin
  if(DataSLY.DataSet.FieldValues['id'] <>null)then
    FillUI_dyInfo(DataSLY.DataSet.FieldValues['id']);
end;

procedure Tfrm_louyu.btn_dellouyuClick(Sender: TObject);
begin
if(DataSDY.DataSet.FieldValues['id'] =null)then
  begin
    MessageBox(Handle, '请先选择要删除的楼牌号', '小区物业', MB_ICONEXCLAMATION);
    exit;
  end;
if MessageBox(Handle, '确定要删除该楼宇吗', '小区物业', MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
  begin
    DataSLY.DataSet.Delete;
    if(DataSLY.DataSet.FieldValues['id'] <>null)then
    FillUI_dyInfo(DataSLY.DataSet.FieldValues['id']);
  end;
end;

procedure Tfrm_louyu.btn_deldanyClick(Sender: TObject);
begin
if(DataSDY.DataSet.FieldValues['id'] =null)then
  begin
    MessageBox(Handle, '请先选择要删除的楼牌号', '小区物业', MB_ICONEXCLAMATION);
    exit;
  end;
if MessageBox(Handle, '确定要删除该单元吗', '小区物业', MB_ICONQUESTION or MB_OKCANCEL) = IDOK then
  begin
    DataSDY.DataSet.Delete;
  end;
end;

procedure Tfrm_louyu.DBGridLPHKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if(DataSLY.DataSet.FieldValues['id'] <>null)then
    FillUI_dyInfo(DataSLY.DataSet.FieldValues['id']);
end;

end.