Дипломная работа: Автоматизация документооборота организации ЗАО СМУ-9 "МЕТРОСТРОЙ"

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
112
implementation
uses DataBase;
{$R *.dfm}
procedure TfrmCategory.FormShow(Sender: TObject);
begin
if frmCategory.Tag=1 then
begin
DataInfo.qCategories.Insert;
end
else
begin
DataInfo.qCategories.Edit;
end;
end;
procedure TfrmCategory.btnNoClick(Sender: TObject);
begin
DataInfo.qCategories.Cancel;
frmCategory.Close;
end;
procedure TfrmCategory.btnYesClick(Sender: TObject);
begin
if DataInfo.qCategories.FieldByName('CategoryName').isNull then
begin
MessageDlg('Укажите категорию!',mtError,[mbOk],0);
Exit
end;
DataInfo.qCategories.Post;
113
frmCategory.Close;
end;
end.
unit TypeDoc;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxSkinsCore, dxSkinsDefaultPainters, cxStyles, cxGraphics,
cxEdit, cxDBLookupComboBox, cxCheckBox, Menus,
cxLookAndFeelPainters,
StdCtrls, cxButtons, cxVGrid, cxDBVGrid, cxControls, cxInplaceContainer,
cxLookAndFeels, cxDropDownEdit, cxSpinEdit;
type
TfrmTypeDoc = class(TForm)
vgTypeDoc: TcxDBVerticalGrid;
btnYes: TcxButton;
btnNo: TcxButton;
vgTypeDocTypeName: TcxDBEditorRow;
procedure FormShow(Sender: TObject);
procedure btnNoClick(Sender: TObject);
procedure btnYesClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
114
frmTypeDoc: TfrmTypeDoc;
implementation
uses DataBase;
{$R *.dfm}
procedure TfrmTypeDoc.FormShow(Sender: TObject);
begin
if frmTypeDoc.Tag=1 then
begin
DataInfo.qTypeDoc.Insert;
end
else
begin
DataInfo.qTypeDoc.Edit;
end;
end;
procedure TfrmTypeDoc.btnNoClick(Sender: TObject);
begin
DataInfo.qTypeDoc.Cancel;
frmTypeDoc.Close;
end;
procedure TfrmTypeDoc.btnYesClick(Sender: TObject);
begin
if DataInfo.qTypeDoc.FieldByName('TypeName').isNull then
begin
MessageDlg('Укажите тип документа!',mtError,[mbOk],0);
Exit
115
end;
DataInfo.qTypeDoc.Post;
frmTypeDoc.Close;
end;
end.
Источник: https://baza.diplomsite.ru/previewfile/1724

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

_1966(~1
_files_materials_5053_prog.ntr
_Антонян Ю.М., Сексуальные преступления. Чикатило и другие
_РГР № 1 (2)
- Габариты и масса 27
!Фармакология препаратов для терапии заболеваний дыхательных путей
'Образ–Я' и его развитие средствами диалога