Пояснительная записка к курсовой работе по дисциплине «технологии программирования»

Скачать 218.5 Kb.

Название	Пояснительная записка к курсовой работе по дисциплине «технологии программирования»
страница	6/6
Дата публикации	25.06.2013
Размер	218.5 Kb.
Тип	Пояснительная записка

www.vbibl.ru > Информатика > Пояснительная записка

1 2 3 4 5 6

Edit6: TEdit;

Edit7: TEdit;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

ADOQuery4: TADOQuery;

ADOQuery5: TADOQuery;

ADOTable1: TADOTable;

ADOTable2: TADOTable;

ADOTable3: TADOTable;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Otchet: TOtchet;
implementation
{$R *.dfm}
procedure TOtchet.BitBtn1Click(Sender: TObject);

begin

ADOQuery4.Parameters.ParamByName('0').Value:=Edit1.Text;

ADOQuery4.Parameters.ParamByName('1').Value:=Edit2.Text;

ADOQuery4.Parameters.ParamByName('2').Value:=Edit3.Text;

ADOQuery4.Parameters.ParamByName('3').Value:=Edit4.Text;

ADOQuery4.Parameters.ParamByName('4').Value:=Edit5.Text;

ADOQuery4.Parameters.ParamByName('5').Value:=Edit6.Text;

ADOQuery4.Parameters.ParamByName('6').Value:=Edit7.Text;

ADOQuery4.ExecSQL;

DataSource3.DataSet.Active:=False;

DataSource3.DataSet.Active:=True;

end;
procedure TOtchet.BitBtn2Click(Sender: TObject);

begin

ADOQuery5.Parameters.ParamByName('0').Value:=Edit1.Text;

ADOQuery5.ExecSQL;

DataSource3.DataSet.Active:=False;

DataSource3.DataSet.Active:=True;

end;
end.
unit Unit6;
interface
uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;
type

TChek = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

private

{ Private declarations }

public

{ Public declarations }

end;
var

Chek: TChek;
implementation
{$R *.dfm}
end.
unit Unit7;
interface
uses

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

Dialogs;
type

TFrame7 = class(TFrame)

private

{ Private declarations }

public

{ Public declarations }

end;
implementation
{$R *.dfm}
end.
unit Unit8;
interface
uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB;
type

TKlientu = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

private

{ Private declarations }

public

{ Public declarations }

end;
var

Klientu: TKlientu;
implementation
{$R *.dfm}
end.
unit Unit9;
interface
uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons;
type

TSotrudniki = class(TForm)

ADOConnection1: TADOConnection;

DataSource1: TDataSource;

ADOQuery1: TADOQuery;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

BitBtn1: TBitBtn;

BitBtn3: TBitBtn;

ADOTable1: TADOTable;

ADOQuery3: TADOQuery;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label4: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;
var

Sotrudniki: TSotrudniki;
implementation
{$R *.dfm}
procedure TSotrudniki.BitBtn1Click(Sender: TObject);

begin

ADOQuery1.Parameters.ParamByName('a').Value:=Edit1.Text;

ADOQuery1.Parameters.ParamByName('b').Value:=Edit2.Text;

ADOQuery1.Parameters.ParamByName('c').Value:=Edit3.Text;

ADOQuery1.Parameters.ParamByName('d').Value:=Edit4.Text;

ADOQuery1.Parameters.ParamByName('e').Value:=Edit5.Text;

ADOQuery1.Parameters.ParamByName('f').Value:=Edit6.Text;

ADOQuery1.Parameters.ParamByName('g').Value:=Edit7.Text;

ADOQuery1.ExecSQL;

DataSource1.DataSet.Active:=False;

DataSource1.DataSet.Active:=True;

end;
procedure TSotrudniki.BitBtn3Click(Sender: TObject);

begin

ADOQuery3.Parameters.ParamByName('a').Value:=Edit1.Text;

ADOQuery3.ExecSQL;

DataSource1.DataSet.Active:=False;

DataSource1.DataSet.Active:=True;

end;
end.
unit Unit10;
interface
uses

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

Dialogs, DB, ExtCtrls, DBCtrls, Grids, DBGrids, ADODB;
type

TNaGarantii = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DataSource1: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;
var

NaGarantii: TNaGarantii;
implementation
{$R *.dfm}
end.
unit Unit11;
interface
uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, TeEngine, Series,

TeeProcs, Chart, DbChart;
type

TPribul = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBChart1: TDBChart;

Series1: TBarSeries;

private

{ Private declarations }

public

{ Public declarations }

end;
var

