/
DepEdit.dfm
166 lines (166 loc) · 4.66 KB
/
DepEdit.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
object DepEditForm: TDepEditForm
Left = 277
Top = 154
BorderStyle = bsDialog
Caption = #1056#1077#1076#1072#1082#1090#1086#1088' '#1089#1087#1080#1089#1082#1091' '#1082#1072#1092#1077#1076#1088' ('#1087#1110#1076#1088#1086#1079#1076#1110#1083#1110#1074')'
ClientHeight = 333
ClientWidth = 592
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poOwnerFormCenter
DesignSize = (
592
333)
PixelsPerInch = 96
TextHeight = 13
object NewPaoerSpeedButton: TSpeedButton
Left = 0
Top = 10
Width = 198
Height = 25
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
end
object DelPaperSpeedButton: TSpeedButton
Left = 0
Top = 10
Width = 198
Height = 25
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
end
object AddDepSpeedButton: TSpeedButton
Left = 0
Top = 280
Width = 296
Height = 25
Anchors = [akLeft, akTop, akBottom]
Caption = #1044#1086#1073#1072#1074#1080#1090#1080' '#1082#1072#1092#1077#1076#1088#1091' ('#1087#1110#1076#1088#1086#1079#1076#1110#1083')!'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
OnClick = AddDepSpeedButtonClick
end
object DelDepSpeedButton: TSpeedButton
Left = 296
Top = 280
Width = 296
Height = 25
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = #1042#1080#1076#1072#1083#1080#1090#1080' '#1082#1072#1092#1077#1076#1088#1091' ('#1087#1110#1076#1088#1086#1079#1076#1110#1083')!'
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
OnClick = DelDepSpeedButtonClick
end
object LibDepDBGridEh: TDBGridEh
Left = 0
Top = 0
Width = 593
Height = 254
Align = alCustom
Anchors = [akLeft, akTop, akRight, akBottom]
AutoFitColWidths = True
ColumnDefValues.Title.Alignment = taCenter
DataSource = testeditDM.DepartDS
Flat = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
FooterColor = clWindow
FooterFont.Charset = DEFAULT_CHARSET
FooterFont.Color = clWindowText
FooterFont.Height = -11
FooterFont.Name = 'MS Sans Serif'
FooterFont.Style = []
FrozenCols = 1
Options = [dgEditing, dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghRowHighlight, dghDialogFind]
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = [fsBold]
VertScrollBar.Tracking = True
Columns = <
item
AutoFitColWidth = False
EditButtons = <>
FieldName = 'DEPID'
Footers = <>
ReadOnly = True
Width = 38
end
item
EditButtons = <>
FieldName = 'DEPNAME'
Footers = <>
end>
end
object LibDepDBNavigator: TDBNavigator
Left = 0
Top = 255
Width = 592
Height = 25
DataSource = testeditDM.DepartDS
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbEdit, nbPost, nbCancel, nbRefresh]
Flat = True
Hints.Strings = (
#1053#1072' '#1087#1086#1095#1072#1090#1086#1082
#1053#1072#1079#1072#1076
#1042#1087#1077#1088#1077#1076
#1042' '#1082#1110#1085#1077#1094#1100
#1042#1089#1090#1072#1074#1080#1090#1080
#1042#1080#1076#1072#1083#1080#1090#1080
#1056#1077#1076#1072#1075#1091#1074#1072#1090#1080
#1047#1073#1077#1088#1077#1075#1090#1080
#1042#1110#1076#1084#1110#1085#1080#1090#1080
#1054#1073#1085#1086#1074#1080#1090#1080)
TabOrder = 1
end
object ButtonPanel1: TButtonPanel
Left = 0
Top = 308
Width = 592
Height = 25
Align = alBottom
BevelOuter = bvNone
Caption = ' '
Constraints.MaxHeight = 25
Constraints.MinHeight = 25
TabOrder = 2
Buttons = [btOk]
OnButtonOkClick = ButtonPanel1ButtonOkClick
end
end