u_dept.~pas

ehlib双击功能ehlib双击功能ehlib双击功能ehlib双击功能

unit U_Dept;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_ZQZLform, Grids, DBGridEh, ExtCtrls, ComCtrls, ToolWin,DB;

type
  TFORM_Dept = class(TFORM_ZQZL)
    procedure FormShow(Sender: TObject);
    procedure cmd_quitClick(Sender: TObject);
    procedure cmd_CXClick(Sender: TObject);
    procedure cmd_cancelClick(Sender: TObject);
    procedure cmd_saveClick(Sender: TObject);
    procedure cmd_editClick(Sender: TObject);
    procedure CMD_delClick(Sender: TObject);
    procedure cmd_addClick(Sender: TObject);
    procedure cmd_FinallyClick(Sender: TObject);
    procedure cmd_backClick(Sender: TObject);
    procedure cmd_FrontClick(Sender: TObject);
    procedure cmd_FirstClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBGridEh1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CMD_printClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FORM_Dept: TFORM_Dept;

implementation
uses udm;
{$R *.dfm}

procedure TFORM_Dept.FormShow(Sender: TObject);
begin
  inherited;
  dm.Q_Dept.Close;
  dm.Q_Dept.SQL.Clear;
  dm.Q_Dept.SQL.Add('Select * from DeptTable');
  dm.Q_Dept.Open;
  if dm.Q_Dept.IsEmpty then //如果没有记录时
  begin
    cmd_print.Enabled:=false;
    cmd_find.Enabled:=false;
    cmd_first.Enabled:=false;
    cmd_front.Enabled:=false;
    cmd_back.Enabled:=false;
    cmd_finally.Enabled:=false;
    cmd_save.Enabled:=false;
    cmd_del.Enabled:=false;
    cmd_edit.Enabled:=false;
    cmd_cancel.Enabled:=false;
    cmd_cx.Enabled:=false;
  end
  else
  begin
      cmd_save.Enabled:=false;
      cmd_cancel.Enabled:=false;

  end;
  statusbar1.Panels[0].Text:='浏览';
  cmd_first.Enabled:=false;
  cmd_front.Enabled:=false;
  dbgrideh1.Columns[0].Width:=60;
  dbgrideh1.Columns[1].Width:=100;
  dbgrideh1.Columns[2].Width:=200;
end;

procedure TFORM_Dept.cmd_quitClick(Sender: TObject);
begin
  inherited;
  close;
end;

procedure TFORM_Dept.cmd_CXClick(Sender: TObject);
begin
  inherited;
  dm.Q_dept.Refresh;
end;

procedure TFORM_Dept.cmd_cancelClick(Sender: TObject);
begin
  inherited;
  dm.Q_dept.Cancel;
  if Not dm.Q_dept.IsEmpty then  //用户表不等于空时
  begin
    cmd_save.Enabled:=false;
    cmd_cancel.Enabled:=false;
    cmd_print.Enabled:=true;
    cmd_find.Enabled:=true;
    cmd_first.Enabled:=true;
    cmd_front.Enabled:=true;
    cmd_back.Enabled:=true;
    cmd_finally.Enabled:=true;
    cmd_del.Enabled:=true;
    cmd_add.Enabled:=true;
    cmd_cx.Enabled:=true;
    cmd_quit.Enabled:=true;
    cmd_edit.Enabled:=true;
  end
  else
  begin
      cmd_save.Enabled:=false;
    cmd_cancel.Enabled:=false;
    cmd_print.Enabled:=false;
    cmd_find.Enabled:=false;
    cmd_first.Enabled:=false;
    cmd_front.Enabled:=false;
    cmd_back.Enabled:=false;
    cmd_finally.Enabled:=false;
    cmd_del.Enabled:=false;
    cmd_add.Enabled:=true;
    cmd_cx.Enabled:=false;
    cmd_quit.Enabled:=false;
    cmd_edit.Enabled:=false;
  end;
end;

procedure TFORM_Dept.cmd_saveClick(Sender: TObject);
begin
  inherited;
if (dm.Q_dept.State=dsinsert) or (dm.Q_dept.State=dsedit) then
  begin
   try
    DM.Q_dept.Post;
    CMD_save.Enabled:=false;
    cmd_cancel.Enabled:=false;
    cmd_print.Enabled:=true;
    cmd_find.Enabled:=true;
    cmd_first.Enabled:=true;
    cmd_front.Enabled:=true;
    cmd_back.Enabled:=true;
    cmd_finally.Enabled:=true;
    cmd_del.Enabled:=true;
    cmd_add.Enabled:=true;
    cmd_cx.Enabled:=true;
    cmd_quit.Enabled:=true;
    cmd_edit.Enabled:=true;
    except
     application.MessageBox('数据记录不能为空!或者用户ID重复.','提示',MB_ICONEXCLAMATION);
    end;
  end;
end;

procedure TFORM_Dept.cmd_editClick(Sender: TObject);
begin
  inherited;
  if vedit=false then
  begin
    APPlication.MessageBox('您没有编辑的权限,请联系管理员!','提示',MB_ICONINFORMATION);
    exit;
  end;
