Inc(sLit[1]) //
else begin
Inc(sNum);
sLit:= '';
end;
EditSeat.Text:= IntToStr(sNum) + sLit;
End
end;
, .
FormNewTicket OnFormCloseQuery. ( ) , .
procedure TFormNewTicket.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
Begin
if ModalResult = mrOk then begin
// ,
CanClose:= (EditSeat.Text <> '') and (EditNum.Text <> '') and
(Length(EditName.Text) > 2) and (Length(EditName2.Text) > 2);
end;
end;
, FormNewTicket, .. .
, .. , .
procedure TFormTicket.ButtonNewTicketClick(Sender: TObject);
Begin
// FormNewTicket
// FormNewTicket
If < ?> then begin
// -
// FormNewTicket
If < 0?> then begin
// ,
end;
If < FormNewTicket ?> then begin
// ,
end;
end;
//
end;
.
// FormNewTicket
If not IBQueryCntTick.FieldByName('fl_date').IsNull then
FormNewTicket.DateTimePickerTicket.DateTime:=
IBQueryCntTick.FieldByName('fl_date').AsDateTime
Else
FormNewTicket.DateTimePickerTicket.DateTime:= Now;
DateTimePickerTicket FormNewTicket IBQueryCntTick ( ), , .
FormNewTicket, , , . .
if FormNewTicket.ShowModal = mrOk then begin
. , ( DateTimePickerTicket FormNewTicket). IBQueryAny, . .
// -
IBQueryAsc.SQL.Text:= 'select count(*) from FLIGHT where FL_NUM = '
+ IBQueryTarifTR_AL_NUM.AsString + ' AND FL_DATE = '''
|
|
|
+ DateToStr(FormNewTicket.DateTimePickerTicket.Date) + '''';
IBQueryAsc.Open;
if IBQueryAsc.Fields[0].AsInteger = 0 then begin
// -
, , , . . , FormNewFlight ( 26).
26
Memo1 , ComboBox , , , . .
//
FormNewFlight.Memo1.Text:=
' ' + IBQueryTarifTR_AL_NUM.AsString
+ ' ' + DateToStr(FormNewTicket.DateTimePickerTicket.Date)
+ ' , ?';
FormNewFlight.ComboBox.Clear;
FormNewFlight.ComboBox.Items.Clear;
IBQueryAsc.SQL.Text:= 'select BRD.BRD_NUM from BOARD BRD '
+ 'INNER JOIN AIRLINE AL ON BRD.BRG_AC_CODE = AL.AL_AC_CODE '
+ 'WHERE AL.AL_NUM = ' + IBQueryTarifTR_AL_NUM.AsString;
IBQueryAsc.Open;
//
