ufrmaccessset.pas

数据库通用工具

unit UfrmAccessSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UfrmModel, ExtCtrls, ActnList, StdCtrls, Buttons;

type
  TfrmAccessSet = class(TfrmModel)
    Panel1: TPanel;
    Panel2: TPanel;
    bbtOk: TBitBtn;
    bbtExit: TBitBtn;
    ListBox1: TListBox;
    Panel3: TPanel;
    Label1: TLabel;
    edtName: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure actF5ClickExecute(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
  private
    { Private declarations }
    sSet : string;
  public
    { Public declarations }
    StrList : TStrings;
    sTBName : string;
  end;

var
  frmAccessSet: TfrmAccessSet;

implementation

uses Udbm;

{$R *.dfm}

procedure TfrmAccessSet.FormCreate(Sender: TObject);
begin
  inherited;
  strList := TStringList.Create;
end;

procedure TfrmAccessSet.FormDestroy(Sender: TObject);
begin
  inherited;
  strList.Free;
end;

procedure TfrmAccessSet.FormShow(Sender: TObject);
begin
  inherited;

  ListBox1.Items.Clear;

  //ListBox1.Items.Assign( strList );
  //  if FileExists( sto ) then DeleteFile( sto );
  sSet := appPath + '\data\setting.sxl';
  if FileExists( sSet ) then
  begin
    ListBox1.Items.LoadFromFile( sSet );
  end;

  if SameText( Self.Hint,'add' ) then
  begin
    edtName.Text := sTBName;
  end
  else//read
  begin
    Panel3.Visible := False;
  end;
  
end;

procedure TfrmAccessSet.actF5ClickExecute(Sender: TObject);
var
  i,j : Integer;
  ss : string;
begin
  inherited;
  ss := Trim(edtName.Text);
  if SameText( Self.Hint,'add' ) then
  begin
    j := 0;
    for i := 0 to ListBox1.Count-1 do
    begin
      if SameText( ListBox1.Items[i],ss ) then
      begin
        ListBox1.Selected[i] := True;
        j := 1;
        Break;
      end;
    end;

    if j>0 then
    begin
      ShowMessage('同名配置已存在！');
      Exit;
    end;

    ListBox1.Items.Add( ss );
    
    if not DirectoryExists( appPath + '\data\' ) then
      ForceDirectories( appPath + '\data\' );

    if FileExists( sSet ) then
      DeleteFile( sSet );

    ListBox1.Items.SaveToFile( sSet );
    strList.SaveToFile( appPath+ '\data\'+ss+'.sxd' );

    ShowMessage('保存成功。');
    Self.ModalResult := 1;
    
  end
  else//read
  begin
    if ListBox1.Count<=0 then Exit;
    ss := ListBox1.Items.Strings[ListBox1.ItemIndex];
    if not FileExists( appPath+ '\data\'+ss+'.sxd' ) then
    begin
      ShowMessage('配置无效！');
      Exit;
    end;

    strList.LoadFromFile( appPath+ '\data\'+ss+'.sxd' );
    Self.ModalResult := 1;
    
  end;
  
end;

procedure TfrmAccessSet.ListBox1DblClick(Sender: TObject);
begin
  inherited;
  if SameText( Self.Hint,'read' ) then
  begin
    bbtOk.Click;
  end;

end;

end.