uclass.pas

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

unit Uclass;

interface

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

type
  TFclass = class(TForm)
    RzToolbar1: TRzToolbar;
    RzToolButton1: TRzToolButton;
    RzToolButton2: TRzToolButton;
    RzToolButton3: TRzToolButton;
    RzToolButton5: TRzToolButton;
    RzToolButton6: TRzToolButton;
    RzToolButton7: TRzToolButton;
    DBGridEh1: TDBGridEh;
    RzStatusBar1: TRzStatusBar;
    dsclass: TDataSource;
    PrintDBGridEh1: TPrintDBGridEh;
    actlst1: TActionList;
    ashow: TAction;
    awx: TAction;
    ayx: TAction;
    apint: TAction;
    asave: TAction;
    aupdate: TAction;
    adel: TAction;
    ainsert: TAction;
    RzSpacer1: TRzSpacer;
    RzSpacer2: TRzSpacer;
    RzSpacer3: TRzSpacer;
    RzSpacer4: TRzSpacer;
    RzSpacer5: TRzSpacer;
    RzSpacer6: TRzSpacer;
    procedure ashowExecute(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure RzToolButton1Click(Sender: TObject);
    procedure RzToolButton2Click(Sender: TObject);
    procedure adelExecute(Sender: TObject);
    procedure RzToolButton3Click(Sender: TObject);
    procedure apintExecute(Sender: TObject);
    procedure RzToolButton5Click(Sender: TObject);
    procedure RzToolButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fclass: TFclass;

implementation

uses Udate, Uclasslr, Umain, Usrfsz;

{$R *.dfm}

procedure TFclass.ashowExecute(Sender: TObject);
begin
  with fdate.qryclass do begin
    Close;
    Open;
  end;
end;



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

procedure TFclass.RzToolButton1Click(Sender: TObject);
begin
 if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  pd:=1;
  fdate.qryclass.Append;
  fclasslr.ShowModal;
end;

procedure TFclass.RzToolButton2Click(Sender: TObject);
begin
  if urid<>1 then begin
    MessageBeep(0);
    MessageDlg('对不起您不是管理员，不能操作！',mtError,[mbyes],0);
    Exit;
  end;
  if fdate.qryclass.IsEmpty then begin
    MessageDlg('目前 没有信息可以修改！',mtCustom,[mbYes],0);
    Exit;
  end;
  fdate.qryclass.Edit;
  pd:=2;
  fclasslr.ShowModal;
end;

procedure TFclass.adelExecute(Sender: TObject);
begin
  if fdate.qryclass.IsEmpty then begin
    MessageBeep(0);
    MessageDlg('目前没有信息可以删除！',mtError,[mbyes],0);
    Exit;
  end;
  try fdate.qryclass.Delete;
    MessageDlg('删除成功！',mtInformation,[mbyes],0);
  except
    fdate.qryclass.Cancel;
    MessageDlg('该信息不能删除！删除失败！',mtError,[mbyes],0);
    Exit;
  end;
end;

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

procedure TFclass.apintExecute(Sender: TObject);
begin
  if fdate.qryclass.IsEmpty then begin
    MessageBeep(0);
    MessageDlg('目前没有信息可以打印！',mtError,[mbyes],0);
    Exit;
  end;
  if MessageDlg('真的要打印吗？',mtConfirmation,[mbYes,mbno],0)=idyes then
    PrintDBGridEh1.Preview
  else
    Exit;
end;

procedure TFclass.RzToolButton5Click(Sender: TObject);
begin
  apint.Execute;
end;


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

end.