u_fkokbottomdlg.pas

人事考勤系统

unit U_fkokbottomdlg;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, ComCtrls, Mask;

type
  TfkOKBottomDlg = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    ListBox1: TListBox;
    ListBox2: TListBox;
    bitbtn1: TBitBtn;
    BitBtn2: TBitBtn;
    RadioGroup1: TRadioGroup;
    MaskEdit1: TMaskEdit;
    procedure FormShow(Sender: TObject);
    procedure bitbtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
      State: TDragState; var Accept: Boolean);
    procedure ListBox2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    Procedure setbutton;
  public
    { Public declarations }
  end;

var
  fkOKBottomDlg: TfkOKBottomDlg;

implementation

uses U_Fr_DM;

{$R *.DFM}

procedure TfkOKBottomDlg.setbutton;
begin
  if Listbox1.Items.Count>0 then
    begin
      bitbtn1.Enabled:=true;
      if Listbox2.Items.Count>0 then
        bitbtn2.Enabled:=true
      else bitbtn2.Enabled:=false;
    end
  else
    begin
      bitbtn1.Enabled:=false;
      if Listbox2.Items.Count>0 then
        bitbtn2.Enabled:=true
      else bitbtn2.Enabled:=false;
    end;
end;

procedure TfkOKBottomDlg.FormShow(Sender: TObject);
var
  s:string;
begin
  Listbox1.Items.Clear;
  Listbox2.Items.Clear;
  with Fr_dm.QV_emp_fk do
    begin
      close;
      sql.Clear;
      s:='select distinct item from V_emp_fk';
      sql.add(s);
      open;
    end;
    fr_dm.QV_emp_fk.first;
    while not Fr_dm.QV_emp_fk.Eof do
      begin
        Listbox1.Items.Add(Fr_dm.qv_emp_fk.fieldbyname('item').asstring);
        Fr_dm.QV_emp_fk.Next;
      end;
      setbutton;
end;

procedure TfkOKBottomDlg.bitbtn1Click(Sender: TObject);
var
  i:integer;
begin
  if Listbox1.Items.Count>0 then
   for i:=Listbox1.Items.Count-1 downto 0 do
     begin
       if Listbox1.Selected[i] then
         begin
           Listbox2.Items.Add(Listbox1.Items.Strings[i]);
           Listbox1.Items.Delete(i);
         end;
     end;
     setbutton;
end;

procedure TfkOKBottomDlg.BitBtn2Click(Sender: TObject);
var
  i:integer;
begin
  if Listbox2.Items.Count>0 then
   for i:=Listbox2.Items.Count-1 downto 0 do
     begin
       if Listbox2.Selected[i] then
         begin
           Listbox1.Items.Add(Listbox2.Items.Strings[i]);
           Listbox2.Items.Delete(i);
         end;
     end;
     setbutton;
end;

procedure TfkOKBottomDlg.ListBox1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
  if sender=Listbox1 then
    bitbtn2click(self)
end;

procedure TfkOKBottomDlg.ListBox1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
   Accept:=source is TListbox;
end;

procedure TfkOKBottomDlg.ListBox2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Listbox2.BeginDrag(false,0)
end;

end.