frm_yzeditu.pas

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

unit frm_yzEditU;

interface

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

type
  Tfrm_yzEdit = class(TForm)
    EdtName: TEdit;
    EdtWork: TEdit;
    EdtNo: TEdit;
    EdtArea: TEdit;
    EdtHouseStyle: TEdit;
    EdtTel: TEdit;
    EdtMobil: TEdit;
    memRemark: TMemo;
    btnOver: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    btnCancel: TButton;
    btnNext: TButton;
    Label9: TLabel;
    Label10: TLabel;

    procedure btnCancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnNextClick(Sender: TObject);
    procedure btnOverClick(Sender: TObject);
    procedure EdtNoKeyPress(Sender: TObject; var Key: Char);
    procedure EdtMobilKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public

    i_lph,i_dyh,i_id:integer;
    function AddYZINFO(lph,dyh,mph:integer;yzName,workplace:string;area:integer;
                       houseStyle,tel,mobil,remark:string):bool;
    function UPDATEYZINFO(lph,dyh,mph:integer;yzName,workplace:string;area:integer;
                       houseStyle,tel,mobil,remark:string;id:integer):bool;
    procedure IniInterFace;

  end;

var
  frm_yzEdit: Tfrm_yzEdit;

implementation

uses DataMU,classesU,Control_yzU;

{$R *.dfm}

procedure Tfrm_yzEdit.IniInterFace;
begin
  self.EdtName.Text:='';
  self.EdtWork.Text:='';
  self.EdtNo.Text:='';
  self.EdtArea.Text:='50';
  self.EdtHouseStyle.Text:='';
  self.EdtTel.Text:='';
  self.EdtMobil.Text:='';
  self.memRemark.Text:='';
end;
function Tfrm_yzEdit.UPDATEYZINFO(lph,dyh,mph:integer;yzName,workplace:string;area:integer;
                       houseStyle,tel,mobil,remark:string;id:integer):bool;
var
  sql:string;
  yzInfo:Tyzinfo;
begin
  yzInfo:=Tyzinfo.Create;
  yzInfo.id:=id;
  yzInfo.LPHid:=lph;
  yzInfo.DYHid:=dyh;
  yzInfo.mph:=mph;
  yzInfo.yzName:=yzName;
  yzInfo.yzDW:=workplace;
  yzInfo.yzMJ:=area;
  yzInfo.yzHX:=houseStyle;
  yzInfo.yzTel:=tel;
  yzInfo.yzMobile:=mobil;
  yzInfo.remark:=remark;
  result:=Control_yzU.EditYZinfo(yzInfo);
end;
function Tfrm_yzEdit.AddYZINFO(lph,dyh,mph:integer;yzName,workplace:string;area:integer;
                       houseStyle,tel,mobil,remark:string):bool;
var
  sql:string;
  yzInfo:Tyzinfo;
begin
  yzInfo:=Tyzinfo.Create;
  yzInfo.LPHid:=lph;
  yzInfo.DYHid:=dyh;
  yzInfo.mph:=mph;
  yzInfo.yzName:=yzName;
  yzInfo.yzDW:=workplace;
  yzInfo.yzMJ:=area;
  yzInfo.yzHX:=houseStyle;
  yzInfo.yzTel:=tel;
  yzInfo.yzMobile:=mobil;
  yzInfo.remark:=remark;
  result:=Control_yzU.AddYZinfo(yzInfo);
end;
procedure Tfrm_yzEdit.btnCancelClick(Sender: TObject);
begin
close;
end;

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

procedure Tfrm_yzEdit.btnNextClick(Sender: TObject);
begin
  if(self.EdtName.Text =null) or (self.EdtNo.Text =null) then
    begin
      MessageBox(Handle, '姓名和门牌号都不能为空', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  if(trim(self.EdtName.Text)='') or (trim(self.EdtNo.Text)='') then
    begin
      MessageBox(Handle, '姓名和门牌号都不能为空', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  if(AddYZINFO(i_lph,i_dyh,strtoint(trim(edtNo.Text)),trim(edtname.Text),
            trim(edtwork.Text),strtoint(trim(edtarea.Text)),
                       trim(edthouseStyle.Text),trim(edttel.Text),
                       trim(edtmobil.Text),memremark.Text)) then
    begin
      showmessage('添加成功！');
      IniInterFace;
    end
  else
       showmessage('添加失败');
end;

procedure Tfrm_yzEdit.btnOverClick(Sender: TObject);
begin
if(self.EdtName.Text =null) or (self.EdtNo.Text =null) then
    begin
      MessageBox(Handle, '姓名和门牌号都不能为空', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;
  if(trim(self.EdtName.Text)='') or (trim(self.EdtNo.Text)='') then
    begin
      MessageBox(Handle, '姓名和门牌号都不能为空', '小区物业', MB_ICONEXCLAMATION);
      exit;
    end;

    if(self.btnNext.Visible=true) then //如果是则添加数据
      begin
        if(AddYZINFO(i_lph,i_dyh,strtoint(trim(edtNo.Text)),trim(edtname.Text),
                trim(edtwork.Text),strtoint(trim(edtarea.Text)),
                           trim(edthouseStyle.Text),trim(edttel.Text),
                           trim(edtmobil.Text),memremark.Text)) then
          begin
            close;
          end
        else
           showmessage('添加失败');
      end
    else  //更新数据
      begin
        if(UPDATEYZINFO(i_lph,i_dyh,strtoint(trim(edtNo.Text)),trim(edtname.Text),
                trim(edtwork.Text),strtoint(trim(edtarea.Text)),
                           trim(edthouseStyle.Text),trim(edttel.Text),
                           trim(edtmobil.Text),memremark.Text,i_id)) then
          begin
            close;
          end
        else
           showmessage('修改失败');
      end;
end;

procedure Tfrm_yzEdit.EdtNoKeyPress(Sender: TObject; var Key: Char);
begin
if not((key in ['0'..'9',#8,#13]) ) then
    key := #0;
end;

procedure Tfrm_yzEdit.EdtMobilKeyPress(Sender: TObject; var Key: Char);
begin
if not((key in ['0'..'9',#8,#13]) ) then
    key := #0;
end;

end.