Width = 217

Height = 49

Caption = #1055#1056#1054#1044#1040#1046#1040

Enabled = False

Flat = True

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'MS Sans Serif'

Font.Style = []

ParentFont = False

OnClick = spPClick

end

object spK: TSpeedButton

Left = 8

Top = 130

Width = 217

Height = 49

Caption = #1050#1040#1057#1057#1040

Enabled = False

Flat = True

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'MS Sans Serif'

Font.Style = []

ParentFont = False

OnClick = spKClick

end

object SpPr: TSpeedButton

Left = 8

Top = 179

Width = 217

Height = 49

Caption = #1055#1056#1054#1044#1040#1053#1053#1054#1045

Enabled = False

Flat = True

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'MS Sans Serif'

Font.Style = []

ParentFont = False

OnClick = SpPrClick

end

end

object tuser: TLabeledEdit

Left = 248

Top = 80

Width = 201

Height = 32

CharCase = ecUpperCase

EditLabel.Width = 134

EditLabel.Height = 24

EditLabel.Caption = #1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100':'

EditLabel.Font.Charset = DEFAULT_CHARSET

EditLabel.Font.Color = clWindowText

EditLabel.Font.Height = -19

EditLabel.Font.Name = 'MS Sans Serif'

EditLabel.Font.Style = []

EditLabel.ParentFont = False

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'MS Sans Serif'

Font.Style = []

ParentFont = False

TabOrder = 1

end

object tpass: TLabeledEdit

Left = 248

Top = 144

Width = 201

Height = 32

EditLabel.Width = 71

EditLabel.Height = 24

EditLabel.Caption = #1055#1072#1088#1086#1083#1100':'

EditLabel.Font.Charset = DEFAULT_CHARSET

EditLabel.Font.Color = clWindowText

EditLabel.Font.Height = -19

EditLabel.Font.Name = 'MS Sans Serif'

EditLabel.Font.Style = []

EditLabel.ParentFont = False

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'MS Sans Serif'

Font.Style = []

ParentFont = False

PasswordChar = '*'

TabOrder = 2

end

object BitBtn1: TBitBtn

Left = 280

Top = 184

Width = 145

Height = 41

Caption = #1055#1054#1044#1050#1051#1070#1063#1048#1058#1068#1057#1071

Default = True

ModalResult = 1

TabOrder = 3

OnClick = BitBtn1Click

Glyph.Data = {

DE010000424DDE01000000000000760000002800000024000000120000000100

0400000000006801000000000000000000001000000000000000000000000000

80000080000000808000800000008000800080800000C0C0C000808080000000

FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333

3333333333333333333333330000333333333333333333333333F33333333333

00003333344333333333333333388F3333333333000033334224333333333333

338338F3333333330000333422224333333333333833338F3333333300003342

222224333333333383333338F3333333000034222A22224333333338F338F333

8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224

33333338F83338F338F33333000033A33333A222433333338333338F338F3333

0000333333333A222433333333333338F338F33300003333333333A222433333

333333338F338F33000033333333333A222433333333333338F338F300003333

33333333A222433333333333338F338F00003333333333333A22433333333333

3338F38F000033333333333333A223333333333333338F830000333333333333

333A333333333333333338330000333333333333333333333333333333333333

0000}

NumGlyphs = 2

end

object Baza: TIBDatabase

DatabaseName = 'KODAK.GDB'

Params.Strings = (

'')

LoginPrompt = False

DefaultTransaction = Tranz

IdleTimer = 0

SQLDialect = 3

TraceFlags = []

AfterConnect = bazaAfterConnect

AfterDisconnect = BazaAfterDisconnect

Left = 288

Top = 24

end

object Tranz: TIBTransaction

Active = False

DefaultDatabase = Baza

AutoStopAction = saNone

Left = 328

Top = 24

end

object IBQuery1: TIBQuery

Database = Baza

Transaction = Tranz

BufferChunks = 1000

CachedUpdates = False

SQL.Strings = (

'select * from rabotniki where polz=:pp')

Left = 416

Top = 40

ParamData = <

item

DataType = ftUnknown

Name = 'pp'

ParamType = ptUnknown

end>

object IBQuery1ID_RAB: TIntegerField

FieldName = 'ID_RAB'

Origin = 'RABOTNIKI.ID_RAB'

Required = True

end

object IBQuery1POLZ: TIBStringField

FieldName = 'POLZ'

Origin = 'RABOTNIKI.POLZ'

Size = 30

end

object IBQuery1PASS: TIBStringField

