lyxx.~pas

来自「湖滨小区物业管理系统主要是针对湖滨小区的物业管理公司作为使用对象而开发的」· ~PAS 代码 · 共 76 行

unit lyxx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,connectdlg, StdCtrls, Buttons, DB, Grids, DBGrids, ADODB,
  ExtCtrls, DBCtrls;

type
  Tlouyuxinxi2 = class(TForm)
    GroupBox2: TGroupBox;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    ADOQuery2: TADOQuery;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
    procedure   WMSYSCOMMAND(VAR  Message: TMessage);message  WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  louyuxinxi2: Tlouyuxinxi2;

implementation

{$R *.dfm}
procedure   Tlouyuxinxi2.WMSYSCOMMAND(VAR   Message:   TMessage);
begin
    if   Message.WParam   =   SC_CLOSE   then
    Application.Minimize //拦截后什么也不做！
else
    inherited;
end;

procedure Tlouyuxinxi2.BitBtn3Click(Sender: TObject);
begin
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Text:='select * from lph';
adoquery2.Open;
dbgrid2.Columns[0].FieldName:='id';
dbgrid2.Columns[1].FieldName:='loupainumber';
dbgrid2.Columns[2].FieldName:='unitnumber';

end;

procedure Tlouyuxinxi2.BitBtn4Click(Sender: TObject);
begin
 close;
end;

procedure Tlouyuxinxi2.BitBtn1Click(Sender: TObject);
begin
     if adoquery2.FieldByName('id').AsString='' then
     showmessage('数据表表与空,无法删除')
     else
      begin
        adoquery2.Delete;
        showmessage('删除成功');
        
        
        end;

end;

end.