xdelform.~pas

来自「简单的小区物业管理系统,户籍管理,出入管理,系统管理,收费管理,」· ~PAS 代码 · 共 79 行

unit xdelform;

interface

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

type
  Txdel = class(TForm)
    Label1: TLabel;
    Edit4: TEdit;
    btdel: TButton;
    DBGrid3: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btdelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xdel: Txdel;

implementation

uses mainform, DataM;

{$R *.dfm}

procedure Txdel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmmain.show;
end;

procedure Txdel.btdelClick(Sender: TObject);
begin

  if Edit4.Text<>'' then
  begin
  Data.ADOLogin.Close;
  Data.ADOLogin.SQL.Clear;
  Data.ADOLogin.SQL.Add('select * from Users where Username="'+Edit4.Text+'"');
  Data.ADOLogin.Open;
  Data.ADOLogin.Delete;
  Data.ADOLogin.Close;
  Data.ADOLogin.SQL.Clear;
  Data.ADOLogin.SQL.Add('select * from Users');
  Data.ADOLogin.Open;
  end
  else
    MessageDlg('用户为空',mtError,[mbOK],0);
end;

procedure Txdel.FormCreate(Sender: TObject);
begin
Data.ADOLogin.Close;
  Data.ADOLogin.SQL.Clear;
  Data.ADOLogin.SQL.Add('Select * from Users');
  Data.DataSouLogin.DataSet:=Data.ADOLogin;
  data. ADOConnectLogin.Connected:=True;
  Data.ADOLogin.Open;

end;

procedure Txdel.FormActivate(Sender: TObject);
begin
  Data.ADOLogin.Close;
  Data.ADOLogin.SQL.Clear;
  Data.ADOLogin.SQL.Add('Select * from Users');
  Data.DataSouLogin.DataSet:=Data.ADOLogin;
  Data.ADOLogin.Open;
end;

end.