upda.pas

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

unit uPDA;

interface

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

type
  TPDAfrm = class(TBaseForm)
    Panel1: TPanel;
    Image1: TImage;
    Label1: TLabel;
    Open1: TOpenDialog;
    TBXToolWindow1: TTBXToolWindow;
    edName: TRzEdit;
    Label2: TLabel;
    edTarget: TRzButtonEdit;
    Label3: TLabel;
    edDesc: TRzEdit;
    LitIcon: TRzListView;
    SpTBXButton3: TTBXButton;
    TBXButton1: TTBXButton;
    TBXButton2: TTBXButton;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure edTargetButtonClick(Sender: TObject);
    procedure SpTBXButton3Click(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 TPDAfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure TPDAfrm.FormShow(Sender: TObject);
var
  i:integer;
  ListItem:TListItem;
begin
  Image1.Picture.Bitmap.Handle:=GetBmp('104');

  ClientHeight:=199;
  LitIcon.LargeImages:=mainfrm.TheOprList.LargeImageList;

  for i:=9 to LitIcon.LargeImages.Count-1 do
  begin
    ListItem:=LitIcon.Items.Add;
    ListItem.ImageIndex:=i;
  end;

  if TheCmd=cdEdit then
  begin
    edName.Text:=PPDAData(Data)^.Caption;
    edTarget.Text:=PPDAData(Data)^.Target;
    edDesc.Text:=PPDAData(Data)^.Desc;
    ID:=PPDAData(Data)^.ID;

    LitIcon.Selected:=LitIcon.Items[PPDAData(Data)^.ImageIndex-9];
  end;
end;

procedure TPDAfrm.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 PDAApp(ID,Name,Target,Description,ImageIndex)'+#13+
                       'values(:ID,:Name,:Target,:Description,:ImageIndex)';
      FQuery.parambyname('ID').Asinteger:=Mainfrm.OprList.GetMaxID('PDAApp');
    end
    else if AType=cdEdit then
    begin
      FQuery.SQL.Text:='Update PDAApp'+#13+
                       'Set Name=:Name,'+#13+
                       '    Target=:Target,'+#13+
                       '    Description=:Description,'+#13+
                       '    ImageIndex=:ImageIndex'+#13+
                       'where ID=:ID';
      FQuery.parambyname('ID').Asinteger:=AID;
    end;
    FQuery.parambyname('Name').AsString:=edName.Text;
    FQuery.parambyname('Target').AsString:=edTarget.Text;
    FQuery.parambyname('Description').AsString:=edDesc.Text;
    if LitIcon.Selected<>nil then
      FQuery.parambyname('ImageIndex').AsInteger:=LitIcon.Selected.Index+9
    else
      FQuery.parambyname('ImageIndex').AsInteger:=9;
    FQUery.ExecSQL;
  finally
    FQuery.Free;
  end;
end;

procedure TPDAfrm.edTargetButtonClick(Sender: TObject);
begin
  if open1.Execute then
    edTarget.Text:=open1.FileName;  
end;

procedure TPDAfrm.SpTBXButton3Click(Sender: TObject);
begin
  if ClientHeight=340 then
  begin
    ClientHeight:=199;
    SpTBXButton3.Caption:='选择图标>>';
  end
  else
  begin
    ClientHeight:=340;
    SpTBXButton3.Caption:='选择图标<<';
  end;
end;

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

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

end.