Кадровий облік

begin

if ComboBox2. Items. Count<1 then begin

Form3. Show;

Form3. Edit3. SetFocus;

end;

end;

procedure TForm2. ComboBox3DropDown(Sender: TObject);

begin

if ComboBox3. Items. Count<1 then begin

Form3. Show;

Form3. Edit2. SetFocus;

end;

end;

procedure TForm2. ComboBox4DropDown(Sender: TObject);

begin

if ComboBox4. Items. Count<1 then begin

Form3. Show;

Form3. Edit1. SetFocus;

end;

end;

end.

unit RegUnit;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm3 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

ListBox1: TListBox;

ListBox2: TListBox;

ListBox3: TListBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

procedure Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Edit2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure Edit3KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure FormShow(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure ListBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure ListBox2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure ListBox3KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure ListBox1Click(Sender: TObject);

procedure ListBox2Click(Sender: TObject);

procedure ListBox3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses KadrUnit, WorkerUnit;

{$R *. dfm}

procedure TForm3. Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var i: Integer;

A: Boolean;

begin

if Key=27 then Close;

if Key=13 then begin

A: =True;

for i: =0 to ListBox1. Items. Count-1 do

if Edit1. Text=ListBox1. Items. Strings [i] then begin

A: =False;

Break;

end;

if A then

ListBox1. Items. Add(Edit1. Text);

Edit1. Clear;

end;

end;

procedure TForm3. Edit2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var i: Integer;

A: Boolean;

begin

if Key=27 then Close;

if Key=13 then begin

A: =True;

for i: =0 to ListBox2. Items. Count-1 do

if Edit2. Text=ListBox2. Items. Strings [i] then begin

A: =False;

Break;

end;

if A then

ListBox2. Items. Add(Edit2. Text);

Edit2. Clear;

end;

end;

procedure TForm3. Edit3KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

var i: Integer;

A: Boolean;

begin

if Key=27 then Close;

if Key=13 then begin

A: =True;

for i: =0 to ListBox3. Items. Count-1 do

if Edit3. Text=ListBox3. Items. Strings [i] then begin

A: =False;

Break;

end;

if A then

ListBox3. Items. Add(Edit3. Text);

Edit3. Clear;

end;

end;

procedure TForm3. FormShow(Sender: TObject);

begin

Form1. Enabled: =False;

Form2. Enabled: =False;

end;

procedure TForm3. FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form2. ComboBox2. Items: =ListBox3. Items;

Form2. ComboBox3. Items: =ListBox2. Items;

Form2. ComboBox4. Items: =ListBox1. Items;

Form1. Enabled: =True;

Form2. Enabled: =True;

end;

procedure TForm3. ListBox1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if ListBox1. ItemIndex>=0 then

if Key=46 then ListBox1. Items. Delete(ListBox1. ItemIndex);

if Key=27 then Close;

end;

procedure TForm3. ListBox2KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if ListBox2. ItemIndex>=0 then

if Key=46 then ListBox2. Items. Delete(ListBox2. ItemIndex);

if Key=27 then Close;

end;

procedure TForm3. ListBox3KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

if ListBox3. ItemIndex>=0 then

if Key=46 then ListBox3. Items. Delete(ListBox3. ItemIndex);

if Key=27 then Close;

end;

procedure TForm3. ListBox1Click(Sender: TObject);

var i: Integer;

begin

i: =ListBox1. ItemIndex;

if i<0 then Exit;

if ListBox1. Items. Strings [i] <>'' then

Edit1. Text: =ListBox1. Items. Strings [i] ;

end;

procedure TForm3. ListBox2Click(Sender: TObject);

var i: Integer;

begin

i: =ListBox2. ItemIndex;

if i<0 then Exit;

if ListBox2. Items. Strings [i] <>'' then

Edit2. Text: =ListBox2. Items. Strings [i] ;

end;

procedure TForm3. ListBox3Click(Sender: TObject);

var i: Integer;

begin

i: =ListBox3. ItemIndex;

if i<0 then Exit;

if ListBox3. Items. Strings [i] <>'' then

Edit3. Text: =ListBox3. Items. Strings [i] ;

end;

end.