Дипломная работа: Автоматизация обработки заявок АО "Сейм-Агро"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
101
{ Public declarations }
end;
var
frmMain: TfrmMain;
implementation
{$R *.dfm}
uses
uOrder, uPost, uGrid, uReport, uDM, uSetLink;
procedure TfrmMain.FormShow(Sender: TObject);
begin
imClient.Visible:=DM.user.Admin=false;
imLibrary.Visible:=DM.user.Admin=false;
imManager.Visible:=DM.user.Admin=true;
end;
procedure TfrmMain.imAddMainClick(Sender: TObject);
var
frm: TfrmOrder;
begin
Application.CreateForm(TfrmOrder,frm);
frm.Tag:=0;
DM.tblOrder.Append;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imAddSubClick(Sender: TObject);
102
var
frm: TfrmPost;
begin
Application.CreateForm(TfrmPost,frm);
frm.Tag:=0;
DM.tblPost.Append;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imCloseClick(Sender: TObject);
begin
Application.Terminate;
end;
procedure TfrmMain.imDeleteMainClick(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
grdMain.DataSource.DataSet.Delete;
end;
procedure TfrmMain.imDeleteSubClick(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
grdSub.DataSource.DataSet.Delete;
end;
procedure TfrmMain.imEditMainClick(Sender: TObject);
var
frm: TfrmOrder;
103
begin
Application.CreateForm(TfrmOrder,frm);
frm.Tag:=1;
DM.tblOrder.Edit;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imEditSubClick(Sender: TObject);
var
frm: TfrmPost;
begin
Application.CreateForm(TfrmPost,frm);
frm.Tag:=1;
DM.tblPost.Edit;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.pmMainPopup(Sender: TObject);
begin
imAddMain.Visible:=DM.user.Admin=false;
imEditMain.Visible:=(grdMain.DataSource.DataSet.FieldCount>0) and
(DM.user.Admin=false);
imDeleteMain.Visible:=(grdMain.DataSource.DataSet.FieldCount>0) and
(DM.user.Admin=false);
imReport2.Visible:=grdMain.DataSource.DataSet.FieldCount>0
end;
procedure TfrmMain.pmSubPopup(Sender: TObject);
begin
imAddMain.Visible:=(grdMain.DataSource.DataSet.FieldCount>0) and
104
(DM.user.Admin=false);
imEditMain.Visible:=(grdSub.DataSource.DataSet.FieldCount>0) and
(DM.user.Admin=false);
imDeleteMain.Visible:=(grdSub.DataSource.DataSet.FieldCount>0) and
(DM.user.Admin=false);
imPart.Visible:=(grdSub.DataSource.DataSet.FieldCount>0) and
(DM.user.Admin=false);
imReport3.Visible:=grdSub.DataSource.DataSet.FieldCount>0
end;
procedure TfrmMain.imGridClick(Sender: TObject);
var
frm: TfrmGrid;
begin
Application.CreateForm(TfrmGrid,frm);
frm.Tag:=(Sender as TMenuItem).Tag;
frm.ShowModal;
frm.Free;
end;
procedure TfrmMain.imLinkingClick(Sender: TObject);
begin
frmSetLink.ShowModal;
end;
procedure TfrmMain.imReportClick(Sender: TObject);
var
frm: TfrmReport;
begin
Application.CreateForm(TfrmReport,frm);
105
frm.Tag:=(Sender as TMenuItem).Tag;
frm.ShowModal;
frm.Free;
end;
end.
Источник: https://baza.diplomsite.ru/previewfile/1857

Смотрите также:

ЦЕНОВАЯ ПОЛИТИКА ПРЕДПРИЯТИЯ НА ПРИМЕРЕ ООО «ДНС РИТЕЙЛ»
_archivetempпротивовоспалительные
_Роджерс Карл, Брак и его альтернативы
- Обратный порядок следования фаз 4
- Сопротивление изоляции 25
!_Лабораторные_работы_1_сем_ОУТС
!Контрольная работа (задание)
!Фармакология препаратов для терапии заболеваний дыхательных путей