unitc.~pas

来自「小型仓库管理系统」· ~PAS 代码 · 共 94 行

unit UnitC;

interface

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

type
  TfmC = class(TForm)
    Image1: TImage;
    edt1: TEdit;
    edt2: TEdit;
    btn1: TBitBtn;
    btn2: TBitBtn;
    btn3: TBitBtn;
    procedure btn1Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure edt1KeyPress(Sender: TObject; var Key: Char);
    procedure edt2KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmC: TfmC;

implementation

uses  unitMain,UnitCT, UnitDm, UnitZ, UnitN, UnitS;

{$R *.dfm}

procedure TfmC.btn1Click(Sender: TObject);
begin
if trim(edt1.Text)<>'' then
 begin
 frDbm.dsetC.Close;
 frDbm.dsetC.CommandText:='select code,purview from t_login where id='+trim(edt1.Text)+'';
 frDbm.dsetC.Open;
 if trim(frDbm.dsetC.Fields[0].AsString)<>'' then
  begin
   if (trim(frDbm.dsetC.Fields[0].AsString)=trim(edt2.Text)) then
      begin
        if frDbm.dsetC.Fields[1].AsInteger=2 then
        begin
          fmMain.SpeedButton1.Enabled:=false;
          fmMain.SpeedButton2.Enabled:=false;
          fmMain.SpeedButton6.Enabled:=false;
          fmMain.SpeedButton7.Enabled:=false;
          fmN.btn2.Enabled:=false;
          fmS.rbtnB.enabled:=false;
        end;
        fmMain.Show;
        fmC.hide;
      end
   else
    showmessage('密码错误，请重新登录！');
  end
 else
   showmessage('登录名不存在，请重新登录！');
 end
 else showmessage('请输入登录号！');
end;

procedure TfmC.btn3Click(Sender: TObject);
begin
  fmCT.Show;
  fmC.hide;
end;

procedure TfmC.btn2Click(Sender: TObject);
begin
  fmZ.show;
  fmC.hide;
end;

procedure TfmC.edt1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  btn1.Click;
end;

procedure TfmC.edt2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  btn1.Click;
end;

end.