Білім беру бағдарламасы 5В060200 «Информатика»



бет21/21
Дата06.01.2022
өлшемі1,12 Mb.
#110043
түріБілім беру бағдарламасы
1   ...   13   14   15   16   17   18   19   20   21
Байланысты:
Усенхан Серік 602-61 Кәсіпорынның менеджерінің АЖО құру

ҚОСЫМША
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.




Достарыңызбен бөлісу:
1   ...   13   14   15   16   17   18   19   20   21




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет