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

Реферат Розробка системи збереження результатів анкетування в базі даних MS SQL Server





о дозволяє заносити дані анкетування в базу даних MS SQL. Також була докладно розглянута реалізація програми


Список використаної літератури


1.Программірованіе в Delphi. Підручник з класичним теоріям Delphi. - ТОВ В«Біном-ПрессВ» 2006р. p> 2.Разработка клієнт-серверних додатків в Delphi <# "justify"> Додаток А (обов'язковий)


Лістинг програми

program Anketa;

uses, in 'MainForm.pas' {Form1}, in 'Unit1.pas' {AboutForm}, in 'Unit2.pas' {InfoForm};

{$ R *. res}. Initialize;. Title: = 'Анкета';. CreateForm (TForm1, Form1);. CreateForm (TAboutForm, AboutForm);. Run;. MainForm;, Messages , SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Grids, DBGrids, DB, ADODB,, ComCtrls, Menus, Vcl.XPMan; = class (TForm): TDataSource;: TADOQuery;: TDBGrid;: TButton; : TLabel;: TLabel;: TLabel;: TEdit;: TEdit;: TEdit;: TRadioGroup;: TLabeledEdit;: TLabeledEdit;: TLabel;: TComboBox;: TLabel;: TComboBox;: TLabel;: TComboBox;: TRichEdit;: TLabel ;: TLabeledEdit;: TRichEdit;: TLabel;: TComboBox;: TLabel;: TLabeledEdit;: TRichEdit;: TLabel;: TLabel;: TComboBox;: TLabeledEdit;: TPanel;: TRadioGroup;: TPanel;: TPanel;: TPanel;: TButton;: TButton;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem; PriorButtonClick (Sender: TObject); NextButtonClick (Sender: TObject); FormCreate (Sender: TObject); SaveButtonClick (Sender : TObject); BdataKeyPress (Sender: TObject; var Key: Char); N5Click (Sender: TObject); N1Click (Sender: TObject); N3Click (Sender: TObject); N2Click (Sender: TObject);

{Private declarations}: integer;;: TForm1;: integer;// номер активної панелі: boolean; Unit1, Unit2;

{$ R *. dfm} definitionId: integer ;//повертає значення наступного ID анкети.ado.SQL.Clear;. ado.SQL.Text: = 'select id from table_1 ORDER BY id ASC ; ';. ado.open;. ado.Last;: = Form1.ado.Fields [0]. value +1; result: = 1;;; NewANKETA;. FormCreate (Form1); Form1 of

:

:

:

: TObject); l> 1 then l: = l-1; (l);; TForm1.NextButtonClick (Sender: TObject);: boolean;: = false; l <4 then l: = l +1; l of

: beginPolgroup.ItemIndex = -1 then begin ShowMessage ('Ви не вказали підлогу!'); error: = true; end; (Bdata.Text); (0, 'Невірний формат дати!' + # 13 # 10 + 'Приклад правильного введення' + # 13 # 10 + '01 .01.2012 ',' Невірна дата ', MB_Ok or MB_ICONERROR);: = true;. Clear;; error then l: = 1;;

: beginTimeGamebox.ItemIndex = -1 then begin ShowMessage ('Ви не вказали скільки часу витрачаєте на ігри!'); error: = true; end; OpitGamebox.ItemIndex = -1 then begin ShowMessage (' Ви не вказали як ви оцінюєте св...


Назад | сторінка 5 з 7 | Наступна сторінка





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

  • Реферат на тему: Розробка проекту в інтегрованому середовищі розробки додатків Delphi &Додат ...
  • Реферат на тему: Розробка програми на мові програмування Delphi
  • Реферат на тему: Розробка програми на Delphi для вирішення транспортної задачі
  • Реферат на тему: Реалізація засобами мови програмування Delphi програми "Файловий менед ...
  • Реферат на тему: Розробка додатка в середовищі Delphi, що взаємодіє з базами даних в Access