frm_louyuaddu.pas

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

unit frm_louyuAddU;

interface

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

type
  Tfrm_louyuAdd = class(TForm)
    Edt_name: TEdit;
    Label1: TLabel;
    Btn_ok: TButton;
    Btn_cancel: TButton;
    procedure Btn_cancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    LYorDY:string;//确定是楼宇信息还是单元信息
    LYHid,DYHid:integer;
    AddOrEdit:string;//判断是添加还是编辑
    QueryAdd:TADOquery;
  end;

var
  frm_louyuAdd: Tfrm_louyuAdd;

implementation
uses ClassesU,Control_yzU;
{$R *.dfm}

procedure Tfrm_louyuAdd.Btn_cancelClick(Sender: TObject);
begin
close;
end;

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

procedure Tfrm_louyuAdd.FormShow(Sender: TObject);
begin
  QueryAdd:=TADOquery.Create(self);
end;

procedure Tfrm_louyuAdd.Btn_okClick(Sender: TObject);
var
  building:TBuilding;
  BUnit:TBUnit;
begin
if(self.Edt_name.Text =null) or (self.Edt_name.Text='') then
  begin
    MessageBox(Handle, '名称不能为空', '小区物业', MB_ICONASTERISK);
    exit;
  end;
if AddOrEdit='添加' then
  begin
    if LYorDY='楼宇' then
      begin
        building:=Tbuilding.Create;
        building.BuildingName:=trim(self.Edt_name.Text);
        if Control_yzU.AddBuilding(building) then
          MessageBox(Handle, '添加成功', '信息', MB_ICONASTERISK)
        else
          MessageBox(Handle, '添加失败', '信息', MB_ICONEXCLAMATION);
      end
    else
      begin
        bunit:=Tbunit.Create;
        bunit.BUnitName:=trim(self.Edt_name.Text);
        bunit.buildingID:=self.LYHid;
        if Control_yzU.AddBUnit(bunit) then
          MessageBox(Handle, '添加成功', '信息', MB_ICONASTERISK)
        else
          MessageBox(Handle, '添加失败', '信息', MB_ICONEXCLAMATION);
      end;
  end
else//编辑
  begin
    if LYorDY='楼宇' then
      begin
        building:=Tbuilding.Create;
        building.id:=self.LYHid;
        building.BuildingName:=trim(self.Edt_name.Text);
        if Control_yzU.EditBuilding(building) then
          MessageBox(Handle, '修改成功', '信息', MB_ICONASTERISK)
        else
          MessageBox(Handle, '修改失败', '信息', MB_ICONEXCLAMATION);
      end
    else
      begin
        bunit:=Tbunit.Create;
        bunit.id:=self.DYHid;
        bunit.BUnitName:=trim(self.Edt_name.Text);
        bunit.buildingID:=self.LYHid;
        if Control_yzU.EditBUnit(bunit) then
          MessageBox(Handle, '修改成功', '信息', MB_ICONASTERISK)
        else
          MessageBox(Handle, '修改失败', '信息', MB_ICONEXCLAMATION);
      end;
  end;
  close;
end;

end.