ucustom.pas

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

unit uCustom;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uBasefrm, StdCtrls, ExtCtrls, TBXDkPanels, ImgList, RzBtnEdt,ABSMain,
  Mask, RzEdit, TB2Dock, TB2ToolWindow, TBX,uIHintInf, ActnList, ExtDlgs,uFunction;

type
  TCustomfrm = class(TBaseForm)
    Open1: TOpenDialog;
    TBXToolWindow1: TTBXToolWindow;
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    edName: TRzEdit;
    Label2: TLabel;
    edPath: TRzButtonEdit;
    Label3: TLabel;
    edDesc: TRzEdit;
    TBXButton1: TTBXButton;
    TBXButton2: TTBXButton;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    PicOpen1: TOpenPictureDialog;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure edPathButtonClick(Sender: TObject);
    procedure TBXButton1Click(Sender: TObject);
    procedure TBXButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure InsData(AType:cmdType;AID:integer);
  end;

implementation

uses uSECData, uMain;

{$R *.dfm}

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

procedure TCustomfrm.FormShow(Sender: TObject);
var
  title:string;
begin
  if TheForm=fmWebLink then
  begin
    edPath.ButtonVisible:=false;
    title:='常用网址';
    Image1.Picture.Bitmap.Handle:=GetBmp('101');
    Caption:='网址';
  end
  else if TheForm=fmMp3 then
  begin
    edPath.ButtonVisible:=true;
    title:='音乐歌曲';
    Image1.Picture.Bitmap.Handle:=GetBmp('102');
    caption:='歌曲';
  end
  else if TheForm=fmImage then
  begin
    edPath.ButtonVisible:=true;
    title:='图象图片';
    Image1.Picture.Bitmap.Handle:=GetBmp('103');
    caption:='图片';
  end;
  label1.Caption:=format('请输入%s的名称',[title]);
  
  if TheCmd=cdEdit then
  begin
    edName.Text:=PCustomData(Data)^.Caption;
    edPath.Text:=PCustomData(Data)^.Path;
    edDesc.Text:=PCustomData(Data)^.Desc;
    ID:=PCustomData(Data)^.ID;
  end;
end;

procedure TCustomfrm.InsData(AType: cmdType; AID: integer);
var
  FQuery:TABSQuery;
  tableName:string;
begin
  if TheForm=fmWebLink then
    tableName:='WebLink'
  else if TheForm=fmMp3 then
    tableName:='Mp3List'
  else if TheForm=fmImage then
    tableName:='PicList';
  FQuery:=TABSQuery.Create(nil);
  try
    FQuery.DatabaseName:=SecData.ABSDatabase1.DatabaseName;
    if AType=cdAdd then
    begin
      FQuery.SQL.Text:='insert into '+tableName+'(ID,Name,Path,Description)'+#13+
                       'values(:ID,:Name,:Path,:Description)';
      FQuery.parambyname('ID').Asinteger:=Mainfrm.OprList.GetMaxID(tableName);
    end
    else if AType=cdEdit then
    begin
      FQuery.SQL.Text:='Update '+tableName+#13+
                       'Set Name=:Name,'+#13+
                       '    Path=:Path,'+#13+
                       '    Description=:Description'+#13+
                       'where ID=:ID';
      FQuery.parambyname('ID').Asinteger:=AID;
    end;
    FQuery.parambyname('Name').AsString:=edName.Text;
    FQuery.parambyname('Path').AsString:=edPath.Text;
    FQuery.parambyname('Description').AsString:=edDesc.Text;
    FQUery.ExecSQL;
  finally
    FQuery.Free;
  end;
end;

procedure TCustomfrm.edPathButtonClick(Sender: TObject);
begin
  if TheForm=fmMp3 then
  begin
    if Open1.Execute then
    begin
      edPath.Text:=Open1.FileName;
      if edName.Text='' then
        edName.Text:=ExtractFileName(Open1.FileName);
    end;
  end
  else if TheForm=fmImage then
  begin
    if PicOpen1.Execute then
    begin
      edPath.Text:=PicOpen1.FileName;
      if edName.Text='' then
        edName.Text:=ExtractFileName(PicOpen1.FileName);
    end;
  end;
end;

procedure TCustomfrm.TBXButton1Click(Sender: TObject);
begin
  if trim(edName.Text)='' then
  begin
    MessageBox(Handle, '必须键入名称。', '错误', MB_ICONHAND);
    exit;
  end;
  if trim(edPath.Text)='' then
  begin
    MessageBox(Handle, '必须键入目标位置。', '错误', MB_ICONHAND);
    exit;
  end;
  InsData(TheCmd,ID);
  ModalResult:=mrOk;
end;

procedure TCustomfrm.TBXButton2Click(Sender: TObject);
begin
  ModalResult:=mrCancel;
end;

end.