denluunit.~pas

餐营的数据核算,模拟入库,出库,库存.对餐营的流程详细叙述

unit DENLUUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, TFlatMaskEditUnit, TFlatComboBoxUnit,
  TFlatButtonUnit,  DBCtrlsEh, DBLookupEh, ComCtrls;

type
  TDENLUForm = class(TForm)
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    FlatComboBox1: TFlatComboBox;
    FlatMaskEdit1: TFlatMaskEdit;
    Label1: TLabel;
    Label2: TLabel;
    Animate1: TAnimate;
    procedure FlatButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatComboBox1Change(Sender: TObject);
    procedure FlatComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FlatMaskEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
  int:Integer; //判断登陆次数
    { Public declarations }
  end;

var
  DENLUForm: TDENLUForm;

implementation

uses  MainUnit, DMUnit, U_CheckRights;

{$R *.dfm}

procedure TDENLUForm.FlatButton2Click(Sender: TObject);
begin
  If Application.MessageBox('是否退出铁路餐饮管理系统?','系统提示',mb_okcancel)=Mrok then
    Application.Terminate;
end;

procedure TDENLUForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=CaFree;
end;

procedure TDENLUForm.FormCreate(Sender: TObject);
begin
    int:=0;
    DM.passupADOQ.Active:=False;
    DM.passupADOQ.Active:=True;
    DM.passupADOQ.First;
    While not DM.passupADOQ.Eof do
    begin
      FlatComBoBox1.Items.Add(DM.passupADOQ.FieldByName('CUST_Name').AsString);
      DM.passupADOQ.Next;
    end;
end;

procedure TDENLUForm.FlatButton1Click(Sender: TObject);
var
Str,Str1,NAME1:string;
begin
  If int<3 Then
    If FlatComBoBox1.Text='' then
      begin
        inc(int);
        ShowMessage('对不起,请选择用户名,用户不为空!');
        Exit;
      end;
      Str:=FlatComBoBox1.Text;
      DM.passupADOQ.Close;
      DM.passupADOQ.SQL.Clear;
      DM.passupADOQ.SQL.Add('select CUST_PASS from CUST_ITEM where CUST_NAME='+''''+Str+'''');
      DM.passupADOQ.Open;
      Str1:=DM.passupADOQ.FieldByName('CUST_PASS').AsString;
      If Trim(Str1)=Trim(FlatMaskEdit1.Text) Then
       Close
      else
       begin
         inc(int);
         If int=3 Then
           begin
             ShowMessage('无法登陆,系统将退出!');
             Application.Terminate;
           end;
           ShowMessage('密码不正确,还有'+inttostr(3-int)+'次机会!');
           FlatMaskEdit1.Text:='';
           FlatMaskEdit1.SetFocus;
           Exit;
       end;
       with DM do
       begin
        Check_Rights.Close;
        Check_Rights.Parameters.ParamByName('Cust_Name').Value:=Str;
        Check_Rights.Prepared;
        Check_Rights.Open;
        FillStrList(Check_Rights);
       end; 
end;
procedure TDENLUForm.FlatComboBox1Change(Sender: TObject);
begin
  MainForm.YHName:=FlatComBoBox1.Text;
end;

procedure TDENLUForm.FlatComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
   FlatMaskEdit1.SetFocus;
end;

procedure TDENLUForm.FlatMaskEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    FlatButton1.Click;
end;

end.