begin
DateTimePicker1.Date := Date;
DateTimePicker2.Date := StrToDate('01.01.1950');
Edit2.Text := '';
Edit3.Text := '';
Edit5.Text := '';
Edit8.Text := '';
Edit9.Text := '';
Edit9.Tag := 0;
Edit10.Text := '';
Edit10.Tag := 0;
DBGrid1.Visible := false;
end;
TBL:='Vagon';
procedure TForm6.Edit9Enter(Sender: TObject);
Form3.Caption := 'Род вагона';
Form3.Label1.Caption:= Form3.Caption;
Tbl := 'Rod_vagona';
pole1 := 'id';
pole2 := 'Rod_vagona';
pole3 := '';
pole4 := '';
pole5 := '';
pole6 := '';
pole7 := '';
pole8 := '';
pole9 := '';
pole10 := '';
pole11 := '';
pole12 := '';
pole13 := '';
ShowZapros;
Form3.ShowModal;
Tbl := 'Vagon';
Edit10.SetFocus;
procedure TForm6.Edit10Enter(Sender: TObject);
Form3.Caption := 'Район движения';
Tbl := 'Raion_dvizheniya';
pole2 := 'Raion_dvizh';
Button1.SetFocus;
procedure TForm6.addExecute(Sender: TObject);
Form7.Caption := 'Информация по вагону';
Tbl := 'Operations_s_vagonom';
pole2 := 'key_station_otpr';
pole3 := 'key_front_otpr';
pole4 := 'key_sttion_naznach';
pole5 := 'key_front_naznach';
pole6 := 'date';
pole7 := 'time';
pole8 := 'key_operation';
pole9 := 'key_gruz';
pole10 := 'weight';
pole11 := 'n_dor_ved';
pole12 := 'n_ved';
pole13 := 'key_vagon';
Form7.ShowModal;
if ((EditMode2=false)and(EditIns2)) then
EditMode2:=true;
procedure TForm6.editExecute(Sender: TObject);
if (DataModule2.QOSV['OSV.id']=Null) then
ShowMessage('Нечего редактировать');
EditMode2 := false;
end
else
EditMode2 := True;
procedure TForm6.delExecute(Sender: TObject);
ShowMessage('Нечего удалять');
pole4 := 'key_station_naznach';
pole6 := 'mydate';
pole7 := 'mytime';
ForDel := DataModule2.QOSV['OSV.id'];
DelZapros;
ShowZapros();
procedure TForm6.Edit2Exit(Sender: TObject);
try
strtoint(Edit2.Text);
except
ShowMessage('Здесь должно быть число!!');
Edit2.SetFocus;
procedure TForm6.Edit3Exit(Sender: TObject);
strtoint(Edit3.Text);
Edit3.SetFocus;
procedure TForm6.Edit5Exit(Sender: TObject);
strtoint(Edit5.Text);
Edit5.SetFocus;
procedure TForm6.Edit8Exit(Sender: TObject);
strtoint(Edit8.Text);
//----далее команды если введённая вещь - число
Edit8.SetFocus;
end.
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, TabNotBk, Grids, DBGrids, Menus, ActnList;
type
TForm7 = class(TForm)
GroupBox1: TGroupBox;
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 }
var
Form7: TForm7;
implementation
Uses Unit2, Unit4, Unit3, Unit8, DateUtils;
{$R *.dfm}
procedure TForm7.FormShow(Sender: TObject);
if EditMode2 then
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';
Edit6.Text := '';
Edit4.Text := '';
Edit1.Text := '';
Edit1.Tag := 0;
Edit2.Tag := 0;
Edit7.Text := '';
Edit7.Tag := 0;
Edit8.Tag := 0;
DateTimePicker2.Time := Time;
TBL:='Operations_s_vagonom';
procedure TForm7.FormClose(Sender: TObject; var Action: TCloseAction);
EditMode2:=false;
procedure TForm7.Button1Click(Sender: TObject);
var qtmp : string;
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'];
if ((Edit6.Text<>'')and(Edit4.Text<>'')and(Edit3.Text<>'')and
(Edit1.Text<>'')and(Edit2.Text<>'')and(Edit7.Text<>'')and
(Edit8.Text<>'')and(Edit9.Text<>'')and(Edit10.Text<>'')) then
ForEdit := DataModule2.QOSV['OSV.id'];
InsEdit4 := true;
InsertZapros();
EditIns2 := true;
QueryString:='SELECT top 1 id from '+ TBL+' order by id desc';
with DataModule2.Qtmp do
Close;
SQL.Clear;
SQL.Add(QueryString);
Open;
qtmp := DataModule2.Qtmp['id'];
Form7.Close;
DataModule2.QShow.Locate('v.id',qtmp,[]);
ForEdit := '-1';
ShowMessage('Все поля обязательны к заполнению!');
procedure TForm7.Edit1Enter(Sender: TObject);
Form3.Caption := 'Станция отправитель';
Страницы: 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