ubuyrk.pas

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

unit Ubuyrk;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, RzDBSpin, RzDBEdit, DBCtrls, Mask, RzEdit, StdCtrls,
  RzButton, RzPanel, DB, ADODB;

type
  TFbuyrk = class(TForm)
    buymemo: TRzDBMemo;
    lbl3: TLabel;
    bysl: TRzDBSpinEdit;
    lbl7: TLabel;
    lbl8: TLabel;
    dblkcbbbyname: TDBLookupComboBox;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzStatusBar1: TRzStatusBar;
    spupgoodin: TADOStoredProc;
    spingoodin: TADOStoredProc;
    RzToolbar1: TRzToolbar;
    RzSpacer1: TRzSpacer;
    img3: TImage;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure img3Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fbuyrk: TFbuyrk;

implementation

uses Ubuy, Udate, Umain, Usrfsz;

{$R *.dfm}

procedure TFbuyrk.RzBitBtn1Click(Sender: TObject);
begin
  if pd=3 then Exit;
  if dblkcbbbyname.Text='' then begin
    ShowMessage('请输入购买的物品的名称!');
    dblkcbbbyname.SetFocus;
    Exit;
  end;
  if bysl.Value<=0 then begin
    ShowMessage('请输入购买的物品的数量!');
    bysl.SetFocus;
    Exit;
  end;
  if pd=1 then begin  //新增
    if MessageDlg('真的要保存吗？',mtInformation,[mbYes,mbno],0)=idyes then begin
     with spingoodin do begin
        Close;
        Parameters.ParamByName('@bwid').Value:=dblkcbbbyname.KeyValue;
        Parameters.ParamByName('@byquanty').Value:=bysl.Value;
        Parameters.ParamByName('@rkid').Value:=urid;
        Parameters.ParamByName('@bymemo').Value:=buymemo.Text;
        ExecProc;
        ShowMessage(''+parameters.parambyname('@msg').Value+'');
      end;
    end
  else
    Exit;
  end;
  if pd=2 then begin
    if MessageDlg('真的要保存您所做的修改吗?',mtInformation,[mbYes,mbno],0)=idyes then begin
      with spupgoodin do begin
        Close;
        Parameters.ParamByName('@byid').Value:=fdate.qry_gooinbyid.Value;
        Parameters.ParamByName('@bwid').Value:=dblkcbbbyname.KeyValue;
        Parameters.ParamByName('@byquanty').Value:=bysl.Value;
        Parameters.ParamByName('@bymemo').Value:=buymemo.Text;
        ExecProc;
        ShowMessage(''+parameters.parambyname('@msg').Value+'');
      end;
    end
    else
      Exit;
  end;
   Fbuy.ashow.Execute;//刷新数据库
   pd:=3;
   Fmain.Timer1.Enabled:=True; //调用判断看当前库存的数量是否小于用户设置的库存最低量
end;

procedure TFbuyrk.img3Click(Sender: TObject);
begin
   RzBitBtn2.Click;
end;

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

end.