Дипломная работа: Автоматизация контроля качества в ТОО "ПКК САКТАГАН"

Скачать файл

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

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

131

DataInfo.qTypes.Close;

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.FieldB

yName('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

132

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

Exit

end;

DataInfo.qTypes.Post;

try

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,

133

cxGridDBChartView, cxGridCustomTableView, cxGridTableView,

cxGridDBTableView, cxGridCustomView, cxGrid, cxPC,

cxDBLookupComboBox,

cxLookAndFeels, cxLookAndFeelPainters, dxRibbonSkins,

cxPCdxBarPopupMenu,

cxNavigator, cxDropDownEdit;

type

TfrmRefer = class(TForm)

MainRibbon: TdxRibbon;

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;

134

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;

tblListNorms: TcxGridDBTableView;

cxGridLevel4: TcxGridLevel;

tblListNormsCategoryName: TcxGridDBColumn;

tblListNormsNormName: TcxGridDBColumn;

tblListNormsNormValue: TcxGridDBColumn;

tblListNormsTolerLow: TcxGridDBColumn;

tblListNormsTolerHigh: TcxGridDBColumn;

procedure btnNewClick(Sender: TObject);

procedure btnEditClick(Sender: TObject);

procedure btnDelClick(Sender: TObject);

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

procedure FormShow(Sender: TObject);

procedure btnCloseClick(Sender: TObject);

procedure pcReferChange(Sender: TObject);

135

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmRefer: TfrmRefer;

implementation

uses Main, DataBase, TypeWare, Users, Categories, Measures, Norms;

{$R *.dfm}

procedure TfrmRefer.btnCloseClick(Sender: TObject);

begin

frmRefer.Close;

end;

procedure TfrmRefer.FormClose(Sender: TObject; var Action:

TCloseAction);

begin

DataInfo.qListNorms.Close;

DataInfo.qListMeasures.Close;

DataInfo.qListCategories.Close;

DataInfo.qListUsers.Close;

DataInfo.qListTypes.Close;

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

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

_3 тема - Диффузия
[БИЛЕТЫ] IMK №3
00601
01. Концепция БД
02_ЛР
02. РСЧС_ВСМК_Таблица
05. Частная патология ССС - Инфаркт миокарда
0501 Конунников ЛР10-3
0501_Конунников_ЛР№2
06-20-DatabasesGenomEvolution