записи и файлы

[kate_miss]

Для участия а конкурсе на замещение вакантной должности сотрудника фирмы желающие подают следующую информацию:
Ф.И.О.,
год рождения,
образование (среднее, специальное, высшее),
знание иностранных языков (английский, немецкий, французский, владею свободно, читаю и перевожу со словарем),
владение компьютером (MSDOS, Windows),
стаж работы,
наличие рекомендаций.
Вывести список претендентов в соответствии с требованиями руководства фирмы


помогите в реализациии данной задачи))))))))))))

[Serge_Bliznykov]

1) Вы забыли указать язык программирования
2) помочь - это обычно не означает полностью решить за Вас (для этого есть раздел Фриланс, там решат. но за деньги!).
сами то хоть что-нибудь сделали? Поискали похожие задачи (подскажу, это задачи на ЗАПИСИ или ТИПИЗИРОВАННЫЕ ФАЙЛЫ)?

[kate_miss]

язык delphi........с использованием OpenDialog и SaveDialog я приблизительно понимаю как решать.......
1/сначала ввести данные......я сделала через Edit и Checbox........
2.потом по какому то критерию осуществить поиск.....


вот только затрудняюсь в использовании OpenDialog и SaveDialog.....не поняла принципа работы)))))))))

[DIgorevich]

Так Вам надо сначала вообще Делфи изучать. Потом, записи о претендентах должны где-то храниться (БД, типизированные файлы). Да и выборку (вывод по подходящему критерию) организовывать надо по конкретным полям (образование, ДР, стаж и т.д.).

[Stilet]

kate_miss

Не с OpenDialog нужно начинать тебе. Я так понимаю что это не работа с базами данных тогда возникает вопрос - ты умеешь работать в типизированными файлами?

[kate_miss]

