uweblink.pas

一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件

unit uWebLink;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uBasefrm, StdCtrls, ExtCtrls, Mask, RzEdit, TBXDkPanels,ABSMain,
  SpTBXDkPanels,uIHintInf;

type
  TWebLinkfrm = class(TBaseForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    edName: TRzEdit;
    Label2: TLabel;
    edUrl: TRzEdit;
    Label3: TLabel;
    edDesc: TRzEdit;
    SpTBXButton1: TSpTBXButton;
    SpTBXButton2: TSpTBXButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure SpTBXButton1Click(Sender: TObject);
    procedure SpTBXButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure InsData(AType:cmdType;AID:integer);
  end;

implementation

uses uSECData, uMain;

{$R *.dfm}

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

procedure TWebLinkfrm.FormShow(Sender: TObject);
begin
  if TheCmd=cdEdit then
  begin
    edName.Text:=PWebLinkData(Data)^.Caption;
    edUrl.Text:=PWebLinkData(Data)^.URL;
    edDesc.Text:=PWebLinkData(Data)^.Desc;
    ID:=PWebLinkData(Data)^.ID;
  end;
end;

procedure TWebLinkfrm.InsData(AType: cmdType; AID: integer);
var
  FQuery:TABSQuery;
begin
  FQuery:=TABSQuery.Create(nil);
  try
    FQuery.DatabaseName:=SecData.ABSDatabase1.DatabaseName;
    if AType=cdAdd then
    begin
      FQuery.SQL.Text:='insert into WebLink(ID,Name,Url,Desc)'+#13+
                       'values(:ID,:Name,:Url,:Desc)';
      FQuery.parambyname('ID').Asinteger:=Mainfrm.getMaxID('WebLink');
    end
    else if AType=cdEdit then
    begin
      FQuery.SQL.Text:='Update WebLink'+#13+
                       'Set Name=:Name,'+#13+
                       '    Url=:Url,'+#13+
                       '    Desc=:Desc'+#13+
                       'where ID=:ID';
      FQuery.parambyname('ID').Asinteger:=AID;                       
    end;
    FQuery.parambyname('Name').AsString:=edName.Text;
    FQuery.parambyname('Url').AsString:=edUrl.Text;
    FQuery.parambyname('Desc').AsString:=edDesc.Text;
    FQUery.ExecSQL;
  finally
    FQuery.Free;
  end;
end;

procedure TWebLinkfrm.SpTBXButton1Click(Sender: TObject);
begin
  if trim(edName.Text)='' then
  begin
    MessageBox(Handle, '必须键入名称。', '错误', MB_ICONHAND);
    exit;
  end;
  if trim(edUrl.Text)='' then
  begin
    MessageBox(Handle, '必须键入联接地址。', '错误', MB_ICONHAND);
    exit;
  end;
  InsData(TheCmd,ID);
  ModalResult:=mrOk;  
end;

procedure TWebLinkfrm.SpTBXButton2Click(Sender: TObject);
begin
  ModalResult:=mrCancel;
end;

end.