login.pas

本程序设计的是一个小型商店每天记的流水帐管理程序

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, Buttons, XPMenu;

type
  Tdenglu = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ComboBox1: TComboBox;
    MaskEdit1: TMaskEdit;
    Label1: TLabel;
    Label2: TLabel;
    XPMenu1: TXPMenu;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  denglu: Tdenglu;

implementation
   uses dm,main;
{$R *.dfm}

procedure Tdenglu.BitBtn2Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure Tdenglu.FormCreate(Sender: TObject);
begin
   with dm2.ADOTable1 do
     begin
      open;
      first;
       while not eof do
         begin
       combobox1.Items.Add(fields[0].Value );
       next;
         end;
    combobox1.ItemIndex :=0;
    end;
end;

procedure Tdenglu.BitBtn1Click(Sender: TObject);
begin
   with dm2.ADOTable1 do
   begin
     if locate('us',combobox1.Text,[]) then
       begin
         if maskedit1.text=fields[1].Value then
            begin
            hide;
            with tform1.Create(self) do
               showmodal;
            end;
            application.Terminate ;
       end;
   end;
end;

end.