Год сдачи: 2015 Информация о файлах в архиве: програма, исходник Краткое описание курсовой работы Дана програма предозначена для телефоного довідника, вона має пошук, редагування додавання вилучення даних із Бази даних Содержание курсовой работы type
TForm1 = class(TForm)
BookName: TADOConnection;
BookTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
PopupMenu1: TPopupMenu;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
ImageList1: TImageList;
StatusBar1: TStatusBar;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton3: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
FamiliaEdit: TEdit;
TelePhoneEdit: TEdit;
BitBtn1: TBitBtn;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N4: TMenuItem;
DBGrid2: TDBGrid;
VulTabale: TADOTable;
DataSource2: TDataSource;
label3: TLabel;
KodVulEdit: TEdit;
BitBtn2: TBitBtn;
N19: TMenuItem;
N20: TMenuItem;
c1: TMenuItem;
N3: TMenuItem;
N5: TMenuItem;
SMS1: TMenuItem;
Djuice1: TMenuItem;
MTC1: TMenuItem;
Life1: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
procedure N9Click(Sender: TObject);
procedure ToolButton8Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure c1Click(Sender: TObject);
procedure Djuice1Click(Sender: TObject);
procedure MTC1Click(Sender: TObject);
procedure Life1Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure N24Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4;
{$R *.dfm}
procedure TForm1.N9Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.ToolButton8Click(Sender: TObject);
begin
Close;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if (FamiliaEdit.Text='') and (TelePhoneEdit.Text='') then
MessageDlg('Âè íåâåëè ïîòð³áíó âàì ³íôîðìàö³þ ÿêó âè Øóêà¿òå...!', mtInformation ,[mbOK],0)
else
if (not BookTable1.Locate('ÔÈÎ',FamiliaEdit.Text,[loCaseInsensitive, loPartialKey]))then
if(not BookTable1.Locate('Òåëåôîí',TelePhoneEdit.Text,[loCaseInsensitive, loPartialKey])) then
MessageDlg('Çàïèñ íå çíàéäåíèé ...', mtError ,[mbOK],0);
end;
Знаете ли вы что? Лето, жара, дача и конечно же постоянные проблемы со светом. Однако, этой проблеме дали отбой бензиновые электростанции. Такие элетростанции обеспечат электроэнергией вашу дачу, соседскую палатку, или заведут водяные насосы что бы наполнить ваш бассейн. Уже сейчас по удивительно низкой цене можно заказать подобно рода электростанции на сайте кувалда.ру. |