2.4 Описание разработки
Данное ЭУП после двойного нажатия левой кнопки мыши по ярлыку «ЭУП SQL-сервер.exe» происходит запуск программы и появляется главная форма, на которой расположены действующие кнопки после нажатия, которых происходит выполнение определенной команды. В данном ЭУП я использовал процедуру с помощью, которой старт формы использовал разные картинки, для того чтобы разнообразить программный продукт.
Использовалась следующая форма:
procedure TForm1.FormShow(Sender: TObject);
begin
randomize;
a:=random(4);
if a=0 then image5.Picture:=image1.Picture;
if a=1 then image5.Picture:=image2.Picture;
if a=2 then image5.Picture:=image3.Picture;
if a=3 then image5.Picture:=image4.Picture;
end;
рисунок главной формы.
Для того чтобы перейти к одному из разделов нужно кликнуть левой кнопкой мыши по кнопке. Пример №1:
Клик по кнопке «Руководство пользователя». Используется следующая процедура:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form1.Visible:=false;
form2.visible:=true;
end;
Открывается следующая форма с просьбой на подтверждение запроса.
рисунок формы на подтверждение запроса.
При нажатии на кнопку «Да Уверен!» открывается форма с расположенными на ней двумя кнопками: «Выход», «Открыть Руководство». Используется процедура того же типа что и при нажатии кнопки «Руководство пользователя» на главной форме.
рисунок формы руководства
При нажатии на кнопку «Открыть Руководство», с помощью WebBrowser открывается руководство, которое описывает, как работает данное ЭУП. Используется следующая процедура:
procedure TForm3.BitBtn2Click(Sender: TObject);
var
URL:widestring;
data: array[0..255] of Char;
begin
WebBrowser1.Visible:=true;
wsprintf(data,'DOC\ Руководство пользователя.html');
URL:=ExtractFilePath(Application.ExeName);
URL:=Url+data;
WebBrowser1.Navigate(URL);
end;
При нажатии на кнопку «Выход», закрывается данная форма и возвращает на главную форму.
Пример №2:
Клик по кнопке «Учебник». Появляется кнопка «Показать», после клика, которой появляются: «Лекции», «Лабораторные работы», «Спрятать».
рисунок после нажатия кнопки «Показать»
При нажатии на кнопку «Лекции», открывается форма со следующими кнопками: «Открыть Лекция №1», «Открыть Лекция №2», «Открыть Лекция №3», «Выход».
При нажатии на кнопку «Открыть Лекция №1», «Открыть Лекция №2», «Открыть Лекция №3», с помощью WebBrowser открываются соответственно лекции №1, №2, №3. Используется процедура того же типа что и при нажатии кнопки «Открыть Руководство».
При нажатии на кнопку «Выход», закрывается данная форма и возвращает на главную форму.
рисунок формы с лекциями
При нажатии на кнопку «Лабораторные работы», открывается форма со следующими кнопками: «Открыть Лекция №1», «Открыть Лекция №2», «Выход».
При нажатии на кнопку «Открыть Лабораторную работу №1», «Открыть Лабораторную работу №2», с помощью WebBrowser открываются соответственно лабораторные работы №1, №2. Используется процедура того же типа что и при нажатии кнопки «Открыть Руководство».
При нажатии на кнопку «Выход», закрывается данная форма и возвращает на главную форму.
рисунок формы с лабораторными работами
электронный база данное программа тестирование
При нажатии на кнопку «Спрятать», убираются кнопки которые появились нажатием кнопки «Показать».
Пример №3:
Клик по кнопке «Опции». Появляется TrackBar и кнопка «Применить».
С помощью левой кнопки мыши можно передвинуть ползунок TrackBar и кликнув по кнопке «Применить» меняется прозрачность главной формы. Используется следующая процедура:
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
form1.AlphaBlendValue:=trackbar1.Position;
end;
рисунок изменения прозрачности
Пример №4:
Клик по кнопке «Тест». Открывается форма, в которой нужно внести свои данные, после чего можно начать тест. По завершении, которого сохраняются данные о проходившем тест, количестве правильных ответов. После завершения теста попробовать пройти его еще раз можно лишь при повторном входе в программный продукт.
Используется следующая процедура:
var
Form7: TForm7;
ini: TiniFile;
DJInN: integer;
bal,num,num2,x,y: integer;
mass: array[1..100] of integer;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm7.Button3Click(Sender: TObject);
begin
memo1.Show; RadioButton1.Show; RadioButton2.Show; RadioButton3.Show; RadioButton4.Show; button1.Show;
button2.Hide;
memo1.Lines.Clear;
form7.Button1Click(nil);
image1.Visible:=true;
button3.Visible:=false;
end;
procedure TForm7.Button1Click(Sender: TObject);
label ran;
var m:integer;
begin
randomize;
if num<1 then begin
for x:=1 to 20 do begin
if ini.ReadString('DJInN',inttostr(x),'')='' then
begin
y:=x;
goto ran end else num:=num+1
end;
end;
ran:
if num2<num then
begin
DJInN:=random(x);
if DJInN=0
then DJInN:=1;
if mass[DJInN]=1 then
goto ran;
memo1.Lines.Clear;
memo1.Lines.Add(ini.ReadString('DJInN',inttostr(DJInN),''));
m:=random(3);
if m=1 then
begin
radiobutton4.Left:=15; radiobutton4.Top:=344;
radiobutton3.Left:=392; radiobutton3.Top:=344;
radiobutton2.Left:=15; radiobutton2.Top:=392;
radiobutton1.Left:=392; radiobutton1.Top:=392;
end;
if m=2 then
begin
radiobutton2.Left:=15; radiobutton2.Top:=344;
radiobutton3.Left:=392; radiobutton3.Top:=344;
radiobutton4.Left:=15; radiobutton4.Top:=392;
radiobutton1.Left:=392; radiobutton1.Top:=392;
end;
if m=3 then
begin
radiobutton4.Left:=15; radiobutton1.Top:=344;
radiobutton3.Left:=392; radiobutton2.Top:=344;
radiobutton1.Left:=15; radiobutton4.Top:=392;
radiobutton2.Left:=392; radiobutton3.Top:=392;
end;
if m=0 then
begin
radiobutton1.Left:=15; radiobutton1.Top:=344;
radiobutton2.Left:=392; radiobutton2.Top:=344;
radiobutton3.Left:=15; radiobutton3.Top:=392;
radiobutton4.Left:=392; radiobutton4.Top:=392;
end;
RadioButton1.Caption:=ini.ReadString('do',inttostr(DJInN),'');
RadioButton2.Caption:=ini.ReadString('de',inttostr(DJInN),'');
RadioButton3.Caption:=ini.ReadString('du',inttostr(DJInN),'');
RadioButton4.Caption:=ini.ReadString('da',inttostr(DJInN),'');
if RadioButton1.checked then
bal:=bal+1;
mass[DJInN]:=1;
num2:=num2+1;
RadioButton1.Checked:=false;RadioButton2.Checked:=false;RadioButton3.Checked:=false;RadioButton4.Checked:=false;
end
else
begin
if RadioButton1.checked then bal:=bal+1;
label1.Show;
label1.Caption:=('Правильно ответил на:'+inttostr(bal)+' '+#32+'вопросов.');
button2.Visible:=false;
button1.Visible:=false;
RadioButton1.Visible:=false;
RadioButton2.Visible:=false;
RadioButton3.Visible:=false;
RadioButton4.Visible:=false;
memo1.Visible:=false;
memo3.Visible:=false;
button4.Visible:=true;
image1.Visible:=false;
end;
end;
procedure TForm7.FormCreate(Sender: TObject);
begin
ini:=TiniFile.Create(extractFilePath(paramstr(0))+'DJInN.txt');
end;
procedure TForm7.Button2Click(Sender: TObject);
begin
memo2.Text:=labelededit1.Text+' '+#32+#32+labelededit2.Text+' '+#32+#32+labelededit3.Text+' '+#32+#32+labelededit4.Text+' '+#32+#32+label1.Caption;
memo2.Lines.SaveToFile(savedialog1.FileName);
form7.close;
form1.Visible:=true;
end;
procedure TForm7.Button4Click(Sender: TObject);
begin
savedialog1.Execute;
button2.Visible:=true;
button4.Visible:=false;
end;
procedure TForm7.Button5Click(Sender: TObject);
begin
button3.Visible:=true;
memo3.Text:=labelededit2.Text+' '+#32+#32+labelededit1.Text+' '+#32+#32+labelededit3.Text+' '+#32+#32+labelededit4.Text+' '+#32+label2.Caption;
labelededit1.Visible:=false;
labelededit2.Visible:=false;
labelededit3.Visible:=false;
labelededit4.Visible:=false;
button5.Visible:=false;
end;
рисунок регистрации для выполнения теста