Различные цехи завода

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
 
    Button5: TButton;
    BitBtn1: TBitBtn;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    Memo1: TMemo;
    Label5: TLabel;
    Button4: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
   
    procedure BitBtn1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
Type
   VRM=record
   nameorg:string[40]; //наименование организации
   dolz:string[40];   //должность
   kval:extended;   //квалификация
     //стаж
   zarplat:extended;  //зарплата
    //продолжительность ежегодного оплачиваемого отпуска
 
   end;
 
 
var
  Form1: TForm1;
 
fz:file of VRM; //файл из записей
  Ft:TextFile; //текстовый файл
  Stud:Array[1..100] of VRM; //массив записей
  nzap:integer; //номер записи
  FileNameZ, FileNameT:string; //имя файла записей и текстового файла
r1,r2:string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:='';
 Edit2.Text:='';
 Edit3.Text:='';
 
 Edit5.Text:='';
 
 
 Memo1.Clear;
 Button1.Hide; //сделать невидимой кнопку "Ввести запись"
 nzap:=0;
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);   //кнопка "ввести значения"
begin
nzap:=nzap+1;
 
with stud[nzap]do begin
                  nameorg:=Edit1.Text;
                  dolz:=Edit2.Text;
   kval:=strtoint(Edit3.Text);
   zarplat:=strtoint(Edit5.Text);
 
 
 
 
 
 Memo1.Lines.Add(nameorg+' '+dolz+' '+FLOATTOSTR(kval)+'  '+floatTostr(zarplat));
                end;
Write(fz,Stud[nzap]);  //запись в файл
 Edit1.Text:='';
 Edit2.Text:='';
 Edit3.Text:='';
 
Edit5.Text:='';
 
end;
 
procedure TForm1.Button2Click(Sender: TObject); //создание нового файла записей
begin
 
OpenDialog1.Title:='Создать новый файл'; //изменение заголовка окна диалога
if OpenDialog1.Execute then begin //выполнение стандартного диалога выбора имени //файла
                            FileNameZ:=Opendialog1.FileName; //возвращение имени дискового //файла
                            AssignFile(Fz,FileNameZ); //связывание файловой переменной fz //(файла //записей) с именем файла
                            Rewrite(Fz);//создание нового файла
                      end; 
Button1.Show; //сделать видимой кнопку "Ввести запись"
 
 
end;
 
 
 
 
 
 
 
 
procedure TForm1.Button3Click(Sender: TObject); //открыть существующий файл
begin
 
if OpenDialog1.Execute then begin
                            FileNameZ:=Opendialog1.FileName;
                            AssignFile(Fz,FileNameZ);
                            Reset(Fz); //открытие существующего файла
                            end;
while not eof(fz)do begin
                    nzap:=nzap+1;
                    Read(fz,stud[nzap]);  //чтение записи из файла
                    with stud[nzap] do
                    Memo1.Lines.Add(nameorg+' '+dolz+' '+FLOATTOSTR(kval)+'  '+floatTostr(zarplat));
end;
Button1.Show;
end;
 
 
 
 
 
 
 
procedure TForm1.Button5Click(Sender: TObject);    //кнопка   сохранить текстовый документ
var i:word;
 
begin
if SaveDialog1.Execute then
                     begin
                       FileNameT:=SaveDialog1.FileName;
                       AssignFile(Ft,FileNameT);
                       Rewrite(Ft);
                      end;
for i:=1 to nzap do
with stud[i] do Writeln(ft,i:4,'.',nameorg+' '+dolz+' '+FLOATTOSTR(kval)+'  '+floatTostr(zarplat)); //запись в текстовый файл
CloseFile(ft); //закрытие текстового файла
end;
 
 
 
 
 
 
 
 
 
procedure TForm1.Button4Click(Sender: TObject);
var i,j:word;
st:vrm;
begin
for i:=1 to nzap-1 do
for j:=i+1 to nzap do
if Stud[i].zarplat<Stud[j].zarplat then begin // сортировка массива записей по среднему баллу
 st:=Stud[i];
 Stud[i]:=Stud[j];
 Stud[j]:=st;
 end;
Memo1.Clear;
for i:=1 to nzap do //вывод в Memo1 отсортированных записей
with stud[i] do
 Memo1.Lines.Add(IntToStr(i)+' '+NAMEORG+' '+FloattoStrF(zarplat,fffixed,4,2));
end;
 
 
 
procedure TForm1.BitBtn1Click(Sender: TObject);  //кнопка закрыть
begin
CloseFile(fz); //закрытие файла записей при нажатии кнопки "Close"
end;
 
end.