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

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





. DBGrid1. DataSource: = for mВі . DataSource1; mВі < span align = "justify">. Show;. Hide;; TForm1. FormShow (Sender: TObject);

begin

// вирівнювання форми по центру екрана

left: = (screen. Width-Width) div 2;: = (Screen. Height-Height) div 2;; TForm1. Button5Click (Sender: TObject);. ADOQuery1.SQL. Clear;. ADOQuery1.SQL. Text: = ('select * from polzovateli');. ADOQuery1. Active: = true;. ADOQuery1. Active: = true;. DBGrid1. DataSource: = form8. DataSource1;. Show;. Hide;; TForm1. FormClose (Sender: TObject; var Action: TCloseAction); MessageBox (0, 'Ви дійсно хочете вийти', 'Закриття', MB_YESNO or MB_ICONQUESTION) = 7 then: = caNone;;. Unit2;, Messages, SysUtils, Variants, Classes , Graphics, Controls, Forms,, StdCtrls, DB, ADODB, Grids, DBGrids, XPMan, Comobj; mВІ = class (TForm): TDataSource ;: TDBGrid;: TADOConnection;: TADOQuery;: TButton;: TButton;: TButton;: TADOQuery;: TADOQuery;: TXPManifest;: TButton; Button3Click (Sender: TObject); Button2Click (Sender: TObject); Button1Click (Sender: TObject ); FormShow (Sender: TObject); Button4Click (Sender: TObject);

{Private declarations}

{Public declarations}; mВІ : TFor mВІ ; Unit1, Unit4, Unit5;

{$ R *. dfm} TFor mВІ . Button3Click (Sender: TObject);. Show; mВІ . Hide;; TFor mВІ < span align = "justify">. Button2Click (Sender: TObject); id: integer;

// видалення записів з hardlist: = adoquery1. FieldByName ('id'). AsInteger;. Close;. SQL. Text: = 'Delete from hardlist where id =' + IntToStr (id) + ';';. ExecSQL;. Close; 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; ');. DataSet: = ADOQuery1;. Active: = true;. DataSource: = DataSource1;. Open;

if MessageBox (Handle, 'Видалити?', 'Вилучення', MB_YESNO or MB_ICONQUESTION) = 6 then// (умова на видалення, висновок вікна з підтвердженням на видалення)


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





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

  • Реферат на тему: Phonetic peculiarities of the popular science text
  • Реферат на тему: Grammar of the Text: its Basic Units and Main Features (based on the novel ...
  • Реферат на тему: Технології аналізу даних (Text Mining, Data Mining)
  • Реферат на тему: Техніка для видалення пилу з поверхонь
  • Реферат на тему: Видалення невидимих ??ліній і поверхонь