Предыдущая страница реферата | 17  18  19  20  21  22  23  24  25  26  27 | Следующая страница реферата

Chart1.Gradient.EndColor:=ColorDialog1.Color;

Chart1.Gradient.StartColor:=clWhite; end; end;

end.

Модуль 6.
Код этого модуля отвечает за окно и сам процесс создания локальной базы данных. unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, DB, DBTables;

type
TForm6 = class(TForm)

Panel1: TPanel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel; procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end;

var
Form6: TForm6;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm6.BitBtn1Click(Sender: TObject); begin
ModalResult:=mrNo; end;

procedure TForm6.BitBtn2Click(Sender: TObject); var
Comm:TStringList;

begin try with Form1.Table1 do begin

Active := False;

DatabaseName := 'Olymp';

TableType := ttParadox;

TableName := Edit1.Text; if not Form1.Table1.Exists then begin with FieldDefs do begin

Clear; with AddFieldDef do begin

Name := 'Counter';

DataType := ftInteger;

Required := True; end; with AddFieldDef do begin

Name := 'FIO';

DataType := ftString;

Size := 25; end; with AddFieldDef do begin

Name := 'MARK1';

DataType := ftFloat;

Required := True; end; with AddFieldDef do begin

Name := 'MARK2';

DataType := ftFloat;

Required := True; end; with AddFieldDef do begin

Name := 'MARK3';

DataType := ftFloat;

Required := True; end; with AddFieldDef do begin

Name := 'MARK4';

DataType := ftFloat;

Required := True; end; with AddFieldDef do begin

Name := 'MARK5';

DataType := ftFloat;

Рекомендуем скачать другие рефераты по теме: реферат,, развитие россии реферат.



Предыдущая страница реферата | 17  18  19  20  21  22  23  24  25  26  27 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки