unit7.pas

大家可以看看还不错的管理系统

unit Unit7;

interface

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

type
  TfrmGuashi = class(TForm)
    DBGrid1: TDBGrid;
    btnGuashi: TButton;
    btnJiegua: TButton;
    btnExit: TButton;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure btnExitClick(Sender: TObject);
    procedure btnGuashiClick(Sender: TObject);
    procedure btnJieguaClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmGuashi: TfrmGuashi;

implementation

{$R *.dfm}

procedure TfrmGuashi.btnExitClick(Sender: TObject);
begin
  frmGuashi.Close;
end;

procedure TfrmGuashi.btnGuashiClick(Sender: TObject);
begin
  try
  with adoquery1 do
    begin
      edit;
      fields.FieldByName('挂失').AsString:='冻结';
      post;
    end;
  except
    showmessage('数据库连接发生错误！');
  end;

end;

procedure TfrmGuashi.btnJieguaClick(Sender: TObject);
begin
  try
  with adoquery1 do
    begin
      edit;
      fields.FieldByName('挂失').AsString:='活跃';
      post;
    end;
  except
      showmessage('数据库连接发生错误！');
  end;

end;

end.