Курсовая работа: Автоматизация работы паспортного стола

Создание прототипа базы данных или приложения с пользовательским интерфейсом отражено в листинге программы. Это программный код поэтапной разработки приложения на языке Delphi.

unit MUnit 1; // Модуль главной формы

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, DB, ADODB, XPMan;

type

TForm1 = class(TForm)

BitBtn1: TBitBtn;

XPManifest1: TXPManifest;

ADOConnection1: TADOConnection;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Button1: TButton;

procedure BitBtn1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

Uses MUnit2, MUnit3;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

begin