о дозволяє заносити дані анкетування в базу даних 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 (' Ви не вказали як ви оцінюєте св...
