unit9.pas

一个DEPHI设备保养系统全套,不错的设计参考

unit Unit9;

interface

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

type
  Tfrmusermang = class(TForm)
    DBGrid1: TDBGrid;
    adodsuser: TDataSource;
    adoqueuser: TADOQuery;
    adoqueuseruser: TWideStringField;
    adoqueuserpassword: TWideStringField;
    adoqueuserpower: TWideStringField;
    Label1: TLabel;
    btnok: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure btnokClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmusermang: Tfrmusermang;

implementation
uses unit5,unit6;
{$R *.dfm}

procedure Tfrmusermang.FormCreate(Sender: TObject);
var username:string;
begin
username:=copy(frmmain.StatusBar1.Panels[2].Text,11,7);
adoqueuser.Close;
adoqueuser.SQL.Clear;
if frmmain.StatusBar1.Panels[3].Text<>'管理用户' then
begin
adoqueuser.SQL.Add('select* from pass where user='+'"'+username+'"');
dbgrid1.Columns[0].Width:=105;
dbgrid1.Columns[1].Width:=105;
dbgrid1.Columns[2].Visible:=false;
end
else
begin
adoqueuser.SQL.Add('select * from pass ');
end;
adoqueuser.Open;
end;

procedure Tfrmusermang.btnokClick(Sender: TObject);
begin
frmusermang.Release;
end;

end.