Рефераты. Разработка информационно-справочной системы по учету вагонов на подъездном пути предприятия

7. Питер Роб, Карлос Коронел. Системы баз данных: проектирование, реализация и управление, БХВ-Петербург, Сп-б, 2004 г.

8. Сорокин А.В. Разработка баз данных, Питер, Сп-б, 2005 г.

9. Томас Коннолли, Каролин Бегг, Анна Страчан. Базы данных. Проектирование, реализация и сопровождение. Теория и практика, Вильямс, М, 2001 г.

10. Шкрыль А.А. Разработка клиент-серверных приложений в Delphi, БХВ-Петербург, Сп-б, 2006 г.

11. Элисон Балтер. Профессиональное программирование в 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;

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;

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;

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;

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;

Edit2: TEdit;

Label2: TLabel;

ActionList1: TActionList;

PopupMenu1: TPopupMenu;

del: TAction;

N1: TMenuItem;

procedure Button1Click(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure delExecute(Sender: TObject);

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

procedure DBGrid1CellClick(Column: TColumn);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

Uses Unit2, Unit4;

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

If (tbl='Ceha') then

begin

ToIns2 := Edit2.Text;

end;

ToIns := Edit1.Text;

InsertZapros();

ShowZapros();

Edit1.Clear;

Edit2.Clear;

end;

procedure TForm3.DBGrid1DblClick(Sender: TObject);

begin

SelTab();

Form3.Close;

end;

procedure TForm3.FormShow(Sender: TObject);

begin

Edit1.SetFocus;

Edit1.Clear;

Edit2.Clear;

If (tbl='Ceha') then

begin

Edit2.Visible := True;

Edit1.Width := 161;

Label2.Visible := True;

end

else

begin

Edit1.Width := 225;

Edit2.Visible := False;

Label2.Visible := False;

end;

procedure TForm3.delExecute(Sender: TObject);

begin

ForDel := DataModule2.Query1['id'];

DelZapros;

ShowZapros();

Edit1.Clear;

Edit2.Clear;

end;

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

begin

InsEdit:=false;

ForEdit:='-1';

end;

procedure TForm3.DBGrid1CellClick(Column: TColumn);

begin

If (Tbl='Ceha') then

begin

Edit2.Text := SelectQ[pole3];

end;

Edit1.Text := SelectQ[pole2];

ForEdit:= SelectQ[pole1];

InsEdit := True;

end;

end.

unit Unit4;

interface

Uses ADODB;

var QueryString, TBL, pole1, pole2, Pole3, pole4, Pole5, pole6 : string;

pole7, pole8, pole9, pole10, pole11, pole12, pole13 : string;

ToIns, ToIns2, ToIns3, ToIns4, ToIns5, ToIns6, ToIns7, ToIns8 : string;

ToIns9, ToIns10, ToIns11, ToIns12, ToIns13, ForDel, ForEdit, ForOrder, Diap, TmpFiltr : string;

InsEdit,InsEdit2,InsEdit3,InsEdit4,InsEdit5 : boolean;

SelectQ : TADOQuery;

EditMode, ForSort, ForFiltr, EditMode2, EditMode3, EditMode4, EditIns, EditIns2 : boolean;

Procedure ShowZapros();

Procedure InsertZapros();

Procedure DelZapros();

Procedure SelTab();

Procedure ForReport();

implementation

Uses Dialogs, Unit2, Unit5, Unit6, Unit3, Unit7, Unit8, Unit1, Unit9, Unit10, DB;

Procedure ShowZapros();

var Polya, Tabli, Svyaz, MyKey : String;

begin

if ((Tbl='Operation')or(Tbl='Station')or(Tbl='Ceha')or

(Tbl='Front')or(Tbl='Gruz')or(Tbl='Rod_vagona')or

(Tbl='Raion_dvizheniya')or(Tbl='Ves')or(Tbl='Vid_uslug')) then

begin

QueryString := 'select * from ' + TBL + ' order by ' + pole2;

SelectQ := DataModule2.Query1;

end;

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29