elphi/М.Є. Фленов.- СПб .: БХВ-Петербург, 2008. - 800 с.
Додаток
Вхідні і вихідні документи
До вхідних даних відносяться:
1) афіша;
2) історія театру;
3) театр сьогодні;
4) координати;
) партнери;
) база даних bd.mdb.
Малюнок 32 - Афіша
Малюнок 33 - Історія театру
Малюнок 34 - Театр сьогодні
Малюнок 35 - Координати
Малюнок 36 - Партнери
Малюнок 37 - База даних «bd.mdb» таблиця «Афіша»
Малюнок 38 - База даних «bd.mdb» таблиця «Репертуар»
Малюнок 33 - База даних «bd.mdb» таблиця «Трупа»
Текст програми
unit main;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, DB, ADODB, Grids, DBGrids, ExtCtrls, DBCtrls,
StdCtrls, Mask, Buttons, comobj, RpRave, RpDefine, RpCon, RpConDS, XPMan,
ImgList, jpeg, RpBase, RpSystem, PrnDbgeh, GridsEh, DBGridEh, VidGrab,
MPlayer, ShellCtrls, ExtDlgs, OleCtrls, SHDocVw;
Theade=class (TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet3: TTabSheet;
XPManifest1: TXPManifest;
Timer1: TTimer;
ts1: TTabSheet;
image2: TImage;
label32: TLabel;
label33: TLabel;
label34: TLabel;
label35: TLabel;
label36: TLabel;
label37: TLabel;
ts2: TTabSheet;
image3: TImage;
label38: TLabel;
Edit1: TEdit;
label39: TLabel;
cbb1: TComboBox;
Button8: TButton;
il1: TImageList;
image4: TImage;
label2: TLabel;
label3: TLabel;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOTable1: TADOTable;
ComboBox1: TComboBox;
dbnvgr1: TDBNavigator;
label6: TLabel;
label7: TLabel;
label8: TLabel;
label9: TLabel;
label10: TLabel;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
RadioButton3: TRadioButton;
RadioButton4: TRadioButton;
RadioButton5: TRadioButton;
Button1: TButton;
Button2: TButton;
DBGridEh1: TDBGridEh;
PrintDBGridEh1: TPrintDBGridEh;
ts5: TTabSheet;
OpenDialog1: TOpenDialog;
Timer2: TTimer;
ProgressBar1: TProgressBar;
MediaPlayer1: TMediaPlayer;
Panel1: TPanel;
image6: TImage;
ListBox1: TListBox;
btn1: TBitBtn;
btn2: TBitBtn;
btn3: TBitBtn;
btn4: TBitBtn;
ts6: TTabSheet;
image7: TImage;
btn5: TBitBtn;
Button3: TButton;
grp1: TGroupBox;
RadioButton6: TRadioButton;
RadioButton7: ??TRadioButton;
label4: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Button4: TButton;
Button5: TButton;
ADOQuery1: TADOQuery;
procedure FormCloseQuery (Sender: TObject; var CanClose: Boolean);
procedure Timer1Timer (Sender: TObject);
procedure label32Click (Sender: TObject);
