Автоматизация работы аквапарка - Курсовая работа

Автоматизировать весь аквапарк полностью мы не будем, мы возьмем лишь часть его, а точнее произойдет автоматизация работы с клиентами. Ещё одно преимущество автоматизированной работы в том, что для неё необходим только компьютер и сотрудник, а для ручной необходимы десятки журналов и как минимум несколько человек для того, чтобы успевать обрабатывать данные. АНАЛИЗ ИНФОРМАЦИОННЫХ СИСТЕМ В ОБЛАСТИ АВТОМАТИЗАЦИИ ДЕЯТЕЛЬНОСТИ КУЛЬТУРНО-РАЗВЛЕКАТЕЛЬНЫХ ЦЕНТРОВ 1.1 Описание предметной области Предметной областью моей работы является работа аквапарка. Эта программа также сможет упростить работу и бухгалтерам с помощью выходной документации (отчетов), они смогут гораздо быстрее подсчитать необходимые данные. 1.2 Анализ существующих программных средств Концепция Delphi 1 была реализована в конце 1994 года, когда вышла первая версия среды разработки. Поддержка архитектуры corba (common object request broker architecture) открывает перед приложениями, созданными в delphi для платформы wintel (windows intel), мир других операционных систем (unix, os/2, wms 255 then Form1.AlphaBlendValue:=Form1.AlphaBlendValue 3; end; procedure TForm1.N6Click(Sender: TObject); begin Form6.QuickRep1.Preview; end; procedure TForm1.N7Click(Sender: TObject); begin Form7.QuickRep1.Preview; end; end. unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, Grids, DBGrids, ADODB, StdCtrls, Buttons, jpeg, ExtCtrls, Menus; type TForm2 = class(TForm) ADOTable1: TADOTable; ADOConnection1: TADOConnection; DBGrid1: TDBGrid; DataSource1: TDataSource; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; ADOTable1DSDesigner: TWideStringField; ADOTable1DSDesigner2: TWideStringField; ADOTable1DSDesigner3: TWideStringField; ADOTable1DSDesigner4: TWideStringField; ADOTable1DSDesigner5: TWideStringField; ADOTable1DSDesigner6: TWideStringField; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; BitBtn6: TBitBtn; BitBtn7: TBitBtn; BitBtn8: TBitBtn; BitBtn9: TBitBtn; RadioGroup1: TRadioGroup; Edit6: TEdit; GroupBox3: TGroupBox; BitBtn5: TBitBtn; Edit7: TEdit; Button1: TButton; procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N4Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure BitBtn7Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure BitBtn9Click(Sender: TObject); procedure RadioGroup1Click(Sender: TObject); procedure ADOTable1FilterRecord(DataSet: TDataSet; var Accept: Boolean); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; po:string; implementation uses Unit3, Unit4, Unit1, Unit5, Unit8; {$R *.dfm} procedure TForm2.BitBtn2Click(Sender: TObject); var WWW:string; begin if MessageDlg(Вы действительно хотите удалить эту запись ???,mtWarning,[mbYes,mbNo],0)=MRyes then begin WWW:=Form2.ADOTable1.FieldByName(Код клиента).Value; Form2.ADOTable1.Delete; with Form3.ADOTable1 do begin Form3.ADOTable1.First; while not eof do begin //Form3.ADOTable1.Edit; if Form3.ADOTable1.FieldByName(Код клиента).Value=WWW then (Form3.ADOTable1.Delete); Form3.ADOTable1.Next; end; end; end; end; procedure TForm2.BitBtn3Click(Sender: TObject); var kkk: integer; begin if Form2.ADOTable1.RecNo=-1 then Form8.Edit1.Text:=1 else begin Form2.ADOTable1.Last; KKK:=StrToInt(Form2.ADOTable1DSDesigner.value) 1; Form8.Edit1.Text:=IntToStr(KKK); end; Form8.Show; end; procedure TForm2.BitBtn4Click(Sender: TObject); begin Form2.Visible:=False; Form3.Visible:=True; end; procedure TForm2.BitBtn5Click(Sender: TObject); begin Form2.ADOTable1.Locate(Код клиента,Edit7.Text,[loCaseInsensitive,loPartialKey]); end; procedure TForm2.N2Click(Sender: TObject); begin Form2.Visible:=False; Form1.Visible:=True end; procedure TForm2.N3Click(Sender: TObject); 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