login.~pa

来自「Barcode And LabelPrint」· ~PA 代码 · 共 80 行

unit Login;

interface


uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Db, DBTables, ExtCtrls, Buttons, Grids, DBGrids, Registry, jpeg, Variants, ADODB; //,OoMisc

type
  TFrmLogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    EdtPassword: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Panel1: TPanel;
    O: TImage;
    Bevel1: TBevel;
    Bevel2: TBevel;
    cbbName: TComboBox;
    procedure FormShow(Sender: TObject);




  private
    { Private declarations }
  public
    { Public declarations }

  end;

var

  FrmLogin: TFrmLogin;

implementation

uses StockDataModel;



{$R *.DFM}






procedure TFrmLogin.FormShow(Sender: TObject);
begin
  with TAdoQuery.Create(nil) do
  begin
    try
      connection := StockDM.ADOConn;
      Sql.Clear;
      sql.Add('SELECT * FROM Users');
      open;
      cbbName.Clear;
      if not Isempty then
      begin
        first;
        while not EOF do
        begin
          cbbName.AddItem(FieldByName('UserName').AsString + '[' + FieldByName('UserNum').AsString + ']', self);
          next;
        end;
        cbbName.ItemIndex := 0;
      end;
    finally
      Free;
    end;
  end;

end;


end.