begin
if InputBox ('Аутентификация пользователя','Введите пароль! ','') ='12345' then
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;
procedure TfrmMain. N7Click (Sender: TObject);
frmDataModule. tbPeredachi. Active: =False;
frmDataModule. tbVkljuchenie. Active: =False;
frmDataModule. tbElementy. Active: =False;
frmDataModule. tbObrabotka. Active: =False;
frmDataModule. tbSotrudniki. Active: =False;
frmDataModule. tbPostavshiki. Active: =False;
procedure TfrmMain. N5Click (Sender: TObject);
frmPeredachi. ShowModal;
procedure TfrmMain. N10Click (Sender: TObject);
frmElementy. ShowModal;
procedure TfrmMain. N12Click (Sender: TObject);
frmSotrudniki. ShowModal;
procedure TfrmMain. N15Click (Sender: TObject);
frmPostavshiki. ShowModal;
procedure TfrmMain. CheckBox1Click (Sender: TObject);
if CheckBox1. Checked=True
then
frmDataModule. tbPeredachi. IndexName: ='ixNaimen_Peredachi'
else
frmDataModule. tbPeredachi. IndexName: ='';
procedure TfrmMain. CheckBox2Click (Sender: TObject);
if CheckBox2. Checked=True
frmDataModule. tbElementy. IndexName: ='ixNaimen_Elementy'
frmDataModule. tbElementy. IndexName: ='';
procedure TfrmMain. CheckBox3Click (Sender: TObject);
if CheckBox3. Checked=True
frmDataModule. tbSotrudniki. IndexName: ='ixFIO_Sotrudniki'
frmDataModule. tbSotrudniki. IndexName: ='';
procedure TfrmMain. CheckBox4Click (Sender: TObject);
if CheckBox4. Checked=True
frmDataModule. tbPostavshiki. IndexName: ='ixNaimen_Postavshiki'
frmDataModule. tbPostavshiki. IndexName: ='';
procedure TfrmMain. CheckBox5Click (Sender: TObject);
if CheckBox5. Checked=True
frmDataModule. tbVkljuchenie. IndexName: ='ixDate_Vkljuchenie'
frmDataModule. tbVkljuchenie. IndexName: ='';
procedure TfrmMain. CheckBox9Click (Sender: TObject);
if CheckBox9. Checked=True
frmDataModule. tbObrabotka. IndexName: ='ixDate_Obrabotka'
frmDataModule. tbObrabotka. IndexName: ='';
procedure TfrmMain. Edit2Change (Sender: TObject);
CheckBox1. Checked: =True;
frmDataModule. tbPeredachi. IndexName: ='ixNaimen_Peredachi';
frmDataModule. tbPeredachi. FindNearest ([Edit2. Text]);
procedure TfrmMain. Edit4Change (Sender: TObject);
CheckBox2. Checked: =True;
frmDataModule. tbElementy. IndexName: ='ixNaimen_Elementy';
frmDataModule. tbElementy. FindNearest ([Edit4. Text]);
procedure TfrmMain. Edit3Change (Sender: TObject);
CheckBox3. Checked: =True;
frmDataModule. tbSotrudniki. IndexName: ='ixFIO_Sotrudniki';
frmDataModule. tbSotrudniki. FindNearest ([Edit3. Text]);
procedure TfrmMain. Edit1Change (Sender: TObject);
CheckBox4. Checked: =True;
frmDataModule. tbPostavshiki. IndexName: ='ixNaimen_Postavshiki';
frmDataModule. tbPostavshiki. FindNearest ([Edit1. Text]);
procedure TfrmMain. CheckBox7Click (Sender: TObject);
if CheckBox7. Checked=False then
frmDataModule. tbVkljuchenie. Filter: ='';
frmDataModule. tbVkljuchenie. Filtered: =False;
Button1. Visible: =False;
MaskEdit2. Visible: =False;
end
Button1. Visible: =True;
MaskEdit2. Visible: =True;
MaskEdit2. Text: ='';
procedure TfrmMain. CheckBox8Click (Sender: TObject);
if CheckBox8. Checked=False then
frmDataModule. tbObrabotka. Filter: ='';
frmDataModule. tbObrabotka. Filtered: =False;
Button3. Visible: =False;
MaskEdit3. Visible: =False;
Button3. Visible: =True;
MaskEdit3. Visible: =True;
MaskEdit3. Text: ='';
procedure TfrmMain. Button1Click (Sender: TObject);
try
StrToDate (MaskEdit2. Text);
frmDataModule. tbVkljuchenie. Filter: =' [Data_prinjatia] ='+''''+MaskEdit2. Text+'''';
frmDataModule. tbVkljuchenie. Filtered: =True;
except
ShowMessage ('Введите правильную дату! ');
procedure TfrmMain. Button3Click (Sender: TObject);
StrToDate (MaskEdit3. Text);
frmDataModule. tbObrabotka. Filter: =' [Data_obrabotki] ='+''''+MaskEdit3. Text+'''';
frmDataModule. tbObrabotka. Filtered: =True;
procedure TfrmMain. N8Click (Sender: TObject);
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 ('Резервное копирование завершено! ');
procedure TfrmMain. N9Click (Sender: TObject);
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 ('Восстановление прошло успешно! ');
procedure TfrmMain. N11Click (Sender: TObject);
frmResultSQL1. ShowModal;
procedure TfrmMain. N13Click (Sender: TObject);
frmConnect. ShowModal;
procedure TfrmMain. N14Click (Sender: TObject);
ShellExecute (Application. MainForm. Handle,'open','Справка по работе с приложением БД АРМ Радио. htm',nil,nil,SW_SHOWNORMAL);
procedure TfrmMain. N21Click (Sender: TObject);
frmResultSQL2. ShowModal;
procedure TfrmMain. N31Click (Sender: TObject);
frmResultSQL3. ShowModal;
procedure TfrmMain. N3Click (Sender: TObject);
frmReport. QuickRep1. Preview;
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 }
var
frmDataModule: TfrmDataModule;
implementation
{$R *. dfm}
unit uConnect;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DBCtrls, Grids, DBGrids, ExtCtrls, uDataModule;
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);
frmConnect: TfrmConnect;
procedure TfrmConnect. FormShow (Sender: TObject);
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';
procedure TfrmConnect. FormDeactivate (Sender: TObject);
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: ='';;
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14