Программа негізінен екі бөлімен түрады



жүктеу/скачать 469,5 Kb.
бет32/33
Дата06.02.2022
өлшемі469,5 Kb.
#79416
түріПрограмма
1   ...   25   26   27   28   29   30   31   32   33
Байланысты:
Дип.-Delphi-программалау-тілін-пайдалану

Резюме


Результат дипломной работы разработка тестов по информатике для школьников в среде DELPHI. В эту систему входят классификация и организация данных. Потому что принцип работы среды DELPHI основывается на системе Windows. Пользователю, работающему с определенной системой Windows не составит труда создать базы данных в среде DELPHI в виде тестов.




summary


Result of degree work development of tests on computer science for schoolboys in DELPHI environment. This system includes classification and a data structure. Because the principle of work of DELPHI environment is based on system Windows. The user working with certain system Windows cannot create databases in DELPHI environment as tests.


Қосымша
unit Marcl;
interface
uses
Windows, Messages, SysUtiIs, Classes, Graphics,
Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
type
TForml = cIass(TForm)
Panell: TPaneI;
Buttonl: TButton;
Button2: TButton;
Panel2: TPanel;
Timerl: TTimer;
Labell: TLabel;
Panel3: TPanel;
Imagel: TImage;
Image2: TImage;
GroupBoxl: TGroupBox;
Label2: TLabel;
Panel4: TPaneI;
Image3: TImage;
procedure ButtonlCHck(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure TimerlTimer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Marc2;
{uses Marc1;}
{$R *.DFM}
procedure TForml.ButtonlClick(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TForml.TimerlTimer(Sender: TObject);
var DateTime: TdateTime;
begin
DateTime:=Time;
Label2.caption:=TimeToStr(DateTime);
with label1 do
begin
if Ieft<460 then
left:=left+height div 10 else left:=-160
end;
begin
{with Image1 do
ifleft<460 then
left:=left+width div 10 else left: = -160}
end;
with Image2 do begin
if left<460 then
left:=left+width div 10 else left:=-160
end;
end;
end.

unit Marc2;


interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Menus;
type
TForm2 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Panel2: TPanel;
RadioButtonl: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
Button2: TButton;
Imagel: TImage;
MainMenul: TMainMenu;
I1: TMenuItem;
i2: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
procedure ButtonlClick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure i2Click(Sender: TObject);
procedure NlClick(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Marc3, Marc4, Marc5, Marc6;
{uses Unit3, Unit4, Unit5, Unit6;}
{$R *.DFM}
procedure TForm2.ButtonlClick(Sender: TObject);
begin
Close;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
if Form2.RadioButtonl.Checked=true then
begin
Form3.Show;
end;
if Form2.RadioButton2.Checked=true then
begin
Form4.Show;
end;
if Form2.RadioButton3.Checked=true then
begin
Form5.Show;
end;
if Form2.RadioButton4.Checked=true then
begin
Form6.Show;
end;
end;
procedure TForm2.i2Click(Sender: TObject);
begin
Form3.Show;
end;
procedure TForm2.NlClick(Sender: TObject);
begin
Form4.Show;
end;
procedure TForm2.N2Click(Sender: TObject);
begin
Form5.Show;
end;
procedure TForm2.N3Click(Sender: TObject);
begin
Form6.Show;
end;
procedure TForm2.N4Click(Sender: TObject);
begin
Close;
end;
end.
unit Marc3;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables;
type
TForm3 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Panel2: TPanel;
DataSourcel: TDataSource;
Tablel: TTable;
GroupBoxl: TGroupBox;
DBGridl: TDBGrid;
DBNavigatorl: TDBNavigator;
procedure ButtonlCHck(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.DFM}
procedure TForm3.ButtonlClick(Sender: TObject);
begin
Close;
end;
end.

unit Marc4;


interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables;
type
TForm4 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Panel2: TPanel;
GroupBoxl: TGroupBox;
DataSourcel: TDataSource;
Tablel: TTable;
DBGridl: TDBGrid;
DBNavigatorl: TDBNavigator;
procedure ButtonlCHck(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.DFM}
procedure TForm4.ButtonlClick(Sender: TObject);
begin
Close;
end;
end.
program Marka;
uses
Forms,
Marcl in 'Marcl.pas' {Form1},
Marc2 in 'Marc2.pas' {Form2},
Marc3 in 'Marc3.pas' {Form3},
Marc4 in 'Marc4.pas' {Form4},
Marc5 in 'Marc5.pas' {Form5},
Marc6 in 'Marc6.pas' {Form6},
Marc7 in 'Marc7.pas' {Form7},
Marc8 in 'Marc8.pas' {Form8},
Marc9 in 'Marc9.pas' {Form9};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForml, Form1);
AppHcation.CreateForm(TForm2, Form2);
AppHcation.CreateForm(TForm3, Form3);
Application.CreateForm(TForm4, Form4);
Application.CreateForm(TForm5, Form5);
Application.CreateForm(TForm6, Form6);
AppHcation.CreateForm(TForm7, Form7);
Application.CreateForm(TForm8, Form8);
Application.CreateForm(TForm9, Form9);
Application.Run; end.
unit Marc6;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, Db, DBTables, Menus, ExtDlgs,
Mask;
type TForm6 = class(TForm)
Panel2: TPanel;
DataSourcel: TDataSource;
Tablel: TTable;
GroupBoxl: TGroupBox;
DBGridl: TDBGrid;
MainMenul: TMainMenu;
N14: TMenuItem;
11: TMenuItem;
N1: TMenuItem;
i2: TMenuItem;
N2: TMenuItem;
OpenPictureDialogl: TOpenPictureDialog;
Buttonl: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
DBMemol: TDBMemo;
DBImagel: TDBImage;
procedure ButtonlClick(Sender: TObject);
procedure NlCHck(Sender: TObject);
procedure I1Click(Sender: TObject);
procedure i2Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Button2CHck(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4CIick(Sender: TObject);
procedure Button5CIick(Sender: TObject);
procedure Button6CHck(Sender: TObject);
procedure Button7CIick(Sender: TObject); private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Marc8, Marc7, Marc9;
{ٱuses Unit8, Unit7, Unit9;}
{$R*.DFM}
procedure TForm6.ButtonlClick(Sender: TObject);
begin
Tablel.Edit;
if OpenPictureDialogl.Execute then begin DBImage1.Picture.LoadFromFile(OpenPictureDialogl.File Name);
{DBIMagelLoadPicture;} end;
Tablel.Post; end;
procedure TForm6.NlCHck(Sender: TObject); begin
Form8.Show; end;
procedure TForm6.I1Click(Sender: TObject);
begin
Form7.Show;
end;
procedure TForm6.i2Click(Sender: TObject);
begin
Form9.Show;
end;
procedure TForm6.N2Click(Sender: TObject);
begin Close;
end;
procedure TForm6.Button2Click(Sender: TObject);
begin
Tablel.First;
end;
procedure TForm6.Button3Click(Sender: TObject);
begin
Tablel.Prior;
end;
procedure TForm6.Button4Click(Sender: TObject);
begin
Tablel.Next;
end;
procedure TForm6.Button5Click(Sender: TObject);
begin
Tablel.Last;
end;
procedure TForm6.Button6Click(Sender: TObject);
begin
Tablel.Insert;
end;
procedure TForm6.Button7Click(Sender: TObject);
begin
Tablel.Delete;
end;
end.
unit Marc7;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
Menus, Mask, DBCtrls, StdCtrls, Db, DBTables, ExtCtrls, Grids, DBGrids;
type TForm7 = class(TForm)
MainMenul: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
Tablel: TTable;
DataSourcel: TDataSource;
GroupBoxl: TGroupBox;
Labell: TLabel;
Label2: TLabel;
Label3: TLabeI;
Label4: TLabeI;
Label5: TLabel;
Editl: TEdit;
DBEditl: TDBEdit;
Edit2: TEdit;
Edit3: TEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
Edit4: TEdit;
Edit5: TEdit;
DBGridl: TDBGrid;
procedure N2Click(Sender: TObject);
procedureEditlChange(Sender:TObject);
procedure Edit2Change(Sender: TObject);
procedure Edit3Change(Sender: TObject);
procedure Edit4Change(Sender: TObject);
procedure Edit5Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
{$R *.DFM}
procedure TForm7.N2Click(Sender: TObject);
begin close;
end;
procedure TForm7.EditlChange(Sender: TObject);
begin
Tablel.Locate('Shigargan zavody', Editl.text,
[locaseinsensitive, loPartialkey]);
end;
procedure TForm7.Edit2Change(Sender: TObject);
begin
Tablel.Locate('Marcasy', Edit2.text, [locaseinsensitive,
loPartialkey]);
end;
procedure TForm7.Edit3Change(Sender: TObject);
begin
Tablel.Locate('Shigargan jily', Edit3.text,
[locaseinsensitive, loPartialkey]);
end;
procedure TForm7.Edit4Change(Sender: TObject);
begin
Tablel.Locate('Tusy', Edit4.text, [locaseinsensitive,
loPartialkey]);
end;
procedure TForm7.Edit5Change(Sender: TObject);
begin
Tablel.Locate('Bagasy', Edit5.text, [locaseinsensitive,
loPartialkey]);
end;
end.
unit Marc8;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Menus, Db, DBTables, ExtCtrls;
type TForm8 = class(TForm)
GroupBoxl: TGroupBox;
DataSourcel: TDataSource;
Tablel: TTable;
MainMenul: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
DBGridl: TDBGrid;
Buttonl: TButton;
RadioGroupl: TRadioGroup;
RadioGroup2: TRadioGroup;
RadioButtonl: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
RadioButton6: TRadioButton;
RadioButton7: TRadioButton;
RadioButton8: TRadioButton;
procedure N2Click(Sender: TObject);
{ procedure ButtonlCIick(Sender: TObject);}
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
{$R *.DFM}
procedure TForm8.N2Click(Sender: TObject);
begin
close;
end;
{procedure TForm8.ButtonlClick(Sender: TObject);
begin
case RadioButtonl. end;}
end.
unit Marc9;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs,
StdCtrls, Menus, Grids, DBGrids, Db, DBTables;
type
TForm9 = class(TForm) GroupBoxl: TGroupBox;
DataSourcel: TDataSource;
Tablel: TTable;
DBGridl: TDBGrid;
Buttonl: TButton;
Button2: TButton;
Labell: TLabel;
Label2: TLabel;
Label3: TLabel;
LabeI4: TLabel;
Label5: TLabel;
MainMenul: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
Editl: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Label6: TLabeI;
Label7: TLabeI;
procedure N2Click(Sender: TObject);
procedure ButtonlCIick(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForni9;
implementation
{$R *.DFM}
procedure TForm9.N2Click(Sender: TObject);
begin Close;
end;
procedure TForm9.ButtonlClick(Sender: TObject);
begin
with Tablel do begin SetRangeStart;
FieldByName('Bagasy').AsString:=Editl.text;
SetRangeEnd;
FieIdByName('Bagasy').AsString:=Edit2.text;
ApplyRange;
end;
end;
procedure TForm9.Button2Click(Sender: TObject);
begin
Tablel.CancelRange;
end;
procedure TForm9.FormCreate(Sender: TObject);
begin
Tablel.Indexname:='indBagasy';
end;
end.


жүктеу/скачать 469,5 Kb.

Достарыңызбен бөлісу:
1   ...   25   26   27   28   29   30   31   32   33



©engime.org 2024
әкімшілігінің қараңыз
    Басты бет