Разработка проекта «Автоматизированная записная книжка» с помощью СУБД Microsoft Office Access 2003, страница 4

2.  Курс лекций по  MySQL – 2010

3.  www.delphiexpert.ru

4.  www.delphi-manual.ru

5.  www.delphibasics.ru

6.  www.delphidevelop.ru

7.  www.delphi.int.ru

 

ПРИЛОЖЕНИЕ А. ИСПОЛНЯЕМЫЙ КОД ПРОГРАММНЫХ МОДУЛЕЙ СИСТЕМЫ

1.  conect, форма DataModule2.

Обеспечивает связь программы с базой данных, используя SQL-запросы.

unit conect;

interface

uses

  SysUtils, Classes, DB, ADODB;

type

  TDataModule2 = class(TDataModule)

    ADOConnection1: TADOConnection;              

    DataSource1: TDataSource;                             

    ADOQuery1: TADOQuery;

    DataSource2: TDataSource;

    ADOQuery2: TADOQuery;

    DataSource3: TDataSource;

    ADOQuery3: TADOQuery;

    DataSource4: TDataSource;

    DataSource5: TDataSource;

    DataSource6: TDataSource;

    ADOQuery4: TADOQuery;

    ADOQuery5: TADOQuery;

    ADOQuery6: TADOQuery;

    DataSource7: TDataSource;

    ADOQuery7: TADOQuery;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  DataModule2: TDataModule2;

implementation

{$R *.dfm}

end.

2.  main, форма Form1.

Главное окно программы – предлагает выбрать между списком контактов и органайзером.

unit main;

interface

uses

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

  Dialogs, StdCtrls, conect, kont_main, org_main, org_today;

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);        //Кнопка «Контакты»

begin//при ее нажатии вызывается

form3.Show;                                               //гл. форма работы с контактами

end;                                                                       

procedure TForm1.Button2Click(Sender: TObject);        //Кнопка «Органайзер»

begin//при ее нажатии вызываются

form2.Show;                                               //гл. форма работы с органайзером

Form10.Show;                                           //и форма дел на сегодня

end;

end.

3.  kont_main, форма Form3.

Главное форма работы с контактами – выводится все контакты, открывается при нажатии на кнопку «Контакты» на главной форме программы (Form1).

unit kont_main;

interface

uses

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

  Dialogs, conect, Grids, DBGrids, StdCtrls, ExtCtrls;

type

  TForm3 = class(TForm)

    DBGrid1: TDBGrid;

    RadioGroup1: TRadioGroup;

    ComboBox1: TComboBox;

    Label1: TLabel;

    Label2: TLabel;

    RadioGroup2: TRadioGroup;

    Edit1: TEdit;

    Label3: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    ComboBox2: TComboBox;

    Label4: TLabel;

    Label5: TLabel;

    procedure Width_col();

    procedure FormActivate(Sender: TObject);

    procedure RadioGroup1Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure RadioGroup2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure ComboBox2Change(Sender: TObject);

  private

{ Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

uses kont_del, kont_add, kont_upd;

{$R *.dfm}

procedure TForm3.Width_col();                  //Процедуравыравниваниестолбцов

begin//в таблице

  form3.DBGrid1.Columns.Items[0].Visible:=false;

  form3.DBGrid1.Columns.Items[1].Width:=100;

  form3.DBGrid1.Columns.Items[2].Width:=70;

  form3.DBGrid1.Columns.Items[3].Width:=70;

  form3.DBGrid1.Columns.Items[4].Width:=70;

  form3.DBGrid1.Columns.Items[5].Width:=100;

  form3.DBGrid1.Columns.Items[6].Width:=100;