аметрами
frmRpt.QRLBData.caption:= на + (frmParamRpt.edDatFirst.Date) ;. QRLBKurs.caption:= Курс +. CB_Kurs.Text;
//Висновок звіту в режимі попереднього
frmRpt.Preview;
finally
//Закриття набору даних
DM.qSQL.closeUGroup ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, DBCtrls, Buttons, ExtCtrls;=class (TForm): TPanel ;: TPanel ;: TSpeedButton ;: TDBNavigator ;: TPanel ;: TDBGrid; SBRefreshClick (Sender: TObject); FormShow (Sender: TObject);
{Private declarations}
{Public declarations} ;: TFrmGroup; uDM;
{$ R * .dfm} TFrmGroup.SBRefreshClick (Sender: TObject); _ kod: string; _kod:=DM.QGruppa.FieldByName ( Kod_gr ). AsString; DM.QGruppa do begin ;;;:= Kod_gr= + s_kod ;;;;; TFrmGroup.FormShow (Sender: TObject); not DM.QGruppa.Active then
DM.QGruppa.Open;
except
ShowMessage ( Помилка при відкритті довідника Договір ');
end; UStudent ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, DBCtrls, Buttons, ExtCtrls;=class (TForm): TPanel ;: TPanel ;: TSpeedButton ;: TDBNavigator ;: TPanel ;: TDBGrid; SBRefreshClick (Sender: TObject); FormShow (Sender: TObject);
{Private declarations}
{Public declarations} ;: TFrmStudent; uDM;
{$ R * .dfm} TFrmStudent.SBRefreshClick (Sender: TObject); _ kod: string; _kod:=DM.QStudent.FieldByName ( Kod_stud ). AsString; DM.QStudent do begin;;;:=laquo;Kod_stud=raquo;laquo;raquo;+s_kod+laquo;raquo;laquo;raquo;;;;;;TFrmStudent.FormShow(Sender: TObject); not DM.QStudent.Active then.QStudent.Open; ( Помилка при відкритті довідника Договір ) ;;; end.UFackult ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, DBCtrls, Buttons, ExtCtrls;=class (TForm): TPanel ;: TPanel ;: TSpeedButton ;: TDBNavigator ;: TPanel;:TDBGrid; SBRefreshClick (Sender: TObject); FormShow (Sender: TObject);
{Private declarations}
{Public declarations} ;: TFrmFackult; uDM;
{$ R * .dfm} TFrmFackult.SBRefreshClick (Sender: TObject);_kod:string;_kod:=DM.QFackultet.FieldByName(laquo;krat_naim_fackultraquo;).AsString;DM.QFackultet do begin;;;:=laquo;krat_naim_fackult=raquo;laquo;raquo;+s_kod+laquo;raquo;laquo;raquo;;;;;TFrmFackult.FormShow(Sender: TObject); not DM.QFackultet.Active then.QFackultet.Open; ( Помилка при відкритті довідника Договір );.
UDogovor ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, ExtCtrls, Buttons, DBCtrls;=class (TForm): TPanel ;: TPanel ;: TDBGrid;:TDBNavigator ;: TSpeedButton; _Ins: TSpeedButton; _Edit: TSpeedButton; SBRefreshClick (Sender: TObject); FormShow (Sender: TObject); SB_InsClick (Sender: TObject); SB_EditClick (Sender: TObject);
{Private declarations}
{Public declarations} ;: TFrmDogovor; _kod: string; uDM, uEdDogovor, ulib;
{$ R * .dfm} TFrmDogovor.SBRefreshClick (Sender: TObject) ;. DogovorRefresh ;;
TFrmDogovor.FormShow (Sender: TObject); not DM.QDogovor.Active then.QDogovor.Open;
except
ShowMessage ( Помилка при відкритті довідника Договір );
end ;; TFrmDogovor.SB_InsClick (Sender: TObject) ;. QDogovor.Insert; TFrmedDogovor.Create (Application) do ;;;;. DogovorRefresh ;; TFrmDogovor.SB_EditClick (Sender: TObject) ;. QDogovor.Edit; TFrmedDogovor.Create (Application) do ;;;;. DogovorRefresh ;;
UConnect ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, ExtCtrls;=class (TForm): TPanel ;: TLabel ;: TLabel ;: TEdit ;: TEdit;:TButton ;: TButton;
{Private declarations}
{Public declarations} ;: TFrmConnect;
{$ R * .dfm} .uDM ;, Classes, DB, DBTables, Forms, Controls, Dialogs, Messages ,, Variants;=class (TDataModule): TDatabase ;: TQuery ;: TQuery;:TQuery ;: TQuery ;: TQuery ;: TQuery; _dogov: TIntegerField; _dogov: TIntegerField; _dogov: TDateField; _stoim: TFloatField ;: TFloatField; _stud: TStringField; _gr: TStringField; _stoim: TIntegerField; _obuch: TSmallintField ;: TFloatField; _dogov: TIntegerField; _gr: TStringField; _naim_fackult: TStringField; _l: TStringField; _opl: TIntegerField; _opl: TDateField; _kvitanc: TIntegerField; _obuch: TSmallintField; _opl: TFloatField ;: TStringField; _dogov: TIntegerField; _l: TStringField; _l: TStringField ; _Calcul: TFloatField; _stud: TStringField ;: TStringFi...