Разработка программного обеспечения «Информационная система «Ювелирная мастерская»

Курсовая Купить готовую Узнать стоимостьмоей работы

Excel.WorkSheets. Columns. Item. ColumnWidth:=ADOQuery1.FieldList.Fields.DisplayWidth; Excel.WorkSheets. Columns. Item. ColumnWidth:=ADOQuery1.FieldList.Fields.DisplayWidth; Excel.WorkSheets. Columns. Item. ColumnWidth:=ADOQuery1.FieldList.Fields.DisplayWidth; Excel.WorkSheets. Columns. Item. ColumnWidth:=ADOQuery1.FieldList.Fields.DisplayWidth; ADOQuery2. SQL: ='WHERE Изделие_Номер='+IntToStr… Читать ещё >

Разработка программного обеспечения «Информационная система «Ювелирная мастерская» (реферат, курсовая, диплом, контрольная)

Содержание

Введение
1. Теоретический раздел
- 1. 1. Основы разработки ПО исследуемой задачи
- 1. 2. Обоснование проектных решений
  - 1. 2. 1. По техническому обеспечению (ТО)
  - 1. 2. 2. По информационному обеспечению (ИО)
  - 1. 2. 3. По программному обеспечению (ПО)
  - 1. 2. 4. По технологическому обеспечению
2. Раздел проектирования
- 2. 1. Постановка задачи
- 2. 2. Проектирование информационно-логической модели БД
  - 2. 2. 1. Проектирование диаграммы прецедентов
  - 2. 2. 2. Проектирование диаграммы деятельности
  - 2. 2. 3. Проектирование диаграммы классов
  - 2. 2. 4. Создание физической модели БД
- 2. 3. Проектирование интерфейса пользователя
3. Экспериментальный раздел
- 3. 1. Тестирование программы
- 3. 2. Экономическое обоснование ПО
  - 3. 2. 1. Расчет основной заработной платы разработчиков программного продукта
  - 3. 2. 2. Расчёт дополнительной заработной платы
  - 3. 2. 3. Расчёт расходов на и эксплуатацию
  - 3. 2. 4. Расчёт цеховой себестоимости системы
  - 3. 2. 5. Расчёт коммерческих расходов
  - 3. 2. 6. Расчёт полной себестоимости
  - 3. 2. 6. Расчет оптовой цены автоматизированной системы
  - 3. 2. 7. Оценка эффективности инвестиций
Заключение
Список литературы
Список сокращений
Приложение А. Инструкция пользователя
Приложение Б. Текст программы (листинг)

dfm}.

procedure TUpdClient. Button2Click (Sender: TObject);

begin.

if ((length (Edit1.Text)=0) or (length (Edit2.Text)=0) or (length (Edit3.Text)=0) or (length (Edit5.Text)=0)).

then.

Showmessage ('Не все поля заполнены').

else.

begin.