FieldName = 'PASS'

Origin = 'RABOTNIKI.PASS'

Size = 30

end

object IBQuery1FIO: TIBStringField

FieldName = 'FIO'

Origin = 'RABOTNIKI.FIO'

Size = 50

end

end

object DataSource1: TDataSource

DataSet = IBQuery1

Left = 416

Top = 8

end

end

Модуль otch:

object Form1: TForm1

Left = 242

Top = 91

Width = 824

Height = 712

Caption = 'Form1'

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

OldCreateOrder = False

Scaled = False

PixelsPerInch = 96

TextHeight = 13

object QuickRep1: TQuickRep

Tag = 1

Left = 0

Top = 0

Width = 794

Height = 1123

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

DataSet = frmKassa.tblKassa

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -13

Font.Name = 'Times New Roman'

Font.Style = []

Functions.Strings = (

'PAGENUMBER'

'COLUMNNUMBER'

'REPORTTITLE'

'QRSTRINGSBAND1')

Functions.DATA = (

'0'

'0'

#39#39

#39#39)

Options = [FirstPageHeader, LastPageFooter]

Page.Columns = 1

Page.Orientation = poPortrait

Page.PaperSize = A4

Page.Values = (

100.012500000000000000

2970.000000000000000000

100.012500000000000000

2100.000000000000000000

100.012500000000000000

100.012500000000000000

0.000000000000000000)

PrinterSettings.Copies = 1

PrinterSettings.Duplex = False

PrinterSettings.FirstPage = 0

PrinterSettings.LastPage = 0

PrinterSettings.OutputBin = Auto

PrintIfEmpty = True

SnapToGrid = True

Units = Pixels

Zoom = 100

object QRBand1: TQRBand

Left = 38

Top = 38

Width = 718

Height = 40

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

AlignToBottom = False

Color = clWhite

ForceNewColumn = False

ForceNewPage = False

Size.Values = (

105.833333333333300000

1899.708333333333000000)

BandType = rbTitle

object QRLabel5: TQRLabel

Left = 221

Top = 3

Width = 272

Height = 33

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

87.312500000000000000

584.729166666666800000

7.937500000000000000

719.666666666666800000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Caption = #1054#1058#1063#1045#1058' '#1055#1054' '#1050#1040#1057#1057#1045':'

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -29

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 22

end

object QRSysData1: TQRSysData

Left = 568

Top = -2

Width = 52

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

74.083333333333340000

1502.833333333333000000

-5.291666666666667000

137.583333333333300000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

Color = clWhite

Data = qrsDate

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

FontSize = 14

end

end

object QRBand3: TQRBand

Left = 38

Top = 78

Width = 718

Height = 25

Frame.Color = clBlack

Frame.DrawTop = True

Frame.DrawBottom = True

Frame.DrawLeft = True

Frame.DrawRight = True

AlignToBottom = False

Color = clWhite

ForceNewColumn = False

ForceNewPage = False

Size.Values = (

66.145833333333340000

1899.708333333333000000)

BandType = rbColumnHeader

object QRLabel2: TQRLabel

Left = 0

Top = 0

Width = 100

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

0.000000000000000000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Caption = #1042#1056#1045#1052#1071

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRLabel3: TQRLabel

Left = 112

Top = 0

Width = 100

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

296.333333333333400000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Caption = #1055#1056#1048#1053#1071#1058#1054

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRLabel4: TQRLabel

Left = 224

Top = 0

Width = 100

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

592.666666666666800000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Caption = #1057#1044#1040#1063#1040

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRLabel1: TQRLabel

Left = 345

Top = 0

Width = 100

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

912.812500000000100000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Caption = #1042#1067#1056#1059#1063#1050#1040

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRLabel8: TQRLabel

Left = 468

Top = 1

Width = 249

Height = 22

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

58.208333333333340000

1238.250000000000000000

2.645833333333333000

658.812500000000000000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Caption = #1056#1040#1041#1054#1058#1053#1048#1050

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

end

object QRBand2: TQRBand

Left = 38

Top = 103

Width = 718

Height = 23

Frame.Color = clBlack

Frame.DrawTop = True

Frame.DrawBottom = True

Frame.DrawLeft = True

Frame.DrawRight = True

AlignToBottom = False

Color = clWhite

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -16

Font.Name = 'Arial'

Font.Style = []

ForceNewColumn = False

ForceNewPage = False

ParentFont = False

Size.Values = (

60.854166666666680000

1899.708333333333000000)

BandType = rbDetail

object QRDBText2: TQRDBText

Left = 0

Top = 0

Width = 100

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

0.000000000000000000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

DataSet = frmKassa.tblKassa

DataField = 'VREMA'

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRDBText3: TQRDBText

Left = 112

Top = 0

Width = 100

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

296.333333333333400000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

DataSet = frmKassa.tblKassa

DataField = 'PRINATO'

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRDBText4: TQRDBText

Left = 225

Top = 0

Width = 100

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

595.312500000000000000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

DataSet = frmKassa.tblKassa

DataField = 'SDACHA'

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRDBText1: TQRDBText

Left = 346

Top = 0

Width = 100

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

915.458333333333200000

0.000000000000000000

264.583333333333400000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

DataSet = frmKassa.tblKassa

DataField = 'PRIB'

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRDBText6: TQRDBText

Left = 469

Top = 0

Width = 248

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = True

Size.Values = (

74.083333333333340000

1240.895833333333000000

0.000000000000000000

656.166666666666800000)

Alignment = taCenter

AlignToBand = False

AutoSize = False

AutoStretch = False

Color = clWhite

DataSet = frmKassa.tblKassa

DataField = 'FIO'

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

end

object QRBand4: TQRBand

Left = 38

Top = 126

Width = 718

Height = 67

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

AlignToBottom = False

Color = clWhite

ForceNewColumn = False

ForceNewPage = False

Size.Values = (

177.270833333333300000

1899.708333333333000000)

BandType = rbSummary

object QRDBText5: TQRDBText

Left = 189

Top = 5

Width = 74

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

74.083333333333340000

500.062500000000100000

13.229166666666670000

195.791666666666700000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Color = clWhite

DataSet = frmKassa.zapSum

DataField = 'SUMMA'

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRLabel6: TQRLabel

Left = 0

Top = 5

Width = 186

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

74.083333333333340000

0.000000000000000000

13.229166666666670000

492.124999999999900000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Caption = #1054#1041#1065#1040#1071' '#1042#1067#1056#1059#1063#1050#1040':'

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRLabel7: TQRLabel

Left = 488

Top = 5

Width = 108

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

74.083333333333340000

1291.166666666667000000

13.229166666666670000

285.750000000000000000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Caption = #1047#1040#1056#1055#1051#1040#1058#1040':'

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object zap: TQRLabel

Left = 597

Top = 5

Width = 11

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

74.083333333333340000

1579.562500000000000000

13.229166666666670000

29.104166666666670000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Caption = '0'

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object lp: TQRLabel

Left = 677

Top = 5

Width = 16

Height = 28

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

74.083333333333340000

1791.229166666667000000

13.229166666666670000

42.333333333333340000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Caption = #1088'.'

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = [fsBold]

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

object QRLabel9: TQRLabel

Left = 289

Top = 42

Width = 364

Height = 22

Frame.Color = clBlack

Frame.DrawTop = False

Frame.DrawBottom = False

Frame.DrawLeft = False

Frame.DrawRight = False

Size.Values = (

58.208333333333340000

764.645833333333400000

111.125000000000000000

963.083333333333400000)

Alignment = taLeftJustify

AlignToBand = False

AutoSize = True

AutoStretch = False

Caption = #1044#1080#1088#1077#1082#1090#1086#1088'___________________/_________'

Color = clWhite

Font.Charset = RUSSIAN_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'Times New Roman'

Font.Style = []

ParentFont = False

Transparent = False

WordWrap = True

FontSize = 14

end

end

end

end

Модуль prod:

object frmProd: TfrmProd

Left = 495

Top = 276

BorderIcons = [biSystemMenu, biMinimize]

BorderStyle = bsSingle

Caption = #1055#1056#1054#1044#1040#1046#1040

ClientHeight = 369

ClientWidth = 531

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

FormStyle = fsStayOnTop

OldCreateOrder = False

Position = poDesktopCenter

OnActivate = FormActivate

OnClose = FormClose

PixelsPerInch = 96

TextHeight = 13

object Label4: TLabel

Left = 344

Top = 263

Width = 93

Height = 29

Caption = #1057#1044#1040#1063#1040':'

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -24

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

end

object sd: TLabel

Left = 384

Top = 304

Width = 8

Height = 29

Font.Charset = DEFAULT_CHARSET

Font.Color = clGreen

Font.Height = -24

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

end

object Label2: TLabel

Left = 0

Top = 264

Width = 134

Height = 29

Caption = #1055#1056#1048#1053#1071#1058#1054':'

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -24

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

end

object lp: TLabel

Left = 400

Top = 303

Width = 25

Height = 29

AutoSize = False

Caption = #1088'.'

Font.Charset = DEFAULT_CHARSET

Font.Color = clGreen

Font.Height = -24

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

end

object Oplata: TSpeedButton

Left = 0

Top = 336

Width = 185

Height = 33

Caption = #1054#1055#1051#1040#1063#1045#1053#1054

Flat = True

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

OnClick = OplataClick

end

object GroupBox1: TGroupBox

Left = 0

Top = 0

Width = 531

Height = 119

Align = alTop

Caption = #1055#1056#1054#1044#1040#1046#1040':'

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'MS Sans Serif'

Font.Style = []

ParentFont = False

TabOrder = 0

DesignSize = (

531

119)

object Label8: TLabel

Left = 1

Top = 23

Width = 108

Height = 24

Caption = #1042#1080#1076' '#1090#1086#1074#1072#1088#1072':'

end

object Label3: TLabel

Left = 149

Top = 24

Width = 60

Height = 24

Caption = #1058#1086#1074#1072#1088':'

end

object Label7: TLabel

Left = 7

Top = 84

Width = 66

Height = 24

Caption = #1050#1086#1083'-'#1074#1086':'

end

object prodan: TSpeedButton

Left = 150

Top = 80

Width = 123

Height = 33

Caption = #1044#1054#1041#1040#1042#1048#1058#1068

Flat = True

OnClick = prodanClick

end

object Label1: TLabel

Left = 352

Top = 38

Width = 99

Height = 29

Caption = #1048#1058#1054#1043#1054':'

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -24

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

end

object DBSumma: TDBText

Left = 360

Top = 71

Width = 123

Height = 29

AutoSize = True

DataField = 'Itog'

DataSource = srcSumma

Font.Charset = DEFAULT_CHARSET

Font.Color = clGreen

Font.Height = -24

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

end

object psvid: TComboBox

Left = 2

Top = 45

Width = 145

Height = 32

ItemHeight = 24

TabOrder = 0

OnEnter = psvidEnter

OnSelect = psvidSelect

end

object pstype: TComboBox

Left = 152

Top = 45

Width = 193

Height = 32

Enabled = False

ItemHeight = 24

TabOrder = 1

OnSelect = pstypeSelect

end

object kol: TEdit

Left = 84

Top = 82

Width = 41

Height = 32

Anchors = []

BevelInner = bvSpace

BevelKind = bkSoft

TabOrder = 2

Text = '1'

end

end

object GroupBox2: TGroupBox

Left = 0

Top = 119

Width = 531

Height = 145

Align = alTop

Caption = #1057#1055#1048#1057#1054#1050':'

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -19

Font.Name = 'MS Sans Serif'

Font.Style = []

ParentFont = False

TabOrder = 1

object DBGrid1: TDBGrid

Left = 2

Top = 26

Width = 527

Height = 117

Align = alClient

DataSource = srcProd

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -13

Font.Name = 'MS Sans Serif'

Font.Style = []

Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]

