udeplr.pas

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

unit Udeplr;

interface

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

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

var
  Fdeplr: TFdeplr;

implementation

uses Udep, Udate,Umain, Usrfsz;

{$R *.dfm}

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

procedure TFdeplr.RzBitBtn1Click(Sender: TObject);
begin
   if dename.Text='' then begin
    ShowMessage('部门名称不能为空！');
    dename.SetFocus;
    Exit;
  end;
  dememo.SetFocus;
  dename.SetFocus;
  if fdate.qrydep.Modified then begin
    if pd=1 then begin
    if MessageDlg('新增部门信息吗？',mtCustom,[mbYes,mbno],0)=idyes then begin
      try fdate.qrydep.Post;
        fdep.ashow.Execute;//刷新数据库
        ShowMessage('新增部门信息成功！');
      except
        fdate.qrydep.Cancel;
        ShowMessage('新增部门信息失败！');
      end;
    end
  else
    Exit;
  end
  else if pd=2 then begin
    if messagedlg('真的要修改部门信息吗？',mtcustom,[mbyes,mbno],0)=idyes then begin
      try fdate.qrydep.Post;
        showmessage('部门信息修改成功！');
        fdep.ashow.Execute;
      except
        fdate.qrydep.cancel;
        showmessage('部门信息修改失败！');
        exit;
      end;
  end
    else
      exit;
  end
  else
    exit;
  end
  else
    exit;
end;

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

procedure TFdeplr.FormShow(Sender: TObject);
//var i:Integer;
  //myhkl:hkl;
begin
  //srfzs(qjbl);
  //ShowMessage(qjbl);
  //if qjbl<>'' then begin
   // if Screen.Imes.Count<>0 then begin
    //  I:=screen.Imes.indexof(qjbl);
     // if I>=0then
     //   myhkl:=hkl(screen.Imes.objects[i]);
  //   // activatekeyboardlayout(myhkl,KLF_ACTIVATE);//设置相应的输入法
  // end;
  //end;
end;

end.