dm.Q_dept.Edit;//编辑状态
    cmd_print.Enabled:=false;
    cmd_find.Enabled:=false;
    cmd_first.Enabled:=false;
    cmd_front.Enabled:=false;
    cmd_back.Enabled:=false;
    cmd_finally.Enabled:=false;
    cmd_del.Enabled:=false;
    cmd_add.Enabled:=false;
    cmd_cx.Enabled:=false;
    cmd_quit.Enabled:=false;
    //cmd_save.Enabled:=false;
    cmd_edit.Enabled:=false;
    //cmd_cancel.Enabled:=false;
end;

procedure TFORM_Dept.CMD_delClick(Sender: TObject);
begin
  inherited;
  if vdel=false then
  begin
    APPlication.MessageBox('您没有删除的权限,请联系管理员!','提示',MB_ICONINFORMATION);
    exit;
  end;

  if 6=application.MessageBox('真的要删除当前记录?','删除',MB_YESNO+MB_ICONQUESTION) then
  dm.Q_dept.Delete;
  if dm.Q_dept.IsEmpty then //如果删除是记录是最后一条记录
  begin
    cmd_print.Enabled:=false;
    cmd_find.Enabled:=false;
    cmd_first.Enabled:=false;
    cmd_front.Enabled:=false;
    cmd_back.Enabled:=false;
    cmd_finally.Enabled:=false;
    cmd_save.Enabled:=false;
    cmd_edit.Enabled:=false;
    cmd_cancel.Enabled:=false;
    cmd_del.Enabled:=false;
  end;
end;

procedure TFORM_Dept.cmd_addClick(Sender: TObject);
begin
  inherited;
if vadd=false then
begin
  APPlication.MessageBox('您没有添加的权限,请联系管理员!','提示',MB_ICONINFORMATION);
  exit;
end;
    dm.Q_dept.Append;
    dbgrideh1.SelectedIndex:=0;
    cmd_print.Enabled:=false;
    cmd_find.Enabled:=false;
    cmd_first.Enabled:=false;
    cmd_front.Enabled:=false;
    cmd_back.Enabled:=false;
    cmd_finally.Enabled:=false;
    cmd_del.Enabled:=false;
    cmd_add.Enabled:=false;
    cmd_cx.Enabled:=false;
    cmd_quit.Enabled:=false;
    //cmd_save.Enabled:=false;
    cmd_edit.Enabled:=false;
    //cmd_cancel.Enabled:=false;
end;

procedure TFORM_Dept.cmd_FinallyClick(Sender: TObject);
begin
  inherited;
  dm.Q_Dept.last;
  cmd_first.Enabled:=true;
  cmd_front.Enabled:=true;
  cmd_back.Enabled:=false;
  cmd_finally.Enabled:=false;
end;

procedure TFORM_Dept.cmd_backClick(Sender: TObject);
begin
  inherited;
      dm.Q_dept.next;
  if dm.Q_dept.RecNo<dm.Q_dept.RecordCount then
  begin

    cmd_first.Enabled:=true;
    cmd_front.Enabled:=true;
    cmd_back.Enabled:=true;
  end
  else
  begin
    cmd_first.Enabled:=true;
    cmd_front.Enabled:=true;
    cmd_back.Enabled:=false;
    cmd_finally.Enabled:=false;
  end;
end;

procedure TFORM_Dept.cmd_FrontClick(Sender: TObject);
begin
  inherited;
      dm.Q_dept.Prior;
  if dm.Q_dept.RecNo=1 then
  begin

    cmd_first.Enabled:=false;
    cmd_front.Enabled:=false;
    cmd_back.Enabled:=true;
    cmd_finally.Enabled:=true;
  end
  else
  begin
    cmd_first.Enabled:=true;
    cmd_front.Enabled:=true;
    cmd_back.Enabled:=true;
    cmd_finally.Enabled:=true;
  end;
end;

procedure TFORM_Dept.cmd_FirstClick(Sender: TObject);
begin
  inherited;
  dm.Q_dept.First;
  cmd_first.Enabled:=false;
  cmd_front.Enabled:=false;
  cmd_back.Enabled:=true;
  cmd_finally.Enabled:=true;
end;

procedure TFORM_Dept.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  if (dm.Q_dept.State=dsinsert) or (dm.Q_dept.State=dsedit) then
    if application.MessageBox('数据还没有保存!您确定要关闭吗?','关闭提示',MB_YESNO+MB_ICONQUESTION)<>6 then
     action:=caNone
    else
     form_dept.cmd_cancelClick(sender);
end;

procedure TFORM_Dept.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
if key=27 then//按Esc
form_dept.cmd_cancelClick(sender);
if key=46 then//DELETE
form_Dept.CMD_delClick(sender);
end;

procedure TFORM_Dept.CMD_printClick(Sender: TObject);
begin
  inherited;
  if vprt=false then
    begin
    APPlication.MessageBox('您没有打印及导出的权限,请联系管理员!','提示',MB_ICONINFORMATION);
    exit;
    end;
end;

end.