Client.ADOQuery2.SQL[0]: = 'UPDATE Клиент SET Фамилия='''+Edit1.Text+''', Имя='''+Edit2.Text+''', Отчество='''+Edit3.Text+''', Пол='''+ComboBox1.Text+''', Адрес='''+Edit6.Text+''', Телефон='''+Edit5.Text+''',[Дата рождения]='''+DateToStr (DateTimePicker1.Date)+'''';

Client.ADOQuery2.SQL[1]: = 'WHERE Клиент_Номер='+IntToStr (Client.ADOQuery1.FieldValues['Клиент_Номер']);

Client.ADOQuery2.ExecSQL;

Client.ADOQuery1.Active:=False;

Client.ADOQuery1.Active:=True;

Close;

end;

procedure TUpdClient. Button1Click (Sender: TObject);

begin.

if ((length (Edit1.Text)=0) or (length (Edit2.Text)=0) or (length (Edit3.Text)=0) or (length (Edit5.Text)=0)).

then.

Showmessage ('Не все поля заполнены!').

else.

begin.

Client.ADOQuery2.SQL[0]: = 'INSERT INTO Клиент (Фамилия, Имя, Отчество, Телефон, Адрес, Пол, [Дата рождения])';

Client.ADOQuery2.SQL[1]: = 'VALUES ('''+Edit1.Text+''','''+Edit2.Text+''','''+Edit3.Text+''', '''+Edit5.Text+''','''+Edit6.Text+''','''+ComboBox1.Text+''','''+DateToStr (DateTimePicker1.Date)+''');';

Client.ADOQuery2.SQL.Text;

Client.ADOQuery2.ExecSQL;

Client.ADOQuery1.Active:=False;

Client.ADOQuery1.Active:=True;

UpdClient.Close;

end;

procedure TUpdClient. Button3Click (Sender: TObject);

begin.

Close;

end;

end.

unit MyServicing;

interface.

uses.

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,.

Word97, OleServer, StdCtrls, Word2000, ExtCtrls, ComObj, DdeMan, Clipbrd,.

WordXP, ExcelXP, Grids, Excel2000, Variants, DB, ADODB, DBGrids, DBCtrls,.

ComCtrls;

type.

TServicing = class (TForm).

DBGrid1: TDBGrid;

Button3: TButton;

Button4: TButton;

Button5: TButton;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

ADOQuery2: TADOQuery;

AutoIncField1: TAutoIncField;

WideStringField1: TWideStringField;

WideStringField2: TWideStringField;

WideStringField3: TWideStringField;

WideStringField4: TWideStringField;

WideStringField5: TWideStringField;

WideStringField6: TWideStringField;

Button1: TButton;

ADOQuery1_: TAutoIncField;

ADOQuery1₂: TIntegerField;

ADOQuery1₃: TIntegerField;

ADOQuery1DSDesigner2: TWideStringField;

ADOQuery1₄: TIntegerField;

ADOQuery1DSDesigner3: TWideStringField;

ADOQuery1DSDesigner4: TBCDField;

ADOQuery1DSDesigner5: TDateTimeField;

Label2: TLabel;

Bevel2: TBevel;

Edit1: TEdit;

Button8: TButton;

ComboBox2: TComboBox;

DBNavigator1: TDBNavigator;

ADOQuery1DSDesigner: TWideStringField;

ADOQuery1DSDesigner6: TWideStringField;

Label1: TLabel;

Label3: TLabel;

Bevel1: TBevel;

CheckBox1: TCheckBox;

DateTimePicker2: TDateTimePicker;

DateTimePicker1: TDateTimePicker;

Button7: TButton;

procedure Button1Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

procedure Edit1Change (Sender: TObject);

procedure CheckBox1Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Servicing: TServicing;

implementation.

uses MyUpdServicing;

{$R *.dfm}.

procedure TServicing. Button1Click (Sender: TObject);

begin.

Close;

end;

procedure TServicing. Button5Click (Sender: TObject);

begin.

if not (ADOQuery1.Eof) and (MessageDlg ('Вы уверены, что хотите удалить запись',.

mtConfirmation,[mbYes, mbNo], 0)=mrYes).

then.

{если да, то}.

begin.

ADOQuery2.SQL[0]: ='DELETE FROM Обслуживание';

ADOQuery2.SQL[1]: ='WHERE Обслуживание_Номер='+IntToStr (ADOQuery1.FieldValues['Обслуживание_Номер']);

ADOQuery2.ExecSQL;

ADOQuery1.Active:=False;

ADOQuery1.Active:=True;

end;

procedure TServicing. Button4Click (Sender: TObject);

begin.

if not ADOQuery1. Eof then.

begin.

UpdServicing.Edit1.Text:=ADOQuery1.FieldValues['Изделие'];

UpdServicing.Edit1.Hint:=ADOQuery1.FieldValues['Изделие_Номер'];

UpdServicing.Edit3.Text:=ADOQuery1.FieldValues['Персонал'];

UpdServicing.Edit3.Hint:=ADOQuery1.FieldValues['Персонал_Номер'];

UpdServicing.Edit4.Text:=ADOQuery1.FieldValues['Услуга'];

UpdServicing.Edit4.Hint:=ADOQuery1.FieldValues['Услуга_Номер'];

UpdServicing.DateTimePicker1.Date:=ADOQuery1.FieldValues['Дата'];

UpdServicing.Button2.Visible:=True;

UpdServicing.Caption:='Редактирование';

UpdServicing.Show;

end;

procedure TServicing. Button3Click (Sender: TObject);

begin.

UpdServicing.Edit1.Clear;

UpdServicing.Edit3.Clear;

UpdServicing.Edit4.Clear;

UpdServicing.DateTimePicker1.Date:=Date ();

UpdServicing.Button2.Visible:=False;

UpdServicing.Caption:='Добавление';

UpdServicing.Show;

end;

procedure TServicing. Button7Click (Sender: TObject);

var.

i, j: integer;

Excel: Variant;

WorkbookName: string;

begin.

Excel:=CreateOleObject ('Excel.Application'); // для остальных.

try.

Excel.SheetsInNewWorkbook:=1;

Excel.WorkBooks.Add;

WorkbookName := GetCurrentDir + 'Обслуживание.xls';

Excel.ActiveWorkbook.SaveAs (WorkbookName); //Открытие книги.

Excel.WorkSheets[1]. Select;

for i:=0 to ADOQuery1.FieldList.Count-1 do //вывод шапки таблицы.

begin.

if ADOQuery1.FieldList.Fields[i]. Visible=true then.

begin.

Excel.Cells[1,i+1]: =ADOQuery1.FieldList.Fields[i].DisplayName;

Excel.WorkSheets[1]. Columns. Item[i+1].ColumnWidth:=ADOQuery1.FieldList.Fields[i].DisplayWidth;

ADOQuery1.First;

j:=2;

while not ADOQuery1. Eof do //вывод данных таблицы.

begin.

Excel.Cells[j, i+1]: =ADOQuery1.FieldValues[ADOQuery1.FieldList.Fields[i].FieldName];

ADOQuery1.Next;

j:=j+1;

end;

ADOQuery1.First;

Excel.Range['A1:F'+IntToStr (j-1)]. Select; //выбираем область.

Excel.Selection.Borders.LineStyle:=1; //делаем границы таблицы.

Excel.ActiveWorkbook.Save; //сохранить документ Excel.

Excel.WindowState := -4137; //развернуть на весь экран.

Excel.Visible := True; //вывести на экран.

except.

Excel.Quit;

end;

procedure TServicing. Button8Click (Sender: TObject);

begin.

Edit1.Clear;

ADOQuery1.Filtered:=False;

end;

procedure TServicing. Edit1Change (Sender: TObject);

begin.

if Length (Edit1.Text)<>0 then.

begin.

ADOQuery1.Filter:='['+ComboBox2.Text+'] LIKE '+'''*'+Edit1.Text+'*''';

ADOQuery1.Filtered:=True;

end.

else.

ADOQuery1.Filtered:=False;

end;

procedure TServicing. CheckBox1Click (Sender: TObject);

begin.

if CheckBox1. Checked=True then.

begin.

Button8.Click;

DateTimePicker1.Enabled:=True;

DateTimePicker2.Enabled:=True;

ADOQuery1.Filter:='[Дата]<='''+DateToStr (DateTimePicker2.Date)+''' and [Дата]>='''+DateToStr (DateTimePicker1.Date)+'''';

ADOQuery1.Filtered:=True;

end.

else.

begin.

DateTimePicker1.Enabled:=False;

DateTimePicker2.Enabled:=False;

ADOQuery1.Filtered:=False;

end;

procedure TServicing. FormShow (Sender: TObject);

begin.

//настраиваем календари от текущей даты.

DateTimePicker1.Date:=Date ()-10;

DateTimePicker2.Date:=Date ()+10;

end;

end.

unit MyPerson;

interface.

uses.

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,.

Word97, OleServer, StdCtrls, Word2000, ExtCtrls, ComObj, DdeMan, Clipbrd,.

WordXP, ExcelXP, Grids, Excel2000, Variants, DB, ADODB, DBGrids, DBCtrls;

type.

TPerson = class (TForm).

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button2: TButton;

ADOQuery1: TADOQuery;

ADOQuery1DSDesigner: TWideStringField;

ADOQuery1DSDesigner2: TWideStringField;

ADOQuery1DSDesigner3: TWideStringField;

DataSource1: TDataSource;

ADOQuery2: TADOQuery;

AutoIncField1: TAutoIncField;

WideStringField1: TWideStringField;

WideStringField2: TWideStringField;

WideStringField3: TWideStringField;

WideStringField4: TWideStringField;

WideStringField5: TWideStringField;

WideStringField6: TWideStringField;

Label2: TLabel;

Bevel2: TBevel;

Edit1: TEdit;

Button8: TButton;

ComboBox2: TComboBox;

Button9: TButton;

ADOQuery1DSDesigner4: TDateTimeField;

ADOQuery1DSDesigner5: TWideStringField;

ADOQuery1DSDesigner6: TWideStringField;

ADOQuery1_: TAutoIncField;

procedure FormShow (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure ComboBox2Change (Sender: TObject);

procedure Button9Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Person: TPerson;

implementation.

uses MyUpdPerson, MyServicing;

{$R *.dfm}.

procedure TPerson. FormShow (Sender: TObject);

begin.

Button2.Tag:=0;

end;

procedure TPerson. FormClose (Sender: TObject; var Action: TCloseAction);

begin.

Button2.Visible:=False;

Button3.Visible:=True;

Button4.Visible:=True;

Button5.Visible:=True;

end;

procedure TPerson. Button1Click (Sender: TObject);

begin.

Close;

end;

procedure TPerson. Button2Click (Sender: TObject);

begin.

if not ADOQuery1. Eof then.

begin.

Button2.Tag:=1;//свершилось нажатие на кнопку Button2.

Close ();

end;

procedure TPerson. Button5Click (Sender: TObject);

begin.

if not (ADOQuery1.Eof) and (MessageDlg ('Вы уверены, что хотите удалить запись',.

mtConfirmation,[mbYes, mbNo], 0)=mrYes).

then.

{если да, то}.

begin.

ADOQuery2.SQL[0]: ='DELETE FROM Персонал';

ADOQuery2.SQL[1]: ='WHERE Персонал_Номер='+IntToStr (ADOQuery1.FieldValues['Персонал_Номер']);

ADOQuery2.ExecSQL;

ADOQuery1.Active:=False;

ADOQuery1.Active:=True;

end;

procedure TPerson. Button4Click (Sender: TObject);

begin.

if not ADOQuery1. Eof then.

begin.

UpdPerson.Edit1.Text:=ADOQuery1.FieldValues['Фамилия'];

UpdPerson.Edit2.Text:=ADOQuery1.FieldValues['Имя'];

UpdPerson.Edit3.Text:=ADOQuery1.FieldValues['Отчество'];

UpdPerson.Edit4.Text:=ADOQuery1.FieldValues['Должность'];

UpdPerson.Edit5.Text:=ADOQuery1.FieldValues['Телефон'];

UpdPerson.DateTimePicker1.Date:=ADOQuery1.FieldValues['Дата рождения'];

UpdPerson.Button2.Visible:=True;

UpdPerson.Caption:='Редактирование';

UpdPerson.Show;

end;

procedure TPerson. Button3Click (Sender: TObject);

begin.

UpdPerson.Edit1.Clear;

UpdPerson.Edit2.Clear;

UpdPerson.Edit3.Clear;

UpdPerson.Edit4.Clear;

UpdPerson.Edit5.Clear;

UpdPerson.Button2.Visible:=False;

UpdPerson.Caption:='Добавление';

UpdPerson.Show;

end;

procedure TPerson. ComboBox2Change (Sender: TObject);

begin.

if Length (Edit1.Text)<>0 then.

begin.

ADOQuery1.Filter:='['+ComboBox2.Text+'] LIKE '+'''*'+Edit1.Text+'*''';

ADOQuery1.Filtered:=True;

end.

else.

ADOQuery1.Filtered:=False;

end;

procedure TPerson. Button9Click (Sender: TObject);

var.

i, j: integer;

Excel: Variant;

WorkbookName: string;

begin.

Excel:=CreateOleObject ('Excel.Application'); // для остальных.

try.

Excel.SheetsInNewWorkbook:=1;

Excel.WorkBooks.Add;

WorkbookName := GetCurrentDir + 'Персонал.xls';

Excel.ActiveWorkbook.SaveAs (WorkbookName); //Открытие книги.

Excel.WorkSheets[1]. Select;

for i:=0 to ADOQuery1.FieldList.Count-2 do //вывод шапки таблицы.

begin.

Excel.Cells[1,i+1]: =ADOQuery1.FieldList.Fields[i].DisplayName;

Excel.WorkSheets[1]. Columns. Item[i+1].ColumnWidth:=ADOQuery1.FieldList.Fields[i].DisplayWidth;

ADOQuery1.First;

j:=2;

while not ADOQuery1. Eof do //вывод данных таблицы.

begin.

Excel.Cells[j, i+1]: =ADOQuery1.FieldValues[ADOQuery1.FieldList.Fields[i].FieldName];

ADOQuery1.Next;

j:=j+1;

end;

ADOQuery1.First;

Excel.Range['A1:F'+IntToStr (j-1)]. Select; //выбираем область.

Excel.Selection.Borders.LineStyle:=1; //делаем границы таблицы.

Excel.ActiveWorkbook.Save; //сохранить документ Excel.

Excel.WindowState := -4137; //развернуть на весь экран.

Excel.Visible := True; //вывести на экран.

except.

Excel.Quit;

end;

procedure TPerson. Button8Click (Sender: TObject);

begin.

Edit1.Clear;

ADOQuery1.Filtered:=False;

end;

end.

unit MyMerch;

interface.

uses.

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,.

Word97, OleServer, StdCtrls, Word2000, ExtCtrls, ComObj, DdeMan, Clipbrd,.

WordXP, ExcelXP, Grids, Excel2000, Variants, DB, ADODB, DBGrids, DBCtrls;

type.

TMerch = class (TForm).

DBGrid1: TDBGrid;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

ADOQuery1: TADOQuery;

DataSource1: TDataSource;

ADOQuery2: TADOQuery;

Label2: TLabel;

Bevel2: TBevel;

Edit1: TEdit;

ComboBox2: TComboBox;

Button6: TButton;

Button9: TButton;

ADOQuery1_: TAutoIncField;

ADOQuery1₂: TIntegerField;

ADOQuery1DSDesigner: TWideStringField;

ADOQuery1DSDesigner3: TWideStringField;

ADOQuery1DSDesigner2: TWideStringField;

DBNavigator1: TDBNavigator;

Button7: TButton;

procedure Button3Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

procedure FormShow (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Edit1Change (Sender: TObject);

procedure Button9Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Merch: TMerch;

implementation.

uses MyMain, MyUpdMerch, MyServicing;

{$R *.dfm}.

procedure TMerch. Button3Click (Sender: TObject);

begin.

UpdMerch.Edit1.Clear;

UpdMerch.Edit2.Clear;

UpdMerch.Edit3.Clear;

UpdMerch.Button1.Visible:=True;

UpdMerch.Button2.Visible:=False;

UpdMerch.Caption:='Добавление';

UpdMerch.Show ();

end;

procedure TMerch. Button5Click (Sender: TObject);

begin.

if (MessageDlg ('Вы уверены, что хотите удалить запись',.

mtConfirmation,[mbYes, mbNo], 0)=mrYes) and not (ADOQuery1.Eof).

then.

{если да, то}.

begin.

ADOQuery2.SQL[0]: ='DELETE FROM Изделие';

ADOQuery2.SQL[1]: ='WHERE Изделие_Номер='+IntToStr (ADOQuery1.FieldValues['Изделие_Номер']);

ADOQuery2.ExecSQL;

ADOQuery1.Active:=False;

ADOQuery1.Active:=True;

end;

procedure TMerch. Button4Click (Sender: TObject);

begin.

if not (ADOQuery1.Eof) then.

begin.

UpdMerch.Edit1.Text:=ADOQuery1.FieldValues['Изделие'];

UpdMerch.Edit2.Text:=ADOQuery1.FieldValues['Клиент'];

UpdMerch.Edit2.Hint:=ADOQuery1.FieldValues['Клиент_Номер'];

UpdMerch.Edit3.Text:=ADOQuery1.FieldValues['Описание'];

UpdMerch.Button1.Visible:=False;

UpdMerch.Button2.Visible:=True;

UpdMerch.Caption:='Редактирование';

UpdMerch.Show;

end;

procedure TMerch. Button2Click (Sender: TObject);

begin.

Button2.Tag:=1;//свершилось наатие на кнопку Button2.

Close ();

end;

procedure TMerch. Button1Click (Sender: TObject);

begin.

Close ();

end;

procedure TMerch. FormClose (Sender: TObject; var Action: TCloseAction);

begin.

Button2.Visible:=False;

Button3.Visible:=True;

Button4.Visible:=True;

Button5.Visible:=True;

end;

procedure TMerch. FormShow (Sender: TObject);

begin.

Button2.Tag:=0;

end;

procedure TMerch. Button6Click (Sender: TObject);

begin.

Edit1.Clear;

ADOQuery1.Filtered:=False;

end;

procedure TMerch. Edit1Change (Sender: TObject);

var.

Text: String;

begin.

case ComboBox2. ItemIndex of.

0: Text := 'Клиент';

1: Text := 'Изделие';

2: Text := 'Описание';

end;

if (Length (Edit1.Text)<>0) then.

begin.

ADOQuery1.Filter:=Text+' LIKE '+'''*'+Edit1.Text+'*''';

ADOQuery1.Filtered:=True;

end.

else.

ADOQuery1.Filtered:=False;

end;

procedure TMerch. Button9Click (Sender: TObject);

var.

i, j: integer;

Excel: Variant;

WorkbookName: string;

begin.

Excel:=CreateOleObject ('Excel.Application'); // для остальных.

try.

Excel.SheetsInNewWorkbook:=1;

Excel.WorkBooks.Add;

WorkbookName := GetCurrentDir + 'Изделия.xls';

Excel.ActiveWorkbook.SaveAs (WorkbookName); //Открытие книги.

Excel.WorkSheets[1]. Select;

for i:=0 to ADOQuery1.FieldList.Count-3 do //вывод шапки таблицы.

begin.

Excel.Cells[1,i+1]: =ADOQuery1.FieldList.Fields[i].DisplayName;

Excel.WorkSheets[1]. Columns. Item[i+1].ColumnWidth:=ADOQuery1.FieldList.Fields[i].DisplayWidth;

ADOQuery1.First;

j:=2;

while not ADOQuery1. Eof do //вывод данных таблицы.

begin.

Excel.Cells[j, i+1]: =ADOQuery1.FieldValues[ADOQuery1.FieldList.Fields[i].FieldName];

ADOQuery1.Next;

j:=j+1;

end;

ADOQuery1.First;

Excel.Range['A1:C'+IntToStr (j-1)]. Select; //выбираем область.

Excel.Selection.Borders.LineStyle:=1; //делаем границы таблицы.

Excel.ActiveWorkbook.Save; //сохранить документ Excel.

Excel.WindowState := -4137; //развернуть на весь экран.

Excel.Visible := True; //вывести на экран.

except.

Excel.Quit;

end;

procedure TMerch. Button7Click (Sender: TObject);

begin.

Servicing.ComboBox2.ItemIndex:=3;

Servicing.Edit1.Text:= String (ADOQuery1.FieldValues['Клиент']);

Servicing.Show;

end;

end.

unit MyMain;

interface.

uses.

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

Dialogs, Menus, StdCtrls, jpeg, ExtCtrls, DB, ADODB;

type.

TMain = class (TForm).

Image1: TImage;

MainMenu1: TMainMenu;

N1: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

ADOConnection1: TADOConnection;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

procedure N13Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure N15Click (Sender: TObject);

procedure N5Click (Sender: TObject);

procedure N4Click (Sender: TObject);

procedure N6Click (Sender: TObject);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Main: TMain;

implementation.

uses MyClient, MyMerch, MyPerson, MyServicing, Service;

{$R *.dfm}.

procedure TMain. N13Click (Sender: TObject);

begin.

Client.ADOQuery1.Active:=False;

Client.ADOQuery1.Active:=True;

Client.Show;

end;

procedure TMain. N2Click (Sender: TObject);

begin.

Merch.ADOQuery1.Active:=False;

Merch.ADOQuery1.Active:=True;

Merch.Show;

end;

procedure TMain. N15Click (Sender: TObject);

begin.

Close;

end;

procedure TMain. N5Click (Sender: TObject);

begin.

Services.ADOQuery1.Active:=False;

Services.ADOQuery1.Active:=True;

Services.Show;

end;

procedure TMain. N4Click (Sender: TObject);

begin.

Person.ADOQuery1.Active:=False;

Person.ADOQuery1.Active:=True;

Person.Show;

end;

procedure TMain. N6Click (Sender: TObject);

begin.

Servicing.ADOQuery1.Active:=False;

Servicing.ADOQuery1.Active:=True;

Servicing.Show;

end;

end.

unit MyClient;

interface.

uses.

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,.

Word97, OleServer, StdCtrls, Word2000, ExtCtrls, ComObj, DdeMan, Clipbrd,.

WordXP, ExcelXP, Grids, Excel2000, Variants, DB, ADODB, DBGrids, DBCtrls;

type.

TClient = class (TForm).

Label2: TLabel;

Bevel2: TBevel;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

Button1: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button2: TButton;

Edit1: TEdit;

Button8: TButton;

ComboBox2: TComboBox;

Button9: TButton;

ADOQuery1: TADOQuery;

ADOQuery1DSDesigner: TWideStringField;

ADOQuery1DSDesigner2: TWideStringField;

ADOQuery1DSDesigner3: TWideStringField;

ADOQuery1DSDesigner4: TDateTimeField;

ADOQuery1DSDesigner6: TWideStringField;

DataSource1: TDataSource;

ADOQuery2: TADOQuery;

AutoIncField1: TAutoIncField;

WideStringField1: TWideStringField;

WideStringField2: TWideStringField;

WideStringField3: TWideStringField;

WideStringField4: TWideStringField;

WideStringField5: TWideStringField;

WideStringField6: TWideStringField;

ADOQuery1_: TAutoIncField;

ADOQuery1DSDesigner7: TWideStringField;

ADOQuery1DSDesigner8: TWideStringField;

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

procedure ComboBox2Change (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure Button9Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure FormClose (Sender: TObject; var Action: TCloseAction);

private.

{ Private declarations }.

public.

{ Public declarations }.

end;

var.

Client: TClient;

implementation.

uses MyUpdClient, MyServicing;

{$R *.dfm}.

procedure TClient. Button1Click (Sender: TObject);

begin.

Close;

end;

procedure TClient. Button2Click (Sender: TObject);

begin.

if not ADOQuery1. Eof then.

begin.

Button2.Tag:=1;//свершилось нажатие на кнопку Button2.

Close ();

end;

procedure TClient. Button8Click (Sender: TObject);

begin.

Edit1.Clear;

ADOQuery1.Filtered:=False;

end;

procedure TClient. ComboBox2Change (Sender: TObject);

begin.

if Length (Edit1.Text)<>0 then.

begin.

ADOQuery1.Filter:='['+ComboBox2.Text+'] LIKE '+'''*'+Edit1.Text+'*''';

ADOQuery1.Filtered:=True;

end.

else.

ADOQuery1.Filtered:=False;

end;

procedure TClient. FormShow (Sender: TObject);

begin.

Button2.Tag:=0;

end;

procedure TClient. Button9Click (Sender: TObject);

var.

i, j: integer;

Excel: Variant;

WorkbookName: string;

begin.

Excel:=CreateOleObject ('Excel.Application'); // для остальных.

try.

Excel.SheetsInNewWorkbook:=1;

Excel.WorkBooks.Add;

WorkbookName := GetCurrentDir + 'Клиенты.xls';

Excel.ActiveWorkbook.SaveAs (WorkbookName); //Открытие книги.

Excel.WorkSheets[1]. Select;

for i:=0 to ADOQuery1.FieldList.Count-2 do //вывод шапки таблицы.

begin.

Excel.Cells[1,i+1]: =ADOQuery1.FieldList.Fields[i].DisplayName;

Excel.WorkSheets[1]. Columns. Item[i+1].ColumnWidth:=ADOQuery1.FieldList.Fields[i].DisplayWidth;

ADOQuery1.First;

j:=2;

while not ADOQuery1. Eof do //вывод данных таблицы.

begin.

Excel.Cells[j, i+1]: =ADOQuery1.FieldValues[ADOQuery1.FieldList.Fields[i].FieldName];

ADOQuery1.Next;

j:=j+1;

end;

ADOQuery1.First;

Excel.Range['A1:G'+IntToStr (j-1)]. Select; //выбираем область.

Excel.Selection.Borders.LineStyle:=1; //делаем границы таблицы.

Excel.ActiveWorkbook.Save; //сохранить документ Excel.

Excel.WindowState := -4137; //развернуть на весь экран.

Excel.Visible := True; //вывести на экран.

except.

Excel.Quit;

end;

procedure TClient. Button3Click (Sender: TObject);

begin.

UpdClient.Edit1.Clear;

UpdClient.Edit2.Clear;

UpdClient.Edit3.Clear;

UpdClient.DateTimePicker1.Date:=Date ()-30*365;

UpdClient.Edit5.Clear;

UpdClient.Edit6.Clear;

UpdClient.ComboBox1.ItemIndex:=0;

UpdClient.Button1.Visible:=True;

UpdClient.Button2.Visible:=False;

UpdClient.Caption:='Добавление';

UpdClient.Show;

end;

procedure TClient. Button4Click (Sender: TObject);

begin.

if not ADOQuery1. Eof then.

begin.

UpdClient.Edit1.Text:=ADOQuery1.FieldValues['Фамилия'];

UpdClient.Edit2.Text:=ADOQuery1.FieldValues['Имя'];

UpdClient.Edit3.Text:=ADOQuery1.FieldValues['Отчество'];

UpdClient.Edit5.Text:=ADOQuery1.FieldValues['Телефон'];

UpdClient.Edit6.Text:=ADOQuery1.FieldValues['Адрес'];

UpdClient.ComboBox1.Text:=ADOQuery1.FieldValues['Пол'];

UpdClient.DateTimePicker1.Date:=ADOQuery1.FieldValues['Дата рождения'];

UpdClient.Button1.Visible:=False;

UpdClient.Button2.Visible:=True;

UpdClient.Caption:='Редактирование';

UpdClient.Show;

end;

procedure TClient. Button5Click (Sender: TObject);

begin.

if not (ADOQuery1.Eof) and (MessageDlg ('Вы уверены, что хотите удалить запись',.

mtConfirmation,[mbYes, mbNo], 0)=mrYes).

then.

{если да, то}.

begin.

ADOQuery2.SQL[0]: ='DELETE FROM Клиент';

ADOQuery2.SQL[1]: ='WHERE Клиент_Номер='+IntToStr (ADOQuery1.FieldValues['Клиент_Номер']);

ADOQuery2.ExecSQL;

ADOQuery1.Active:=False;

ADOQuery1.Active:=True;

end;

procedure TClient. FormClose (Sender: TObject; var Action: TCloseAction);

begin.

Button2.Visible:=False;

Button3.Visible:=True;

Button4.Visible:=True;

Button5.Visible:=True;

end;

end.

А.М. Вендров «Программирование ПО экономических информационных систем» М; Финансы и статистика 2002 г.

Рудаков А. В. Технология разработки программных продуктов: учеб. пособие.

М.: Академия, 2006.

Хорев П. Б. Технология объектно-ориентированного программирования: учеб. пособие.

М.: Академия, 2004.

Кузин А.В.. Базы данных.: Учеб. пособие.

М.: Академия, 2006.

Архангельский А. Я. Программирование в среде Delphi 7. — М.: БИНОМ, 2003.

Показать весь текст

Список литературы

Мартин Фаулер — Архитектура корпоративных программных приложений — М.: Вильямс, 2006. — 544с.
Гамма Э., Хелм Р., Джонсон Р., Влиссидес Дж. — Приемы объектно-ориентированного проектирования. Паттерны проектирования. — СПб: Питер, 2001. — 368 с.
Г. Н. Калянов «Case — технологии: консалтинг в автоматизации бизнес-процессов» М; Горячая линия — Телеком 2002 г.
А.М. Вендров «Программирование ПО экономических информационных систем» М; Финансы и статистика 2002 г.
Калянов Г. Н. CASE. Структурный системный анализ (автоматизация и применение). М., «Лори», 1996
Архангельский А.Я. Программирование в среде Delphi 7. — М.: БИНОМ, 2003
Кузин А.В.. Базы данных.: Учеб. пособие.- М.: Академия, 2006
Организация производства на предприятии (фирме): Учеб. пособие / Под ред. О. В. Волкова.- М.: ИНФРА_М, 2004
Рудаков А.В. Технология разработки программных продуктов: учеб. пособие.- М.: Академия, 2006
Хорев П.Б. Технология объектно-ориентированного программирования: учеб. пособие.- М.: Академия, 2004
Фуфаев Э.В. Базы данных.: Учеб. пособие.- М.: Академия, 2006
Львов, В. Создание систем поддержки принятия решений на основе хранилищ данных / В. Львов // Системы управления базами данных. — 1997. — № 3.
Ойхман, Е.Г. Реинжиниринг бизнеса: реинжиниринг организаций и информационные технологии / Е. Г. Ойхман, Э. В. Попов. — М.: Финансы и статистика, 1997.
Полковников, А.В. Корпоративная система управления проектами / А. В. Полковников // Электронный офис. — 1997. — № 10.
Смирнова, Г. Н. Проектирование экономических информационных систем : учеб. пособие / Г. Н. Смирнова, А. А. Сорокин, Ю. Ф. Тельнов. — М.: Финансы и статистика, 2001. — 512 с.
Тельнов, Ю.Ф. Интеллектуальные информационные системы в экономике : учебное пособие / Ю. Ф. Тельнов. — М.: СИНТЕГ, 1999. — (Информатизация России на пороге XXI века)
Хотяшов, Э.Н. Проектирование машинной обработки экономической информации / Э. Н. Хотяшов. — М.: Финансы и статистика, 1987. — 246 с.

Заполнить форму текущей работой

Купить готовую работу