ParentFont = False

TabOrder = 0

TitleFont.Charset = DEFAULT_CHARSET

TitleFont.Color = clWindowText

TitleFont.Height = -13

TitleFont.Name = 'MS Sans Serif'

TitleFont.Style = []

OnDblClick = DBGrid1DblClick

Columns = <

item

Alignment = taCenter

Expanded = False

FieldName = 'DATA'

Title.Alignment = taCenter

Title.Caption = #1044#1072#1090#1072

Visible = True

end

item

Alignment = taCenter

Expanded = False

FieldName = 'VREMA'

Title.Alignment = taCenter

Title.Caption = #1042#1088#1077#1084#1103

Visible = True

end

item

Expanded = False

FieldName = #1058#1054#1042#1040#1056

Title.Alignment = taCenter

Width = 199

Visible = True

end

item

Alignment = taCenter

Expanded = False

FieldName = 'KOL_VO'

Title.Alignment = taCenter

Width = 60

Visible = True

end

item

Alignment = taCenter

Expanded = False

FieldName = 'SUMMA'

Title.Alignment = taRightJustify

Title.Caption = #1057#1090#1086#1080#1084#1086#1089#1090#1100

Width = 96

Visible = True

end>

end

end

object prin: TEdit

Left = 0

Top = 296

