Geum.ru


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

Дипломная работа - Компьютеры, программирование

Другие дипломы по предмету Компьютеры, программирование



ole11 := ;

pole12 := ;

pole13 := ;

ShowZapros;

Form3.ShowModal;

Tbl := Operations_s_vagonom;

Edit3.SetFocus;

end;

procedure TForm7.Edit7Enter(Sender: TObject);

begin

Form3.Caption := Станция получатель;

Form3.Label1.Caption:= Form3.Caption;

Tbl := Station;

pole1 := id;

pole2 := Station;

pole3 := ;

pole4 := ;

pole5 := ;

pole6 := ;

pole7 := ;

pole8 := ;

pole9 := ;

pole10 := ;

pole11 := ;

pole12 := ;

pole13 := ;

ShowZapros;

Form3.ShowModal;

Tbl := Operations_s_vagonom;

Edit8.SetFocus;

end;

procedure TForm7.Edit8Enter(Sender: TObject);

begin

Form3.Caption := Фронт получатель;

Form3.Label1.Caption:= Form3.Caption;

Tbl := Front;

pole1 := id;

pole2 := Front;

pole3 := ;

pole4 := ;

pole5 := ;

pole6 := ;

pole7 := ;

pole8 := ;

pole9 := ;

pole10 := ;

pole11 := ;

pole12 := ;

pole13 := ;

ShowZapros;

Form3.ShowModal;

Tbl := Operations_s_vagonom;

Edit9.SetFocus;

end;

procedure TForm7.addExecute(Sender: TObject);

begin

Form8.ShowModal;

end;

procedure TForm7.editExecute(Sender: TObject);

begin

if (DataModule2.Quslugi[USV.id]=Null) then

begin

ShowMessage(Нечего редактировать);

EditMode3 := false;

end

else

begin

EditMode3 := True;

Form8.ShowModal;

end;

end;

procedure TForm7.delExecute(Sender: TObject);

begin

if (DataModule2.Quslugi[USV.id]=Null) then

begin

ShowMessage(Нечего удалять);

EditMode3 := false;

end

else

begin

Tbl := Uslugi_sv;

pole1 := id;

pole2 := zakaz;

pole3 := key_vagon;

pole4 := key_uslugi;

pole5 := key_na;

pole6 := key_s;

pole7 := cena;

pole8 := ;

pole9 := ;

pole10 := ;

pole11 := ;

pole12 := ;

ForDel := DataModule2.Quslugi[USV.id];

DelZapros;

ShowZapros();

TBL:=Operations_s_vagonom;

end;

end;

procedure TForm7.Edit6Exit(Sender: TObject);

begin

try

strtoint(Edit6.Text);

except

ShowMessage(Здесь должно быть число!!);

Edit6.SetFocus;

end;

end;

procedure TForm7.Edit4Exit(Sender: TObject);

begin

try

strtoint(Edit4.Text);

except

ShowMessage(Здесь должно быть число!!);

Edit4.SetFocus;

end;

end;

procedure TForm7.Edit3Exit(Sender: TObject);

begin

try

strtoint(Edit3.Text);

except

ShowMessage(Здесь должно быть число!!);

Edit3.SetFocus;

end;

end;

end.

unit Unit8;

interface

uses

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

Dialogs, StdCtrls, Grids, DBGrids, ActnList, Menus;

type

TForm8 = class(TForm)

GroupBox1: TGroupBox;

Edit1: TEdit;

Label1: TLabel;

Edit2: TEdit;

Edit3: TEdit;

Label2: TLabel;

Label3: TLabel;

DBGrid1: TDBGrid;

Label4: TLabel;

ActionList1: TActionList;

PopupMenu1: TPopupMenu;

add: TAction;

edit: TAction;

del: TAction;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

procedure Edit2Enter(Sender: TObject);

procedure Edit3Enter(Sender: TObject);

procedure FormShow(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

procedure addExecute(Sender: TObject);

procedure editExecute(Sender: TObject);

procedure delExecute(Sender: TObject);

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

procedure Edit1Exit(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form8: TForm8;

implementation

Uses unit2, unit4, Unit3, Unit5, Unit7;

{$R *.dfm}

procedure TForm8.Edit2Enter(Sender: TObject);

begin

Form3.Caption := Цех заказчик;

Form3.Label1.Caption:= Form3.Caption;

Tbl := Ceha;

pole1 := id;

pole2 := n_ceha;

pole3 := bal_schet;

pole4 := ;

pole5 := ;

pole6 := ;

pole7 := ;

pole8 := ;

pole9 := ;

pole10 := ;

pole11 := ;

pole12 := ;

pole13 := ;

ShowZapros;

Form3.ShowModal;

Tbl := Uslugi_sv;

Edit3.SetFocus;

end;

procedure TForm8.Edit3Enter(Sender: TObject);

begin

Form3.Caption := Цех исполнитель;

Form3.Label1.Caption:= Form3.Caption;

Tbl := Ceha;

pole1 := id;

pole2 := n_ceha;

pole3 := bal_schet;

pole4 := ;

pole5 := ;

pole6 := ;

pole7 := ;

pole8 := ;

pole9 := ;

pole10 := ;

pole11 := ;

pole12 := ;

pole13 := ;

ShowZapros;

Form3.ShowModal;

Tbl := Uslugi_sv;

DBGrid1.SetFocus;

end;

procedure TForm8.FormShow(Sender: TObject);

begin

if EditMode3 then

begin

Edit1.Text := DataModule2.Quslugi[zakaz];

Edit2.Text := DataModule2.Quslugi[CS.n_ceha];

Edit2.Tag := StrToInt(DataModule2.Quslugi[key_s]);

Edit3.Text := DataModule2.Quslugi[CNA.n_ceha];

Edit3.Tag := StrToInt(DataModule2.Quslugi[key_na]);

end

else

begin

Edit1.Text := ;

Edit2.Text := ;

Edit2.Tag := 0;

Edit3.Text := ;

Edit3.Tag := 0;

end;

Tbl:=Stoimost;

ShowZapros();

TBL:=Uslugi_sv;

end;

procedure TForm8.DBGrid1DblClick(Sender: TObject);

begin

ToIns := Edit1.Text;

ToIns2 := DataModule2.QOSV[OSV.id];

ToIns3 := DataModule2.QSelUs[ST.id];

ToIns4 := IntToStr(Edit2.Tag);

ToIns5 := IntToStr(Edit3.Tag);

if MessageDlg(Перемножить стоимость заказа на вес?, mtConfirmation, [mbYes, mbNo], 0) = mrYes then

begin

// ToIns6 := IntToStr(StrToInt(DataModule2.QSelUs[stoimost]) * StrToInt(Form7.Edit3.Text));

ToIns6 := FloatToStr(StrToFloat(DataModule2.QSelUs[stoimost]) * StrToFloat(Form7.Edit3.Text));

Close;

end

else

ToIns6 := DataModule2.QSelUs[stoimost];

)and(Edit2.Text)) then

begin

if EditMode3 then

begin

ForEdit := DataModule2.Quslugi[USV.id];

InsEdit5 := true;

InsertZapros();

ShowZapros();

end

else

begin

InsertZapros();

ShowZapros();

ForEdit := -1;

end;

Form8.Close;

end

else

ShowMessage(Все поля обязательны к заполнению!);

end;

procedure