ttemplate.~pas

这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不过是可以用来答辩的,完整的毕业设计,有源代码,可爱执行文件,文档资料.

unit ttemplate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TradeImage, LabelButton, Menus, ComCtrls, ToolWin, StdCtrls,
  ExtCtrls;

type
  Ttemplate2 = class(TForm)
    palDown: TPanel;
    imgLeftDown: TImage;
    imgRightDown: TImage;
    imgDownMin: TImage;
    palLeft: TPanel;
    imgLeft: TImage;
    palRight: TPanel;
    imgRight: TImage;
    palToolbar: TPanel;
    tiHelp: TTradeImg;
    tiPrint: TTradeImg;
    tiLocate: TTradeImg;
    tiLast: TTradeImg;
    tiNext: TTradeImg;
    tiPrior: TTradeImg;
    tiFirst: TTradeImg;
    tiDelete: TTradeImg;
    tiEdit: TTradeImg;
    tiNew: TTradeImg;
    LabelBtn1: TLabelBtn;
    LabelBtn2: TLabelBtn;
    LabelBtn3: TLabelBtn;
    LabelBtn11: TLabelBtn;
    LabelBtn4: TLabelBtn;
    LabelBtn5: TLabelBtn;
    LabelBtn6: TLabelBtn;
    LabelBtn7: TLabelBtn;
    LabelBtn8: TLabelBtn;
    LabelBtn9: TLabelBtn;
    LabelBtn10: TLabelBtn;
    LabelBtn12: TLabelBtn;
    LabelBtn13: TLabelBtn;
    LabelBtn14: TLabelBtn;
    LabelBtn15: TLabelBtn;
    LabelBtn16: TLabelBtn;
    LabelBtn17: TLabelBtn;
    LabelBtn18: TLabelBtn;
    LabelBtn19: TLabelBtn;
    LabelBtn20: TLabelBtn;
    LabelBtn22: TLabelBtn;
    LabelBtncancel: TLabelBtn;
    ticancel: TTradeImg;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ticancelClick(Sender: TObject);
    procedure tiNewClick(Sender: TObject);
    procedure tiEditClick(Sender: TObject);
    procedure tiDeleteClick(Sender: TObject);
    procedure tiPrintClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  template2: Ttemplate2;

implementation

uses datamodule, mmain;

{$R *.dfm}

procedure Ttemplate2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;

procedure Ttemplate2.ticancelClick(Sender: TObject);
begin
tidelete.Enabled:=true;
tinew.Enabled:=true;
tiprint.Enabled:=false;
tifirst.Enabled:=true;
tilast.Enabled:=true;
tiprior.Enabled:=true;
tinext.Enabled:=true;
end;

procedure Ttemplate2.tiNewClick(Sender: TObject);
begin
ticancel.Enabled:=true;
tidelete.Enabled:=false;
tiprint.Enabled:=true;
tinew.Enabled:=false;
tifirst.Enabled:=false;
tilast.Enabled:=false;
tiprior.Enabled:=false;
tinext.Enabled:=false;
end;

procedure Ttemplate2.tiEditClick(Sender: TObject);
begin
tiprint.Enabled:=true;
tifirst.Enabled:=false;
tilast.Enabled:=false;
tiprior.Enabled:=false;
tinext.Enabled:=false;
end;

procedure Ttemplate2.tiDeleteClick(Sender: TObject);
begin
tiprint.Enabled:=false;
end;

procedure Ttemplate2.tiPrintClick(Sender: TObject);
begin
tinew.Enabled:=true;
tidelete.Enabled:=true;
tifirst.Enabled:=true;
tilast.Enabled:=true;
tiprior.Enabled:=true;
tinext.Enabled:=true;
end;

procedure Ttemplate2.FormCreate(Sender: TObject);
begin
if strtoint(trim(dm.q_maintenance.fieldbyname('user_popedom').value))=0 then
   begin
           tinew.Enabled:=true;
           tiedit.Enabled:=true;
           tidelete.Enabled:=true;
           ticancel.Enabled:=true;
           tiprint.Enabled:=true;
            end
              else if strtoint(trim(dm.q_maintenance.fieldbyname('user_popedom').value))=1 then
               begin
              tinew.Enabled:=true;
           tiedit.Enabled:=true;
           tidelete.Enabled:=true;
           ticancel.Enabled:=true;
           tiprint.Enabled:=true; 
            end
            else if strtoint(trim(dm.q_maintenance.fieldbyname('user_popedom').value))=2 then
            begin
               tinew.Enabled:=false;
               tiedit.Enabled:=false;
               tidelete.Enabled:=false;
               ticancel.Enabled:=false;
               tiprint.Enabled:=false;
            end
end;

end.