Width = 185

Height = 37

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -24

Font.Name = 'MS Sans Serif'

Font.Style = [fsBold]

ParentFont = False

TabOrder = 2

OnKeyPress = prinKeyPress

end

object tblTp: TIBQuery

Database = frmMain.Baza

Transaction = frmMain.Tranz

BufferChunks = 1000

CachedUpdates = False

SQL.Strings = (

'select '

' types.naim "'#1058#1048#1055'",'

' marks.naim "'#1052#1040#1056#1050#1040'",'

' vid_tovara.naim "'#1042#1048#1044'",'

' tovar.id_tovar,'

' tovar.naim,'

' tovar.model,'

' tovar.xarakter,'

' tovar.stoimost'

'from marks'

' inner join tovar on (marks.id_marka = tovar.marka)'

' inner join vid_tovara on (tovar.vid = vid_tovara.id_vid)'

' inner join types on (tovar.type_t = types.id_type)'

'where '

' ('

' (vid_tovara.naim = :a)'

' )')

Left = 216

Top = 18

ParamData = <

item

DataType = ftUnknown

Name = 'a'

ParamType = ptUnknown

end>

object tblTpIBDSDesigner: TIBStringField

FieldName = #1058#1048#1055

Origin = 'TYPES.NAIM'

Required = True

