jsbmxzunit.pas

工资管理系统

unit JsBmXzUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, Buttons, Animate, GIFCtrl;

type
  TJsBmXz = class(TForm)
    ListBox1: TListBox;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    ListBox2: TListBox;
    SpeedButton1: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Panel2: TPanel;
    SpeedButton2: TSpeedButton;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JsBmXz: TJsBmXz;

implementation

uses gzdata, DataTUnit, PassWordUnit, PrintShowUnit, KsBmPrintUnit;
{$R *.DFM}

procedure TJsBmXz.BitBtn3Click(Sender: TObject);
begin
data.query1.close;
close;
end;

procedure TJsBmXz.FormShow(Sender: TObject);
begin
  listbox2.Items.Clear;
  listbox1.Items.Clear;
  
  with datat.BmTable2 do
  begin
    open;
    first;
    while not eof do
    begin
       listbox2.Items.Add(datat.bmtable2.Fields[0].AsString+datat.bmtable2.Fields[1].AsString);
       next;
    end;
  end;
end;

procedure TJsBmXz.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #27 then Close;
end;

procedure TJsBmXz.SpeedButton6Click(Sender: TObject);
var i:integer;
begin
try
      ListBox1.Items.Add(listbox2.Items[listbox2.ItemIndex]);
      //listbox1.Items.Delete(listbox1.itemindex);
      listbox2.SetFocus;
      listbox2.Update;
     // ShowMessage(IntToStr(listbox1.ItemIndex));
      i:=listbox2.ItemIndex;
      listbox2.Items.Delete(listbox2.itemindex);
      listbox2.ItemIndex:=i;

except
MessageBox(Handle,'请选择部门(单击部门列表再选择)',pchar(caption),Mb_iconstop+Mb_ok);
end;
 panel2.Caption:='已有'+IntToStr(listbox1.Items.count)+'个部门被选择';
end;

procedure TJsBmXz.SpeedButton7Click(Sender: TObject);
begin
try
      ListBox2.Items.Add(listbox1.Items[listbox1.ItemIndex]);
      listbox1.Items.Delete(listbox1.itemindex);
      listbox1.SetFocus;
except
MessageBox(Handle,'请选择部门(单击部门列表再选择)',pchar(caption),Mb_iconstop+Mb_ok);
end;
panel2.Caption:='已有'+IntToStr(listbox1.Items.count)+'个部门被选择';
end;

procedure TJsBmXz.SpeedButton8Click(Sender: TObject);
var i:integer;
begin
try
   for i:=0 to listbox2.Items.Count do
     begin
      ListBox1.Items.Add(listbox2.Items[i]);
     end;
except
end;
      try
      listbox2.Items.Clear;
      except
      end;
      panel2.Caption:='已有'+IntToStr(listbox1.Items.count)+'个部门被选择';
end;

procedure TJsBmXz.SpeedButton9Click(Sender: TObject);
var i:integer;
begin
try
   for i:=0 to listbox1.Items.Count do
     begin
      ListBox2.Items.Add(listbox1.Items[i]);
     end;
  except
end;
  try
      listbox1.Items.Clear;
    except
  end;
  panel2.Caption:='已有'+IntToStr(listbox1.Items.count)+'个部门被选择';
end;


procedure TJsBmXz.SpeedButton2Click(Sender: TObject);
begin
abort;
end;

procedure TJsBmXz.SpeedButton1Click(Sender: TObject);
begin
  Close;
end;


end.