Caja/UDM.dfm at master · luis92arma/Caja · 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
object dm: Tdm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 387
  Width = 460
  object db: TFDConnection
    Params.Strings = (
      'Database=C:\LAHI\capacitacion\Caja\db\caja.db'
      'LockingMode=Normal'
      'DriverID=SQLite')
    Connected = True
    LoginPrompt = False
    AfterConnect = dbAfterConnect
    Left = 128
    Top = 40
  end
  object q_empleado: TFDQuery
    Connection = db
    SQL.Strings = (
      'select * from empleado;')
    Left = 360
    Top = 24
    object q_empleadoid_empleadoi: TIntegerField
      FieldName = 'id_empleadoi'
      Origin = 'id_empleadoi'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object q_empleadonombre_empleado: TStringField
      FieldName = 'nombre_empleado'
      Origin = 'nombre_empleado'
      Required = True
      Size = 50
    end
    object q_empleadoap_empleado: TStringField
      FieldName = 'ap_empleado'
      Origin = 'ap_empleado'
      Required = True
      Size = 50
    end
    object q_empleadoam_empleado: TStringField
      FieldName = 'am_empleado'
      Origin = 'am_empleado'
      Required = True
      Size = 50
    end
    object q_empleadoid_horario: TIntegerField
      FieldName = 'id_horario'
      Origin = 'id_horario'
      Required = True
    end
  end
  object q_producto: TFDQuery
    Connection = db
    SQL.Strings = (
      'select * from producto;')
    Left = 304
    Top = 24
    object q_productoid_producto: TIntegerField
      FieldName = 'id_producto'
      Origin = 'id_producto'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object q_productonombre_producto: TStringField
      FieldName = 'nombre_producto'
      Origin = 'nombre_producto'
      Required = True
      Size = 40
    end
    object q_productoprecio_producto: TFloatField
      FieldName = 'precio_producto'
      Origin = 'precio_producto'
      Required = True
    end
  end
  object q_horario: TFDQuery
    Connection = db
    SQL.Strings = (
      'select * from horarioCaja;')
    Left = 248
    Top = 80
    object q_horarioid_horario_caja: TIntegerField
      FieldName = 'id_horario_caja'
      Origin = 'id_horario_caja'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object q_horariohora_entrada: TTimeField
      FieldName = 'hora_entrada'
      Origin = 'hora_entrada'
      Required = True
    end
    object q_horariohora_salida: TTimeField
      FieldName = 'hora_salida'
      Origin = 'hora_salida'
      Required = True
    end
  end
  object q_cliente: TFDQuery
    Connection = db
    SQL.Strings = (
      'select * from cliente;')
    Left = 304
    Top = 72
    object q_clienteid_cliente: TIntegerField
      FieldName = 'id_cliente'
      Origin = 'id_cliente'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object q_clientenombre_cliente: TStringField
      FieldName = 'nombre_cliente'
      Origin = 'nombre_cliente'
      Size = 70
    end
    object q_clientetarjeta_cliente: TLargeintField
      FieldName = 'tarjeta_cliente'
      Origin = 'tarjeta_cliente'
    end
    object q_clienteadeudo_cliente: TFloatField
      FieldName = 'adeudo_cliente'
      Origin = 'adeudo_cliente'
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString =
      'Provider=SQLNCLI11.1;Integrated Security="";Persist Security Inf' +
      'o=False;User ID=sa;Initial Catalog=caamt;Data Source=192.168.100' +
      '.3;Initial File Name="";Server SPN="";'
    LoginPrompt = False
    Provider = 'SQLNCLI11.1'
    Left = 24
    Top = 96
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select  *  from c_tiposervicio')
    Left = 24
    Top = 152
    object ADOQuery1tsr_seq: TIntegerField
      FieldName = 'tsr_seq'
    end
    object ADOQuery1tsr_nombre: TStringField
      FieldName = 'tsr_nombre'
      Size = 50
    end
    object ADOQuery1tsr_medido: TBooleanField
      FieldName = 'tsr_medido'
    end
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = ADOQuery1
    Left = 16
    Top = 216
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 160
    Top = 288
    object ClientDataSet1tsr_seq: TIntegerField
      FieldName = 'tsr_seq'
    end
    object ClientDataSet1tsr_nombre: TStringField
      FieldName = 'tsr_nombre'
      Size = 50
    end
    object ClientDataSet1tsr_medido: TBooleanField
      FieldName = 'tsr_medido'
    end
  end
end