Size = 50

end

object tblTpIBDSDesigner2: TIBStringField

FieldName = #1052#1040#1056#1050#1040

Origin = 'MARKS.NAIM'

Required = True

Size = 50

end

object tblTpIBDSDesigner3: TIBStringField

FieldName = #1042#1048#1044

Origin = 'VID_TOVARA.NAIM'

Required = True

Size = 50

end

object tblTpID_TOVAR: TIntegerField

FieldName = 'ID_TOVAR'

Origin = 'TOVAR.ID_TOVAR'

Required = True

end

object tblTpNAIM: TIBStringField

FieldName = 'NAIM'

Origin = 'TOVAR.NAIM'

Required = True

Size = 150

end

object tblTpMODEL: TIBStringField

FieldName = 'MODEL'

Origin = 'TOVAR.MODEL'

end

object tblTpXARAKTER: TIBStringField

FieldName = 'XARAKTER'

Origin = 'TOVAR.XARAKTER'

Size = 50

end

object tblTpSTOIMOST: TFloatField

FieldName = 'STOIMOST'

Origin = 'TOVAR.STOIMOST'

Required = True

end

end

object tblProd: TIBQuery

Database = frmMain.Baza

Transaction = frmMain.Tranz

AfterDelete = tblProdAfterDelete

OnCalcFields = tblProdCalcFields

OnPostError = tblProdPostError

BufferChunks = 1000

CachedUpdates = False

SQL.Strings = (

'select * from PRODAJA')

UpdateObject = updProd

GeneratorField.Field = 'ID_PRODAJA'

GeneratorField.Generator = 'GEN_PRODAJA_ID'

GeneratorField.ApplyEvent = gamOnPost

Left = 144

Top = 200

object tblProdID_PRODAJA: TIntegerField

FieldName = 'ID_PRODAJA'

Origin = 'PRODAJA.ID_PRODAJA'

Required = True

end

object tblProdDATA: TDateField

FieldName = 'DATA'

Origin = 'PRODAJA.DATA'

Required = True

end

object tblProdVREMA: TTimeField

FieldName = 'VREMA'

Origin = 'PRODAJA.VREMA'

Required = True

end

object tblProdTOVAR: TIntegerField

FieldName = 'TOVAR'

Origin = 'PRODAJA.TOVAR'

Required = True

end

object tblProdKOL_VO: TFloatField

FieldName = 'KOL_VO'

Origin = 'PRODAJA.KOL_VO'

Required = True

end

object tblProdSUMMA: TFloatField

FieldName = 'SUMMA'

Origin = 'PRODAJA.SUMMA'

Required = True

currency = True

end

object tblProdITOGO: TCurrencyField

FieldKind = fkCalculated

FieldName = 'ITOGO'

Calculated = True

end

object tblProdField: TStringField

FieldKind = fkLookup

FieldName = #1058#1054#1042#1040#1056

LookupDataSet = frmTovar.tbltov

LookupKeyFields = 'ID_TOVAR'

LookupResultField = 'NAIM'

KeyFields = 'TOVAR'

Lookup = True

end

end

object updProd: TIBUpdateSQL

RefreshSQL.Strings = (

'Select '

' ID_PRODAJA,'

' DATA,'

' VREMA,'

' TOVAR,'

' KOL_VO,'

' SUMMA'

'from PRODAJA '

'where'

' ID_PRODAJA = :ID_PRODAJA')

