first commit (2012-02-01)
This commit is contained in:
362
src/cuentaPolizas.dfm
Normal file
362
src/cuentaPolizas.dfm
Normal file
@ -0,0 +1,362 @@
|
||||
object gestionCuentaPolizas: TgestionCuentaPolizas
|
||||
Left = 118
|
||||
Top = 122
|
||||
Width = 800
|
||||
Height = 600
|
||||
Caption = 'Cuenta Polizas'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
Scaled = False
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 16
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 792
|
||||
Height = 41
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
object SpeedButton1: TSpeedButton
|
||||
Left = 568
|
||||
Top = 8
|
||||
Width = 23
|
||||
Height = 22
|
||||
Caption = '<'
|
||||
OnClick = SpeedButton1Click
|
||||
end
|
||||
object SpeedButton2: TSpeedButton
|
||||
Left = 592
|
||||
Top = 8
|
||||
Width = 23
|
||||
Height = 22
|
||||
Caption = '>'
|
||||
OnClick = SpeedButton2Click
|
||||
end
|
||||
object BitBtn1: TBitBtn
|
||||
Left = 456
|
||||
Top = 8
|
||||
Width = 107
|
||||
Height = 24
|
||||
Caption = '&Filtrar'
|
||||
Default = True
|
||||
TabOrder = 0
|
||||
OnClick = execFilter
|
||||
Glyph.Data = {
|
||||
42020000424D4202000000000000420000002800000010000000100000000100
|
||||
10000300000000020000120B0000120B00000000000000000000007C0000E003
|
||||
00001F000000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
||||
FF7FFF7FFF7FFF7FFF7FFF7FFF7FBB6FF14A2722E415C4150722D14ABB6FFF7F
|
||||
FF7FFF7FFF7FFF7FFF7FFF7F565B261A682A304F53575357104B4726E619365B
|
||||
FF7FFF7FFF7FFF7FFF7F765F2416ED42745B304BEC3EEC3E304B545BCC3EC415
|
||||
365BFF7FFF7FFF7FBB7386220E43745BEC3AEB3ACB3ACB36CB36CB3A545BCD3E
|
||||
E619BB6FFF7FFF7F524FA932755BEC3EEC3A0E43BA6B314FCA36CB36CB3A745B
|
||||
6826F14AFF7FFF7FC82E524F514F0C3B0F43DD7BFF7FFF7F304BCB36CB3A304B
|
||||
104F2722FF7FFF7FA52674572E3F2E43DD77FF7FDD77FF7FFF7F314BCB3AED3E
|
||||
5357E415FF7FFF7FC62A745B2E430C3B755BBA6BEC3A965FFF7FFF7F314FED3E
|
||||
54570416FF7FFF7F09375253524F0D3B0C370C370C370C37965FFF7FDC73314F
|
||||
314F6722FF7FFF7F7357EB3A755B2D3F0D3B0C3B0C370C370C3B965F0D3F755B
|
||||
A92E114BFF7FFF7FDC7309332F4B755B2D3F2D3B0D3B0D3B0D3B0D3F755B0E47
|
||||
8622BB73FF7FFF7FFF7FB767072F2F4B755B524F2E432E43524F755B0F47851E
|
||||
765FFF7FFF7FFF7FFF7FFF7FB76709370B3B5253745774575253CA36C62A965F
|
||||
FF7FFF7FFF7FFF7FFF7FFF7FFF7FDC7393572A3BE72EE72E09377257DB73FF7F
|
||||
FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F
|
||||
FF7FFF7FFF7F}
|
||||
end
|
||||
object srch_agentes: TComboBox
|
||||
Left = 232
|
||||
Top = 8
|
||||
Width = 217
|
||||
Height = 24
|
||||
ItemHeight = 16
|
||||
TabOrder = 1
|
||||
end
|
||||
object srch_mes: TComboBox
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 145
|
||||
Height = 24
|
||||
ItemHeight = 16
|
||||
ItemIndex = 0
|
||||
TabOrder = 2
|
||||
Text = 'Enero'
|
||||
Items.Strings = (
|
||||
'Enero'
|
||||
'Febrero'
|
||||
'Marzo'
|
||||
'Abril'
|
||||
'Mayo'
|
||||
'Junio'
|
||||
'Julio'
|
||||
'Agosto'
|
||||
'Septiembre'
|
||||
'Octubre'
|
||||
'Noviembre'
|
||||
'Diciembre')
|
||||
end
|
||||
object srch_ano: TEdit
|
||||
Left = 160
|
||||
Top = 8
|
||||
Width = 49
|
||||
Height = 24
|
||||
ReadOnly = True
|
||||
TabOrder = 3
|
||||
Text = '2.010'
|
||||
end
|
||||
object UpDown1: TUpDown
|
||||
Left = 209
|
||||
Top = 8
|
||||
Width = 15
|
||||
Height = 24
|
||||
Associate = srch_ano
|
||||
Min = 1900
|
||||
Max = 2100
|
||||
Position = 2010
|
||||
TabOrder = 4
|
||||
Wrap = False
|
||||
end
|
||||
object BitBtn2: TBitBtn
|
||||
Left = 656
|
||||
Top = 8
|
||||
Width = 107
|
||||
Height = 24
|
||||
Caption = '&Imprimir'
|
||||
Default = True
|
||||
TabOrder = 5
|
||||
OnClick = BitBtn2Click
|
||||
Glyph.Data = {
|
||||
36030000424D3603000000000000360000002800000010000000100000000100
|
||||
1800000000000003000000000000000000000000000000000000000000000000
|
||||
0000000000000000007A7A7A696969000000696969A1A1A10000000000000000
|
||||
000000000000000000000000000000000000001E1E1E8C8C8C8C8C8CB2B2B287
|
||||
8787785757B59797A1A1A1A1A1A1A1A1A1000000000000000000000000000000
|
||||
8C8C8C8C8C8CF0F0F0E7E7E7A9A9A99F9F9F3A34344B4B4B6E6E6EB7B7B7C2C2
|
||||
C2A1A1A1A1A1A10000000000008C8C8CFEFEFEF0F0F0E7E7E7DADADAA0A0A096
|
||||
96968383836363635757576E6E6E969696B1B1B17575750000000000008C8C8C
|
||||
F0F0F0DDDDDDA1A1A18181816E6E6E6C6C6C767676939393A9A9A99A9A9A6868
|
||||
687575750000000000000000008C8C8C9696968C8C8CBCBCBCC4C4C4CBCBCB9D
|
||||
9D9D959595767676747474747474879D8E7575750000000000000000008C8C8C
|
||||
D1D1D1CFCFCFC4C4C4CECECE9D9D9DA1A1A1A1A1A1CCCCCCC2C2C2B5B5B58E8E
|
||||
8E7575750000000000000000008C8C8CD0D0D0C4C4C4C7C7C79D9D9DDADADAEA
|
||||
EAEADADADAA1A1A1A1A1A1A1A1A1B4B4B4757575000000000000000000CECECE
|
||||
9D9D9D9D9D9D9D9D9DBDBDBDD5D5D5E6E6E6EAEAEAE7E7E7E1E1E1DEDEDEA1A1
|
||||
A1B1B1B1000000000000000000000000000000D3D3D3D1936DB0B0B0B0B0B0B0
|
||||
B0B0B0B0B0B0B0B0C1C1C1A3A3A39C9C9C000000000000000000000000000000
|
||||
0000009F8181D1936DFFCA98FFDAB6FFE0C2F2D9C1D1936D8787870000000000
|
||||
00000000000000000000000000000000000000D1936DFFD5AFFFD5AFFFD5AFFF
|
||||
D5AFFFD5AFD1936D000000000000000000000000000000000000000000000000
|
||||
000000D1936DFFE1C5FFE1C5FFE1C5FFE1C5FFE1C5D1936D0000000000000000
|
||||
00000000000000000000000000000000814B4BD1936DFFEEDDFFEEDDFFEEDDFF
|
||||
EEDDFFEEDDD1936D000000000000000000000000000000000000000000000000
|
||||
D1936DFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD1936D0000000000000000000000
|
||||
00000000000000000000000000814B4BD1936DD1936DD1936DD1936DD1936DD1
|
||||
936DA98181000000000000000000000000000000000000000000}
|
||||
end
|
||||
end
|
||||
object DBGrid1: TDBGrid
|
||||
Left = 0
|
||||
Top = 41
|
||||
Width = 792
|
||||
Height = 463
|
||||
Align = alClient
|
||||
DataSource = dsCuentaPolizas
|
||||
TabOrder = 1
|
||||
TitleFont.Charset = DEFAULT_CHARSET
|
||||
TitleFont.Color = clWindowText
|
||||
TitleFont.Height = -13
|
||||
TitleFont.Name = 'Tahoma'
|
||||
TitleFont.Style = []
|
||||
Columns = <
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'fecha'
|
||||
Title.Caption = 'Fecha'
|
||||
Width = 89
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'nombre'
|
||||
Title.Caption = 'Nombre'
|
||||
Width = 261
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'numPoliza'
|
||||
Title.Caption = 'Num. Poliza'
|
||||
Width = 129
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'primaNeta'
|
||||
Title.Caption = 'Prima Neta'
|
||||
Width = 90
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'comision'
|
||||
Title.Caption = 'Comision'
|
||||
Width = 90
|
||||
Visible = True
|
||||
end
|
||||
item
|
||||
Expanded = False
|
||||
FieldName = 'puntos'
|
||||
Title.Caption = 'Puntos'
|
||||
Width = 90
|
||||
Visible = True
|
||||
end>
|
||||
end
|
||||
object Panel2: TPanel
|
||||
Left = 0
|
||||
Top = 504
|
||||
Width = 792
|
||||
Height = 66
|
||||
Align = alBottom
|
||||
BevelOuter = bvNone
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
TabOrder = 2
|
||||
object Label1: TLabel
|
||||
Left = 376
|
||||
Top = 8
|
||||
Width = 80
|
||||
Height = 16
|
||||
Caption = 'Total Polizas'
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 504
|
||||
Top = 8
|
||||
Width = 79
|
||||
Height = 16
|
||||
Caption = 'T. Pima Neta'
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 592
|
||||
Top = 8
|
||||
Width = 71
|
||||
Height = 16
|
||||
Caption = 'T. Comisi'#243'n'
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 688
|
||||
Top = 8
|
||||
Width = 60
|
||||
Height = 16
|
||||
Caption = 'T. Puntos'
|
||||
end
|
||||
object lbTotalPolizas: TLabel
|
||||
Left = 376
|
||||
Top = 32
|
||||
Width = 87
|
||||
Height = 16
|
||||
Alignment = taRightJustify
|
||||
Caption = 'lbTotalPolizas'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object lbTotalPrimaNeta: TLabel
|
||||
Left = 504
|
||||
Top = 32
|
||||
Width = 87
|
||||
Height = 16
|
||||
Alignment = taRightJustify
|
||||
Caption = 'lbTotalPolizas'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object lbTotalComision: TLabel
|
||||
Left = 584
|
||||
Top = 32
|
||||
Width = 87
|
||||
Height = 16
|
||||
Alignment = taRightJustify
|
||||
Caption = 'lbTotalPolizas'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object lbTotalPuntos: TLabel
|
||||
Left = 672
|
||||
Top = 32
|
||||
Width = 87
|
||||
Height = 16
|
||||
Alignment = taRightJustify
|
||||
Caption = 'lbTotalPolizas'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -13
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
end
|
||||
object zqCuentaPolizas: TZQuery
|
||||
Connection = gestionClientes.ZConnection1
|
||||
OnNewRecord = zqCuentaPolizasNewRecord
|
||||
SQL.Strings = (
|
||||
|
||||
'SELECT id,agente,fecha,nombre,numPoliza,primaNeta,comision,punto' +
|
||||
's'
|
||||
' FROM cuentaPolizas')
|
||||
Params = <>
|
||||
Left = 216
|
||||
Top = 448
|
||||
object zqCuentaPolizasid: TIntegerField
|
||||
AutoGenerateValue = arAutoInc
|
||||
FieldName = 'id'
|
||||
end
|
||||
object zqCuentaPolizasagente: TIntegerField
|
||||
FieldName = 'agente'
|
||||
end
|
||||
object zqCuentaPolizasfecha: TDateField
|
||||
FieldName = 'fecha'
|
||||
end
|
||||
object zqCuentaPolizasnombre: TStringField
|
||||
FieldName = 'nombre'
|
||||
Size = 45
|
||||
end
|
||||
object zqCuentaPolizasnumPoliza: TStringField
|
||||
FieldName = 'numPoliza'
|
||||
Size = 45
|
||||
end
|
||||
object zqCuentaPolizasprimaNeta: TFloatField
|
||||
FieldName = 'primaNeta'
|
||||
end
|
||||
object zqCuentaPolizascomision: TFloatField
|
||||
FieldName = 'comision'
|
||||
end
|
||||
object zqCuentaPolizaspuntos: TFloatField
|
||||
FieldName = 'puntos'
|
||||
end
|
||||
end
|
||||
object dsCuentaPolizas: TDataSource
|
||||
DataSet = zqCuentaPolizas
|
||||
Left = 216
|
||||
Top = 416
|
||||
end
|
||||
end
|
||||
Reference in New Issue
Block a user