Материал: Автоматизация контроля качества ФГУП "Научно-производственный центр автоматики и приборостроения имени Н.А. Пилюгина"

Скачать файл

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

127

Exit

end;

DataInfo.qWares.FieldByName('UserId').asInteger:=UserId;

DataInfo.qWares.Post;

try

Pos:=DataInfo.qListWares.GetBookmark;

DataInfo.qListWares.Close;

DataInfo.qListWares.Open;

DataInfo.qListWares.GotoBookmark(Pos);

finally

DataInfo.qListWares.FreeBookmark(Pos);

end;

frmWares.Close;

end;

end.

unit TypeWare;

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,

cxDropDownEdit, cxLookAndFeels;

type

TfrmTypes = class(TForm)

vgTypes: TcxDBVerticalGrid;

btnYes: TcxButton;

128

btnNo: TcxButton;

vgTypesTypeName: TcxDBEditorRow;

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormShow(Sender: TObject);

procedure btnNoClick(Sender: TObject);

procedure btnYesClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmTypes: TfrmTypes;

implementation

uses DataBase;

{$R *.dfm}

procedure TfrmTypes.FormClose(Sender: TObject; var Action: TCloseAction);

begin

DataInfo.qTypes.Close;

end;

procedure TfrmTypes.FormShow(Sender: TObject);

begin

if frmTypes.Tag=1 then

begin

frmTypes.Caption:='Новый тип';

DataInfo.qTypes.Close;

129

DataInfo.qTypes.Parameters.ParamValues['TypeId']:=0;

DataInfo.qTypes.Open;

DataInfo.qTypes.Insert;

end

else

begin

frmTypes.Caption:=DataInfo.qListTypes.FieldByName('TypeName').asString;

DataInfo.qTypes.Close;

DataInfo.qTypes.Parameters.ParamValues['TypeId']:=DataInfo.qListTypes.FieldByNa

me('Id').asInteger;

DataInfo.qTypes.Open;

DataInfo.qTypes.Edit;

end;

procedure TfrmTypes.btnNoClick(Sender: TObject);

begin

DataInfo.qTypes.Cancel;

frmTypes.Close;

end;

procedure TfrmTypes.btnYesClick(Sender: TObject);

begin

if DataInfo.qTypes.FieldByName('TypeName').isNull then

begin

MessageDlg('Укажите название типа изделия!',mtError,[mbOk],0);

Exit

end;

DataInfo.qTypes.Post;

try

130

Pos:=DataInfo.qListTypes.GetBookmark;

DataInfo.qListTypes.Close;

DataInfo.qListTypes.Open;

DataInfo.qListTypes.GotoBookmark(Pos);

finally

DataInfo.qListTypes.FreeBookmark(Pos);

end;

frmTypes.Close;

end;

end.

unit Refer;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, dxSkinsCore, dxSkinsDefaultPainters, dxSkinsdxRibbonPainter,

dxSkinsdxBarPainter, cxTextEdit, cxCheckBox, dxBar, dxBarExtItems,

cxBarEditItem, ImgList, cxGraphics, cxClasses, dxRibbon, cxControls,

dxSkinscxPCPainter, cxStyles, cxCustomData, cxFilter, cxData,

cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel, cxGridChartView,

cxGridDBChartView, cxGridCustomTableView, cxGridTableView,

cxGridDBTableView, cxGridCustomView, cxGrid, cxPC,

cxDBLookupComboBox,

cxLookAndFeels, cxLookAndFeelPainters, dxRibbonSkins,

cxPCdxBarPopupMenu,

cxNavigator, cxDropDownEdit;

type

TfrmRefer = class(TForm)

MainRibbon: TdxRibbon;

131

rtEditor: TdxRibbonTab;

pcRefer: TcxPageControl;

tsTypes: TcxTabSheet;

grdTypes: TcxGrid;

tblTypeRequest: TcxGridDBTableView;

grdTypesLevel: TcxGridLevel;

tsUsers: TcxTabSheet;

grdUsers: TcxGrid;

tblUsers: TcxGridDBTableView;

cxGridLevel1: TcxGridLevel;

BarManager: TdxBarManager;

BarManagerBar1: TdxBar;

btnNew: TdxBarLargeButton;

btnEdit: TdxBarLargeButton;

btnDel: TdxBarLargeButton;

btnClose: TdxBarLargeButton;

tsCategories: TcxTabSheet;

grdCategories: TcxGrid;

tblServices: TcxGridDBTableView;

cxGridLevel2: TcxGridLevel;

tblUsersUserName: TcxGridDBColumn;

tsMeasures: TcxTabSheet;

grdMeasures: TcxGrid;

tblMeasures: TcxGridDBTableView;

cxGridLevel3: TcxGridLevel;

tblMeasuresMeasureName: TcxGridDBColumn;

tblServicesCategoryName: TcxGridDBColumn;

tblServicesTypeName: TcxGridDBColumn;

tblTypeRequestTypeName: TcxGridDBColumn;

tblUsersTypeUser: TcxGridDBColumn;

tsNorms: TcxTabSheet;

grdNorms: TcxGrid;

Источник: https://baza.diplomsite.ru/previewfile/1836

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








Анализ эффективности инвестиций предприятия на примере ООО «СпецПримСтрой»
Изложение содержания дела, по которому приняты судебные постановления
Проактивные методы PR-деятельности российских авиационных компаний «Россия», «Азимут»