ufloor.~pas

来自「一个实用的房地产行业收费管理软件」· ~PAS 代码 · 共 92 行

unit ufloor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGridEh, StdCtrls, Buttons;

type
  TForm3 = class(TForm)
    GroupBox1: TGroupBox;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses maindata;

{$R *.dfm}

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
with datamodule1.insertfloor do
 begin
 sql.clear;
 sql.add('select * from floor where floorname=:mf');
 parambyname('mf').AsString:=edit1.Text;
 open;
 end;
 if datamodule1.insertfloor.RecordCount>0 then
 begin
  application.MessageBox('资料已经存在','提示',mb_ok);
  abort;
 end else
 begin
 with datamodule1.insertfloor do
 begin
  sql.clear;
  sql.add('insert into floor(floorname) values(:mf)');
  parambyname('mf').AsString:=edit1.Text;
  execsql;
 end;
 with datamodule1.insertfloor do
 begin
 sql.clear;
 sql.add('select * from floor');
 open;
 end;
with datamodule1.floorQ do
 begin
 sql.clear;
 sql.add('select *   from floor ');
 open;
 end; 
 application.MessageBox('增加成功！','提示',mb_ok);
 end;

end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
with datamodule1.insertfloor do
 begin
 sql.clear;
 sql.add('delete  from floor where floorname=:mf');
 parambyname('mf').AsString:=datamodule1.floorQ.fieldbyname('floorname').AsString;
 execsql;
 end;

with datamodule1.floorQ do
 begin
 sql.clear;
 sql.add('select *   from floor ');
 open;
 end;
end;

end.