Теми рефератів
> Реферати > Курсові роботи > Звіти з практики > Курсові проекти > Питання та відповіді > Ессе > Доклади > Учбові матеріали > Контрольні роботи > Методички > Лекції > Твори > Підручники > Статті Контакти
Реферати, твори, дипломи, практика » Курсовые обзорные » Створення ІС з обліку відомостей про обчислювальної техніки на підприємстві

Реферат Створення ІС з обліку відомостей про обчислювальної техніки на підприємстві





сурс]. Режим доступу: # "justify"> 10. Конноллі. Т.Л. Бази даних: проектування, реалізація і супровід, Т.Л. Конноллі. - Теорія і практика, 2-е вид. - М.: Видавничий дім «³льямсВ», 2001. - 405 с.



Додаток А


Код програми

unit Unit1;

interface, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, XPMan; = class (TForm): TButton;: TButton;: TButton;: TButton;: TButton;: TXPManifest; Button4Click (Sender: TObject); Button3Click (Sender: TObject); Button1Click (Sender: TObject); Button2Click (Sender: TObject); FormShow (Sender: TObject); Button5Click (Sender: TObject); FormClose (Sender: TObject; var Action: TCloseAction);

{Private declarations}

{Public declarations};: TForm1; Unit4, Unit2, Unit3, Unit8;

{$ R *. dfm} TForm1. Button4Click (Sender: TObject);;; TForm1. Button3Click (Sender: TObject);

// вибірка в таблицю roomlist.ADOQuery1.SQL. Clear;. ADOQuery1.SQL. Text: = ('select * from roomlist');. ADOQuery1. Active: = true;. ADOQuery1. Active: = true;. DBGrid1. DataSource: = form4. DataSource1;. Show;. Hide;; TForm1. Button1Click (Sender: TObject);

// вибірка в таблицю hardlist mВІ . ADOQuery1.SQL. Clear; mВІ . ADOQuery1.SQL. Text: = ('SELECT hardlist.id, hardtype.name, hardlist.serial, hardlist.invent, roomlist.number, Polzovateli.FIO'); mВІ < span align = "justify">. ADOQuery1.SQL.add ('FROM hardtype INNER JOIN (roomlist INNER JOIN (Polzovateli INNER JOIN hardlist ON Polzovateli.id = hardlist.FIO) ON roomlist.id = hardlist.room) ON hardtype.id = hardlist.tupe; '); mВІ . ADOQuery1. Active: = true; mВІ . ADOQuery1. Active: = true; mВІ . DBGrid1. DataSource: = for mВІ . DataSource1; mВІ < span align = "justify">. Show;. Hide;; TForm1. Button2Click (Sender: TObject);

//// вибірка в таблицю hardtype mВі . ADOQuery1.SQL. Clear; mВі . ADOQuery1.SQL. Text: = ('select * from hardtype'); mВі . ADOQuery1. Active: = true; mВі . ADOQuery1. Active: = true; mВі ...


Назад | сторінка 9 з 17 | Наступна сторінка





Схожі реферати:

  • Реферат на тему: Статистична вибірка
  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Маркетингові дослідження і розробка плану маркетингу "Clean and Clear& ...
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...