uclasslr.pas

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

unit Uclasslr;

interface

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

type
  TFclasslr = class(TForm)
    RzToolbar1: TRzToolbar;
    RzSpacer1: TRzSpacer;
    img3: TImage;
    RzStatusBar1: TRzStatusBar;
    lbl2: TLabel;
    dbedtclname: TDBEdit;
    lbl1: TLabel;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    dememo: TRzDBMemo;
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure img3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fclasslr: TFclasslr;

implementation

uses Uclass, Udate, Usrfsz;

{$R *.dfm}

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

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

procedure TFclasslr.RzBitBtn1Click(Sender: TObject);
begin
  if dbedtclname.Text='' then begin
    ShowMessage('类型名称不能为空！');
    dbedtclname.SetFocus;
    Exit;
  end;
  dememo.SetFocus;dbedtclname.SetFocus;
  if fdate.qryclass.Modified then begin
    if pd=1 then begin
      if MessageDlg('真的新增吗？',mtCustom,[mbYes,mbno],0)=idyes then begin
        try fdate.qryclass.Post;
          fclass.ashow.Execute;
          ShowMessage('信息新增成功！');
          pd:=3;
        except
          fdate.qryclass.Cancel;
          MessageBeep(0);
          ShowMessage('信息保存失败！');
          exit;
        end;
      end
      else
        Exit;
    end
    else IF PD=2 then begin
      if messagedlg('真的要修改吗？',mtcustom,[mbyes,mbno],0)=idyes then begin
        try fdate.qryclass.Post;
          showmessage('信息修改成功！');
          fclass.ashow.Execute;
          pd:=3;
        except
          fdate.qryclass.Cancel;
          MessageBeep(0);
          showmessage('信息修改失败！');
          exit;
        end;
      end
      else
        exit;
    end
  else
      Exit;
  end
  else
    exit;
end;

end.