Ќазаќстан Республикасыныњ Білім жєне

– Информатика - «Мәліметтер қорының теориясы»

жүктеу/скачать 1,46 Mb.

бет	18/18
Дата	26.02.2023
өлшемі	1,46 Mb.
	#69996
түрі	Құрамы

1 ... 10 11 12 13 14 15 16 17 18

. 050602 – Информатика - «Мәліметтер қорының теориясы» пәні/ Алматы – 2006 ж.

Бидайбеков Е.Ы., Елубаев К., Шекербекова Ш.Т Типтік оқу бағдарлама. 050111 – Информатика мамандығының «Мәліметтер қоры және ақпараттық жүйелер» пәні /Алматы - 2006 ж.

http://informatika.sch880.ru/p25aa1.html

http://www.klgtu.ru/ru/students/literature/inf_asu/0.html

http://www.phis.org.ru/informatika/

А.Қ.Құсайынов. Қазақ тілі терминдерінің ғылыми түсіндірме сөздігі: Информатика және компьютерлік техника, – Алматы: «Мектеп», 2002. – 456

http://kk.wikipedia.org/wiki/Ақпарат жүйелері

http://referat.resurs.kz/ref/akparattik-zhuyelerdi-korgau

http://stud24.ru/information/aparatty-zhjeler-negzder/282718-843055-page1.html

http://1referat.kz/informatika/informatika-pani-informatika-zhane-aqparat.html

Биекенов К., Садырова М. Әлеуметтанудың түсіндірме сөздігі. — Алматы: Сөздік-Словарь, 2007. — 344 бет.

Информатика негіздері. Журнал.

А.Я. Архангельский Програмирование в Delphi 7. Издательство «Бином», Москва 2004 г.

Бен–Ари М. Языки программирования. Практический сравнительный анализ. –М.: Мир, 2000. –208 с.

МСТ 7.4 - 95. Басылымдар. Шығу мағлұматтар;

Электрондық оқу басылымы, Қазақстан Республикасының мемлекеттік стандарты, Алматы 2002 ж.

ҚОСЫМШАЛАР

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ImgList, Menus, ComCtrls, StdCtrls, jpeg, ExtCtrls;

type
TForm1 = class(TForm)

Image1: TImage;
Label1: TLabel;
StatusBar1: TStatusBar;
MainMenu1: TMainMenu;
N1: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N2: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N3: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N4: TMenuItem;
N12: TMenuItem;
ImageList1: TImageList;
N13: TMenuItem;
procedure N5Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N11Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10;

{$R *.dfm}

procedure TForm1.N5Click(Sender: TObject);

begin
Form2:=TForm2.Create(Self);
end;

procedure TForm1.N7Click(Sender: TObject);

begin
Form3:=TForm3.Create(Self);
end;

procedure TForm1.N8Click(Sender: TObject);

begin
Form4:=TForm4.Create(Self);
end;

procedure TForm1.N9Click(Sender: TObject);

begin
Form5:=TForm5.Create(Self);
end;

procedure TForm1.N6Click(Sender: TObject);

begin
Form6:=TForm6.Create(Self);
end;

procedure TForm1.N12Click(Sender: TObject);

begin
Form7:=TForm7.Create(Self);
end;

procedure TForm1.N13Click(Sender: TObject);

begin
Form8:=TForm8.create(Self);
end;

procedure TForm1.N10Click(Sender: TObject);

begin
form9:=tform9.create(Self);
end;

procedure TForm1.N11Click(Sender: TObject);

begin
Form10:=TForm10.Create(Self);
end;

end.
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls,
ComCtrls, DBCtrls, Mask, RpCon, RpConDS, RpDefine, RpRave;

type
TForm2 = class(TForm)

Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBNavigator1: TDBNavigator;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
RadioGroup1: TRadioGroup;
Edit1: TEdit;
BitBtn1: TBitBtn;
TabSheet2: TTabSheet;
RadioGroup2: TRadioGroup;
Edit2: TEdit;
BitBtn2: TBitBtn;
TabSheet3: TTabSheet;
BitBtn3: TBitBtn;
RadioGroup3: TRadioGroup;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
Table1State_sotrud_imia: TStringField;
Table1Kvalifikacia: TStringField;
Table1Obrazovanie: TStringField;
Table1Stazh: TFloatField;
Table1Do_gde_rabotal: TStringField;
Table1Sem_pol: TStringField;
Table1Oklad: TCurrencyField;
Table1Data_rozh: TDateField;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);

begin
Table1.Active:=true;
Table1.Filtered:=true;
end;

procedure TForm2.FormDestroy(Sender: TObject);

