Автоматизация работы аквапарка
Концепция программной среды Delphi и её преимущества. Ключевые понятия языка С++. Построение информационной модели предметной области, описание полей таблиц базы данных, листинг программы. Создание меню, реализующего функции информационной системы.
Рубрика | Программирование, компьютеры и кибернетика |
Вид | курсовая работа |
Язык | русский |
Дата добавления | 28.01.2016 |
Размер файла | 1,1 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
begin
Form2.Visible:=False;
Form4.Visible:=True;
end;
procedure TForm2.N4Click(Sender: TObject);
begin
Form2.Visible:=False;
Form5.Visible:=True;
end;
procedure TForm2.BitBtn6Click(Sender: TObject);
begin
ADOTable1.First;
end;
procedure TForm2.BitBtn7Click(Sender: TObject);
begin
ADOTable1.Prior;
end;
procedure TForm2.BitBtn8Click(Sender: TObject);
begin
ADOTable1.Next;
end;
procedure TForm2.BitBtn9Click(Sender: TObject);
begin
ADOTable1.Last;
end;
procedure TForm2.RadioGroup1Click(Sender: TObject);
begin
Form2.ADOTable1.Filtered:=false;
case radiogroup1.ItemIndex of
0:begin
po:='Фамилия';
Form2.ADOTable1.Filtered:=true;
end;
1:begin
po:='Год рождения' ;
Form2.ADOTable1.Filtered:=true;
end;
2:begin
po:='Возраст';
Form2.ADOTable1.Filtered:=true;
end;
end;
end;
procedure TForm2.ADOTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
case radiogroup1.ItemIndex of
0:Accept:=DataSet[po]=Edit6.Text;
1:Accept:=DataSet[po]=Edit6.Text;
2:Accept:=DataSet[po]=Edit6.Text;
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ComCtrls, Menus,
jpeg, ExtCtrls;
type
TForm3 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
CheckBox9: TCheckBox;
CheckBox10: TCheckBox;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
GroupBox4: TGroupBox;
GroupBox5: TGroupBox;
MonthCalendar1: TMonthCalendar;
BitBtn1: TBitBtn;
GroupBox7: TGroupBox;
GroupBox8: TGroupBox;
CheckBox11: TCheckBox;
CheckBox12: TCheckBox;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
ADOTable1DSDesigner: TWideStringField;
ADOTable1DSDesigner2: TWideStringField;
ADOTable1DSDesigner3: TWideStringField;
ADOTable1DSDesigner4: TWideStringField;
ADOTable1DSDesigner5: TWideStringField;
ADOTable1DSDesigner6: TWideStringField;
ADOTable1DSDesigner7: TWideStringField;
ADOTable1DSDesigner8: TWideStringField;
ADOTable1DSDesigner9: TWideStringField;
ADOTable1DSDesigner10: TWideStringField;
ADOTable1DSDesigner11: TDateTimeField;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
BitBtn6: TBitBtn;
Button1: TButton;
Edit6: TEdit;
BitBtn7: TBitBtn;
Label3: TLabel;
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure CheckBox4Click(Sender: TObject);
procedure CheckBox5Click(Sender: TObject);
procedure CheckBox6Click(Sender: TObject);
procedure CheckBox7Click(Sender: TObject);
procedure CheckBox8Click(Sender: TObject);
procedure CheckBox9Click(Sender: TObject);
procedure CheckBox10Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure CheckBox11Click(Sender: TObject);
procedure CheckBox12Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
po: string;
implementation
uses Unit4, Unit2, Unit5, Unit1, Unit8, Unit7, Unit9;
{$R *.dfm}
procedure TForm3.CheckBox1Click(Sender: TObject);
begin
if (Form3.CheckBox1.Checked=False)and(Form3.CheckBox2.Checked=False)
then Form3.CheckBox1.Checked:=True;
if Form3.CheckBox1.Checked=True then
begin
Form3.CheckBox2.Checked:=False;
Form4.ADOTable1.First;
Form4.ADOTable1.MoveBy(1);
Form4.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
end;
end;
procedure TForm3.CheckBox2Click(Sender: TObject);
begin
Form4.Edit1.Text:='0';
if (Form3.CheckBox1.Checked=False)and(Form3.CheckBox2.Checked=False)
then Form3.CheckBox2.Checked:=True;
if Form3.CheckBox2.Checked=True then
begin
Form3.CheckBox1.Checked:=False;
end;
end;
procedure TForm3.CheckBox3Click(Sender: TObject);
begin
if (Form3.CheckBox3.Checked=False)and(Form3.CheckBox4.Checked=False)
then Form3.CheckBox3.Checked:=True;
if Form3.CheckBox3.Checked=True then
begin
Form3.CheckBox4.Checked:=False;
Form4.ADOTable1.First;
Form4.ADOTable1.MoveBy(2);
Form4.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
end;
end;
procedure TForm3.CheckBox4Click(Sender: TObject);
begin
Form4.Edit2.Text:='0';
if (Form3.CheckBox3.Checked=False)and(Form3.CheckBox4.Checked=False)
then Form3.CheckBox4.Checked:=True;
if Form3.CheckBox4.Checked=True then
begin
Form3.CheckBox3.Checked:=False;
end;
end;
procedure TForm3.CheckBox5Click(Sender: TObject);
begin
if (Form3.CheckBox5.Checked=False)and(Form3.CheckBox6.Checked=False)
then Form3.CheckBox5.Checked:=True;
if Form3.CheckBox5.Checked=True then
begin
Form3.CheckBox6.Checked:=False;
Form4.ADOTable1.First;
Form4.ADOTable1.MoveBy(3);
Form4.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
end;
end;
procedure TForm3.CheckBox6Click(Sender: TObject);
begin
Form4.Edit3.Text:='0';
if (Form3.CheckBox5.Checked=False)and(Form3.CheckBox6.Checked=False)
then Form3.CheckBox6.Checked:=True;
if Form3.CheckBox6.Checked=True then
begin
Form3.CheckBox5.Checked:=False;
end;
end;
procedure TForm3.CheckBox7Click(Sender: TObject);
begin
if (Form3.CheckBox7.Checked=False)and(Form3.CheckBox8.Checked=False)
then Form3.CheckBox7.Checked:=True;
if Form3.CheckBox7.Checked=True then
begin
Form3.CheckBox8.Checked:=False;
Form4.ADOTable1.First;
Form4.ADOTable1.MoveBy(4);
Form4.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
end;
end;
procedure TForm3.CheckBox8Click(Sender: TObject);
begin
Form4.Edit4.Text:='0';
if (Form3.CheckBox7.Checked=False)and(Form3.CheckBox7.Checked=False)
then Form3.CheckBox8.Checked:=True;
if Form3.CheckBox8.Checked=True then
begin
Form3.CheckBox7.Checked:=False;
end;
end;
procedure TForm3.CheckBox9Click(Sender: TObject);
begin
if (Form3.CheckBox9.Checked=False)and(Form3.CheckBox10.Checked=False)
then Form3.CheckBox9.Checked:=True;
if Form3.CheckBox9.Checked=True then
begin
Form3.CheckBox10.Checked:=False;
end;
end;
procedure TForm3.CheckBox10Click(Sender: TObject);
begin
Form4.Edit5.Text:='0';
if (Form3.CheckBox9.Checked=False)and(Form3.CheckBox10.Checked=False)
then Form3.CheckBox10.Checked:=True;
if Form3.CheckBox10.Checked=True then
begin
Form3.CheckBox9.Checked:=False;
end;
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
var a,b,c,d,e:String;
x,ccc:Real;
begin
a:=Form4.Edit1.Text;
b:=Form4.Edit2.Text;
c:=Form4.Edit3.Text;
d:=Form4.Edit4.Text;
e:=Form4.Edit5.Text;
x:=StrToFloat(Edit2.Text);
if CheckBox11.Checked=True then
begin
Form3.ADOTable1.Insert;
Form3.ADOTable1.FieldByName('Код билета').Value:=Form8.Edit1.Text;
Form3.ADOTable1.FieldByName('Код клиента').Value:=Form8.Edit1.Text;
if Form3.CheckBox1.Checked=True then Form3.ADOTable1DSDesigner3.Value:=CheckBox1.Caption;
if Form3.CheckBox2.Checked=True then Form3.ADOTable1DSDesigner3.Value:=CheckBox2.Caption;
if Form3.CheckBox3.Checked=True then Form3.ADOTable1DSDesigner4.Value:=CheckBox3.Caption;
if Form3.CheckBox4.Checked=True then Form3.ADOTable1DSDesigner4.Value:=CheckBox4.Caption;
if Form3.CheckBox5.Checked=True then Form3.ADOTable1DSDesigner5.Value:=CheckBox5.Caption;
if Form3.CheckBox6.Checked=True then Form3.ADOTable1DSDesigner5.Value:=CheckBox6.Caption;
if Form3.CheckBox7.Checked=True then Form3.ADOTable1DSDesigner6.Value:=CheckBox7.Caption;
if Form3.CheckBox8.Checked=True then Form3.ADOTable1DSDesigner6.Value:=CheckBox8.Caption;
if Form3.CheckBox9.Checked=True then Form3.ADOTable1DSDesigner7.Value:=CheckBox9.Caption;
if Form3.CheckBox10.Checked=True then Form3.ADOTable1DSDesigner7.Value:=CheckBox10.Caption;
if Form3.CheckBox11.Checked=True then Form3.ADOTable1DSDesigner8.Value:=CheckBox11.Caption;
if Form3.CheckBox12.Checked=True then Form3.ADOTable1DSDesigner8.Value:=CheckBox12.Caption;
Form3.ADOTable1.FieldByName('Процент скидки').Value:=Edit2.Text;
Form3.ADOTable1.FieldByName('Дата покупки').Value:=Form3.MonthCalendar1.Date;
Form3.ADOTable1.FieldByName('Цена').Value:=FloatToStr((StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e)-(StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e))/100*x)); //FloatToStr(StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e)-FloatToStr(StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e)/100*x);
Form3.ADOTable1.Post;
Form5.ADOTable1.Insert;
Form5.ADOTable1.FieldByName('Код клиента').Value:=Form8.Edit1.Text;
Form5.ADOTable1.FieldByName('Обоснование льготы').Value:=Form3.Edit1.Text;
Form5.ADOTable1.FieldByName('Процент скидки').Value:=Form3.Edit2.Text;
Form5.ADOTable1.Post;
end;
If CheckBox12.Checked=True then
begin
Form3.ADOTable1.Insert;
Form3.ADOTable1.FieldByName('Код билета').Value:=Form8.Edit1.Text;
Form3.ADOTable1.FieldByName('Код клиента').Value:=Form8.Edit1.Text;
if Form3.CheckBox1.Checked=True then Form3.ADOTable1DSDesigner3.Value:=CheckBox1.Caption;
if Form3.CheckBox2.Checked=True then Form3.ADOTable1DSDesigner3.Value:=CheckBox2.Caption;
if Form3.CheckBox3.Checked=True then Form3.ADOTable1DSDesigner4.Value:=CheckBox3.Caption;
if Form3.CheckBox4.Checked=True then Form3.ADOTable1DSDesigner4.Value:=CheckBox4.Caption;
if Form3.CheckBox5.Checked=True then Form3.ADOTable1DSDesigner5.Value:=CheckBox5.Caption;
if Form3.CheckBox6.Checked=True then Form3.ADOTable1DSDesigner5.Value:=CheckBox6.Caption;
if Form3.CheckBox7.Checked=True then Form3.ADOTable1DSDesigner6.Value:=CheckBox7.Caption;
if Form3.CheckBox8.Checked=True then Form3.ADOTable1DSDesigner6.Value:=CheckBox8.Caption;
if Form3.CheckBox9.Checked=True then Form3.ADOTable1DSDesigner7.Value:=CheckBox9.Caption;
if Form3.CheckBox10.Checked=True then Form3.ADOTable1DSDesigner7.Value:=CheckBox10.Caption;
if Form3.CheckBox11.Checked=True then Form3.ADOTable1DSDesigner8.Value:=CheckBox11.Caption;
if Form3.CheckBox12.Checked=True then Form3.ADOTable1DSDesigner8.Value:=CheckBox12.Caption;
Form3.ADOTable1.FieldByName('Процент скидки').Value:='-//-//-';
Form3.ADOTable1.FieldByName('Дата покупки').Value:=Form3.MonthCalendar1.Date;
ccc:=StrToFloat(a)+StrToFloat(b)+StrToFloat(c)+StrToFloat(d)+StrToFloat(e);
if Form3.ADOTable1.FieldByName('Скидка').Value = 'Да' then
Form3.ADOTable1.FieldByName('Цена').Value:=FloatToStr(ccc*(1-strtofloat(Form3.ADOTable1.FieldByName('Процент скидки').Value)))
else
Form3.ADOTable1.FieldByName('Цена').Value:=FloatToStr(ccc*(1-strtofloat(Form3.ADOTable1.FieldByName('Процент скидки').Value)));
Form3.ADOTable1.Post;
end;
end;
procedure TForm3.CheckBox11Click(Sender: TObject);
begin
if (Form3.CheckBox11.Checked=False)and(Form3.CheckBox12.Checked=False)
then
begin
Form3.CheckBox11.Checked:=True;
Form3.Edit1.Enabled:=False;
Form3.Edit2.Enabled:=False;
end;
if Form3.CheckBox11.Checked=True then
begin
Form3.Edit1.Enabled:=True;
Form3.Edit1.Color:=clWindow;
Form3.Edit2.Enabled:=True;
Form3.Edit2.Color:=clWindow;
Form3.CheckBox12.Checked:=False;
end
else
end;
procedure TForm3.CheckBox12Click(Sender: TObject);
begin
if (Form3.CheckBox11.Checked=False)and(Form3.CheckBox12.Checked=False)
then
begin
Form3.CheckBox12.Checked:=True;
Form3.Edit1.Enabled:=False;
Form3.Edit2.Enabled:=False;
end;
if Form3.CheckBox12.Checked=True then
begin
Form3.Edit1.Color:=cl3DLight;
Form3.Edit1.Enabled:=False;
Form3.Edit2.Color:=cl3DLight;
Form3.Edit2.Enabled:=False;
Form3.CheckBox11.Checked:=False;
end;
end;
procedure TForm3.BitBtn5Click(Sender: TObject);
begin
ADOTable1.Last;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
ADOTable1.First;
end;
procedure TForm3.BitBtn3Click(Sender: TObject);
begin
ADOTable1.Prior;
end;
procedure TForm3.BitBtn4Click(Sender: TObject);
begin
ADOTable1.Next;
end;
procedure TForm3.N2Click(Sender: TObject);
begin
Form3.Visible:=False;
Form1.Visible:=True;
end;
procedure TForm3.N3Click(Sender: TObject);
begin
Form3.Visible:=False;
Form4.Visible:=True;
end;
procedure TForm3.BitBtn6Click(Sender: TObject);
var WWW:string;
begin
if MessageDlg('Вы действительно хотите удалить эту запись ???',mtWarning,[mbYes,mbNo],0)=MRyes then
begin
WWW:=Form3.ADOTable1.FieldByName('Код клиента').Value;
Form3.ADOTable1.Delete;
with Form2.ADOTable1 do
begin
Form2.ADOTable1.First;
while not eof do
begin
if Form2.ADOTable1.FieldByName('Код клиента').Value=WWW then (Form2.ADOTable1.Delete);
Form2.ADOTable1.Next;
end;
end;
end;
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm3.BitBtn7Click(Sender: TObject);
begin
Form9.ADOTable1.Filtered:=false;
Form9.ADOTable1.Filter:='[Код билета]='+Form3.Edit6.Text;
Form9.ADOTable1.Filtered:=true;
Form9.QuickRep1.Preview;
Form9.ADOTable1.Filtered:=false;
Form3.Edit6.Text:='';
end;
end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, jpeg, ExtCtrls, StdCtrls, Buttons,
Menus;
type
TForm4 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Edit1: TEdit;
Edit2: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
CheckBox1: TCheckBox;
BitBtn1: TBitBtn;
Edit3: TEdit;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
procedure CheckBox1Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit2, Unit1;
{$R *.dfm}
procedure TForm4.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.Checked=False then
begin
Form4.Edit1.Enabled:=False;
Form4.Edit2.Enabled:=False;
Form4.Edit3.Enabled:=False;
Form4.Edit4.Enabled:=False;
Form4.Edit5.Enabled:=False;
//Если не поставлена галочка "Изменить" в "Тариф" то Edit 1-5 становятся др. цвета-неактивными
Form4.Edit1.Color:=cl3DLight;
Form4.Edit2.Color:=cl3DLight;
Form4.Edit3.Color:=cl3DLight;
Form4.Edit4.Color:=cl3DLight;
Form4.Edit5.Color:=cl3DLight;
//Присвоение Edit`у значения
Form4.ADOTable1.First;
Form4.Edit1.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
Form4.ADOTable1.Next;
Form4.Edit2.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
Form4.ADOTable1.Next;
Form4.Edit3.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
Form4.ADOTable1.Next;
Form4.Edit4.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
Form4.ADOTable1.Next;
Form4.Edit5.Text:=Form4.ADOTable1.FieldByName('Цена').Value;
end
else begin
Form4.Edit1.Enabled:=True;
Form4.Edit2.Enabled:=True;
Form4.Edit3.Enabled:=True;
Form4.Edit4.Enabled:=True;
Form4.Edit5.Enabled:=True;
//Если поставлена галочка "Изменить" в "Тариф" то Edit 1-5 становятся др. цвета-активными
Form4.Edit1.Color:=clWindow;
Form4.Edit2.Color:=clWindow;
Form4.Edit3.Color:=clWindow;
Form4.Edit4.Color:=clWindow;
Form4.Edit5.Color:=clWindow;
end;
end;
procedure TForm4.BitBtn1Click(Sender: TObject);
begin
Form4.ADOTable1.First;
Form4.ADOTable1.Edit;
Form4.ADOTable1.FieldByName('Цена').Value:=Form4.Edit1.Text;
Form4.ADOTable1.Post;
Form4.ADOTable1.Next;
Form4.ADOTable1.Edit;
Form4.ADOTable1.FieldByName('Цена').Value:=Form4.Edit2.Text;
Form4.ADOTable1.Post;
Form4.ADOTable1.Next;
Form4.ADOTable1.Edit;
Form4.ADOTable1.FieldByName('Цена').Value:=Form4.Edit3.Text;
Form4.ADOTable1.Post;
Form4.ADOTable1.Next;
Form4.ADOTable1.Edit;
Form4.ADOTable1.FieldByName('Цена').Value:=Form4.Edit4.Text;
Form4.ADOTable1.Post;
Form4.ADOTable1.Next;
Form4.ADOTable1.Edit;
Form4.ADOTable1.FieldByName('Цена').Value:=Form4.Edit5.Text;
Form4.ADOTable1.Post;
end;
procedure TForm4.N2Click(Sender: TObject);
begin
Form4.Visible:=False;
Form1.Visible:=True;
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB, Menus, StdCtrls, Buttons, ExtCtrls;
type
TForm5 = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
GroupBox1: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
RadioGroup1: TRadioGroup;
Edit1: TEdit;
GroupBox2: TGroupBox;
BitBtn5: TBitBtn;
Edit2: TEdit;
procedure N2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure RadioGroup1Click(Sender: TObject);
procedure ADOTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
procedure BitBtn5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
po:string;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm5.N2Click(Sender: TObject);
begin
Form5.Visible:=False;
Form1.Visible:=True;
end;
procedure TForm5.BitBtn1Click(Sender: TObject);
begin
ADOTable1.First;
end;
procedure TForm5.BitBtn2Click(Sender: TObject);
begin
ADOTable1.Prior;
end;
procedure TForm5.BitBtn3Click(Sender: TObject);
begin
ADOTable1.Next;
end;
procedure TForm5.BitBtn4Click(Sender: TObject);
begin
ADOTable1.Last;
end;
procedure TForm5.RadioGroup1Click(Sender: TObject);
begin
Form5.ADOTable1.Filtered:=false;
case radiogroup1.ItemIndex of
0:begin
po:='Обоснование льготы';
Form5.ADOTable1.Filtered:=true;
end;
1:begin
po:='Процент скидки' ;
Form5.ADOTable1.Filtered:=true;
end;
end;
end;
procedure TForm5.ADOTable1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
case RadioGroup1.ItemIndex of
0:Accept:=DataSet[po]=Edit1.Text;
1:Accept:=DataSet[po]=Edit1.Text;
end;
end;
procedure TForm5.BitBtn5Click(Sender: TObject);
begin
Form5.ADOTable1.Locate('Код клиента',Edit2.Text,[loCaseInsensitive,loPartialKey]);
end;
end.
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, QuickRpt, QRCtrls, ExtCtrls;
type
TForm6 = class(TForm)
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
PageFooterBand1: TQRBand;
QRSysData1: TQRSysData;
QRSubDetail1: TQRSubDetail;
ADOTable1: TADOTable;
DataSource1: TDataSource;
QRShape6: TQRShape;
QRDBText7: TQRDBText;
QRShape1: TQRShape;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRShape4: TQRShape;
QRShape5: TQRShape;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRSysData2: TQRSysData;
QRShape7: TQRShape;
QRShape9: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRShape8: TQRShape;
QRLabel7: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
{$R *.dfm}
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, QuickRpt, QRCtrls, ExtCtrls, DB, ADODB;
type
TForm7 = class(TForm)
QuickRep1: TQuickRep;
TitleBand1: TQRBand;
PageFooterBand1: TQRBand;
QRSysData1: TQRSysData;
QRSubDetail1: TQRSubDetail;
DataSource1: TDataSource;
ADOTable1: TADOTable;
QRDBText2: TQRDBText;
QRShape1: TQRShape;
PageHeaderBand1: TQRBand;
QRSysData2: TQRSysData;
QRLabel1: TQRLabel;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRShape13: TQRShape;
QRShape14: TQRShape;
QRShape15: TQRShape;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
QRLabel14: TQRLabel;
QRLabel15: TQRLabel;
QRLabel16: TQRLabel;
QRShape16: TQRShape;
QRShape17: TQRShape;
QRShape18: TQRShape;
QRShape19: TQRShape;
QRLabel17: TQRLabel;
QRLabel18: TQRLabel;
QRLabel19: TQRLabel;
QRLabel20: TQRLabel;
QRShape20: TQRShape;
QRShape21: TQRShape;
QRLabel21: TQRLabel;
QRLabel22: TQRLabel;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRShape22: TQRShape;
QRShape23: TQRShape;
QRShape24: TQRShape;
QRShape25: TQRShape;
QRShape26: TQRShape;
QRShape27: TQRShape;
QRShape28: TQRShape;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
QRDBText13: TQRDBText;
QRDBText14: TQRDBText;
QRDBText15: TQRDBText;
QRDBText16: TQRDBText;
QRDBText17: TQRDBText;
QRDBText18: TQRDBText;
QRDBText19: TQRDBText;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
{$R *.dfm}
end.
unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls,
Menus;
type
TForm8 = class(TForm)
Label1: TLabel;
Label10: TLabel;
Label9: TLabel;
Label8: TLabel;
Label7: TLabel;
Label6: TLabel;
BitBtn1: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm8.BitBtn1Click(Sender: TObject);
var ppp:integer;
begin
Form2.ADOTable1.Last; //перемещ. курсор на последнюю позицию
PPP:=Form2.ADOTable1.RecNo+1;
Form2.ADOTable1.Insert;
if PPP=0 then ppp:=1;
Form2.ADOTable1.Insert;
Form2.ADOTable1.FieldByName('Код клиента').Value:=Edit1.Text;
Form2.ADOTable1.FieldByName('Фамилия').Value:=Edit2.Text;
Form2.ADOTable1.FieldByName('Имя').Value:=Edit3.Text;
Form2.ADOTable1.FieldByName('Отчество').Value:=Edit4.Text;
Form2.ADOTable1.FieldByName('Год рождения').Value:=Edit5.Text;
Form2.ADOTable1.FieldByName('Возраст').Value:=IntToStr(2014-StrToInt(Form8.Edit5.Text));
Form2.ADOTable1.Post;
Form8.Close;
Form8.Edit2.Text:='';
Form8.Edit3.Text:='';
Form8.Edit4.Text:='';
Form8.Edit5.Text:='';
end;
end. unit Unit8;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls,
Menus;
type
TForm8 = class(TForm)
Label1: TLabel;
Label10: TLabel;
Label9: TLabel;
Label8: TLabel;
Label7: TLabel;
Label6: TLabel;
BitBtn1: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form8: TForm8;
implementation
uses Unit2;
{$R *.dfm}
procedure TForm8.BitBtn1Click(Sender: TObject);
var ppp:integer;
begin
Form2.ADOTable1.Last; //перемещ. курсор на последнюю позицию
PPP:=Form2.ADOTable1.RecNo+1;
Form2.ADOTable1.Insert;
if PPP=0 then ppp:=1;
Form2.ADOTable1.Insert;
Form2.ADOTable1.FieldByName('Код клиента').Value:=Edit1.Text;
Form2.ADOTable1.FieldByName('Фамилия').Value:=Edit2.Text;
Form2.ADOTable1.FieldByName('Имя').Value:=Edit3.Text;
Form2.ADOTable1.FieldByName('Отчество').Value:=Edit4.Text;
Form2.ADOTable1.FieldByName('Год рождения').Value:=Edit5.Text;
Form2.ADOTable1.FieldByName('Возраст').Value:=IntToStr(2014-StrToInt(Form8.Edit5.Text));
Form2.ADOTable1.Post;
Form8.Close;
Form8.Edit2.Text:='';
Form8.Edit3.Text:='';
Form8.Edit4.Text:='';
Form8.Edit5.Text:='';
end;
end.
unit Unit9;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, QRCtrls, QuickRpt, ExtCtrls;
type
TForm9 = class(TForm)
ADOTable1: TADOTable;
DataSource1: TDataSource;
QuickRep1: TQuickRep;
QRSubDetail1: TQRSubDetail;
QRDBText2: TQRDBText;
QRDBText11: TQRDBText;
QRDBText13: TQRDBText;
QRDBText14: TQRDBText;
QRDBText15: TQRDBText;
QRDBText16: TQRDBText;
QRDBText17: TQRDBText;
QRDBText18: TQRDBText;
QRDBText19: TQRDBText;
PageHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRLabel23: TQRLabel;
QRSysData2: TQRSysData;
QRLabel12: TQRLabel;
QRLabel13: TQRLabel;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
implementation
{$R *.dfm}
end.
Размещено на Allbest.ru
Подобные документы
Разработка информационной базы данных для компании с помощью СУБД Microsoft Office Access. Построение семантической модели предметной области. Листинг программного продукта: создание и заполнение таблиц. Инструкция по применению автоматизированной ИС.
курсовая работа [1010,5 K], добавлен 26.03.2014Разработка базы данных "Доставка товара" в среде MS Access, ее структуры, объектов (таблиц, запросов, форм, отчетов, макросов). Анализ предметной области базы данных, описание ее схемы, полей таблиц, разработанных объектов. Требования к работе приложения.
контрольная работа [2,6 M], добавлен 07.08.2013Разработка программной системы для регистратуры поликлиники; создание базы данных. Описание предметной области: сведения о врачах, пациентах, учет обращений, регистрация обследований и назначенных препаратов. Содержимое таблиц, пользовательский интерфейс.
курсовая работа [6,2 M], добавлен 30.07.2012Анализ информационной системы ИНЭК "Страховщик". Описание предметной области с использованием модели "сущность-связь". Моделирование бизнес-процессов с помощью IDEF0-диаграмм. Проектирование и разработка приложения в среде Delphi и создание интерфейса.
отчет по практике [4,9 M], добавлен 28.12.2014Анализ предметной области, определение сущностей и связей. Разработка базы данных, создание таблиц и запросов. Исходные тексты процедур модулей. Тестирование информационной системы на корректность работы. Схема инфологической модели предметной области.
курсовая работа [4,3 M], добавлен 19.12.2011Определение базовых сущностей предметной области. Представление базы данных реляционной моделью. Построение ER-диаграмм. Функции и архитектура информационной системы. Создание таблиц БД на языке SQL Server. Запросы на выборку и манипулирование данными.
курсовая работа [1,8 M], добавлен 06.05.2015Анализ предметной области разрабатываемой информационной системы "Библиотека". Проектирование базы данных в среде MS Access. Физическая реализация данной информационной системы средствами Delphi 7 и MS Access 2003. Области применения технологии BDE.
курсовая работа [2,4 M], добавлен 12.01.2016Описание предметной области и определение предметной области информационной системы детского сада. Разработка логической и физической модели базы данных дошкольного образовательного учреждения. Анализ функционала информационной системы детского сада.
курсовая работа [1,6 M], добавлен 20.04.2015Общая характеристика Delphi как интегрированной среды разработки программного обеспечения. СУБД Access, ее возможности. Создание базы данных в Access для комиссионного букинистического магазина. Создание запросов и фильтров. Описание работы программы.
курсовая работа [3,1 M], добавлен 25.05.2015Выбор, обоснование и особенности работы СУБД. Характеристика языков программирования. Разработка структурной и функциональной модели информационной системы аптеки. Проектирование программной среды АИС и ее интерфейса. Построение модели базы данных.
курсовая работа [442,3 K], добавлен 21.04.2012