employeeloginform.pas

本程序是一个餐饮业的管理软件

unit EmployeeLoginForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls;

type
  TFrmEmployeeLogin = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Label2: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    DBGrid1: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmEmployeeLogin: TFrmEmployeeLogin;

implementation

uses DataM;

{$R *.dfm}

procedure TFrmEmployeeLogin.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TFrmEmployeeLogin.FormCreate(Sender: TObject);
begin
  Data.DataSEmployee.DataSet:=Data.ADOQEmployee;
  Data.ADOQEmployee.Open;
end;

procedure TFrmEmployeeLogin.Button1Click(Sender: TObject);
begin
  if Edit1.Text<>'' then
  begin
    Data.ADOQEmployee.Close;
    Data.ADOQEmployee.SQL.Clear;
    Data.ADOQEmployee.SQL.Add('select * from Employee where EmployeeID='+Edit1.Text);
    Data.ADOQEmployee.Open;
    if Data.ADOQEmployee.RecordCount=1 then
    begin
      if Data.ADOQEmployee.FieldByName('Working').AsString='否' then
      begin
        Data.ADOQAttendence.Close;
        Data.ADOQAttendence.SQL.Clear;
        Data.ADOQAttendence.SQL.Add('select * from Attendences where EmployeeID='+Edit1.Text);
        Data.ADOQAttendence.Open;
        Data.ADOQAttendence.Append;
        Data.ADOQAttendence.FieldByName('EmployeeID').AsString:=Edit1.Text;
        Data.ADOQAttendence.FieldByName('BeginTime').AsDateTime:=Now;
        Data.ADOQAttendence.Post;
        Data.ADOQEmployee.Edit;
        Data.ADOQEmployee.FieldByName('Working').AsString:='是';
        Data.ADOQEmployee.Post;
      end
      else MessageDlg('此人正在上班！',mtError,[mbOK],0);
    end
    else MessageDlg('人员记录不存在！请先添加。',mtError,[mbOK],0);
  end
  else MessageDlg('Not Null',mtError,[mbOK],0);
  Data.ADOQEmployee.Close;
  Data.ADOQEmployee.SQL.Clear;
  Data.ADOQEmployee.SQL.Add('select * from Employee');
  Data.ADOQEmployee.Open;
  Edit1.Clear;
end;

procedure TFrmEmployeeLogin.Button2Click(Sender: TObject);
begin
  if Edit2.Text<>'' then
  begin
    Data.ADOQEmployee.Close;
    Data.ADOQEmployee.SQL.Clear;
    Data.ADOQEmployee.SQL.Add('select * from Employee where EmployeeID='+Edit2.Text);
    Data.ADOQEmployee.Open;
    if Data.ADOQEmployee.RecordCount=1 then
    begin
      if Data.ADOQEmployee.FieldByName('Working').AsString='是' then
      begin
        Data.ADOQAttendence.Close;
        Data.ADOQAttendence.SQL.Clear;
        Data.ADOQAttendence.SQL.Add('select * from Attendences where EmployeeID='+Edit2.Text);
        Data.ADOQAttendence.Open;
        Data.ADOQAttendence.Edit;
        Data.ADOQAttendence.FieldByName('EndTime').AsDateTime:=Now;
        Data.ADOQAttendence.Post;
        Data.ADOQEmployee.Edit;
        Data.ADOQEmployee.FieldByName('Working').AsString:='否';
        Data.ADOQEmployee.Post;
      end
      else MessageDlg('此人已经下班！',mtError,[mbOK],0);
    end
    else MessageDlg('人员记录不存在！请先添加。',mtError,[mbOK],0);
  end
  else MessageDlg('Not Null',mtError,[mbOK],0);
  Data.ADOQEmployee.Close;
  Data.ADOQEmployee.SQL.Clear;
  Data.ADOQEmployee.SQL.Add('select * from Employee');
  Data.ADOQEmployee.Open;
  Edit2.Clear;
end;

end.