Ehm uchun dastur “Oliy ta’lim muassasalarida kafedra ish faoliyatini olib borish uchun avtomatlashtirilgan axborot tizimi” Dasturning listing kodi



Download 93.5 Kb.
Sana13.04.2020
Hajmi93.5 Kb.
EHM UCHUN

DASTUR
Oliy ta’lim muassasalarida kafedra ish faoliyatini olib borish uchun avtomatlashtirilgan axborot tizimi

Dasturning listing kodi

29 varoq
Mualliflar:
Xonto’rayev S.I.

Xalilov SH.Z.

Khalilov Z.SH.

Nishonova G’.G’.

Rajabova X.X.

Tursunov H.H.


Farg’ona 2018

unit UAS;
interface
uses

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

Dialogs, StdCtrls, sSkinManager, Menus, cxStyles, dxSkinsCore,

dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide,

dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,

dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,

dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,

dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinPumpkin,

dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,

dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,

dxSkinscxPCPainter, cxCustomData, cxGraphics, cxFilter, cxData,

cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,

cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,

cxGridCustomView, cxGrid, ExtCtrls, sPanel, sGroupBox, sLabel, Buttons,

sBitBtn, cxDBLookupComboBox;
type

TFMAIN = class(TForm)

sSkinManager1: TsSkinManager;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

UI: TMenuItem;

UI1: TMenuItem;

UI2: TMenuItem;

UI3: TMenuItem;

TBV: TcxGridDBTableView;

Level: TcxGridLevel;

Grid1: TcxGrid;

TBVfio: TcxGridDBColumn;

TBVlavozim: TcxGridDBColumn;

TBVilm_d: TcxGridDBColumn;

TBVstavka: TcxGridDBColumn;

cxGrid1: TcxGrid;

TBV1: TcxGridDBTableView;

GL1: TcxGridLevel;

TBV1FAN_N: TcxGridDBColumn;

TBV1LEKSIYA: TcxGridDBColumn;

TBV1CONSULT: TcxGridDBColumn;

TBV1LABOR: TcxGridDBColumn;

TBV1AMALIY_MASH: TcxGridDBColumn;

TBV1OZLASH_NAZ: TcxGridDBColumn;

TBV1MAGISTR_RAX: TcxGridDBColumn;

TBV1KURS_RAX: TcxGridDBColumn;

TBV1BMI_RAX: TcxGridDBColumn;

TBV1ASP_RAX: TcxGridDBColumn;

TBV1PRAKT_RAX: TcxGridDBColumn;

TBV1DAK: TcxGridDBColumn;

TBV1TAQRIZ: TcxGridDBColumn;

TBV1R_BALL: TcxGridDBColumn;

TBV1Semestr: TcxGridDBColumn;

cxGrid2: TcxGrid;

TBV2: TcxGridDBTableView;

GL2: TcxGridLevel;

sPanel1: TsPanel;

TBV2B_ISH: TcxGridDBColumn;

TBV2M_R: TcxGridDBColumn;

TBV2M_A: TcxGridDBColumn;

TBV2OJ: TcxGridDBColumn;

TBV2ISH_R: TcxGridDBColumn;

TBV2ISH_A: TcxGridDBColumn;

TBV2RT_ISH_S: TcxGridDBColumn;

TBV2RT_ISH_NAME: TcxGridDBColumn;

TBV2REYTING: TcxGridDBColumn;

MM: TMenuItem;

MM1: TMenuItem;

MM2: TMenuItem;

MM3: TMenuItem;

sRadioGroup1: TsRadioGroup;

IT: TMenuItem;

IU: TMenuItem;

IT1: TMenuItem;

IT2: TMenuItem;

IT3: TMenuItem;

IU1: TMenuItem;

IU2: TMenuItem;

IU3: TMenuItem;

sPanel2: TsPanel;

cxGrid3: TcxGrid;

TBV3: TcxGridDBTableView;

GL3: TcxGridLevel;

cxGrid4: TcxGrid;

TBV4: TcxGridDBTableView;

GL4: TcxGridLevel;

TBV3B_ISH: TcxGridDBColumn;

TBV3M_R: TcxGridDBColumn;

TBV3M_A: TcxGridDBColumn;

TBV3IJRO_R: TcxGridDBColumn;

TBV3IJRO_X: TcxGridDBColumn;

TBV3ISH_X_R: TcxGridDBColumn;

TBV3ISH_X_A: TcxGridDBColumn;

TBV3RT_ISH_NAME: TcxGridDBColumn;

TBV3RT_ISH_S: TcxGridDBColumn;

TBV3REYTING: TcxGridDBColumn;

TBV4B_ISH: TcxGridDBColumn;

TBV4M_R: TcxGridDBColumn;

TBV4AMALDA: TcxGridDBColumn;

TBV4ISH_RB: TcxGridDBColumn;

TBV4ISH_RS: TcxGridDBColumn;

TBV4ISH_AB: TcxGridDBColumn;

TBV4ISH_AS: TcxGridDBColumn;

TBV4RT_ISH_NAME: TcxGridDBColumn;

TBV4RT_ISH_B: TcxGridDBColumn;

TBV4RT_ISH_S: TcxGridDBColumn;

TBV4REYTING: TcxGridDBColumn;

sPanel3: TsPanel;

sPanel4: TsPanel;

sLabel1: TsLabelFX;

cxGrid5: TcxGrid;

TVB5: TcxGridDBTableView;

cxGridDBColumn1: TcxGridDBColumn;

cxGridDBColumn2: TcxGridDBColumn;

cxGridDBColumn3: TcxGridDBColumn;

cxGridDBColumn4: TcxGridDBColumn;

cxGridDBColumn5: TcxGridDBColumn;

cxGridDBColumn6: TcxGridDBColumn;

cxGridDBColumn7: TcxGridDBColumn;

cxGridDBColumn8: TcxGridDBColumn;

cxGridDBColumn9: TcxGridDBColumn;

GL5: TcxGridLevel;

TI: TMenuItem;

