?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -