Дипломная работа: Проект автоматизированного рабочего места специалиста по формированию программ радиовещания

frmDataModule. tbVkljuchenie. Filtered: =True;

except

ShowMessage ('Введите правильную дату! ');

end;

end;

procedure TfrmMain. Button3Click (Sender: TObject);

begin

try

StrToDate (MaskEdit3. Text);

frmDataModule. tbObrabotka. Filter: =' [Data_obrabotki] ='+''''+MaskEdit3. Text+'''';

frmDataModule. tbObrabotka. Filtered: =True;

except

ShowMessage ('Введите правильную дату! ');

end;

end;

procedure TfrmMain. N8Click (Sender: TObject);

begin

N7Click (Self);

CopyFile ('Peredachi. db','copyPeredachi. db', false);

CopyFile ('Peredachi. px','copyPeredachi. px', false);

CopyFile ('Peredachi. XG0','copyPeredachi. XG0', false);

CopyFile ('Peredachi. YG0','copyPeredachi. YG0', false);

CopyFile ('Vkljuchenie. db','copyVkljuchenie. db', false);

CopyFile ('Vkljuchenie. px','copyVkljuchenie. px', false);

CopyFile ('Vkljuchenie. XG0','copyVkljuchenie. XG0', false);

CopyFile ('Vkljuchenie. YG0','copyVkljuchenie. YG0', false);

CopyFile ('Elementy. db','copyElementy. db', false);

CopyFile ('Elementy. px','copyElementy. px', false);

CopyFile ('Elementy. XG0','copyElementy. XG0', false);

CopyFile ('Elementy. YG0','copyElementy. YG0', false);

CopyFile ('Postavshiki. db','copyPostavshiki. db', false);

CopyFile ('Postavshiki. px','copyPostavshiki. px', false);

CopyFile ('Postavshiki. XG0','copyPostavshiki. XG0', false);

CopyFile ('Postavshiki. YG0','copyPostavshiki. YG0', false);

CopyFile ('Obrabotka. db','copyObrabotka. db', false);

CopyFile ('Obrabotka. px','copyObrabotka. px', false);

CopyFile ('Obrabotka. XG0','copyObrabotka. XG0', false);

CopyFile ('Obrabotka. YG0','copyObrabotka. YG0', false);

CopyFile ('Sotrudniki. db','copySotrudniki. db', false);

CopyFile ('Sotrudniki. px','copySotrudniki. px', false);

CopyFile ('Sotrudniki. XG0','copySotrudniki. XG0', false);

CopyFile ('Sotrudniki. YG0','copySotrudniki. YG0', false);

ShowMessage ('Резервное копирование завершено! ');

end;

procedure TfrmMain. N9Click (Sender: TObject);

begin

N7Click (Self);

CopyFile ('copyPeredachi. db','Peredachi. db', false);

CopyFile ('copyPeredachi. px','Peredachi. px', false);

CopyFile ('copyPeredachi. XG0','Peredachi. XG0', false);

CopyFile ('copyPeredachi. YG0','Peredachi. YG0', false);

CopyFile ('copyVkljuchenie. db','Vkljuchenie. db', false);

CopyFile ('copyVkljuchenie. px','Vkljuchenie. px', false);

CopyFile ('copyVkljuchenie. XG0','Vkljuchenie. XG0', false);

CopyFile ('copyVkljuchenie. YG0','Vkljuchenie. YG0', false);

CopyFile ('copyElementy. db','Elementy. db', false);

CopyFile ('copyElementy. px','Elementy. px', false);

CopyFile ('copyElementy. XG0','Elementy. XG0', false);

CopyFile ('copyElementy. YG0','Elementy. YG0', false);

CopyFile ('copyPostavshiki. db','Postavshiki. db', false);

CopyFile ('copyPostavshiki. px','Postavshiki. px', false);

CopyFile ('copyPostavshiki. XG0','Postavshiki. XG0', false);

CopyFile ('copyPostavshiki. YG0','Postavshiki. YG0', false);

CopyFile ('copyObrabotka. db','Obrabotka. db', false);

CopyFile ('copyObrabotka. px','Obrabotka. px', false);

CopyFile ('copyObrabotka. XG0','Obrabotka. XG0', false);

CopyFile ('copyObrabotka. YG0','Obrabotka. YG0', false);

CopyFile ('copySotrudniki. db','Sotrudniki. db', false);

CopyFile ('copySotrudniki. px','Sotrudniki. px', false);

CopyFile ('copySotrudniki. XG0','Sotrudniki. XG0', false);

CopyFile ('copySotrudniki. YG0','Sotrudniki. YG0', false);

ShowMessage ('Восстановление прошло успешно! ');

end;

procedure TfrmMain. N11Click (Sender: TObject);

begin

frmResultSQL1. ShowModal;

end;

procedure TfrmMain. N13Click (Sender: TObject);

begin

frmConnect. ShowModal;

end;

procedure TfrmMain. N14Click (Sender: TObject);

begin

ShellExecute (Application. MainForm. Handle,'open','Справка по работе с приложением БД АРМ Радио. htm',nil,nil,SW_SHOWNORMAL);

