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

program ARM_Radio;

uses

Forms,

uSotrudniki in 'uSotrudniki. pas' {frmSotrudniki},

uDataModule in 'uDataModule. pas' {frmDataModule: TDataModule},

uConnect in 'uConnect. pas' {frmConnect},

uMain in 'uMain. pas' {frmMain},

uResultSQL1 in 'uResultSQL1. pas' {frmResultSQL1},

uReport in 'uReport. pas' {frmReport},

uPeredachi in 'uPeredachi. pas' {frmPeredachi},

uElementy in 'uElementy. pas' {frmElementy},

uResultSQL2 in 'uResultSQL2. pas' {frmResultSQL2},

uResultSQL3 in 'uResultSQL3. pas' {frmResultSQL3},

uPostavshiki in 'uPostavshiki. pas' {frmPostavshiki};

{$R *. res}

begin

Application. Initialize;

Application. CreateForm (TfrmMain, frmMain);

Application. CreateForm (TfrmSotrudniki, frmSotrudniki);

Application. CreateForm (TfrmDataModule, frmDataModule);

Application. CreateForm (TfrmConnect, frmConnect);

Application. CreateForm (TfrmResultSQL1, frmResultSQL1);

Application. CreateForm (TfrmReport, frmReport);

Application. CreateForm (TfrmPeredachi, frmPeredachi);

Application. CreateForm (TfrmElementy, frmElementy);

Application. CreateForm (TfrmResultSQL2, frmResultSQL2);

Application. CreateForm (TfrmResultSQL3, frmResultSQL3);

Application. CreateForm (TfrmPostavshiki, frmPostavshiki);

Application.run;

end.

unit uMain;

interface

uses

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

Dialogs, StdCtrls, Menus, ExtCtrls, DBCtrls, Grids, DBGrids, ComCtrls, uDataModule,

Mask, uConnect, ShellAPI, uReport;

type

TfrmMain = class (TForm)

PageControl1: TPageControl;

TabSheet1: TTabSheet;

TabSheet2: TTabSheet;

TabSheet3: TTabSheet;

TabSheet4: TTabSheet;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

TabSheet5: TTabSheet;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

DBGrid5: TDBGrid;

DBNavigator5: TDBNavigator;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N11: TMenuItem;

N21: TMenuItem;

N31: TMenuItem;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

N4: TMenuItem;

N5: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

CheckBox5: TCheckBox;

Button1: TButton;

MaskEdit2: TMaskEdit;

CheckBox7: TCheckBox;

N13: TMenuItem;

N14: TMenuItem;

N3: TMenuItem;

N15: TMenuItem;

TabSheet6: TTabSheet;

CheckBox8: TCheckBox;

MaskEdit3: TMaskEdit;

Button3: TButton;

CheckBox9: TCheckBox;

DBGrid6: TDBGrid;

DBNavigator6: TDBNavigator;

DBGrid4: TDBGrid;

Label1: TLabel;

Edit1: TEdit;

CheckBox4: TCheckBox;

DBNavigator4: TDBNavigator;

procedure N6Click (Sender: TObject);

procedure N7Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N10Click (Sender: TObject);

procedure N12Click (Sender: TObject);

procedure CheckBox1Click (Sender: TObject);

procedure CheckBox2Click (Sender: TObject);

procedure CheckBox3Click (Sender: TObject);

procedure CheckBox4Click (Sender: TObject);

procedure CheckBox5Click (Sender: TObject);

procedure Edit2Change (Sender: TObject);

procedure Edit4Change (Sender: TObject);

procedure Edit3Change (Sender: TObject);

procedure CheckBox7Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure N8Click (Sender: TObject);

procedure N9Click (Sender: TObject);

procedure N11Click (Sender: TObject);

procedure N13Click (Sender: TObject);

procedure N14Click (Sender: TObject);

procedure N21Click (Sender: TObject);

procedure N31Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure CheckBox9Click (Sender: TObject);

procedure CheckBox8Click (Sender: TObject);

