Створення інформаційно-пошукової системи працівників підприємства
45

    Button2: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Edit4: TEdit;

    StringGrid2: TStringGrid;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    ComboBox3: TComboBox;

    ComboBox4: TComboBox;

    Edit5: TEdit;

    Label7: TLabel;

    procedure FormActivate(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure N3Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Edit2Change(Sender: TObject);

    procedure Edit3Change(Sender: TObject);

    procedure Edit4Change(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button7Click(Sender: TObject);

    procedure Button8Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure Button9Click(Sender: TObject);

    procedure Edit1Change(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure ComboBox3Change(Sender: TObject);

    procedure ComboBox4Change(Sender: TObject);

    procedure Button10Click(Sender: TObject);

    procedure ComboBox2Change(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

Typeplata=record

       nv: string[20];

       pib: string[18];

       pos: string[12];