Pribul: TPribul;
implementation
{$R *.dfm}
end.
unit Unit12;
interface
uses

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

Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, DB, ADODB, TeEngine,

TeeFunci, Series, TeeProcs, Chart, DbChart;
type

TCenaRem = class(TForm)

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBChart1: TDBChart;

Series1: TPieSeries;

Series2: TPieSeries;

Series3: TPieSeries;

Series4: TPieSeries;

TeeFunction1: TAddTeeFunction;

private

{ Private declarations }

public

{ Public declarations }

end;
var

CenaRem: TCenaRem;
implementation
{$R *.dfm}
end.
unit Unit13;
interface
uses

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

Dialogs, QRCtrls, DB, ADODB, QuickRpt, ExtCtrls;
type

TPechKvit = class(TForm)

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

QuickRep1: TQuickRep;

DetailBand1: TQRBand;

ADOQuery1: TADOQuery;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRDBText7: TQRDBText;

QRDBText8: TQRDBText;

QRLabel1: TQRLabel;

QRLabel2: TQRLabel;

QRLabel3: TQRLabel;

QRLabel4: TQRLabel;

QRLabel5: TQRLabel;

QRLabel6: TQRLabel;

QRLabel7: TQRLabel;

QRLabel8: TQRLabel;

QRLabel9: TQRLabel;

QRDBText9: TQRDBText;

QRRichText1: TQRRichText;

QRRichText2: TQRRichText;

QRRichText3: TQRRichText;

PageFooterBand1: TQRBand;

QRSysData1: TQRSysData;

private

{ Private declarations }

public

{ Public declarations }

end;
var

PechKvit: TPechKvit;
implementation
{$R *.dfm}
end.
unit Unit14;
interface
uses

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

Dialogs, ExtCtrls, QuickRpt, QRCtrls, DB, ADODB, Grids, DBGrids;
type

TPechChek = class(TForm)

QuickRep1: TQuickRep;

DetailBand1: TQRBand;

ADOConnection1: TADOConnection;

ADOQuery1: TADOQuery;

PageHeaderBand1: TQRBand;

QRDBText1: TQRDBText;

QRDBText2: TQRDBText;

QRDBText3: TQRDBText;

QRLabel1: TQRLabel;

QRDBText4: TQRDBText;

QRDBText5: TQRDBText;

QRDBText6: TQRDBText;

QRLabel4: TQRLabel;

QRLabel3: TQRLabel;

QRLabel2: TQRLabel;

QRLabel10: TQRLabel;

QRLabel9: TQRLabel;

QRLabel5: TQRLabel;

QRSysData1: TQRSysData;

private

{ Private declarations }

public

{ Public declarations }

end;
var

PechChek: TPechChek;
implementation
{$R *.dfm}
end.

1 2 3 4 5 6

Похожие:

	Пояснительная записка к курсовой работе по дисциплине «Алгоритмизация... Сеть книжных магазинов. – Челябинск: юурГУ, ЭиП-208, 2012. – 50 с., 13 ил., 1 прил		Пояснительная записка к курсовой работе по дисциплине «Интеллектуальные подсистемы сапр» Пояснительная записка к курсовой работе 10 страниц, 2 рисунка, 1 таблица, 3 источника
	Пояснительная записка к курсовой работе по дисциплине «Теория языков... Представление основных операторов(описанных в разделе семантики) с помощью тетрад 34		Отчет по лабораторной работе по дисциплине "Технологии программирования"... Пояснительная записка: с., рис., схем программ и алгоритмов, библиограф. Источник, приложения
	Методические указания к курсовой работе по дисциплине " системы программирования " Киев -2002 Целью курсовой работы по дисциплине "Системы программирования" является закрепление теоретического материала и приобретение практических...		Пояснительная записка к курсовой работе по курсу «Теория языков программирования... Язык программирования — формальная знаковая система, предназначенная для записи компьютерных программ. Язык программирования определяет...
	Пояснительная записка к курсовой работе по дисциплине «Теория электрической связи» Целью курсовой работы является получение навыков по вычислению параметров системы связи, анализу полученных результатов, а также...		Пояснительная записка к курсовой работе по дисциплине «Автоматические... Расчет допускаемой тормозной силы из условия безъюзного торможения подвижного состава
	«Портативный радиоприёмник средних волн» Пояснительная записка к... Санкт-Петербургский Государственный Университет Аэрокосмического Приборостроения (СПб гуап)		Руководство к оформлению пояснительной записке к курсовой работе... Руководство к оформлению пояснительной записке к курсовой работе по курсу «Технологии и языки программирования» для студентов первого...

Вы можете разместить ссылку на наш сайт:
Школьные материалы