user.pas

来自「一个小型的酒店管理系统」· PAS 代码 · 共 81 行

unit User;

interface

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

type
  TUserFrm = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserFrm: TUserFrm;
  Account: string;

implementation

{$R *.dfm}

uses UserAdd;

procedure TUserFrm.SpeedButton1Click(Sender: TObject);
begin
  UserAddFrm.Show;
end;

procedure TUserFrm.SpeedButton3Click(Sender: TObject);
begin
  UserFrm.Close;
end;

procedure TUserFrm.DBGrid1CellClick(Column: TColumn);
begin
  Account := DBGrid1.DataSource.DataSet.Fields[0].Value;
end;

procedure TUserFrm.SpeedButton2Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('delete from HHUser where Account=:Account');
  ADOQuery1.Parameters.ParamByName('Account').Value := Account;
  ADOQuery1.ExecSQL;
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select Account as 帐号,Password as 密码,Permissions as 权限,UserName as 姓名 from HHUser');
  ADOQuery1.Open;
end;

procedure TUserFrm.DBGrid1TitleClick(Column: TColumn);
var
  AscOrDesc: Boolean;
begin
  AscOrDesc := True;
  if AscOrDesc then
    ADOQuery1.Sort := Column.FieldName + ' ASC'
  else
    ADOQuery1.Sort := Column.FieldName + ' DESC';
  AscOrDesc := not AscOrDesc;
end;

end.