setpass.pas

书籍类别（种类编号

unit SetPass;

interface

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

type
  TSetPassForm = class(TForm)
    Panel2: TPanel;
    StaticText4: TStaticText;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    Button2: TButton;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox4: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    ComboBox1: TComboBox;
    StaticText3: TStaticText;
    Button3: TButton;
    QX_DG: TDBGrid;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure QX_DGCellClick(Column: TColumn);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SetPassForm: TSetPassForm;

implementation

uses DBM;

{$R *.dfm}

procedure TSetPassForm.FormShow(Sender: TObject);

begin
 DM.UserADOQuery.Close;
 DM.UserADOQuery.SQL.Clear;
 Dm.UserADOQuery.SQL.Add('select * from Users') ;
 DM.UserADOQuery.Open;
 DM.DataSource2.DataSet :=Dm.UserADOQuery;
 QX_DG.DataSource :=DM.DataSource2;
 QX_DG.Columns.Items[0].FieldName :='username';
 QX_DG.Columns.Items[1].FieldName :='power';

end;

procedure TSetPassForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Action:=caFree;
end;

procedure TSetPassForm.QX_DGCellClick(Column: TColumn);
begin
if RadioButton2.Checked=true   then begin
try
    if QX_DG.SelectedField.DataSet.FieldValues['username']<>null then begin
        //RID:=DBGrid1.SelectedField.DataSet.FieldValues['ID'];

        Edit1.Text:=QX_DG.SelectedField.DataSet.FieldValues['username'];
        Edit2.Text:=QX_DG.SelectedField.DataSet.FieldValues['PassWord'];
        ComboBox1.Text:=QX_DG.SelectedField.DataSet.FieldValues['power'];
    end;
  except
  end;
end;
end;

procedure TSetPassForm.Button2Click(Sender: TObject);
var
BIDD :integer;
begin
 if QX_DG.SelectedField.DataSet.FieldValues['ID']<>null  then begin
    BIDD:=QX_DG.SelectedField.DataSet.FieldValues['ID'];
    with DM do
    begin
      ADOQuery3.Close;
      ADOQuery3.SQL.Clear;
      ADOQuery3.SQL.Add('delete users where ID='+IntToStr(BIDD));
      if MessageDlg('确定要删除吗？',mtConfirmation, [mbYes, mbNo], 0)= mrYes then begin
        ADOQuery3.ExecSQL;
        ShowMessage('数据删除成功！！！');
        UserADOQuery.Close;
        UserADOQuery.Open;
      end
      else
        Exit;
    end;
end;
end;

procedure TSetPassForm.Button3Click(Sender: TObject);
var
dd:integer;
begin
if RadioButton2.Checked=true  then begin
    DD:=QX_DG.SelectedField.DataSet.FieldValues['ID'];
   if Edit1.Text ='' then begin
    ShowMessage('    请选择用户！！！');
    Exit;
  end;

   if Edit2.Text ='' then begin
    ShowMessage('    请选择用户！！！');
    Exit;
  end;
    if Combobox1.Text ='' then begin
    ShowMessage('    请选择权限！！！');
    Exit;
  end;
  DM.ADOQuery2.Close;
  DM.ADOQuery2.SQL.Clear;
  DM.ADOQuery2.SQL.Add('update users set Username='''+Edit1.Text+''',password='''+Edit2.Text+''',power='''+combobox1.Text+''' where id='+inttostr(DD)) ;
  DM.ADOQuery2.ExecSQL;
  ShowMessage('修改成功！！！');
  DM.UserADOQuery.Close;
  DM.UserADOQuery.Open;
end ;

if RadioButton1.Checked=true   then begin
if Edit1.Text ='' then begin
    ShowMessage('    请选择用户！！！');
    Exit;
  end;

   if Edit2.Text ='' then begin
    ShowMessage('    请选择用户！！！');
    Exit;
  end;
    if Combobox1.Text ='' then begin
    ShowMessage('    请选择权限！！！');
    Exit;
  end;
  DM.ADOQuery2.Close;
  DM.ADOQuery2.SQL.Clear;
  DM.ADOQuery2.SQL.Add('select * from users') ;
  DM.ADOQuery2.Open;
         DM.ADOQuery2.Append;
         DM.ADOQuery2.Edit;
         DM.ADOQuery2.FieldValues['username']:=Edit1.Text;
         DM.ADOQuery2.FieldValues['password']:=Edit2.Text;
         DM.ADOQuery2.FieldValues['power']:=ComBoBox1.Text;
         DM.ADOQuery2.Post;
         ShowMessage('资料添加成功！！！');
  DM.UserADOQuery.Close;
  DM.UserADOQuery.Open;
end ;


end;

procedure TSetPassForm.Button1Click(Sender: TObject);
begin
close;
end;

end.