uwplr.pas

小型企业物品管理系统,DELPHI源码+ACCESS数据库

unit Uwplr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzPanel, ExtCtrls, StdCtrls, Mask, DBCtrls, DBGridEh, DBCtrlsEh,
  DBLookupEh, RzDBEdit, RzButton;

type
  TFwplr = class(TForm)
    RzStatusBar1: TRzStatusBar;
    RzToolbar1: TRzToolbar;
    RzSpacer1: TRzSpacer;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    dbclass: TDBLookupComboboxEh;
    lbl1: TLabel;
    RzDBMemo1: TRzDBMemo;
    wpunit: TDBComboBoxEh;
    img1: TImage;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure img1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fwplr: TFwplr;

implementation

uses Uwpbxx, Udate, Usrfsz;

{$R *.dfm}

procedure TFwplr.RzBitBtn1Click(Sender: TObject);
begin
  if DBEdit1.Text='' then begin
    MessageDlg('请输入物品的名称！',mtError,[mbyes],0);
    DBEdit1.SetFocus;
    Exit;
  end;
  if wpunit.Text='' then begin
    MessageDlg('请输入物品的单位！',mtError,[mbyes],0);
    wpunit.SetFocus ;
    Exit;
  end;
  if dbclass.Text='' then begin
    MessageDlg('请输入物品的类型！',mtError,[mbyes],0);
    dbclass.SetFocus;
    Exit;
  end;
 if DBEdit3.Text='' then begin
   MessageDlg('请输入物品的单价！',mtError,[mbyes],0);
   DBEdit3.SetFocus;
   Exit;
 end;
 if MessageDlg('真的要保存吗？',mtInformation,[mbYes,mbno],0)=idyes then begin
  try Fwpbxx.qryview_wpb.Post;
    ShowMessage('保存成功！');
    Fwpbxx.ashow.Execute;
    pd:=3;
  except
    Fwpbxx.qryview_wpb.Cancel;
    ShowMessage('保存失败！');
    Exit;
  end;
 end
 else
  Exit;
end;

procedure TFwplr.RzBitBtn2Click(Sender: TObject);
begin
  if Fwpbxx.qryview_wpb.Modified=False then close;
  if pd=1 then begin
    if MessageDlg('不保存当前的信息吗？',mtInformation,[mbYes,mbno],0)=IDYES then begin
      Fwpbxx.qryview_wpb.Cancel;
      close;
    end
    else
      RzBitBtn1.Click;
  end
  else if pd=2 then  begin
    if MessageDlg('不保存当前所做的修改吗？',mtInformation,[mbYes,mbno],0)=idyes then begin
      Fwpbxx.qryview_wpb.Cancel;
      close;
    end
   else
      RzBitBtn1.Click;
  end
  else
    Close;
end;

procedure TFwplr.img1Click(Sender: TObject);
begin
RzBitBtn2.Click;
end;

end.