begin
Table1.Active:=False;
Table1.Filtered:=false;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin
Action:=caFree;
end;
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0: Table1.Locate('State_sotrud_imia', Edit1.Text, [loCaseInsensitive, LoPartialKey]);
1: Table1.Locate('Kvalifikacia', Edit1.Text, [loCaseInsensitive, LoPartialKey]);
2: Table1.Locate('Stazh', Edit1.Text, [loCaseInsensitive, LoPartialKey]);
3: Table1.Locate('Oklad', Edit1.Text, [loCaseInsensitive, LoPartialKey]);
4: Table1.Locate('Data_rozh', Edit1.Text, [loCaseInsensitive, LoPartialKey]);
end;
end;
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
case RadioGroup2.ItemIndex of
0:Table1.Filter:='(Kvalifikacia='''+Edit2.Text+'*'+''')';
1:Table1.Filter:='(Obrazovanie='''+Edit2.Text+''')';
2:Table1.Filter:='(Stazh='''+Edit2.Text+''')';
3:Table1.Filter:='(Sem_pol='''+Edit2.Text+'*'+''')';
4:Table1.Filter:='';
end;
end;
procedure TForm2.BitBtn3Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
0:Table1.IndexName:='Imia';
1:Table1.IndexName:='Kvali';
2:Table1.IndexName:='Rojdenie';
3:Table1.IndexName:='Staj';
4:Table1.IndexName:='Zarplata';
5:Table1.IndexName:='';
end;
end;
procedure TForm2.Edit1Change(Sender: TObject);
begin
case RadioGroup3.itemIndex of
0:Table1.IndexFieldNames:='State_sotrud_imia';
1:Table1.IndexFieldNames:='Kvalifikacia';
2:Table1.IndexFieldNames:='Oklad';
3:Table1.IndexFieldNames:='Stazh';
4:Table1.IndexFieldNames:='';
end;
Table1.FindNearest([Edit2.Text]);
end;

end.

unit Unit3;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, DB, DBTables;

type
TForm3 = class(TForm)

Table1: TTable;
Table1State_sotrud_imia: TStringField;
Table1Kvalifikacia: TStringField;
Table1Obrazovanie: TStringField;
Table1Stazh: TFloatField;
Table1Do_gde_rabotal: TStringField;
Table1Sem_pol: TStringField;
Table1Oklad: TCurrencyField;
Table1Data_rozh: TDateField;
DataSource1: TDataSource;
DBNavigator1: TDBNavigator;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);

begin
action:=caFree;
end;

procedure TForm3.FormCreate(Sender: TObject);

begin
Table1.Active:=true;
Table1.Filtered:=true;
end;

procedure TForm3.FormDestroy(Sender: TObject);

begin
Table1.Active:=False;
Table1.Filtered:=false;
end;

end.
unit Unit4;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, DB, DBTables;

type
TForm4 = class(TForm)

DataSource1: TDataSource;
Table1: TTable;
Table1State_sotrud_imia: TStringField;
Table1Kvalifikacia: TStringField;
Table1Obrazovanie: TStringField;
Table1Stazh: TFloatField;
Table1Do_gde_rabotal: TStringField;
Table1Sem_pol: TStringField;
Table1Oklad: TCurrencyField;
Table1Data_rozh: TDateField;
DBNavigator1: TDBNavigator;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);

begin
action:=caFree;
end;

procedure TForm4.FormCreate(Sender: TObject);

begin
Table1.Active:=true;
Table1.Filtered:=true;
end;

procedure TForm4.FormDestroy(Sender: TObject);

begin
Table1.Active:=False;
Table1.Filtered:=false;
end;

end.
unit Unit5;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Mask, DBCtrls, ExtCtrls, Grids, DBGrids, DB, DBTables;

type
TForm5 = class(TForm)

DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Table1: TTable;
Table1State_sotrud_imia: TStringField;
Table1Kvalifikacia: TStringField;
Table1Obrazovanie: TStringField;
Table1Stazh: TFloatField;
Table1Do_gde_rabotal: TStringField;
Table1Sem_pol: TStringField;
Table1Oklad: TCurrencyField;
Table1Data_rozh: TDateField;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDeactivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.FormClose(Sender: TObject; var Action: TCloseAction);

begin
action:=caFree;
end;

procedure TForm5.FormCreate(Sender: TObject);

begin
Table1.Active:=true;
Table1.Filtered:=true;
end;

procedure TForm5.FormDeactivate(Sender: TObject);

begin
Table1.Active:=false;
Table1.Filtered:=false;
end;

end.
unit Unit6;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, Grids, DBGrids;

type
TForm6 = class(TForm)

DataSource1: TDataSource;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Table1: TTable;
Table1State_sotrud_imia: TStringField;
Table1Kvalifikacia: TStringField;
Table1Obrazovanie: TStringField;
Table1Stazh: TFloatField;
Table1Do_gde_rabotal: TStringField;
Table1Sem_pol: TStringField;
Table1Oklad: TCurrencyField;
Table1Data_rozh: TDateField;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.FormClose(Sender: TObject; var Action: TCloseAction);

begin
action:=caFree;
end;

procedure TForm6.FormCreate(Sender: TObject);

begin
Table1.Active:=true;
Table1.Filtered:=true;
end;

procedure TForm6.FormDestroy(Sender: TObject);

begin
Table1.Active:=false;
Table1.Filtered:=false;
end;

end.

unit Unit7;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, ExtCtrls;

type
TForm7 = class(TForm)

Panel1: TPanel;
Label1: TLabel;
Image1: TImage;
BitBtn1: TBitBtn;
Label2: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form7: TForm7;

implementation

{$R *.dfm}

procedure TForm7.BitBtn1Click(Sender: TObject);

begin
close;
end;

procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);

begin
action:=caFree;
end;
end.
unit Unit8;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, Buttons, RpCon, RpConDS,
RpDefine, RpRave;

type
TForm8 = class(TForm)

Table1: TTable;
Table1State_sotrud_imia: TStringField;
Table1Kvalifikacia: TStringField;
Table1Obrazovanie: TStringField;
Table1Stazh: TFloatField;
Table1Do_gde_rabotal: TStringField;
Table1Sem_pol: TStringField;
Table1Oklad: TCurrencyField;
Table1Data_rozh: TDateField;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
RvDataSetConnection1: TRvDataSetConnection;
BitBtn1: TBitBtn;
RvProject1: TRvProject;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form8: TForm8;

implementation

{$R *.dfm}

procedure TForm8.FormClose(Sender: TObject; var Action: TCloseAction);

begin
Action:=caFree;
end;

procedure TForm8.FormCreate(Sender: TObject);

begin
Table1.Active:=true;
end;

procedure TForm8.FormDestroy(Sender: TObject);

begin
Table1.Active:=false;
end;

procedure TForm8.BitBtn1Click(Sender: TObject);

begin
RvProject1.Execute;
end;

end.

unit Unit9;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask, RpCon, RpConDS,
RpDefine, RpRave;

type
TForm9 = class(TForm)

Table1: TTable;
Table1State_sotrud_imia: TStringField;
Table1Kvalifikacia: TStringField;
Table1Obrazovanie: TStringField;
Table1Stazh: TFloatField;
Table1Do_gde_rabotal: TStringField;
Table1Sem_pol: TStringField;
Table1Oklad: TCurrencyField;
Table1Data_rozh: TDateField;
DataSource1: TDataSource;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button2: TButton;
RvProject1: TRvProject;
RvDataSetConnection1: TRvDataSetConnection;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form9: TForm9;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm9.FormCreate(Sender: TObject);

begin
Table1.Active:=true;
end;

procedure TForm9.FormDestroy(Sender: TObject);

begin
Table1.Active:=false;
end;

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);

begin
Action:=cafree;
end;

procedure TForm9.Button2Click(Sender: TObject);

begin
close;
end;

procedure TForm9.Button1Click(Sender: TObject);

begin
RvProject1.Execute;
end;

end.

unit Unit10;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls, DBCtrls, Mask, DB, DBTables, RpCon, RpConDS,
RpDefine, RpRave;

type
TForm10 = class(TForm)

Table1: TTable;
Table1State_sotrud_imia: TStringField;
Table1Kvalifikacia: TStringField;
Table1Obrazovanie: TStringField;
Table1Stazh: TFloatField;
Table1Do_gde_rabotal: TStringField;
Table1Sem_pol: TStringField;
Table1Oklad: TCurrencyField;
Table1Data_rozh: TDateField;
DataSource1: TDataSource;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button2: TButton;
RvProject1: TRvProject;
RvDataSetConnection1: TRvDataSetConnection;
procedure Button2Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form10: TForm10;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9;

{$R *.dfm}

procedure TForm10.Button2Click(Sender: TObject);

begin
close;
end;

procedure TForm10.FormClose(Sender: TObject; var Action: TCloseAction);

begin
Action:=cafree;
end;

procedure TForm10.FormCreate(Sender: TObject);

begin
Table1.Active:=true;
end;

procedure TForm10.FormDestroy(Sender: TObject);

begin
Table1.Active:=false;
end;

procedure TForm10.Button1Click(Sender: TObject);

begin
RvProject1.Execute;
end;

end.

жүктеу/скачать 1,46 Mb.

Достарыңызбен бөлісу:

1 ... 10 11 12 13 14 15 16 17 18