Дипломная работа: Автоматизация взаимоотношений с клиентами спортивного комплекса «Искра»

Скачать файл

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

102

cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxClasses, cxControls,

cxGridCustomView, cxGridCustomTableView, cxGridTableView,

cxGridDBTableView, cxGrid, StdCtrls, Mask, ExtCtrls, DBCtrls, cxImage,

ExtDlgs, Menus;

type

TForm1 = class(TForm)

cxGrid1DBTableView1: TcxGridDBTableView;

cxGrid1Level1: TcxGridLevel;

cxGrid1: TcxGrid;

cxGrid2DBTableView1: TcxGridDBTableView;

cxGrid2Level1: TcxGridLevel;

cxGrid2: TcxGrid;

cxGrid3DBTableView1: TcxGridDBTableView;

cxGrid3Level1: TcxGridLevel;

cxGrid3: TcxGrid;

cxGrid4DBTableView1: TcxGridDBTableView;

cxGrid4Level1: TcxGridLevel;

cxGrid4: TcxGrid;

DBNavigator2: TDBNavigator;

DBNavigator3: TDBNavigator;

Filter: TRadioGroup;

Button1: TButton;

OpenPictureDialog1: TOpenPictureDialog;

cxGrid5DBTableView1: TcxGridDBTableView;

cxGrid5Level1: TcxGridLevel;

cxGrid5: TcxGrid;

103

DBNavigator4: TDBNavigator;

cxGrid2DBTableView1Kod_posetitelya: TcxGridDBColumn;

cxGrid2DBTableView1Nomer_zapisy: TcxGridDBColumn;

cxGrid2DBTableView1Kod_zanyztiya: TcxGridDBColumn;

cxGrid4DBTableView1Kod_yclygi: TcxGridDBColumn;

cxGrid4DBTableView1Naim_yclygi: TcxGridDBColumn;

cxGrid5DBTableView1Foto: TcxGridDBColumn;

cxGrid5DBTableView1Kod_trenera: TcxGridDBColumn;

cxGrid5DBTableView1Kod_yclygi: TcxGridDBColumn;

cxGrid5DBTableView1Familiya_trenera: TcxGridDBColumn;

cxGrid5DBTableView1Imya_trenera: TcxGridDBColumn;

cxGrid5DBTableView1Otchestvo_trenera: TcxGridDBColumn;

cxGrid5DBTableView1Date_trenera: TcxGridDBColumn;

cxGrid5DBTableView1Kvalification: TcxGridDBColumn;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

Label6: TLabel;

Button2: TButton;

Label7: TLabel;

DBEdit2: TDBEdit;

Label8: TLabel;

DBEdit3: TDBEdit;

104

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

cxGrid3DBTableView1Kod_zanyztiya: TcxGridDBColumn;

cxGrid3DBTableView1Kod_trenera: TcxGridDBColumn;

cxGrid3DBTableView1nachalo_zanyatiya: TcxGridDBColumn;

cxGrid3DBTableView1okonchanie_zanyatiya: TcxGridDBColumn;

cxGrid3DBTableView1stoimost_zanyatiya: TcxGridDBColumn;

cxGrid3DBTableView1Max_chelovek: TcxGridDBColumn;

cxGrid3DBTableView1ObS: TcxGridDBColumn;

cxGrid1DBTableView1Kod_posetitelya: TcxGridDBColumn;

cxGrid1DBTableView1Familiya: TcxGridDBColumn;

cxGrid1DBTableView1Imya: TcxGridDBColumn;

cxGrid1DBTableView1Otchestvo: TcxGridDBColumn;

MainMenu1: TMainMenu;

N1: TMenuItem;

N101: TMenuItem;

DBNavigator6: TDBNavigator;

Label9: TLabel;

N2: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

105

N3: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure FilterClick(Sender: TObject);

procedure cxGrid1DBTableView1FocusedRecordChanged(

Sender: TcxCustomGridTableView; APrevFocusedRecord,

AFocusedRecord: TcxCustomGridRecord;

ANewItemRecordFocusingChanged: Boolean);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure N101Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

106

var

Form1: TForm1;

Zakladka: TBookMark;

implementation

uses unit2, Unit3, Unit4;

{$R *.dfm}

procedure filter1;

begin

with DM do begin

if Q3posetiteli.Active then begin

if Form1.Filter.ItemIndex=1 then begin

Q2zapis.Close;

Q2zapis.SQL.Clear;

Q2zapis.SQL.Add('select * from Zapis');

if (not Q3posetiteli.IsEmpty) and (not (Q3posetiteli.State in [dsInsert,dsEdit])) then

Q2zapis.SQL.Add('where

Kod_posetitelya='+Q3posetiteli.FieldByName('Kod_posetitelya').AsString);

Q2zapis.Open;

end

else begin

Q2zapis.Close;

Q2zapis.SQL.Clear;

Q2zapis.SQL.Add('select * from Zapis');

Q2zapis.Open;

end;

Источник: https://baza.diplomsite.ru/previewfile/655

Смотрите также:







Изложение содержания дела, по которому приняты судебные постановления
_-___-~1
_1-тема-СтрМетал
_10_Эмиль Золя для эл версии