udep.pas

该软件前台用的是DELPHI7后台用的是SQLSERVER2000,用了些第三方控件,数据库文件在data文件夹里!

unit Udep;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, PrnDbgeh, Grids, DBGridEh, DBSumLst, RzPanel, ExtCtrls, RzButton,
  DB, StdCtrls, DBCtrls, RzDBEdit, Mask, RzEdit, ActnList, RzStatus;

type
  TFdep = class(TForm)
    DBGridEh1: TDBGridEh;
    PrintDBGridEh1: TPrintDBGridEh;
    RzStatusBar1: TRzStatusBar;
    RzToolbar1: TRzToolbar;
    RzToolButton1: TRzToolButton;
    RzToolButton2: TRzToolButton;
    RzToolButton3: TRzToolButton;
    RzToolButton5: TRzToolButton;
    RzToolButton6: TRzToolButton;
    RzToolButton7: TRzToolButton;
    dsdep: TDataSource;
    actlst1: TActionList;
    ashow: TAction;
    aupdate: TAction;
    adel: TAction;
    aprint: TAction;
    ts: TRzStatusPane;
    RzClockStatus1: TRzClockStatus;
    RzSpacer1: TRzSpacer;
    RzSpacer2: TRzSpacer;
    RzSpacer3: TRzSpacer;
    RzSpacer4: TRzSpacer;
    RzSpacer5: TRzSpacer;
    RzSpacer6: TRzSpacer;
    procedure ashowExecute(Sender: TObject);
    procedure RzToolButton2Click(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
    procedure aprintExecute(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure RzToolButton7Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure adelExecute(Sender: TObject);
    procedure RzToolButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fdep: TFdep;

implementation

uses Udate, Udeplr, Umain, Usrfsz;

{$R *.dfm}

procedure TFdep.ashowExecute(Sender: TObject);
begin
  pd:=3;//不是修改也不是新增
  with fdate.qrydep do begin
    Close;
    Open;
  end;
  ts.Caption:='目前共有部门信息['+''+inttostr(fdate.qrydep.RecordCount)+''+']条!';
end;

procedure TFdep.RzToolButton2Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  if fdate.qrydep.IsEmpty then begin
    MessageBeep(0);
    MessageDlg('目前已经没有部门信息可以修改了！',mtError,[mbOK],1);
    Exit;
  end;
  fdate.qrydep.Edit;
  pd:=2;
  fdeplr.showmodal;
end;

procedure TFdep.RzToolButton1Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  pd:=1;
  fdate.qrydep.Append;
  fdeplr.showmodal;
  Fsrfsz.OpenIme(Fsrfsz.ComboBox1.Text);
end;

procedure TFdep.aprintExecute(Sender: TObject);
begin
  if fdate.qrydep.RecordCount=0 then begin
    MessageBeep(10);
    MessageDlg('目前没有部门信息可以打印！',mtError,[mbOK],1);
    Exit;
  end;
  if MessageDlg('真的要打印吗？',mtCustom,[mbYes,mbno],0)=idyes then
    PrintDBGridEh1.Preview
  else
    Exit;
end;

procedure TFdep.RzToolButton5Click(Sender: TObject);
begin
  aprint.Execute;
end;

procedure TFdep.RzToolButton7Click(Sender: TObject);
begin
  close;
end;

procedure TFdep.FormShow(Sender: TObject);
begin
  ashow.Execute;
end;

procedure TFdep.adelExecute(Sender: TObject);
begin
  if fdate.qrydep.IsEmpty then begin
    MessageBeep(0);
    MessageDlg('目前已经没有部门信息可以删除了！',mtError,[mbOK],1);
    Exit;
  end;
  if messagedlg('您真的要删除此条信息吗？',mterror,[mbyes,mbno],0)=idyes then
    try fdate.qrydep.Delete;
      showmessage('信息删除成功！');
    except
      fdate.qrydep.cancel;
      MessageBeep(0);
      showmessage('信息删除失败！');
    end;
end;

procedure TFdep.RzToolButton3Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  adel.Execute;
end;

end.