ModifySQL.Strings = (

'update PRODAJA'

'set'

' ID_PRODAJA = :ID_PRODAJA,'

' DATA = :DATA,'

' VREMA = :VREMA,'

' TOVAR = :TOVAR,'

' KOL_VO = :KOL_VO,'

' SUMMA = :SUMMA'

'where'

' ID_PRODAJA = :OLD_ID_PRODAJA')

InsertSQL.Strings = (

'insert into PRODAJA'

' (ID_PRODAJA, DATA, VREMA, TOVAR, KOL_VO, SUMMA)'

'values'

' (:ID_PRODAJA, :DATA, :VREMA, :TOVAR, :KOL_VO, :SUMMA)')

DeleteSQL.Strings = (

'delete from PRODAJA'

'where'

' ID_PRODAJA = :OLD_ID_PRODAJA')

Left = 176

Top = 200

end

object zapSumma: TIBQuery

Database = frmMain.Baza

Transaction = frmMain.Tranz

BufferChunks = 1000

CachedUpdates = False

SQL.Strings = (

'select sum(summa) as itog from prodaja')

Left = 488

Top = 32

object zapSummaItog: TCurrencyField

FieldName = 'Itog'

end

end

object srcSumma: TDataSource

DataSet = zapSumma

Left = 488

Top = 73

end

object srcProd: TDataSource

DataSet = tblProd

Left = 112

Top = 199

end

object tblKassa: TIBQuery

Database = frmMain.Baza

Transaction = frmMain.Tranz

BufferChunks = 1000

CachedUpdates = False

SQL.Strings = (

'select * from KASSA')

UpdateObject = UpdKass

GeneratorField.Field = 'ID_KASSA'

GeneratorField.Generator = 'GEN_KASSA_ID'

GeneratorField.ApplyEvent = gamOnPost

Left = 192

Top = 296

object tblKassaID_KASSA: TIntegerField

FieldName = 'ID_KASSA'

Origin = 'KASSA.ID_KASSA'

Required = True

end

object tblKassaDATA: TDateField

FieldName = 'DATA'

Origin = 'KASSA.DATA'

Required = True

end

object tblKassaVREMA: TTimeField

FieldName = 'VREMA'

Origin = 'KASSA.VREMA'

Required = True

end

object tblKassaPRINATO: TFloatField

FieldName = 'PRINATO'

Origin = 'KASSA.PRINATO'

Required = True

currency = True

end

object tblKassaSDACHA: TFloatField

FieldName = 'SDACHA'

Origin = 'KASSA.SDACHA'

Required = True

currency = True

end

object tblKassaPRIB: TFloatField

FieldKind = fkInternalCalc

FieldName = 'PRIB'

Origin = 'KASSA.PRIB'

ReadOnly = True

currency = True

end

object tblKassaRABOT: TIntegerField

FieldName = 'RABOT'

Origin = 'KASSA.RABOT'

end

end

object UpdKass: TIBUpdateSQL

RefreshSQL.Strings = (

'Select '

' ID_KASSA,'

' DATA,'

' VREMA,'

' PRINATO,'

' SDACHA,'

' PRIB,'

' RABOT'

'from KASSA '

'where'

' ID_KASSA = :ID_KASSA')

ModifySQL.Strings = (

'update KASSA'

'set'

' ID_KASSA = :ID_KASSA,'

' DATA = :DATA,'

' VREMA = :VREMA,'

' PRINATO = :PRINATO,'

' SDACHA = :SDACHA,'

' PRIB = :PRIB,'

' RABOT = :RABOT'

'where'

' ID_KASSA = :OLD_ID_KASSA')

InsertSQL.Strings = (

'insert into KASSA'

' (ID_KASSA, DATA, VREMA, PRINATO, SDACHA, PRIB, RABOT)'

'values'

' (:ID_KASSA, :DATA, :VREMA, :PRINATO, :SDACHA, :PRIB, :RABOT)')

DeleteSQL.Strings = (

'delete from KASSA'

'where'

' ID_KASSA = :OLD_ID_KASSA')

Left = 224

Top = 298

end

object tblProdan: TIBQuery

Database = frmMain.Baza

Transaction = frmMain.Tranz

BufferChunks = 1000

CachedUpdates = False

SQL.Strings = (

'select * from PRODANOE')

UpdateObject = UpdProdan

GeneratorField.Field = 'ID_PRODAN'

GeneratorField.Generator = 'GEN_PRODANOE_ID'

GeneratorField.ApplyEvent = gamOnPost

Left = 312

Top = 304

object tblProdanID_PRODAN: TIntegerField