не могу ответить что умею.....в этой работе нет базы данных......знаю как все создать вернее внести.......а вот выбор по критерию сложнее(((((

[Stilet]

а вот выбор по критерию сложнее(

А ты покажи как ты записи в файл пхаешь и как их читаешь (все без критерия) а мы уж скорректируем на критерии

[Grag]

Сообщение от kate_miss

в этой работе нет базы данных......

kate_miss, в этой работе есть база данных, просто она должна быть представлена в виде типизированного файла...
Могу выполнить эту работу за Вас, так как на данный момент ничем не занят.

Обращайтесь:
Контакты:
e-mail: delmas-61@mail.ru
icq: 585281783
Skype: delmas61

[kate_miss]

***************код****************
type
TSotrydnik= record
fio:string[15];
god:integer;
obr:string[15];
inyaz:string[15];
stepen:string[10];
komp:string[10];
stazh:integer;
recom:string[10];
end;

var
Form1: TForm1;
Mass:array [1..300] of TSotrydnik;
masscnt:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
BitBtn2.Hide;
masscnt:=0;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
//Memo1.Lines.Add('-------ФИО-------Год рождения-------Образование-------Ин.яз-------Владение-------Знание ПК-------Стаж-------Рекомендации');
//Memo1.Lines.Add('------------------------------------------------------------------------------------------------------------------------');
masscnt:=masscnt+1;
Mass[masscnt].fio:=Edit1.Text;
Mass[masscnt].god:=StrToInt(Edit2.Text);
Mass[masscnt].obr:=Edit3.Text;
Mass[masscnt].inyaz:=Edit4.Text;
Mass[masscnt].stepen:=Edit5.Text;
Mass[masscnt].komp:=Edit6.Text;
Mass[masscnt].stazh:=StrToInt(Edit7.Text);
Mass[masscnt].recom:=Edit8.Text;
Memo1.Lines.Add(Mass[masscnt].fio+' '+IntToStr(Mass[masscnt].god)+' '+Mass[masscnt].obr+' '+
Mass[masscnt].inyaz+' '+Mass[masscnt].stepen+' '+Mass[masscnt].komp+' '+IntToStr(Mass[masscnt].stazh)+' '+Mass[masscnt].recom);
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit5.Text := '';
Edit6.Text := '';
Edit7.Text := '';
Edit8.Text := '';
Edit1.SetFocus;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
var f:FILE of TSotrydnik;
begin
if OpenDialog1.Execute then
begin
masscnt:=0;
AssignFile(f,OpenDialog1.FileName);
Reset(f);
while not eof(f) do
begin
masscnt:=masscnt+1;
Read(f,Mass[masscnt]);
end;
CloseFile(f);
end;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var f:FILE of TSotrydnik;
begin
Form1.Close;
//CloseFile(f);
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var i:integer;
f:FILE of TSotrydnik;
begin
if SaveDialog1.Execute then
begin
AssignFile(f,SaveDialog1.FileName);
Rewrite(f);
for i:=1 to masscnt do
write(f,Mass[i]);
CloseFile(f);
end;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
var f:FILE of TSotrydnik;
begin
//OpenDialog1.Title := 'Создать новый файл';
if OpenDialog1.Execute then
begin
AssignFile(f,OpenDialog1.FileName);
Rewrite(f);
BitBtn2.Show; //Сделать видимой кнопку "Ввести запись"
end;

{var i:integer;
begin
Memo1.Lines.Add('-------ФИО-------Год рождения-------Образование-------Ин.яз-------Владение-------Знание ПК-------Стаж-------Рекомендации');
for i:=1 to Masscnt do
begin
Memo1.Lines.Add(Mass[i].fio+' '+IntToStr(Mass[i].god)+' '+Mass[i].obr+' '+
Mass[i].inyaz+' '+Mass[i].stepen+' '+Mass[i].komp+' '+IntToStr(Mass[i].stazh)+' '+Mass[i].recom);
end;
end;}
end;
end.



ВОТ ЧТО У МЕНЯ ПОКА ПОЛУЧИЛОСЬ.......только вот что-то открытие не работает ------ вернее в memo данные не отображаются((((((((

и вот эти критерии.....в заданиии так не ясно...что я даже не понимаю как их сделать.....!!!!!!!!
help me)))))



и еще помогите сделать красивый вывод данных в memo.......не получается..все как то в разброс))))))

[CodeExpert]

//общий тип
type
	TSotrydnik= record
		fio:string[15];
		god:integer;
		obr:string[15];
		inyaz:string[15];
		stepen:string[10];
		komp:string[10];
		stazh:integer;
		recom:string[10];
	end;

var
Form1: TForm1;
//массив данных о сотрудниках
Mass:array [1..300] of TSotrydnik;
//счетчик
masscnt:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
BitBtn2.Hide;
masscnt:=0;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
//Memo1.Lines.Add('-------ФИО-------Год рождения-------Образование-------Ин.яз-------Владение-------Знание ПК-------Стаж-------Рекомендации');
//Memo1.Lines.Add('------------------------------------------------------------------------------------------------------------------------');
masscnt:=masscnt+1;
Mass[masscnt].fio:=Edit1.Text;
Mass[masscnt].god:=StrToInt(Edit2.Text);
Mass[masscnt].obr:=Edit3.Text;
Mass[masscnt].inyaz:=Edit4.Text;
Mass[masscnt].stepen:=Edit5.Text;
Mass[masscnt].komp:=Edit6.Text;
Mass[masscnt].stazh:=StrToInt(Edit7.Text);
Mass[masscnt].recom:=Edit8.Text;
Memo1.Lines.Add(Mass[masscnt].fio+' '+IntToStr(Mass[masscnt].god)+' '+Mass[masscnt].obr+' '+
Mass[masscnt].inyaz+' '+Mass[masscnt].stepen+' '+Mass[masscnt].komp+' '+IntToStr(Mass[masscnt].stazh)+' '+Mass[masscnt].recom);
Edit1.Text := '';
Edit2.Text := '';
Edit3.Text := '';
Edit4.Text := '';
Edit5.Text := '';
Edit6.Text := '';
Edit7.Text := '';
Edit8.Text := '';
Edit1.SetFocus;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
var f:FILE of TSotrydnik;
begin
if OpenDialog1.Execute then
	begin
		masscnt:=0;
		AssignFile(f,OpenDialog1.FileName);
		Reset(f);
		while not eof(f) do
			begin
				masscnt:=masscnt+1;
				Read(f,Mass[masscnt]);
			end;
		CloseFile(f);
	end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var f:FILE of TSotrydnik;
begin
Form1.Close;
//ненадо здесь ничего закрывать из файлов
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var i:integer;
f:FILE of TSotrydnik;
begin
	if SaveDialog1.Execute then
		begin
			AssignFile(f,SaveDialog1.FileName);
			Rewrite(f);
			for i:=1 to masscnt do write(f,Mass[i]);
			CloseFile(f);
		end;
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
var f:FILE of TSotrydnik;
begin
if OpenDialog1.Execute then
	begin
		AssignFile(f,OpenDialog1.FileName);
		Rewrite(f);
		BitBtn2.Show; //Сделать видимой кнопку "Ввести запись"
	end;
end;

var i:integer;
begin
Memo1.Lines.Add('-------ФИО-------Год рождения-------Образование-------Ин.яз-------Владение-------Знание ПК-------Стаж-------Рекомендации');
for i:=1 to Masscnt do
	begin
		Memo1.Lines.Add(Mass[i].fio+' '+IntToStr(Mass[i].god)+' '+Mass[i].obr+' '+
		Mass[i].inyaz+' '+Mass[i].stepen+' '+Mass[i].komp+' '+IntToStr(Mass[i].stazh)+' '+Mass[i].recom);
	end;
end;

end.

Вставляйте, теперь будет работать=)