u_usermanage.pas

来自「这是一个用条码录入的数据的进销存(只对成品）---做童装的」· PAS 代码 · 共 67 行

unit U_UserManage;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_Set_Base, WinSkinData, DB, ADODB, Buttons, Grids, DBGridEh,
  ExtCtrls, StdCtrls, DBCtrls, Mask;

type
  TF_UserManage = class(TF_set_base)
    Ado_QueryUserid: TStringField;
    Ado_QueryUsername: TStringField;
    Ado_QueryPassword: TStringField;
    Ado_QueryGroupid: TBooleanField;
    Label1: TLabel;
    Euserid: TDBEdit;
    Label2: TLabel;
    EUsername: TDBEdit;
    Label3: TLabel;
    Epassword: TDBEdit;
    CIsManage: TDBCheckBox;
    procedure btn_insertClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Ado_QueryPasswordGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_UserManage: TF_UserManage;

implementation

uses U_DM, U_Function;

{$R *.dfm}

procedure TF_UserManage.btn_insertClick(Sender: TObject);
begin
EUserid.SetFocus;
  inherited;

end;

procedure TF_UserManage.FormCreate(Sender: TObject);
begin
  inherited;
  height:=345;
  Width:=  548;
  Opensql(Ado_query,'Select * from Iuser');
end;

procedure TF_UserManage.Ado_QueryPasswordGetText(Sender: TField;
  var Text: String; DisplayText: Boolean);
begin
  inherited;
  if sender.Value<>'' then
  Text:='******'

end;

end.