procedure Edit1Change (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure N15Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmMain: TfrmMain;

implementation

uses uResultSQL1, uResultSQL2, uResultSQL3,uPeredachi, uElementy, uSotrudniki, uPostavshiki;

{$R *. dfm}

procedure TfrmMain. N6Click (Sender: TObject);

begin

if InputBox ('Аутентификация пользователя','Введите пароль! ','') ='12345' then

begin

frmDataModule. tbPeredachi. Active: =True;

frmDataModule. tbVkljuchenie. Active: =True;

frmDataModule. tbElementy. Active: =True;

frmDataModule. tbObrabotka. Active: =True;

frmDataModule. tbSotrudniki. Active: =True;

frmDataModule. tbPostavshiki. Active: =True;

end;

end;

procedure TfrmMain. N7Click (Sender: TObject);

begin

frmDataModule. tbPeredachi. Active: =False;

frmDataModule. tbVkljuchenie. Active: =False;

frmDataModule. tbElementy. Active: =False;

frmDataModule. tbObrabotka. Active: =False;

frmDataModule. tbSotrudniki. Active: =False;

frmDataModule. tbPostavshiki. Active: =False;

end;

procedure TfrmMain. N5Click (Sender: TObject);

begin

frmPeredachi. ShowModal;

end;

procedure TfrmMain. N10Click (Sender: TObject);

begin

frmElementy. ShowModal;

end;

procedure TfrmMain. N12Click (Sender: TObject);

begin

frmSotrudniki. ShowModal;

end;

procedure TfrmMain. N15Click (Sender: TObject);

begin

frmPostavshiki. ShowModal;

end;

procedure TfrmMain. CheckBox1Click (Sender: TObject);

begin

if CheckBox1. Checked=True

then

frmDataModule. tbPeredachi. IndexName: ='ixNaimen_Peredachi'

else

frmDataModule. tbPeredachi. IndexName: ='';

end;

procedure TfrmMain. CheckBox2Click (Sender: TObject);

begin

if CheckBox2. Checked=True

then

frmDataModule. tbElementy. IndexName: ='ixNaimen_Elementy'

else

frmDataModule. tbElementy. IndexName: ='';

end;

procedure TfrmMain. CheckBox3Click (Sender: TObject);

begin

if CheckBox3. Checked=True

then

frmDataModule. tbSotrudniki. IndexName: ='ixFIO_Sotrudniki'

else

frmDataModule. tbSotrudniki. IndexName: ='';

end;

procedure TfrmMain. CheckBox4Click (Sender: TObject);

begin

if CheckBox4. Checked=True

then

frmDataModule. tbPostavshiki. IndexName: ='ixNaimen_Postavshiki'

else

frmDataModule. tbPostavshiki. IndexName: ='';

end;

procedure TfrmMain. CheckBox5Click (Sender: TObject);

begin

if CheckBox5. Checked=True

then

frmDataModule. tbVkljuchenie. IndexName: ='ixDate_Vkljuchenie'

else

frmDataModule. tbVkljuchenie. IndexName: ='';

end;

procedure TfrmMain. CheckBox9Click (Sender: TObject);

begin

if CheckBox9. Checked=True

then

frmDataModule. tbObrabotka. IndexName: ='ixDate_Obrabotka'

else

frmDataModule. tbObrabotka. IndexName: ='';

end;

procedure TfrmMain. Edit2Change (Sender: TObject);

begin

CheckBox1. Checked: =True;

frmDataModule. tbPeredachi. IndexName: ='ixNaimen_Peredachi';

frmDataModule. tbPeredachi. FindNearest ([Edit2. Text]);

end;

procedure TfrmMain. Edit4Change (Sender: TObject);

begin

CheckBox2. Checked: =True;

frmDataModule. tbElementy. IndexName: ='ixNaimen_Elementy';

frmDataModule. tbElementy. FindNearest ([Edit4. Text]);

end;

procedure TfrmMain. Edit3Change (Sender: TObject);

begin

CheckBox3. Checked: =True;

frmDataModule. tbSotrudniki. IndexName: ='ixFIO_Sotrudniki';

frmDataModule. tbSotrudniki. FindNearest ([Edit3. Text]);

end;

procedure TfrmMain. Edit1Change (Sender: TObject);

begin

CheckBox4. Checked: =True;

frmDataModule. tbPostavshiki. IndexName: ='ixNaimen_Postavshiki';

frmDataModule. tbPostavshiki. FindNearest ([Edit1. Text]);

end;

procedure TfrmMain. CheckBox7Click (Sender: TObject);

begin

if CheckBox7. Checked=False then

begin

frmDataModule. tbVkljuchenie. Filter: ='';

frmDataModule. tbVkljuchenie. Filtered: =False;

Button1. Visible: =False;

MaskEdit2. Visible: =False;

end

else

begin

Button1. Visible: =True;

MaskEdit2. Visible: =True;

MaskEdit2. Text: ='';

end;

end;

procedure TfrmMain. CheckBox8Click (Sender: TObject);

begin

if CheckBox8. Checked=False then

begin

frmDataModule. tbObrabotka. Filter: ='';

frmDataModule. tbObrabotka. Filtered: =False;

Button3. Visible: =False;

MaskEdit3. Visible: =False;

end

else

begin

Button3. Visible: =True;

MaskEdit3. Visible: =True;

MaskEdit3. Text: ='';

end;

end;

procedure TfrmMain. Button1Click (Sender: TObject);

begin

try

StrToDate (MaskEdit2. Text);

frmDataModule. tbVkljuchenie. Filter: =' [Data_prinjatia] ='+''''+MaskEdit2. Text+'''';

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16