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.
#44212
Bog'liq
Listining kod

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 2024
ma'muriyatiga murojaat qiling

kiriting | ro'yxatdan o'tish
    Bosh sahifa
юртда тантана
Боғда битган
Бугун юртда
Эшитганлар жилманглар
Эшитмадим деманглар
битган бодомлар
Yangiariq tumani
qitish marakazi
Raqamli texnologiyalar
ilishida muhokamadan
tasdiqqa tavsiya
tavsiya etilgan
iqtisodiyot kafedrasi
steiermarkischen landesregierung
asarlaringizni yuboring
o'zingizning asarlaringizni
Iltimos faqat
faqat o'zingizning
steierm rkischen
landesregierung fachabteilung
rkischen landesregierung
hamshira loyihasi
loyihasi mavsum
faolyatining oqibatlari
asosiy adabiyotlar
fakulteti ahborot
ahborot havfsizligi
havfsizligi kafedrasi
fanidan bo’yicha
fakulteti iqtisodiyot
boshqaruv fakulteti
chiqarishda boshqaruv
ishlab chiqarishda
iqtisodiyot fakultet
multiservis tarmoqlari
fanidan asosiy
Uzbek fanidan
mavzulari potok
asosidagi multiservis
'aliyyil a'ziym
billahil 'aliyyil
illaa billahil
quvvata illaa
falah' deganida
Kompyuter savodxonligi
bo’yicha mustaqil
'alal falah'
Hayya 'alal
'alas soloh
Hayya 'alas
mavsum boyicha


yuklab olish