editlistunit.pas

人事管理源码 Delphi+ADO+Acce

unit EditListunit;

interface

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

type
  TEditListform = class(TForm)
    GroupBox1: TGroupBox;
    EditList: TListBox;
    UpBtn: TBitBtn;
    DownBtn: TBitBtn;
    AddBtn: TBitBtn;
    Okbtn: TBitBtn;
    OptionList: TComboBox;
    SubBtn: TBitBtn;
    procedure UpBtnClick(Sender: TObject);
    procedure DownBtnClick(Sender: TObject);
    procedure SubBtnClick(Sender: TObject);
    procedure AddBtnClick(Sender: TObject);
    procedure OptionListChange(Sender: TObject);
    procedure OkbtnClick(Sender: TObject);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  EditListform : TEditListform;
implementation

uses mainunit;
{$R *.dfm}

function SaveStrs(list:tstrings;OptionIndex : integer):bool;
var
  FileName : string;
begin
  result := false;
  fileName := 'data\'+inttostr(OptionIndex)+'.dat';
  if fileexists(FilePath+Filename) then
    deletefile(FilePath+FileName);
  list.SaveToFile(filepath + filename);
  result := true;
end;

procedure TEditListform.UpBtnClick(Sender: TObject);
var
  i : integer;
begin
  i := editlist.ItemIndex;
  if i > 0 then
    begin
      editlist.Items.Move(i,i - 1);
      EditList.Selected[i-1] := true;;
      savestrs(editlist.Items,OptionList.ItemIndex);
    end;

end;

procedure TEditListform.DownBtnClick(Sender: TObject);
var
  i :integer;
begin
i := EditList.ItemIndex;
if (i > -1) and (i < EditList.Items.Count - 1) then
  begin
    editlist.Items.Move(i,i + 1);
    EditList.Selected[i + 1] := true;;
    savestrs(editlist.Items,OptionList.ItemIndex);
  end;
end;

procedure TEditListform.SubBtnClick(Sender: TObject);
var
  i:integer;
begin
  i := EditList.ItemIndex;
  if i > -1 then
  begin
    editlist.Items.Delete(i);
    if i <> 0 then EditList.Selected[i-1] := true;
    savestrs(editlist.Items,OptionList.ItemIndex);
  end;
end;

procedure TEditListform.AddBtnClick(Sender: TObject);
var
  AddStr : string;
  i : integer;
begin
  addstr := trim(inputbox('添加','输入添加项',''));
  if addstr <> '' then
  begin
    i := editlist.Items.Add(addstr);
    EditList.Selected[i] := true;
    savestrs(editlist.Items,OptionList.ItemIndex);
  end;
end;

procedure TEditListform.OptionListChange(Sender: TObject);
var
  FileName,FilePath : string;
begin
  EditList.Clear;
  fileName := 'data\'+inttostr(OptionList.ItemIndex)+'.dat';
  if fileexists(FilePath + FileName) then
    EditList.Items.LoadFromFile(FilePath + FileName);
    
end;

procedure TEditListform.OkbtnClick(Sender: TObject);
begin
  close;
end;

procedure TEditListform.CancelBtnClick(Sender: TObject);
begin
  close;
end;

end.