slectuser.pas

自己做的通讯录程序

unit SlectUser;

interface

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

type
  TfrmSelectUser = class(TForm)
    lbUserList: TListBox;
    btOK: TBitBtn;
    BitBtn2: TBitBtn;
    ADOQuery1: TADOQuery;
    Panel1: TPanel;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure btOKClick(Sender: TObject);
    procedure lbUserListDblClick(Sender: TObject);
  private
    { Private declarations }
    m_UserList: TStringList;
  public
    { Public declarations }
    m_CurUser: String;
  end;

var
  frmSelectUser: TfrmSelectUser;

implementation

uses main;

{$R *.dfm}

procedure TfrmSelectUser.BitBtn2Click(Sender: TObject);
begin
  m_CurUser := '';
  Close();
end;

procedure TfrmSelectUser.FormShow(Sender: TObject);
var
  strName, strTime: String;
begin
  lbUserList.Items.Clear;
  m_UserList.Clear;

  with ADOQuery1 do
  begin
    Open;
    while not(Eof) do
    begin
      strName := FieldByName('UserName').AsString;
      strTime := FieldByName('ModifyTime').AsString;
      m_UserList.Add(strName);
      lbUserList.Items.Add(Format('%s | 最后更改时间：%s',[strName,strTime]));
      Next;
    end;
    Close;
  end;
  if lbUserList.Items.Count > 0 then
    lbUserList.ItemIndex := 0;
end;

procedure TfrmSelectUser.FormCreate(Sender: TObject);
begin
  m_UserList := TStringList.Create();
end;

procedure TfrmSelectUser.FormDestroy(Sender: TObject);
begin
  m_UserList.Free;
  ModalResult := mrCancel;  
end;

procedure TfrmSelectUser.btOKClick(Sender: TObject);
begin
  m_CurUser := '';
  if (lbUserList.Items.Count > 0)
     AND (lbUserList.ItemIndex >= 0) then
  begin
    m_CurUser := m_UserList[lbUserList.ItemIndex];
    Close;
  end;
  ModalResult := mrOK;
end;

procedure TfrmSelectUser.lbUserListDblClick(Sender: TObject);
begin
  btOKClick(nil);
end;

end.