passunit.~pas

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

unit passUnit;

interface

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

type
  TpassForm = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    assupADOQ: TADOQuery;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  passForm: TpassForm;

implementation

uses DMUnit, MainUnit;

{$R *.dfm}

procedure TpassForm.BitBtn2Click(Sender: TObject);
begin
    with DM.passupADOQ do
  begin
    Close;
    sql.Clear;
    sql.Add('select CUST_PASS from CUST_ITEM where CUST_NAME='''+Edit1.Text+'''');
    open;
  end;
  if DM.passupADOQ.FieldByName('CUST_PASS').AsString<>Edit2.Text then
  begin
    showMessage('您输入的原口令无效,不能修改!');
    Exit;
  end
  else
  if Edit3.Text<>Edit4.Text then
  begin
    showmessage('您输入的新口令与确认口令不符,不能修改!');
    Exit;
  end
  else
   begin
     with assupADOQ do
     begin
       Close;
       sql.Clear;
       sql.Add('update CUST_ITEM set CUST_PASS='''+Edit3.Text+''' where CUST_NAME='''+Edit1.Text+'''');
       DM.passupADOQ.ExecSQL;
       ShowMessage('口令修改成功,你的新口令是'+Edit4.Text);
     end;
   end;
end;

procedure TpassForm.BitBtn1Click(Sender: TObject);
begin
  DM.passupADOQ.Edit;
end;

procedure TpassForm.FormCreate(Sender: TObject);
begin
   Edit1.Text:=MainForm.YHName;
end;

procedure TpassForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=cafree;
end;

procedure TpassForm.FormDestroy(Sender: TObject);
begin
passform:=nil;
end;

end.