Geum.ru


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

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

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



upBox;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

Label12: TLabel;

Edit6: TEdit;

Edit4: TEdit;

Edit3: TEdit;

Button1: TButton;

GroupBox2: TGroupBox;

DBGrid1: TDBGrid;

DateTimePicker1: TDateTimePicker;

DateTimePicker2: TDateTimePicker;

Edit1: TEdit;

Edit2: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Edit9: TEdit;

Edit10: TEdit;

ActionList1: TActionList;

PopupMenu1: TPopupMenu;

add: TAction;

edit: TAction;

del: TAction;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

procedure FormShow(Sender: TObject);

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

procedure Button1Click(Sender: TObject);

procedure Edit1Enter(Sender: TObject);

procedure Edit2Enter(Sender: TObject);

procedure Edit9Enter(Sender: TObject);

procedure Edit10Enter(Sender: TObject);

procedure Edit7Enter(Sender: TObject);

procedure Edit8Enter(Sender: TObject);

procedure addExecute(Sender: TObject);

procedure editExecute(Sender: TObject);

procedure delExecute(Sender: TObject);

procedure Edit6Exit(Sender: TObject);

procedure Edit4Exit(Sender: TObject);

procedure Edit3Exit(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;

implementation

Uses Unit2, Unit4, Unit3, Unit8, DateUtils;

{$R *.dfm}

procedure TForm7.FormShow(Sender: TObject);

begin

if EditMode2 then

begin

DBGrid1.Visible := true;

Edit6.Text := DataModule2.QOSV[n_ved];

Edit4.Text := DataModule2.QOSV[n_dor_ved];

DateTimePicker1.Date := StrToDate(DataModule2.QOSV[mydate]);

DateTimePicker2.DateTime := StrToTime(DataModule2.QOSV[mytime]);

Edit1.Text := DataModule2.QOSV[SNACH.station];

Edit1.Tag := StrToInt(DataModule2.QOSV[key_station_otpr]);

Edit2.Text := DataModule2.QOSV[FNACH.front];

Edit2.Tag := StrToInt(DataModule2.QOSV[key_front_otpr]);

Edit7.Text := DataModule2.QOSV[SKON.station];

Edit7.Tag := StrToInt(DataModule2.QOSV[key_station_naznach]);

Edit8.Text := DataModule2.QOSV[FKON.front];

Edit8.Tag := StrToInt(DataModule2.QOSV[key_front_naznach]);

Edit9.Text := DataModule2.QOSV[operation];

Edit9.Tag := StrToInt(DataModule2.QOSV[key_operation]);

Edit10.Text := DataModule2.QOSV[gruz];

Edit10.Tag := StrToInt(DataModule2.QOSV[key_gruz]);

Edit3.Text := DataModule2.QOSV[weight];

Tbl:=Uslugi_sv;

ShowZapros();

end

else

begin

Edit6.Text := ;

Edit4.Text := ;

Edit1.Text := ;

Edit1.Tag := 0;

Edit2.Text := ;

Edit2.Tag := 0;

Edit7.Text := ;

Edit7.Tag := 0;

Edit8.Text := ;

Edit8.Tag := 0;

Edit9.Text := ;

Edit9.Tag := 0;

Edit10.Text := ;

Edit10.Tag := 0;

Edit3.Text := ;

DBGrid1.Visible := false;

DateTimePicker1.Date := Date;

DateTimePicker2.Time := Time;

end;

TBL:=Operations_s_vagonom;

end;

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

begin

if EditMode2 then

begin

EditMode2:=false;

end;

TBL:=Vagon;

end;

procedure TForm7.Button1Click(Sender: TObject);

var qtmp : string;

begin

ToIns := IntToStr(Edit1.Tag);

ToIns2 := IntToStr(Edit2.Tag);

ToIns3 := IntToStr(Edit7.Tag);

ToIns4 := IntToStr(Edit8.Tag);

ToIns5 := DateToStr(DateTimePicker1.Date);

ToIns6 := TimeToStr(DateTimePicker2.Time);

ToIns7 := IntToStr(Edit9.Tag);

ToIns8 := IntToStr(Edit10.Tag);

ToIns9 := Edit3.Text;

ToIns10 := Edit6.Text;

ToIns11 := Edit4.Text;

ToIns12 := DataModule2.QShow[V.id];

)and(Edit4.Text)and

)and(Edit2.Text)and

)and(Edit9.Text)) then

begin

if EditMode2 then

begin

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

InsEdit4 := true;

InsertZapros();

ShowZapros();

end

else

begin

EditIns2 := true;

InsertZapros();

QueryString:=SELECT top 1 id from + TBL+ order by id desc;

with DataModule2.Qtmp do

begin

Close;

SQL.Clear;

SQL.Add(QueryString);

Open;

end;

qtmp := DataModule2.Qtmp[id];

Form7.Close;

ShowZapros();

DataModule2.QShow.Locate(v.id,qtmp,[]);

ForEdit := -1;

end;

Form7.Close;

end

else

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

end;

procedure TForm7.Edit1Enter(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;

Edit2.SetFocus;

end;

procedure TForm7.Edit2Enter(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;

Edit7.SetFocus;

end;

procedure TForm7.Edit9Enter(Sender: TObject);

begin

Form3.Caption := Операции;

Form3.Label1.Caption:= Form3.Caption;

Tbl := Operation;

pole1 := id;

pole2 := Operation;

pole3 := ;

pole4 := ;

pole5 := ;

pole6 := ;

pole7 := ;

pole8 := ;

pole9 := ;

pole10 := ;

pole11 := ;

pole12 := ;

pole13 := ;

ShowZapros;

Form3.ShowModal;

Tbl := Operations_s_vagonom;

Edit10.SetFocus;

end;

procedure TForm7.Edit10Enter(Sender: TObject);

begin

Form3.Caption := Груз;

Form3.Label1.Caption:= Form3.Caption;

Tbl := Gruz;

pole1 := id;

pole2 := Gruz;

pole3 := ;

pole4 := ;

pole5 := ;

pole6 := ;

pole7 := ;

pole8 := ;

pole9 := ;

pole10 := ;

p