Разработка информационно-справочной системы по учету вагонов на подъездном пути предприятия
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
?ные модули системы;
На основании полученных материалов была разработана информационно-справочная система по учету вагонов на подъездном пути предприятия. Данная система направлена на автоматизацию процесса обработки информации по вагонам, а также для расчета затрат на обслуживание подвижного состава.
Список литературы
- Вендров А.М. Проектирование программного обеспечения экономических информационных систем, Финансы и статистика, М, 2002 г.
- Гэри Хансен, Джеймс Хансен. Базы данных. Разработка и управление, Бином, М, 2001 г.
- Джен Л. Харрингтон. Проектирование реляционных баз данных Лори, 2006 г.
- Джеффри Д. Ульман, Дженнифер Уидом. Основы реляционных баз данных, Лори, М, 2006 г.
- Кен Хендерсон. Профессиональное руководство по SQL Server. Структура и реализация (+ CD-ROM), Вильямс, М, 2006 г.
- Министерство здравоохранения Российской Федерации. Гигиенические требования к вычислительной технике, условиям и организации работы, М, 2002 г.
- Питер Роб, Карлос Коронел. Системы баз данных: проектирование, реализация и управление, БХВ-Петербург, Сп-б, 2004 г.
- Сорокин А.В. Разработка баз данных, Питер, Сп-б, 2005 г.
- Томас Коннолли, Каролин Бегг, Анна Страчан. Базы данных. Проектирование, реализация и сопровождение. Теория и практика, Вильямс, М, 2001 г.
- Шкрыль А.А. Разработка клиент-серверных приложений в Delphi, БХВ-Петербург, Сп-б, 2006 г.
- Элисон Балтер. Профессиональное программирование в Microsoft Office Access 2003 (+CD-ROM), Вильямс, М, 2006 г.
Приложение 1
Листинг программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, ActnList, StdCtrls, Grids, DBGrids, OleServer, AccessXP, Qt {, QDialogs};
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
PopupMenu1: TPopupMenu;
ActionList1: TActionList;
N1: TMenuItem;
N3: TMenuItem;
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
add: TAction;
edit: TAction;
del: TAction;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N2: TMenuItem;
N4: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
procedure FormShow(Sender: TObject);
procedure addExecute(Sender: TObject);
procedure editExecute(Sender: TObject);
procedure delExecute(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure N7Click(Sender: TObject);
procedure N2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit3, Unit4, Unit5, Unit2, Unit6, Unit7, Unit9;
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
Tbl := Vagon;
ShowZapros;
end;
procedure TForm1.addExecute(Sender: TObject);
begin
Form6.Caption := Информация по вагону;
Tbl := Vagon;
ForEdit := -1;
Form6.ShowModal;
if ((EditMode=false)and(EditIns)) then
begin
EditMode:=true;
Form6.ShowModal;
end;
end;
procedure TForm1.editExecute(Sender: TObject);
begin
if (DataModule2.QShow[V.id]=Null) then
begin
ShowMessage(Нечего редактировать);
EditMode := false;
end
else
begin
EditMode:=True;
Form6.ShowModal;
end;
end;
procedure TForm1.delExecute(Sender: TObject);
begin
if (DataModule2.QShow[V.id]=Null) then
begin
ShowMessage(Нечего удалять);
EditMode := false;
end
else
begin
Tbl := Vagon;
pole1 := id;
pole2 := mymonth;
pole3 := myyear;
pole4 := nomer_vagona;
pole5 := invent_nomer;
pole6 := year_izgot;
pole7 := gruzopodemnost;
pole8 := liter;
pole9 := key_rod_vagona;
pole10 := iznos;
pole11 := prinadlezhnost;
pole12 := key_raion_dvizh;
pole13 := ;
ForDel := DataModule2.QShow[v.id];
DelZapros;
ShowZapros();
end;
end;
procedure TForm1.N4Click(Sender: TObject);
begin
ShowMessage(Бурцева Екатерина);
end;
procedure TForm1.N12Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.N10Click(Sender: TObject);
begin
ForReport();
Form9.ShowModal;
end;
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var InputString: string;
begin
if ([ssCtrl] = Shift) and (key=key_F) then
begin
InputString := InputBox(Поиск, Введите инвентарный номер:, );
if InputString <> then
begin
if not DataModule2.QShow.Locate(invent_nomer,InputString,[]) then
begin
showmessage(Запись не найдена);
end;
end;
end;
end;
procedure TForm1.N7Click(Sender: TObject);
begin
{ For MyI:=0 to Form9.StringGrid1.RowCount-1 do
begin
Form9.StringGrid1.Cells[0,MyI] := Form1.DBGrid1.Columns[MyI].Title.Caption;
end; }
{ for tmpI:=0 to 10 do
Form9.StringGrid1.Cells[1,tmpI] := ;}
{ Form9.StringGrid1.Enabled := true;
Form9.Button1.Enabled := true;
Form9.Button1.Caption := Искать;
Form9.ShowModal();}
end;
procedure TForm1.N2Click(Sender: TObject);
begin
winhelp(Form1.Handle,help.hlp,HELP_CONTEXT,1);
end;
end.
unit Unit2;
interface
uses
SysUtils, Classes, DB, ADODB;
type
TDataModule2 = class(TDataModule)
ADOConnection1: TADOConnection;
Query1: TADOQuery;
DS1: TDataSource;
QShow: TADOQuery;
DSshow: TDataSource;
Qtmp: TADOQuery;
DStmp: TDataSource;
QOSV: TADOQuery;
DSOSV: TDataSource;
Quslugi: TADOQuery;
DSuslugi: TDataSource;
QSelUs: TADOQuery;
DSselUs: TDataSource;
QueryRep: TADOQuery;
DSQueryRep: TDataSource;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
private
{ Private declarations }
public
{ Public declarations }
end;
var
DataModule2: TDataModule2;
implementation
{$R *.dfm}
end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, Menus, ActnList;
type
TForm3 = class(TForm)
GroupBox1: TGroupBox;
DBGrid1: TDBGrid;
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;