checkinout.pas

来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· PAS 代码 · 共 60 行

unit checkinout;

interface

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

type
  TcheckForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    BitBtn1: TBitBtn;
    procedure FormActivate(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  checkForm: TcheckForm;

implementation
uses rjsmain;
{$R *.dfm}

procedure TcheckForm.FormActivate(Sender: TObject);
begin
     adoquery1.Open;
end;

procedure TcheckForm.Edit1Change(Sender: TObject);
begin
    if length(edit1.text)<>3 then exit;
    adoquery2.Close;
    adoquery2.Parameters[0].Value:=edit1.Text;
    adoquery2.Open;
    if checkForm.Caption='员工签到处理' then
    if adoquery1.Locate('ygbh',edit1.Text,[]) then
    begin
      adoquery1.Edit;
    end
    else messagedlg('无此员工编号',mtwarning,[mbok],0);
    adoquery2.Close;
end;

procedure TcheckForm.BitBtn1Click(Sender: TObject);
begin
     adoquery1.Close;
     checkform.Close;
end;

end.