FieldName = 'ID_PRODAN'

Origin = 'PRODANOE.ID_PRODAN'

Required = True

end

object tblProdanDATA: TDateField

FieldName = 'DATA'

Origin = 'PRODANOE.DATA'

Required = True

end

object tblProdanNAIM: TIBStringField

FieldName = 'NAIM'

Origin = 'PRODANOE.NAIM'

Size = 150

end

object tblProdanKOL_VO: TFloatField

FieldName = 'KOL_VO'

Origin = 'PRODANOE.KOL_VO'

Required = True

end

object tblProdanSUMMA: TFloatField

FieldName = 'SUMMA'

Origin = 'PRODANOE.SUMMA'

Required = True

end

object tblProdanVREMA: TTimeField

FieldName = 'VREMA'

Origin = 'PRODANOE.VREMA'

Required = True

end

object tblProdanRABOT: TIntegerField

FieldName = 'RABOT'

Origin = 'PRODANOE.RABOT'

Required = True

end

end

object UpdProdan: TIBUpdateSQL

RefreshSQL.Strings = (

'Select '

' ID_PRODAN,'

' DATA,'

' NAIM,'

' KOL_VO,'

' SUMMA,'

' VREMA,'

' RABOT'

'from PRODANOE '

'where'

' ID_PRODAN = :ID_PRODAN')

ModifySQL.Strings = (

'update PRODANOE'

'set'

' ID_PRODAN = :ID_PRODAN,'

' DATA = :DATA,'

' NAIM = :NAIM,'

' KOL_VO = :KOL_VO,'

' SUMMA = :SUMMA,'

' VREMA = :VREMA,'

' RABOT = :RABOT'

'where'

' ID_PRODAN = :OLD_ID_PRODAN')

InsertSQL.Strings = (

'insert into PRODANOE'

' (ID_PRODAN, DATA, NAIM, KOL_VO, SUMMA, VREMA, RABOT)'

'values'

' (:ID_PRODAN, :DATA, :NAIM, :KOL_VO, :SUMMA, :VREMA, :RABOT)')

DeleteSQL.Strings = (

'delete from PRODANOE'

'where'

' ID_PRODAN = :OLD_ID_PRODAN')

Left = 280

Top = 304

end

end

Модуль prodan:

unit prodan;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, DB, IBCustomDataSet, IBUpdateSQL,

IBQuery, DBCtrls, Buttons; type

TfrmKassa = class(TForm)

srcKassa: TDataSource;

GroupBox1: TGroupBox;

DBGrid1: TDBGrid;

Label1: TLabel;

zapSum: TIBQuery;

DataSource1: TDataSource;

tblKassa: TIBQuery;

DBText1: TDBText;

Label2: TLabel;

zp: TLabel;

lp: TLabel;

SpeedButton1: TSpeedButton;

tblKassaID_KASSA: TIntegerField;

tblKassaDATA: TDateField;

tblKassaVREMA: TTimeField;

tblKassaPRINATO: TFloatField;

tblKassaSDACHA: TFloatField;

tblKassaPRIB: TFloatField;

tblKassaRABOT: TIntegerField;

tblKassaFIO: TIBStringField;

zapSumSUMMA: TCurrencyField;

procedure FormActivate(Sender: TObject);

procedure SpeedButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmKassa: TfrmKassa;

implementation

uses main, otch;

{$R *.dfm}

procedure TfrmKassa.FormActivate(Sender: TObject);

var a,b:variant;

begin

zapsum.Close;

zapsum.Open;

a:=dbtext1.Caption;

b:=0.10;

tblkassa.Close;

tblkassa.Open;

if tblkassa.IsEmpty=false then

zp.Caption:=a*b;

if Length(zp.Caption)=0 then

lp.Left:=400

else if Length(zp.Caption)=1 then

lp.Left:=400

else if Length(zp.Caption)=2 then

lp.Left:=420

else if Length(zp.Caption)=3 then

lp.Left:=440

else if Length(zp.Caption)=4 then

lp.Left:=460

else if Length(zp.Caption)=5 then

lp.Left:=480

else if Length(zp.Caption)>5 then

lp.Left:=520;

end;

procedure TfrmKassa.SpeedButton1Click(Sender: TObject);

begin

form1.zap.Caption:=zp.caption;

if Length(form1.zap.Caption)=0 then

form1.lp.Left:=610

else if Length(form1.zap.Caption)=1 then

form1.lp.Left:=610

else if Length(form1.zap.Caption)=2 then

form1.lp.Left:=630

