group-comunity/UnitDataModule.dfm at master · djsmentya/group-comunity · GitHub

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
167
168
169
170
171
172
173
174
175
176
177
178
179
object DM: TDM
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 792
  Top = 239
  Height = 307
  Width = 359
  object conDB: TZConnection
    ControlsCodePage = cGET_ACP
    UTF8StringsAsWideField = False
    ClientCodepage = 'UTF-8'
    Properties.Strings = (
      'codepage=UTF-8'
      'AutoEncodeStrings=ON')
    Connected = True
    Port = 0
    Database = 'database'
    Protocol = 'sqlite-3'
    LibraryLocation = 'sqlite3.dll'
    Left = 8
    Top = 8
  end
  object ztblUser: TZTable
    Connection = conDB
    Active = True
    TableName = 'users'
    Left = 128
    Top = 8
  end
  object ZAdvert: TZTable
    Connection = conDB
    Active = True
    TableName = 'advertisements'
    Left = 56
    Top = 8
  end
  object ZEvent: TZTable
    Connection = conDB
    Active = True
    TableName = 'events'
    Left = 16
    Top = 64
  end
  object ztblItems: TZTable
    Connection = conDB
    Active = True
    TableName = 'list_of_items'
    Left = 128
    Top = 96
    object intgrfldItemsid: TIntegerField
      FieldName = 'id'
    end
    object strngfldItemsitems: TStringField
      FieldName = 'items'
      Size = 1020
    end
  end
  object ztblRating: TZTable
    Connection = conDB
    SortedFields = 'id_items'
    Active = True
    TableName = 'rating'
    MasterFields = 'id'
    MasterSource = dsItems
    LinkedFields = 'id_items'
    IndexFieldNames = 'id_items Asc'
    Left = 184
    Top = 96
    object intgrfldRatingid: TIntegerField
      FieldName = 'id'
    end
    object fltfldRatingid_users: TFloatField
      FieldName = 'id_users'
    end
    object fltfldRatingid_items: TFloatField
      FieldName = 'id_items'
      KeyFields = 'id_items'
    end
    object fltfldRatingrating: TFloatField
      FieldName = 'rating'
    end
    object ztblRatingkurs: TStringField
      FieldName = 'kurs'
      Size = 1020
    end
  end
  object ztblCurUser: TZTable
    Connection = conDB
    Active = True
    TableName = 'current_users'
    Left = 72
    Top = 96
    object intgrfldCurUserid: TIntegerField
      FieldName = 'id'
    end
    object fltfldCurUseruser_id: TFloatField
      FieldName = 'user_id'
    end
  end
  object dsGrid: TDataSource
    DataSet = ztblRating
    Left = 20
    Top = 152
  end
  object dsItems: TDataSource
    DataSet = ztblItems
    Left = 60
    Top = 152
  end
  object dsUser: TDataSource
    DataSet = ztblUser
    Left = 168
    Top = 8
  end
  object ztblPractik: TZTable
    Connection = conDB
    Active = True
    TableName = 'Practik'
    Left = 240
    Top = 96
    object ztblPractikid: TIntegerField
      FieldName = 'id'
    end
    object ztblPractikkurs: TStringField
      FieldName = 'kurs'
      Size = 1020
    end
    object ztblPractikid_users: TFloatField
      FieldName = 'id_users'
    end
    object ztblPractikid_items: TFloatField
      FieldName = 'id_items'
    end
    object ztblPractikzachet: TStringField
      FieldName = 'zachet'
      Size = 1020
    end
  end
  object dsPractik: TDataSource
    DataSet = ztblPractik
    Left = 240
    Top = 160
  end
  object ZtblDolgi: TZTable
    Connection = conDB
    Active = True
    TableName = 'Dolgi'
    Left = 288
    Top = 96
    object ZtblDolgiName: TStringField
      DisplayWidth = 25
      FieldName = 'Name'
      Size = 1020
    end
    object ZtblDolgipredmet: TStringField
      DisplayWidth = 25
      FieldName = 'predmet'
      Size = 1020
    end
    object ZtblDolgiDolg: TBooleanField
      FieldName = 'Dolg'
      DisplayValues = #1045#1089#1090#1100';'#1053#1077#1090
    end
    object ZtblDolgiid: TIntegerField
      FieldName = 'id'
      LookupDataSet = ztblCurUser
      Visible = False
    end
    object ZtblDolgiuser_id: TFloatField
      FieldName = 'user_id'
      Visible = False
    end
  end
  object DsDolgi: TDataSource
    DataSet = ZtblDolgi
    Left = 168
    Top = 160
  end
end