end;

procedure TfrmMain. N21Click (Sender: TObject);

begin

frmResultSQL2. ShowModal;

end;

procedure TfrmMain. N31Click (Sender: TObject);

begin

frmResultSQL3. ShowModal;

end;

procedure TfrmMain. N3Click (Sender: TObject);

begin

frmReport. QuickRep1. Preview;

end;

end.

unit uDataModule;

interface

uses

SysUtils, Classes, DB, DBTables;

type

TfrmDataModule = class (TDataModule)

dsPeredachi: TDataSource;

dsVkljuchenie: TDataSource;

dsElementy: TDataSource;

dsPostavshiki: TDataSource;

dsObrabotka: TDataSource;

dsSotrudniki: TDataSource;

tbPeredachi: TTable;

tbPeredachiCod_peredachi: TAutoIncField;

tbPeredachiVid_peredachi: TStringField;

tbPeredachiNaimen_peredachi: TStringField;

tbPeredachiDlitelnoct: TIntegerField;

tbVkljuchenie: TTable;

tbVkljuchenieCod_peredachi: TIntegerField;

tbVkljuchenieCod_elementa: TIntegerField;

tbVkljuchenieNomer_documenta: TStringField;

tbVkljuchenieData_prinjatia: TDateField;

tbVkljuchenieDlitelnost_v_peredache: TIntegerField;

tbVkljuchenieNomer_po_porjadku: TSmallintField;

tbElementy: TTable;

tbPostavshiki: TTable;

tbPostavshikiCod_postavshika: TAutoIncField;

tbPostavshikiVid_postavshika: TStringField;

tbPostavshikiNaimen_postavshika: TStringField;

tbPostavshikiCharakteristiki: TStringField;

tbObrabotka: TTable;

tbObrabotkaCod_elementa: TIntegerField;

tbObrabotkaTab_nomer: TIntegerField;

tbObrabotkaNomer_narjada: TStringField;

tbObrabotkaData_obrabotki: TDateField;

tbObrabotkaVid_obrabotki: TStringField;

tbSotrudniki: TTable;

tbSotrudnikiTab_nomer: TAutoIncField;

tbSotrudnikiFIO: TStringField;

tbSotrudnikiDoljnost: TStringField;

tbSotrudnikiObrazovanie: TStringField;

tbSotrudnikiCharakteristiki: TStringField;

tbElementyCod_elementa: TAutoIncField;

tbElementyVid_elementa: TStringField;

tbElementyNaimen_elementa: TStringField;

tbElementyFormat_chranenia: TStringField;

tbElementyEd_izmerenia: TStringField;

tbElementyObjem: TIntegerField;

tbElementyCod_postashika: TIntegerField;

tbVkljuchenieNaimen_peredachi: TStringField;

tbVkljuchenieNaimen_elementa: TStringField;

tbElementyNaimen_postavshika: TStringField;

tbObrabotkaNaimen_elementa: TStringField;

tbObrabotkaFIO_sotrudnika: TStringField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmDataModule: TfrmDataModule;

implementation

{$R *. dfm}

end.

unit uConnect;

interface

uses

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

Dialogs, DBCtrls, Grids, DBGrids, ExtCtrls, uDataModule;

type

TfrmConnect = class (TForm)

Panel1: TPanel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Panel3: TPanel;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

Panel5: TPanel;

DBGrid5: TDBGrid;

DBNavigator5: TDBNavigator;

Panel2: TPanel;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

Panel4: TPanel;

DBGrid4: TDBGrid;

DBNavigator4: TDBNavigator;

procedure FormShow (Sender: TObject);

procedure FormDeactivate (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmConnect: TfrmConnect;

implementation

{$R *. dfm}

procedure TfrmConnect. FormShow (Sender: TObject);

begin

frmDataModule. tbVkljuchenie. MasterSource: =frmDataModule. dsPeredachi;

frmDataModule. tbVkljuchenie. MasterFields: ='Cod_peredachi';

frmDataModule. tbElementy. MasterSource: =frmDataModule. dsVkljuchenie;

frmDataModule. tbElementy. MasterFields: ='Cod_elementa';

frmDataModule. tbObrabotka. MasterSource: =frmDataModule. dsElementy;

frmDataModule. tbObrabotka. MasterFields: ='Cod_elementa';

frmDataModule. tbSotrudniki. MasterSource: =frmDataModule. dsObrabotka;

frmDataModule. tbSotrudniki. MasterFields: ='Tab_nomer';

end;

procedure TfrmConnect. FormDeactivate (Sender: TObject);

begin

frmDataModule. tbVkljuchenie. MasterSource: =nil;

frmDataModule. tbVkljuchenie. MasterFields: ='';;

frmDataModule. tbElementy. MasterSource: =nil;

frmDataModule. tbElementy. MasterFields: ='';;

frmDataModule. tbObrabotka. MasterSource: =nil;

frmDataModule. tbObrabotka. MasterFields: ='';;

frmDataModule. tbSotrudniki. MasterSource: =nil;

frmDataModule. tbSotrudniki. MasterFields: ='';;

end;

end.