Курсовая работа (т): Базы данных

{ Private declarations }

{ Public declarations };: Tzapr;dmora;

{$R *.dfm}Tzapr.cxButton1Click(Sender: TObject);.q1.params.parambyname('d').value:=cxDateEdit1.Date;.q1.active:=false;.q1.active:=true;.q2.params.parambyname('d').value:=cxDateEdit1.Date;.q2.active:=false;.q2.active:=true;.q3.params.parambyname('d').value:=cxDateEdit1.Date;.q3.active:=false;.q3.active:=true;;.dmora;, Classes, DB, Ora, DBAccess, MemDS, OraSmart, sSkinManager,, cxStyles, cxExtEditRepositoryItems, cxEdit, cxDBEditRepository,, cxGridPopupMenu;= class(TDataModule): TOraSession;: TcxEditRepository;_users: TcxEditRepositoryLookupComboBoxItem;: TcxStyleRepository;: TcxStyle;: TcxStyle;: TcxStyle;: TcxStyle;: TcxStyle;: TcxStyle;: TcxStyle;: TcxStyle;: TcxStyle;: TcxStyle;: TcxStyle;: TcxStyle;: TcxStyle;: TcxStyle;: TOraTable;: TOraDataSource;: TOraQuery;: TOraDataSource;_USER: TFloatField;: TStringField;: TStringField;: TStringField;_type: TOraQuery;_type: TOraDataSource;_kabinet: TOraQuery;_kabinet: TOraDataSource;: TOraQuery;: TOraDataSource;: TOraQuery;: TOraDataSource;_typeID_TYPE: TFloatField;_typeNAME_TYPE: TStringField;: TOraQuery;: TOraDataSource;: TOraQuery;: TOraDataSource;_type: TcxEditRepositoryLookupComboBoxItem;_prihod: TcxEditRepositoryLookupComboBoxItem;_kabinet: TcxEditRepositoryLookupComboBoxItem;: TOraQuery;: TOraDataSource;_Qprihod: TcxEditRepositoryLookupComboBoxItem;_m: TOraQuery;_m: TOraDataSource;_m: TOraQuery;_m: TOraDataSource;_mM: TFloatField;_mM: TFloatField;_m: TOraQuery;_m: TOraDataSource;_mM: TFloatField;: TOraQuery;: TOraDataSource;_for_spis: TOraQuery;_for_spis: TOraDataSource;_prihod_for_spis: TcxEditRepositoryLookupComboBoxItem;: TOraQuery;: TOraDataSource;_oborud: TOraQuery;_oborud: TOraDataSource;_oborud: TcxEditRepositoryLookupComboBoxItem;: TOraQuery;: TOraDataSource;_level: TOraQuery;_level: TOraDataSource;rashodAfterPost(DataSet: TDataSet);prihodAfterInsert(DataSet: TDataSet);rashodAfterInsert(DataSet: TDataSet);spisAfterInsert(DataSet: TDataSet);DataModuleCreate(Sender: TObject);

{ Private declarations }

{ Public declarations };: Tdm;

{$R *.dfm}Tdm.rashodAfterPost(DataSet: TDataSet);.Qprihod.Active:=false;.Qprihod.Active:=true;.Qprihod_for_spis.Active:=false;.Qprihod_for_spis.Active:=true;;Tdm.prihodAfterInsert(DataSet: TDataSet);.prihod_m.active:=false;.prihod_m.active:=true;.prihod.FieldByName('id_prihod').asfloat:=(dm.prihod_Mm.Value);;Tdm.rashodAfterInsert(DataSet: TDataSet);.rashod_m.active:=false;.rashod_m.active:=true;.rashod.FieldByName('id_rashod').asfloat:=dm.rashod_mM.Value;;Tdm.spisAfterInsert(DataSet: TDataSet);.spis_m.active:=false;.spis_m.active:=true;.spis.FieldByName('id_spisanie').asfloat:=(dm.spis_mm.Value);;Tdm.DataModuleCreate(Sender: TObject);;.Project1;,_main in 'frm_main.pas' {frmmain},in 'frmlogin.pas' {frm_login},in 'Unit2.pas' {prihod},in 'frmsprav.pas' {frm_sprav},in 'Unit3.pas' {rashod},in 'Unit4.pas' {inv},in 'Unit5.pas' {spis},in 'Unit6.pas' {zapr},_rep in 'frm_rep.pas' {rep},in 'dmora.pas' {dm: TDataModule},in 'Unit1.pas' {ins},in 'Unit7.pas' {ins_spips},in 'Unit8.pas' {Form8};

{$R *.res}.Initialize;.CreateForm(Tdm, dm);.CreateForm(Tfrmmain, frmmain);.CreateForm(Tfrm_login, frm_login);

Application.Run;.