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

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.