97
end;
procedure TfrmMain.btnSaveClick(Sender: TObject);
begin
if edtNomer.Text='' then
begin
ShowMessage('Не указан номер');
exit;
end;
if cbClient.Text='' then
begin
ShowMessage('Не указан владелец');
exit;
end;
if cbGruz.Text='' then
begin
ShowMessage('Не указан груз');
exit;
end;
DM.tblNakl.FieldByName('DatePlan').AsDateTime:=dtpDatePlan.DateTime;
DM.tblNakl.FieldByName('DateFact').AsDateTime:=dtpDateFact.DateTime;
DM.tblNakl.FieldByName('TypeNakl').AsBoolean:=tcGrid.TabIndex=1;
DM.tblNakl.Post;
if tcGrid.TabIndex=1 then
begin
DM.tblGruz.Edit;
DM.tblGruz.FieldByName('Nalich').AsBoolean:=false;
DM.tblGruz.Post;
98
end;
FormMode(true);
end;
procedure TfrmMain.FormMode(mode: boolean);
begin
pnlGrid.Enabled:= mode;
pnlMain.Enabled := not mode;
btnSave.Visible := not mode;
btnCancel.Visible := not mode;
pnlReklamac.Enabled:=mode;
end;
procedure TfrmMain.FormShow(Sender: TObject);
begin
FormMode(true);
tcGridChange(Sender);
end;
procedure TfrmMain.imReportClick(Sender: TObject);
var
frm: TfrmReport;
begin
Application.CreateForm(TfrmReport, frm);
frm.FormLoad((Sender as TMenuItem).Tag);
frm.ShowModal;
end;
end.
99
unit uGruz;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, DBCtrls, Mask, Grids, DBGrids, ComCtrls, ExtCtrls,
Data.DB;
type
TfrmGruz = class(TForm)
pnlMain: TPanel;
pnlSub: TPanel;
pnlClose: TPanel;
btnClose: TButton;
btnSave: TButton;
btnCancel: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
dtpDateStart: TDateTimePicker;
dtpDateEnd: TDateTimePicker;
grdSub: TDBGrid;
edtNomer: TDBEdit;
cbNalich: TDBCheckBox;
pmSub: TPopupMenu;
imAdd: TMenuItem;
imEdit: TMenuItem;
imDelete: TMenuItem;
pnlGrid: TPanel;
pmMain: TPopupMenu;
imAddMain: TMenuItem;
100
imEditMain: TMenuItem;
imDeleteMain: TMenuItem;
grdMain: TDBGrid;
procedure pmSubPopup(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure imAddClick(Sender: TObject);
procedure imEditClick(Sender: TObject);
procedure imDeleteClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure imAddMainClick(Sender: TObject);
procedure imEditMainClick(Sender: TObject);
procedure imDeleteMainClick(Sender: TObject);
procedure pmMainPopup(Sender: TObject);
private
procedure FormMode(mode: boolean);
public
{ Public declarations }
end;
var
frmGruz: TfrmGruz;
implementation
{$R *.dfm}
uses
uDM, uListGruz;
procedure TfrmGruz.FormShow(Sender: TObject);
begin
FormMode(true);
101
end;
procedure TfrmGruz.imAddClick(Sender: TObject);
var
frm: TfrmListGruz;
begin
Application.CreateForm(TfrmListGruz,frm);
DM.tblListGruz.Append;
frm.ShowModal;
end;
procedure TfrmGruz.imAddMainClick(Sender: TObject);
begin
DM.tblGruz.Append;
FormMode(false);
end;
procedure TfrmGruz.imDeleteClick(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
DM.tblListGruz.Delete;
end;
procedure TfrmGruz.imDeleteMainClick(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
DM.tblGruz.Delete;
end;
procedure TfrmGruz.imEditClick(Sender: TObject);
102
var
frm: TfrmListGruz;
begin
Application.CreateForm(TfrmListGruz,frm);
DM.tblListGruz.Edit;
frm.ShowModal;
end;
procedure TfrmGruz.imEditMainClick(Sender: TObject);
begin
DM.tblGruz.Edit;
FormMode(False);
end;
procedure TfrmGruz.pmMainPopup(Sender: TObject);
var
fl: boolean;
begin
fl:=grdSub.DataSource.DataSet.RecordCount>0;
imEditMain.Visible:=fl;
imDeleteMain.Visible:=fl;
end;
procedure TfrmGruz.pmSubPopup(Sender: TObject);
var
fl: boolean;
begin
fl:=grdSub.DataSource.DataSet.RecordCount>0;
imEdit.Visible:=fl;
imDelete.Visible:=fl;
end;
103
procedure TfrmGruz.btnCancelClick(Sender: TObject);
begin
DM.tblGruz.Cancel;
FormMode(true);
end;
procedure TfrmGruz.btnSaveClick(Sender: TObject);
begin
DM.tblGruz.FieldByName('DateStart').AsDateTime:=dtpDateStart.DateTime;
DM.tblGruz.FieldByName('DateEnd').AsDateTime:=dtpDateEnd.DateTime;
DM.tblGruz.Post;
FormMode(true);
end;
procedure TfrmGruz.FormMode(mode: boolean);
begin
pnlSub.Enabled := mode;
pnlClose.Enabled:=mode;
pnlMain.Enabled := not mode;
btnSave.Visible := not mode;
btnCancel.Visible := not mode;
end;
end.