TI1: TMenuItem;

TI2: TMenuItem;

TI3: TMenuItem;

sBitBtn1: TsBitBtn;

sBitBtn2: TsBitBtn;

sBitBtn3: TsBitBtn;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure UI1Click(Sender: TObject);

procedure UI2Click(Sender: TObject);

procedure UI3Click(Sender: TObject);

procedure MM1Click(Sender: TObject);

procedure MM2Click(Sender: TObject);

procedure MM3Click(Sender: TObject);

procedure sRadioGroup1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure IT1Click(Sender: TObject);

procedure IT2Click(Sender: TObject);

procedure IT3Click(Sender: TObject);

procedure IU1Click(Sender: TObject);

procedure IU2Click(Sender: TObject);

procedure IU3Click(Sender: TObject);

procedure TI1Click(Sender: TObject);

procedure TI2Click(Sender: TObject);

procedure TI3Click(Sender: TObject);

procedure sBitBtn1Click(Sender: TObject);

procedure sBitBtn2Click(Sender: TObject);

procedure sBitBtn3Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N12Click(Sender: TObject);

procedure N13Click(Sender: TObject);

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

procedure N4Click(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;
var

FMAIN: TFMAIN;

SEL:BYTE;

implementation
uses OQ_KIR, dmodul, UOI, UMM, UIT, UIU, UTI, UPRINT, Unit6;
{$R *.dfm}
procedure TFMAIN.N2Click(Sender: TObject);

begin


foq_kir.Caption:='УКИТУВЧИНИ КИРИТИШ';

DM.Aoq.Append;

foq_kir.ShowModal;

end;
procedure TFMAIN.N3Click(Sender: TObject);

begin

if dm.Aoq.RecordCount>0 then



begin

foq_kir.Caption:='УКИТУВЧИНИ ТАХРИРЛАШ';

dm.Aoq.Edit;

foq_kir.ShowModal;

end

else


showmessage('Маълумотлар базасида тахрирланувчи укитувчи топилмади!')

end;
procedure TFMAIN.UI1Click(Sender: TObject);

begin

IF DM.Aoq.RecordCount>0 THEN



BEGIN

DM.AOQ_ISH.Append;

DM.AOQ_ISH.FieldByName('O_ID').AsInteger:=DM.Aoq.FieldValues['ID'];

FOISH.ShowModal;

END

end;
procedure TFMAIN.UI2Click(Sender: TObject);



begin

IF DM.AOQ_ISH.RecordCount>0 THEN

BEGIN

DM.AOQ_ISH.Edit;



FOISH.ShowModal;

END
end;


procedure TFMAIN.UI3Click(Sender: TObject);

begin


IF DM.AOQ_ISH.RecordCount>0 THEN

BEGIN


IF MESSAGEdLG('СИЗ РОСТДАН ХАМ ЖОРИЙ ИШНИ УЧИРМОКЧИМИСИЗ?',MTCONFIRMATION,

[MBYES,MBNO],0)=MRYES THEN

BEGIN

DM.AOQ_ISH.Delete;



SHOWMESSAGE('ИШ УЧИРИЛДИ!')

END


END
end;
procedure TFMAIN.MM1Click(Sender: TObject);

begin


IF DM.Aoq.RecordCount>0 THEN

BEGIN


DM.AMAN_MAR.Append;

DM.AMAN_MAR.FieldByName('O_ID').AsInteger:=DM.Aoq.FieldValues['ID'];

Fmm.ShowModal;

END


end;
procedure TFMAIN.MM2Click(Sender: TObject);

begin


IF DM.AMAN_MAR.RecordCount>0 THEN

BEGIN


DM.AMAN_MAR.Edit;

Fmm.ShowModal;

END

end;
procedure TFMAIN.MM3Click(Sender: TObject);



begin

IF DM.AMAN_MAR.RecordCount>0 THEN

BEGIN

IF MESSAGEdLG('СИЗ РОСТДАН ХАМ ЖОРИЙ МАЪНАВИЙ МАЪРИФИЙ ИШНИ УЧИРМОКЧИМИСИЗ?',MTCONFIRMATION,



[MBYES,MBNO],0)=MRYES THEN

BEGIN


DM.AMAN_MAR.Delete;

SHOWMESSAGE('ИШ УЧИРИЛДИ!')

END

END


end;
procedure TFMAIN.sRadioGroup1Click(Sender: TObject);

begin


CASE SRADIOGROUP1.ItemIndex OF

0:BEGIN


SEL:=1;

CXGRID1.Show;

CXGRID2.HIDE;

CXGRID3.HIDE;

CXGRID4.HIDE;

CXGRID5.HIDE;

sLABEL1.Caption:=UI.Caption;

END;


1:BEGIN

SEL:=2;


CXGRID2.Show;

CXGRID1.HIDE;

CXGRID3.HIDE;

CXGRID4.HIDE;

CXGRID5.HIDE;

sLABEL1.Caption:=MM.Caption;

END;

2:BEGIN


SEL:=3;

CXGRID3.Show;

CXGRID1.HIDE;

CXGRID2.HIDE;

CXGRID4.HIDE;

CXGRID5.HIDE;

sLABEL1.Caption:=IT.Caption;

END;


3:BEGIN

SEL:=4;


sLABEL1.Caption:=IU.Caption;

CXGRID4.Show;

CXGRID1.HIDE;

CXGRID2.HIDE;;

CXGRID3.HIDE;

CXGRID5.HIDE;

END;

4:BEGIN


SEL:=5;

sLABEL1.Caption:='Ташкилий услубий ишлар';

CXGRID5.Show;

CXGRID1.HIDE;

CXGRID2.HIDE;;

CXGRID3.HIDE;

CXGRID4.HIDE;

END;


END;

//FMAIN.Repaint;

end;
procedure TFMAIN.FormCreate(Sender: TObject);

begin


SEL:=1;

SPANEL3.Height:=300;

CXGRID1.Height:=250;

CXGRID2.Height:=250;

CXGRID3.Height:=250;

CXGRID4.Height:=250;

CXGRID5.Height:=250;
CXGRID1.Show;

CXGRID2.Hide;

CXGRID3.Hide;

CXGRID4.Hide;

CXGRID5.Hide;

sRADIOgROUP1.ItemIndex:=0;

{UI.Enabled:=TRUE;

MM.Enabled:=FALSE;

IT.Enabled:=FALSE;

IU.Enabled:=FALSE;}

FMAIN.Repaint;

sLABEL1.Caption:=UI.Caption;

end;
procedure TFMAIN.IT1Click(Sender: TObject);

begin


IF DM.Aoq.RecordCount>0 THEN

BEGIN


DM.AILM_TAD.Append;

DM.AILM_TAD.FieldByName('O_ID').AsInteger:=DM.Aoq.FieldValues['ID'];

FIT.ShowModal;

END


end;
procedure TFMAIN.IT2Click(Sender: TObject);

begin


IF DM.AILM_TAD.RecordCount>0 THEN

BEGIN


DM.AILM_TAD.Edit;

FIT.ShowModal;

END

end;
procedure TFMAIN.IT3Click(Sender: TObject);



begin

IF DM.AILM_TAD.RecordCount>0 THEN

BEGIN

IF MESSAGEdLG('СИЗ РОСТДАН ХАМ ЖОРИЙ ИЛМИЙ ТАДКИКОТ ИШИНИ УЧИРМОКЧИМИСИЗ?',MTCONFIRMATION,



[MBYES,MBNO],0)=MRYES THEN

BEGIN


DM.AILM_TAD.Delete;

SHOWMESSAGE('ИШ УЧИРИЛДИ!')

END

END


end;
procedure TFMAIN.IU1Click(Sender: TObject);

begin


IF DM.Aoq.RecordCount>0 THEN

BEGIN


DM.AILM_US.Append;

DM.AILM_US.FieldByName('O_ID').AsInteger:=DM.Aoq.FieldValues['ID'];

FIU.ShowModal;

END
end;


procedure TFMAIN.IU2Click(Sender: TObject);

begin


IF DM.AILM_US.RecordCount>0 THEN

BEGIN


DM.AILM_US.Edit;

FIU.ShowModal;

END
end;
procedure TFMAIN.IU3Click(Sender: TObject);

begin


IF DM.AILM_US.RecordCount>0 THEN

BEGIN


IF MESSAGEdLG('СИЗ РОСТДАН ХАМ ЖОРИЙ ИЛМИЙ ТАДКИКОТ ИШИНИ УЧИРМОКЧИМИСИЗ?',MTCONFIRMATION,

[MBYES,MBNO],0)=MRYES THEN

BEGIN

DM.AILM_US.Delete;



SHOWMESSAGE('ИШ УЧИРИЛДИ!')

END


END
end;
procedure TFMAIN.TI1Click(Sender: TObject);

begin


IF DM.Aoq.RecordCount>0 THEN

BEGIN


DM.ATASH_ISH.Append;

DM.ATASH_ISH.FieldByName('O_ID').AsInteger:=DM.Aoq.FieldValues['ID'];

Fti.ShowModal;

END


end;
procedure TFMAIN.TI2Click(Sender: TObject);

begin


IF DM.ATASH_ISH.RecordCount>0 THEN

BEGIN


DM.ATASH_ISH.Edit;

Fti.ShowModal;

END

end;
procedure TFMAIN.TI3Click(Sender: TObject);



begin

IF DM.ATASH_ISH.RecordCount>0 THEN

BEGIN

IF MESSAGEdLG('СИЗ РОСТДАН ХАМ ЖОРИЙ МАЪНАВИЙ МАЪРИФИЙ ИШНИ УЧИРМОКЧИМИСИЗ?',MTCONFIRMATION,



[MBYES,MBNO],0)=MRYES THEN

BEGIN


DM.ATASH_ISH.Delete;

SHOWMESSAGE('ИШ УЧИРИЛДИ!')

END

END


end;
procedure TFMAIN.sBitBtn1Click(Sender: TObject);

begin


case sel of

1:fMAIN.UI1Click(SELF);

2:FMAIN.MM1Click(SELF);

3:FMAIN.IT1Click(SELF);

4:FMAIN.IU1Click(SELF);

5:FMAIN.TI1Click(SELF);

end;

end;
procedure TFMAIN.sBitBtn2Click(Sender: TObject);



begin

case sel of

1:fMAIN.UI2Click(SELF);

2:FMAIN.MM2Click(SELF);

3:FMAIN.IT2Click(SELF);

4:FMAIN.IU2Click(SELF);

5:FMAIN.TI2Click(SELF);

end;
end;


procedure TFMAIN.sBitBtn3Click(Sender: TObject);

begin


case sel of

1:fMAIN.UI3Click(SELF);

2:FMAIN.MM3Click(SELF);

3:FMAIN.IT3Click(SELF);

4:FMAIN.IU3Click(SELF);

5:FMAIN.TI3Click(SELF);

end;
end;
procedure TFMAIN.N7Click(Sender: TObject);

begin


FPRINT.AUI.Close;

FPRINT.AUI.SQL.Clear;

FPRINT.AUI.SQL.Add('SELECT OQ_ISH.Semestr, OQITUVCHI.id, OQITUVCHI.fio, LAVOZIM.lavozim_name, ILM_D.DARAJA,');

FPRINT.AUI.SQL.Add(' OQITUVCHI.stavka, OQ_ISH.FAN_N, OQ_ISH.GUR, OQ_ISH.TS, OQ_ISH.LEKSIYA, OQ_ISH.CONSULT, OQ_ISH.LABOR,');

FPRINT.AUI.SQL.Add(' OQ_ISH.AMALIY_MASH, OQ_ISH.OZLASH_NAZ, OQ_ISH.MAGISTR_RAX, OQ_ISH.KURS_RAX, OQ_ISH.BMI_RAX, OQ_ISH.ASP_RAX,');

FPRINT.AUI.SQL.Add(' OQ_ISH.PRAKT_RAX, OQ_ISH.DAK, OQ_ISH.TAQRIZ, OQ_ISH.R_BALL, OQ_ISH.IZOH, OQ_ISH.RLEKSIYA, OQ_ISH.RCONSULT,');

FPRINT.AUI.SQL.Add(' OQ_ISH.RLABOR, OQ_ISH.RAMALIY_MASH, OQ_ISH.ROZLASH_NAZ, OQ_ISH.RMAGISTR_RAX, OQ_ISH.RKURS_RAX, OQ_ISH.RBMI_RAX,');

FPRINT.AUI.SQL.Add(' OQ_ISH.RASP_RAX, OQ_ISH.RPRAKT_RAX, OQ_ISH.RDAK, OQ_ISH.RTAQRIZ, OQ_ISH.RR_BALL FROM OQ_ISH RIGHT JOIN (ILM_D RIGHT JOIN');

FPRINT.AUI.SQL.Add(' (OQITUVCHI LEFT JOIN LAVOZIM ON OQITUVCHI.lavozim = LAVOZIM.lav_id) ON ILM_D.ILM_ID = OQITUVCHI.ilm_d) ON OQ_ISH.O_ID = OQITUVCHI.id');

FPRINT.AUI.SQL.Add(' WHERE OQITUVCHI.id='+DM.Aoq.FIELDBYNAME('ID').AsString);

FPRINT.AUI.SQL.Add(' ORDER BY OQ_ISH.Semestr, OQITUVCHI.id, OQITUVCHI.fio');

FPRINT.AUI.Open;

FPRINT.frxUI.ShowReport();

end;
procedure TFMAIN.N8Click(Sender: TObject);

begin

FPRINT.AIT.Close;



FPRINT.AIT.SQL.Clear;

FPRINT.AIT.SQL.Add('SELECT OQITUVCHI.id, OQITUVCHI.fio, OQITUVCHI.lavozim, OQITUVCHI.ilm_d, OQITUVCHI.stavka,');

FPRINT.AIT.SQL.Add(' ILM_TAD.B_ISH, ILM_TAD.M_R, ILM_TAD.M_A, ILM_TAD.IJRO_R, ILM_TAD.IJRO_X, ILM_TAD.ISH_X_R, ILM_TAD.ISH_X_A,');

FPRINT.AIT.SQL.Add(' ILM_TAD.RT_ISH_NAME, ILM_TAD.RT_ISH_S, ILM_TAD.REYTING, ILM_TAD.O_ID, ILM_TAD.IZOH FROM ILM_TAD RIGHT JOIN');

FPRINT.AIT.SQL.Add(' (ILM_D RIGHT JOIN (OQITUVCHI LEFT JOIN LAVOZIM ON OQITUVCHI.lavozim = LAVOZIM.lav_id) ON ILM_D.ILM_ID = OQITUVCHI.ilm_d) ON ILM_TAD.O_ID = OQITUVCHI.id');

FPRINT.AIT.SQL.Add(' WHERE OQITUVCHI.id='+DM.Aoq.FIELDBYNAME('ID').AsString);

FPRINT.AIT.SQL.Add('ORDER BY OQITUVCHI.fio');

FPRINT.AIT.Open;

FPRINT.frxIT.ShowReport();
end;
procedure TFMAIN.N9Click(Sender: TObject);

begin


FPRINT.ADOIU.Close;

FPRINT.ADOIU.SQL.Clear;

FPRINT.ADOIU.SQL.Add('SELECT OQITUVCHI.id, OQITUVCHI.fio, OQITUVCHI.lavozim, OQITUVCHI.ilm_d, OQITUVCHI.stavka, ILM_US.B_ISH,');

FPRINT.ADOIU.SQL.Add(' ILM_US.M_R, ILM_US.M_A, ILM_US.ISH_RB, ILM_US.ISH_RS, ILM_US.ISH_AB, ILM_US.ISH_AS, ILM_US.RT_ISH_NAME,');

FPRINT.ADOIU.SQL.Add(' ILM_US.RT_ISH_B, ILM_US.RT_ISH_S, ILM_US.REYTING, ILM_US.IZOH FROM (ILM_D RIGHT JOIN (OQITUVCHI LEFT JOIN');

FPRINT.ADOIU.SQL.Add(' LAVOZIM ON OQITUVCHI.lavozim = LAVOZIM.lav_id) ON ILM_D.ILM_ID = OQITUVCHI.ilm_d) LEFT JOIN');

FPRINT.ADOIU.SQL.Add(' ILM_US ON OQITUVCHI.id = ILM_US.O_ID');

FPRINT.ADOIU.SQL.Add(' WHERE OQITUVCHI.id='+DM.Aoq.FIELDBYNAME('ID').AsString);

FPRINT.ADOIU.SQL.Add(' ORDER BY OQITUVCHI.fio');

FPRINT.ADOIU.Open;

FPRINT.frxiu.ShowReport();

end;
procedure TFMAIN.N10Click(Sender: TObject);

begin

FPRINT.AM_M.Close;



FPRINT.AM_M.SQL.Clear;

FPRINT.AM_M.SQL.Add('SELECT OQITUVCHI.id, OQITUVCHI.fio, OQITUVCHI.lavozim, OQITUVCHI.ilm_d, OQITUVCHI.stavka, MAN_MAR.B_ISH,');

FPRINT.AM_M.SQL.Add(' MAN_MAR.M_R, MAN_MAR.M_A, MAN_MAR.OJ, MAN_MAR.ISH_R, MAN_MAR.ISH_A, MAN_MAR.RT_ISH_S, MAN_MAR.RT_ISH_NAME,');

FPRINT.AM_M.SQL.Add(' MAN_MAR.REYTING, MAN_MAR.O_ID, MAN_MAR.IZOH FROM (ILM_D RIGHT JOIN (OQITUVCHI LEFT JOIN LAVOZIM ON');

FPRINT.AM_M.SQL.Add(' OQITUVCHI.lavozim = LAVOZIM.lav_id) ON ILM_D.ILM_ID = OQITUVCHI.ilm_d) LEFT JOIN MAN_MAR');

FPRINT.AM_M.SQL.Add(' ON OQITUVCHI.id = MAN_MAR.O_ID');

FPRINT.AM_M.SQL.Add(' WHERE OQITUVCHI.id='+DM.Aoq.FIELDBYNAME('ID').AsString);

FPRINT.AM_M.SQL.Add('ORDER BY OQITUVCHI.fio, MAN_MAR.B_ISH');

FPRINT.AM_M.Open;

FPRINT.frxMM.ShowReport();


end;
procedure TFMAIN.N11Click(Sender: TObject);

begin


FPRINT.ATI.Close;

FPRINT.ATI.SQL.Clear;

FPRINT.ATI.SQL.Add('SELECT OQITUVCHI.id, OQITUVCHI.fio, OQITUVCHI.lavozim, OQITUVCHI.ilm_d, OQITUVCHI.stavka, TASH_ISH.B_ISH, TASH_ISH.M_R,');

FPRINT.ATI.SQL.Add(' TASH_ISH.M_A, TASH_ISH.OJ, TASH_ISH.ISH_R, TASH_ISH.ISH_A, TASH_ISH.RT_ISH_S, TASH_ISH.RT_ISH_NAME, TASH_ISH.REYTING,');

FPRINT.ATI.SQL.Add(' TASH_ISH.O_ID, TASH_ISH.IZOH, TASH_ISH.R_REYTING FROM TASH_ISH RIGHT JOIN (ILM_D RIGHT JOIN (OQITUVCHI LEFT JOIN LAVOZIM ON OQITUVCHI.lavozim = LAVOZIM.lav_id) ON');

FPRINT.ATI.SQL.Add(' ILM_D.ILM_ID = OQITUVCHI.ilm_d) ON TASH_ISH.O_ID = OQITUVCHI.id');

FPRINT.ATI.SQL.Add('WHERE OQITUVCHI.id='+DM.Aoq.FIELDBYNAME('ID').AsString);

FPRINT.ATI.SQL.Add('ORDER BY OQITUVCHI.fio');

FPRINT.ATI.Open;

FPRINT.frxTI.ShowReport();


end;
procedure TFMAIN.N12Click(Sender: TObject);

begin


FPRINT.AREYTING.Close;

FPRINT.AREYTING.Parameters.ParamByName('S').Value:=DM.Aoq.FieldValues['ID'];

FPRINT.AREYTING.Prepared:=TRUE;

FPRINT.AREYTING.ExecSQL;

FPRINT.AREYTING.Open;

FPRINT.frxREYTING.ShowReport();

end;
procedure TFMAIN.N13Click(Sender: TObject);

begin


Fmain.Close;

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

begin

form6.Close;



end;
procedure TFMAIN.N4Click(Sender: TObject);

begin


IF MESSAGEDLG(dm.Aoq.fieldbyname('FIO').AsString+'га тегишли барча маълумотларни учиришга ишончингиз комилми? ',

mtconfirmation,[mbyes,mbno],0)=mryes then

begin

dm.Aoq.Delete;



end;

end;
end.


unit UOI;
interface
uses

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

Dialogs, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,

dxSkinCoffee, dxSkinDarkSide, dxSkinGlassOceans, dxSkiniMaginary,

dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,

dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,

dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,

dxSkinPumpkin, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,

dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,

dxSkinXmas2008Blue, cxControls, cxContainer, cxEdit, cxLabel, cxDBLabel,

StdCtrls, sLabel, cxMaskEdit, cxSpinEdit, cxDBEdit, cxTextEdit, Buttons,

sBitBtn, cxGraphics, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,

cxDBLookupComboBox, DB, ADODB;
type

TFOISH = class(TForm)

sLabel1: TsLabel;

sLabel2: TsLabel;

sLabel3: TsLabel;

sLabel4: TsLabel;

sLabel5: TsLabel;

sLabel6: TsLabel;

sLabel7: TsLabel;

sLabel8: TsLabel;

sLabel9: TsLabel;

sLabel10: TsLabel;

sLabel11: TsLabel;

sLabel12: TsLabel;

sLabel13: TsLabel;

sLabel14: TsLabel;

sLabel15: TsLabel;

sLabel16: TsLabel;

sLabel17: TsLabel;

cxDBTextEdit2: TcxDBTextEdit;

cxDBTextEdit3: TcxDBTextEdit;

cxDBTextEdit4: TcxDBTextEdit;

sBitBtn1: TsBitBtn;

sBitBtn2: TsBitBtn;

cxDBLookupComboBox1: TcxDBLookupComboBox;

DFAN: TDataSource;

AFAN: TADOQuery;

cxDBTextEdit1: TcxDBTextEdit;

sLabel18: TsLabel;

cxDBTextEdit5: TcxDBTextEdit;

cxDBTextEdit6: TcxDBTextEdit;

cxDBTextEdit7: TcxDBTextEdit;

cxDBTextEdit8: TcxDBTextEdit;

cxDBTextEdit9: TcxDBTextEdit;

cxDBTextEdit10: TcxDBTextEdit;

cxDBTextEdit11: TcxDBTextEdit;

cxDBTextEdit12: TcxDBTextEdit;

cxDBTextEdit13: TcxDBTextEdit;

cxDBTextEdit14: TcxDBTextEdit;

cxDBTextEdit15: TcxDBTextEdit;

cxDBTextEdit16: TcxDBTextEdit;

cxDBTextEdit17: TcxDBTextEdit;

sLabel19: TsLabel;

cxDBTextEdit18: TcxDBTextEdit;

cxDBTextEdit19: TcxDBTextEdit;

cxDBTextEdit20: TcxDBTextEdit;

cxDBTextEdit21: TcxDBTextEdit;

cxDBTextEdit22: TcxDBTextEdit;

cxDBTextEdit23: TcxDBTextEdit;

cxDBTextEdit24: TcxDBTextEdit;

cxDBTextEdit25: TcxDBTextEdit;

cxDBTextEdit26: TcxDBTextEdit;

cxDBTextEdit27: TcxDBTextEdit;

cxDBTextEdit28: TcxDBTextEdit;

cxDBTextEdit29: TcxDBTextEdit;

cxDBTextEdit30: TcxDBTextEdit;

cxDBTextEdit31: TcxDBTextEdit;

sLabel20: TsLabel;

sLabel21: TsLabel;

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

procedure sBitBtn1Click(Sender: TObject);

procedure sBitBtn2Click(Sender: TObject);

private

{ Private declarations }



public

{ Public declarations }

end;
var

FOISH: TFOISH;


implementation
uses dmodul;
{$R *.dfm}
procedure TFOISH.FormClose(Sender: TObject; var Action: TCloseAction);

begin


FOISH.ModalResult:=MRCANCEL;

end;
procedure TFOISH.sBitBtn1Click(Sender: TObject);

begin

IF DM.AOQ_ISH.Modified THEN BEGIN DM.AOQ_ISH.Post; AFAN.Requery END;



FOISH.Close;

end;
procedure TFOISH.sBitBtn2Click(Sender: TObject);

begin

IF DM.AOQ_ISH.Modified THEN DM.AOQ_ISH.Cancel;



FOISH.Close;

end;
end.

unit UMM;
interface
uses

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

Dialogs, cxStyles, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,

dxSkinCoffee, dxSkinDarkSide, dxSkinGlassOceans, dxSkiniMaginary,

dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,

dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,

dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,

dxSkinPumpkin, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,

dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,

dxSkinXmas2008Blue, dxSkinscxPCPainter, cxCustomData, cxGraphics,

cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ExtCtrls, sPanel,

cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,

cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, Buttons,

sBitBtn, sLabel, cxMaskEdit, cxDropDownEdit, cxLookupEdit,

cxDBLookupEdit, cxDBLookupComboBox, ADODB, cxContainer, cxTextEdit,

cxDBEdit, sCheckBox, sDBCheckBox;


type

TFMM = class(TForm)

sPanel1: TsPanel;

sBitBtn1: TsBitBtn;

sBitBtn2: TsBitBtn;

sLabel1: TsLabel;

sLabel2: TsLabel;

sLabel3: TsLabel;

sLabel4: TsLabel;

sLabel5: TsLabel;

sLabel6: TsLabel;

sLabel7: TsLabel;

sLabel8: TsLabel;

sLabel9: TsLabel;

cxDBTextEdit1: TcxDBTextEdit;

AMM: TADOQuery;

DMM: TDataSource;

cxDBLookupComboBox1: TcxDBLookupComboBox;

cxDBTextEdit2: TcxDBTextEdit;

cxDBTextEdit3: TcxDBTextEdit;

cxDBTextEdit5: TcxDBTextEdit;

cxDBTextEdit6: TcxDBTextEdit;

cxDBTextEdit7: TcxDBTextEdit;

cxDBTextEdit8: TcxDBTextEdit;

cxDBTextEdit9: TcxDBTextEdit;

sLabel10: TsLabel;

cxDBTextEdit10: TcxDBTextEdit;

sLabel11: TsLabel;

sLabel12: TsLabel;

sLabel13: TsLabel;

cxDBTextEdit4: TcxDBTextEdit;

sLabel14: TsLabel;

cxDBTextEdit11: TcxDBTextEdit;

procedure sBitBtn1Click(Sender: TObject);

procedure sBitBtn2Click(Sender: TObject);

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

private

{ Private declarations }



public

{ Public declarations }

end;
var

FMM: TFMM;


implementation
uses dmodul;
{$R *.dfm}
procedure TFMM.sBitBtn1Click(Sender: TObject);

begin


IF DM.AMAN_MAR.Modified THEN BEGIN DM.AMAN_MAR.Post; AMM.Requery END;

FMM.Close;

end;
procedure TFMM.sBitBtn2Click(Sender: TObject);

begin


IF DM.AMAN_MAR.Modified THEN DM.AMAN_MAR.Cancel;

FMM.Close;

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

begin


FMM.ModalResult:=MRCANCEL;

end;
end.


unit UIU;
interface
uses

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

Dialogs, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,

dxSkinCoffee, dxSkinDarkSide, dxSkinGlassOceans, dxSkiniMaginary,

dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,

dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,

dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,

dxSkinPumpkin, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,

dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,

dxSkinXmas2008Blue, cxGraphics, StdCtrls, Buttons, sBitBtn, ExtCtrls,

sPanel, sCheckBox, sDBCheckBox, DB, ADODB, cxMaskEdit, cxDropDownEdit,

cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, cxControls,

cxContainer, cxEdit, cxTextEdit, cxDBEdit, sLabel;
type

TFIU = class(TForm)

sLabel1: TsLabel;

sLabel2: TsLabel;

sLabel3: TsLabel;

sLabel5: TsLabel;

sLabel6: TsLabel;

sLabel7: TsLabel;

sLabel8: TsLabel;

sLabel9: TsLabel;

sLabel11: TsLabel;

sLabel10: TsLabel;

sLabel12: TsLabel;

cxDBTextEdit1: TcxDBTextEdit;

cxDBLookupComboBox1: TcxDBLookupComboBox;

cxDBTextEdit2: TcxDBTextEdit;

cxDBTextEdit3: TcxDBTextEdit;

cxDBTextEdit5: TcxDBTextEdit;

cxDBTextEdit6: TcxDBTextEdit;

cxDBTextEdit7: TcxDBTextEdit;

cxDBTextEdit8: TcxDBTextEdit;

cxDBTextEdit9: TcxDBTextEdit;

cxDBTextEdit10: TcxDBTextEdit;

DIU: TDataSource;

AIU: TADOQuery;

sLabel13: TsLabel;

sPanel1: TsPanel;

sBitBtn1: TsBitBtn;

sBitBtn2: TsBitBtn;

sLabel4: TsLabel;

cxDBTextEdit4: TcxDBTextEdit;

sLabel14: TsLabel;

sLabel15: TsLabel;

cxDBTextEdit11: TcxDBTextEdit;

sLabel16: TsLabel;

sLabel17: TsLabel;

cxDBTextEdit12: TcxDBTextEdit;

sLabel18: TsLabel;

sLabel19: TsLabel;

cxDBTextEdit13: TcxDBTextEdit;

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

procedure sBitBtn1Click(Sender: TObject);

procedure sBitBtn2Click(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;
var

FIU: TFIU;
implementation
uses dmodul;
{$R *.dfm}
procedure TFIU.FormClose(Sender: TObject; var Action: TCloseAction);

begin


FIU.ModalResult:=MRCANCEL;

end;
procedure TFIU.sBitBtn1Click(Sender: TObject);

begin

IF DM.AILM_US.Modified THEN BEGIN DM.AILM_US.Post; AIU.Requery END;



FIU.Close;
end;
procedure TFIU.sBitBtn2Click(Sender: TObject);

begin


IF DM.AILM_US.Modified THEN DM.AILM_US.Cancel;

FIU.Close;

end;
end.
unit UIT;
interface
uses

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

Dialogs, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,

dxSkinCoffee, dxSkinDarkSide, dxSkinGlassOceans, dxSkiniMaginary,

dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,

dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,

dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,

dxSkinPumpkin, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,

dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,

dxSkinXmas2008Blue, cxGraphics, cxMaskEdit, cxDropDownEdit, cxLookupEdit,

cxDBLookupEdit, cxDBLookupComboBox, StdCtrls, sLabel, cxControls,

cxContainer, cxEdit, cxTextEdit, cxDBEdit, sCheckBox, sDBCheckBox, DB,

ADODB, Buttons, sBitBtn, ExtCtrls, sPanel;
type

TFIT = class(TForm)

cxDBTextEdit1: TcxDBTextEdit;

sLabel1: TsLabel;

sLabel2: TsLabel;

sLabel3: TsLabel;

sLabel4: TsLabel;

sLabel5: TsLabel;

sLabel6: TsLabel;

sLabel7: TsLabel;

sLabel8: TsLabel;

sLabel9: TsLabel;

cxDBLookupComboBox1: TcxDBLookupComboBox;

cxDBTextEdit2: TcxDBTextEdit;

cxDBTextEdit3: TcxDBTextEdit;

cxDBTextEdit5: TcxDBTextEdit;

cxDBTextEdit6: TcxDBTextEdit;

cxDBTextEdit7: TcxDBTextEdit;

cxDBTextEdit8: TcxDBTextEdit;

cxDBTextEdit9: TcxDBTextEdit;

cxDBTextEdit10: TcxDBTextEdit;

sLabel11: TsLabel;

sLabel10: TsLabel;

sLabel12: TsLabel;

DID: TDataSource;

AID: TADOQuery;

sDBCheckBox2: TsDBCheckBox;

sDBCheckBox1: TsDBCheckBox;

sLabel13: TsLabel;

sPanel1: TsPanel;

sBitBtn1: TsBitBtn;

sBitBtn2: TsBitBtn;

cxDBTextEdit4: TcxDBTextEdit;

sLabel14: TsLabel;

procedure sBitBtn1Click(Sender: TObject);

procedure sBitBtn2Click(Sender: TObject);

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

private


{ Private declarations }

public


{ Public declarations }

end;
var

FIT: TFIT;
implementation
uses dmodul;
{$R *.dfm}
procedure TFIT.sBitBtn1Click(Sender: TObject);

begin


IF DM.AILM_TAD.Modified THEN BEGIN DM.AILM_TAD.Post; AID.Requery END;

FIT.Close;


end;
procedure TFIT.sBitBtn2Click(Sender: TObject);

begin


IF DM.AILM_TAD.Modified THEN DM.AILM_TAD.Cancel;

FIT.Close;

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

begin


FIT.ModalResult:=MRCANCEL;

end;
end.


unit UTI;
interface
uses

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

Dialogs, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel,

dxSkinCoffee, dxSkinDarkSide, dxSkinGlassOceans, dxSkiniMaginary,

dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,

dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,

dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,

dxSkinPumpkin, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,

dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,

dxSkinXmas2008Blue, cxGraphics, DB, ADODB, cxMaskEdit, cxDropDownEdit,

cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, cxControls,

cxContainer, cxEdit, cxTextEdit, cxDBEdit, StdCtrls, Buttons, sBitBtn,

ExtCtrls, sPanel, sLabel;
type

TFTI = class(TForm)

sLabel1: TsLabel;

sLabel2: TsLabel;

sLabel3: TsLabel;

sLabel4: TsLabel;

sLabel5: TsLabel;

sLabel6: TsLabel;

sLabel7: TsLabel;

sLabel8: TsLabel;

sLabel9: TsLabel;

sLabel10: TsLabel;

sLabel11: TsLabel;

sLabel12: TsLabel;

sLabel13: TsLabel;

sPanel1: TsPanel;

sBitBtn1: TsBitBtn;

sBitBtn2: TsBitBtn;

cxDBTextEdit1: TcxDBTextEdit;

cxDBLookupComboBox1: TcxDBLookupComboBox;

cxDBTextEdit2: TcxDBTextEdit;

cxDBTextEdit3: TcxDBTextEdit;

cxDBTextEdit5: TcxDBTextEdit;

cxDBTextEdit6: TcxDBTextEdit;

cxDBTextEdit7: TcxDBTextEdit;

cxDBTextEdit8: TcxDBTextEdit;

cxDBTextEdit9: TcxDBTextEdit;

cxDBTextEdit10: TcxDBTextEdit;

ATI: TADOQuery;

DTI: TDataSource;

cxDBTextEdit4: TcxDBTextEdit;

sLabel14: TsLabel;

cxDBTextEdit11: TcxDBTextEdit;

procedure sBitBtn1Click(Sender: TObject);

procedure sBitBtn2Click(Sender: TObject);

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

private

{ Private declarations }



public

{ Public declarations }

end;
var

FTI: TFTI;


implementation
uses dmodul;
{$R *.dfm}
procedure TFTI.sBitBtn1Click(Sender: TObject);

begin


IF DM.ATASH_ISH.Modified THEN BEGIN DM.ATASH_ISH.Post; ATI.Requery END;

FTI.Close;

end;
procedure TFTI.sBitBtn2Click(Sender: TObject);

begin


IF DM.ATASH_ISH.Modified THEN DM.ATASH_ISH.Cancel;

FTI.Close;

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

begin


FTI.ModalResult:=MRCANCEL;

end;
end.


unit OQ_KIR;
interface
uses

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

Dialogs, StdCtrls, sLabel, dxSkinsCore, dxSkinBlack, dxSkinBlue,

dxSkinCaramel, dxSkinCoffee, dxSkinDarkSide, dxSkinGlassOceans,

dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,

dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,

dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,

dxSkinOffice2007Silver, dxSkinPumpkin, dxSkinSilver, dxSkinSpringTime,

dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters,

dxSkinValentine, dxSkinXmas2008Blue, cxGraphics, cxMaskEdit,

cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox,

cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit, Buttons, sBitBtn;


type

TFOQ_KIR = class(TForm)

sLabel1: TsLabel;

sLabel2: TsLabel;

sLabel3: TsLabel;

sLabel4: TsLabel;

sLabel5: TsLabel;

cxDBTextEdit1: TcxDBTextEdit;

cxDBLookupComboBox1: TcxDBLookupComboBox;

cxDBLookupComboBox2: TcxDBLookupComboBox;

cxDBTextEdit2: TcxDBTextEdit;

cxDBTextEdit3: TcxDBTextEdit;

sBitBtn1: TsBitBtn;

sBitBtn2: TsBitBtn;

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

procedure sBitBtn1Click(Sender: TObject);

procedure sBitBtn2Click(Sender: TObject);

private


{ Private declarations }

public


{ Public declarations }

end;
var

FOQ_KIR: TFOQ_KIR;
implementation
uses dmodul;
{$R *.dfm}
procedure TFOQ_KIR.FormClose(Sender: TObject; var Action: TCloseAction);

begin


foq_kir.ModalResult:=mrcancel;

end;
procedure TFOQ_KIR.sBitBtn1Click(Sender: TObject);

begin

IF DM.Aoq.Modified THEN DM.Aoq.Post;



FOQ_KIR.Close;

end;
procedure TFOQ_KIR.sBitBtn2Click(Sender: TObject);

begin

IF DM.Aoq.Modified THEN DM.Aoq.Cancel;



FOQ_KIR.Close;

end;
end.


unit UPRINT;
interface
uses

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

Dialogs, frxClass, frxDBSet, DB, ADODB;
type

TFPRINT = class(TForm)

frxUI: TfrxReport;

frxDBDataset1: TfrxDBDataset;

AUI: TADOQuery;

frxMM: TfrxReport;

frxDBDataset2: TfrxDBDataset;

AM_M: TADOQuery;

frxTI: TfrxReport;

frxDBDataset3: TfrxDBDataset;

ATI: TADOQuery;

frxIT: TfrxReport;

frxDBDataset4: TfrxDBDataset;

AIT: TADOQuery;

frxiu: TfrxReport;

frxDBDataset5: TfrxDBDataset;

ADOIU: TADOQuery;

frxREYTING: TfrxReport;

frxDBDataset6: TfrxDBDataset;

AREYTING: TADOQuery;

private

{ Private declarations }



public

{ Public declarations }

end;
var

FPRINT: TFPRINT;


implementation
uses dmodul;
{$R *.dfm}
end.
unit dmodul;
interface
uses

SysUtils, Classes, DB, ADODB;


type

Tdm = class(TDataModule)

Aoq: TADOQuery;

Doq: TDataSource;

Connection: TADOConnection;

DILM_D: TDataSource;

AILM_D: TADOQuery;

DLAVOZIM: TDataSource;

ALAVOZIM: TADOQuery;

DOQ_ISH: TDataSource;

AOQ_ISH: TADOQuery;

DMAN_MAR: TDataSource;

AMAN_MAR: TADOQuery;

DILM_TAD: TDataSource;

AILM_TAD: TADOQuery;

DILM_US: TDataSource;

AILM_US: TADOQuery;

DTASH_ISH: TDataSource;

ATASH_ISH: TADOQuery;

private


{ Private declarations }

public


{ Public declarations }

end;
var



dm: Tdm;
implementation
{$R *.dfm}
end.
Download 93.5 Kb.

Do'stlaringiz bilan baham:




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©hozir.org 2020
ma'muriyatiga murojaat qiling

    Bosh sahifa
davlat universiteti
ta’lim vazirligi
O’zbekiston respublikasi
maxsus ta’lim
zbekiston respublikasi
axborot texnologiyalari
o’rta maxsus
nomidagi toshkent
guruh talabasi
davlat pedagogika
texnologiyalari universiteti
xorazmiy nomidagi
toshkent axborot
pedagogika instituti
rivojlantirish vazirligi
toshkent davlat
haqida tushuncha
Toshkent davlat
vazirligi toshkent
samarqand davlat
ta’limi vazirligi
tashkil etish
kommunikatsiyalarini rivojlantirish
matematika fakulteti
navoiy nomidagi
vazirligi muhammad
nomidagi samarqand
bilan ishlash
Darsning maqsadi
fanining predmeti
maxsus ta'lim
ta'lim vazirligi
Ўзбекистон республикаси
pedagogika universiteti
sinflar uchun
fanlar fakulteti
o’rta ta’lim
Toshkent axborot
Alisher navoiy
haqida umumiy
fizika matematika
Ishdan maqsad
moliya instituti
universiteti fizika
Nizomiy nomidagi
таълим вазирлиги
махсус таълим
respublikasi axborot
umumiy o’rta
pedagogika fakulteti
nazorat savollari