else if Length(form1.zap.Caption)=3 then

form1.lp.Left:=650

else if Length(form1.zap.Caption)=4 then

form1.lp.Left:=670

else if Length(form1.zap.Caption)=5 then

form1.lp.Left:=690

else if Length(form1.zap.Caption)>5 then

form1.lp.Left:=720;

form1.quickrep1.preview;

end;

end.

Модуль tovars:

unit tovars;

interface

uses

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

Dialogs, DB, IBCustomDataSet, IBQuery, DBCtrls, StdCtrls, IBTable, Grids,

DBGrids, Mask, IBUpdateSQL, ExtCtrls, Buttons;

type

TfrmTovar = class(TForm)

SrcZapVid: TDataSource;

GroupBox1: TGroupBox;

Label1: TLabel;

pa: TDBLookupComboBox;

Label2: TLabel;

srcZapType: TDataSource;

Label3: TLabel;

srcmarka: TDataSource;

zapVid: TIBQuery;

ZapTypes: TIBQuery;

ZapMarka: TIBQuery;

GroupBox2: TGroupBox;

DBGrid1: TDBGrid;

Label4: TLabel;

Model: TDBEdit;

Label5: TLabel;

Xar: TDBEdit;

Label6: TLabel;

St: TDBEdit;

srcTov: TDataSource;

DBNavigator1: TDBNavigator;

GroupBox3: TGroupBox;

SpeedButton1: TSpeedButton;

tbltov: TIBQuery;

UpdTov: TIBUpdateSQL;

UpdVid: TIBUpdateSQL;

updtype: TIBUpdateSQL;

UpdMarka: TIBUpdateSQL;

pc: TDBLookupComboBox;

tbltovID_TOVAR: TIntegerField;

tbltovVID: TIntegerField;

tbltovTYPE_T: TIntegerField;

tbltovMARKA: TIntegerField;

tbltovNAIM: TIBStringField;

tbltovMODEL: TIBStringField;

tbltovXARAKTER: TIBStringField;

tbltovSTOIMOST: TFloatField;

ZapTypesID_TYPE: TIntegerField;

ZapTypesNAIM: TIBStringField;

ZapTypesVID: TIntegerField;

ZapMarkaID_MARKA: TIntegerField;

ZapMarkaNAIM: TIBStringField;

ZapMarkaVID: TIntegerField;

pb: TDBLookupComboBox;

procedure SpeedButton1Click(Sender: TObject);

procedure ZapTypesBeforePost(DataSet: TDataSet);

procedure ZapMarkaBeforePost(DataSet: TDataSet);

procedure tbltovBeforePost(DataSet: TDataSet);

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

procedure FormActivate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmTovar: TfrmTovar;

implementation

uses main, vids;

{$R *.dfm}

procedure TfrmTovar.SpeedButton1Click(Sender: TObject);

begin

frmVid.showmodal;

end;

procedure TfrmTovar.ZapTypesBeforePost(DataSet: TDataSet);

begin

zaptypes['VID']:=zapvid['ID_VID'];

end;

procedure TfrmTovar.ZapMarkaBeforePost(DataSet: TDataSet);

begin

zapmarka['VID']:=zapvid['ID_VID'];

end;

procedure TfrmTovar.tbltovBeforePost(DataSet: TDataSet);

begin

if Length(model.Text)=0 then

begin

tbltov['model']:=' ';

end;

if Length(xar.Text)=0 then

begin

tbltov['xarakter']:=' ';

end;

tbltov['NAIM']:=pa.Text+' '+pc.Text+' '+pb.Text+' '+model.Text+' '+xar.Text;

end;

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

begin

zapVid.Close;

ZapTypes.Close;

ZapMarka.Close;

tbltov.Close;

end;

procedure TfrmTovar.FormActivate(Sender: TObject);

begin

tbltov.Open;

zapVid.Open;

ZapTypes.Open;

ZapMarka.Open;

end;

end.

Модуль vids:

unit vids;

interface

uses

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

Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids;

type

TfrmVid = class(TForm)

Box: TGroupBox;

Label8: TLabel;

Label9: TLabel;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Types: TDBGrid;

marki: TDBGrid;

DBVid: TDBEdit;

navVid: TDBNavigator;

DBGrid1: TDBGrid;

DBtyp: TDBEdit;

DBNavigator1: TDBNavigator;

DBMarka: TDBEdit;

DBNavigator2: TDBNavigator;

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmVid: TfrmVid;

implementation

uses tovars;

{$R *.dfm}

end.