TPVwin/TpvAccessControl.dfm
2021-09-12 22:19:30 +02:00

670 lines
18 KiB
Plaintext
Raw Blame History

object AccessControl: TAccessControl
Left = 376
Top = 164
Width = 640
Height = 480
HorzScrollBar.Visible = False
VertScrollBar.Visible = False
Caption = 'Control de acceso'
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Verdana'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
Scaled = False
PixelsPerInch = 96
TextHeight = 16
object StatusBar1: TStatusBar
Left = 0
Top = 427
Width = 632
Height = 22
Panels = <
item
Width = 550
end
item
Alignment = taCenter
Width = 50
end>
SimplePanel = False
end
object DBGrid1: TDBGrid
Left = 0
Top = 34
Width = 297
Height = 393
Align = alLeft
DataSource = DsEmpleados
Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
TabOrder = 1
TitleFont.Charset = ANSI_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -13
TitleFont.Name = 'Verdana'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'CodCliente1'
Title.Alignment = taCenter
Title.Caption = 'ID'
Visible = True
end
item
Expanded = False
FieldName = 'Nombre'
Visible = True
end
item
Expanded = False
FieldName = 'Apellidos'
Visible = True
end>
end
object Panel2: TPanel
Left = 0
Top = 0
Width = 632
Height = 34
Align = alTop
BorderStyle = bsSingle
TabOrder = 2
object SpeedButton1: TSpeedButton
Left = 8
Top = 3
Width = 25
Height = 25
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000CE0E0000D80E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777771F77771F7777777777777111F777777
1F7777111F777771F777777111F77711F7777777111F711F77777777711111F7
7777777777111F7777777777711111F777777777111F71F77777771111F77711
F77771111F7777711F77711F7777777711F77777777777777777}
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 108
Top = 3
Width = 25
Height = 25
Enabled = False
Flat = True
Glyph.Data = {
F6000000424DF600000000000000760000002800000010000000100000000100
04000000000080000000CE0E0000C40E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777700000777770000070F000777770F00070F000777770F
0007000000070000000700F000000F00000700F000700F00000700F000700F00
00077000000000000077770F00070F0007777700000700000777777000777000
77777770F07770F0777777700077700077777777777777777777}
end
object BusqSig: TSpeedButton
Left = 134
Top = 3
Width = 25
Height = 25
Enabled = False
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
70E337F33333333337F3E0F33333333370E337F333FF3F3337F3E0F330030333
70E337F3377F7FF337F3E0F33003003370E337F3377F77FF37F3E0F330030003
70E337F3377F777337F3E0F33003003370E337F3377F773337F3E0F330030333
70E337F33773733337F3E0F33333333370E337F33333333337F3E0F333333333
70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
end
object SpeedButton4: TSpeedButton
Left = 56
Top = 3
Width = 25
Height = 25
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000010000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
70E337F33333F33337F3E0F33333033370E337F3333FF73337F3E0F333300333
70E337F333FF773337F3E0F33300033370E337F33FF7773337F3E0F330000333
70E337F33377773337F3E0F33300033370E337F33337773337F3E0F333300333
70E337F33333773337F3E0F33333033370E337F33333373337F3E0F333333333
70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
end
object BusqAnt: TSpeedButton
Left = 82
Top = 3
Width = 25
Height = 25
Enabled = False
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
70E337F33333333337F3E0F33333333370E337F3333F3FF337F3E0F333030033
70E337F3337F77F337F3E0F33003003370E337F3377F77F337F3E0F300030033
70E337F3777F77F337F3E0F33003003370E337F3377F77F337F3E0F333030033
70E337F33373773337F3E0F33333333370E337F33333333337F3E0F333333333
70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
end
object SpeedButton6: TSpeedButton
Left = 160
Top = 3
Width = 25
Height = 25
Flat = True
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
end
object Label1: TLabel
Left = 400
Top = 8
Width = 115
Height = 16
Caption = 'Password Actual:'
end
object DBEdit1: TDBEdit
Left = 504
Top = 4
Width = 121
Height = 24
DataField = 'PassWord'
DataSource = DsAccess
PasswordChar = '*'
TabOrder = 0
OnKeyUp = DBEdit1KeyUp
end
end
object ScrollBox1: TScrollBox
Left = 297
Top = 34
Width = 335
Height = 393
Align = alClient
TabOrder = 3
object GroupBox1: TGroupBox
Left = 8
Top = 120
Width = 305
Height = 105
Caption = 'Articulos'
TabOrder = 0
object DBCheckBox1: TDBCheckBox
Left = 160
Top = 16
Width = 129
Height = 17
Caption = 'Referencias'
DataField = 'ArtReferencias'
DataSource = DsAccess
TabOrder = 0
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox2: TDBCheckBox
Left = 160
Top = 32
Width = 129
Height = 17
Caption = 'Stock Actual'
DataField = 'ArtStockActual'
DataSource = DsAccess
TabOrder = 1
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox3: TDBCheckBox
Left = 160
Top = 80
Width = 137
Height = 17
Caption = 'Ventas / Articulo'
DataField = 'ArtVentas'
DataSource = DsAccess
TabOrder = 2
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
end
object GroupBox2: TGroupBox
Left = 8
Top = 232
Width = 305
Height = 105
Caption = 'Proveedores'
TabOrder = 1
object DBCheckBox4: TDBCheckBox
Left = 160
Top = 16
Width = 89
Height = 17
Caption = 'Informaci<63>n'
DataField = 'ProvInformacion'
DataSource = DsAccess
TabOrder = 0
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox5: TDBCheckBox
Left = 160
Top = 48
Width = 137
Height = 17
Caption = 'Cartera de Prov.'
DataField = 'ProvCartera'
DataSource = DsAccess
TabOrder = 1
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox6: TDBCheckBox
Left = 160
Top = 64
Width = 105
Height = 17
Caption = 'Compras a...'
DataField = 'ProvCompras'
DataSource = DsAccess
TabOrder = 2
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
end
object GroupBox3: TGroupBox
Left = 8
Top = 344
Width = 305
Height = 105
Caption = 'Clientes'
TabOrder = 2
object DBCheckBox7: TDBCheckBox
Left = 160
Top = 16
Width = 89
Height = 17
Caption = 'Gestion de...'
DataField = 'CltGestion'
DataSource = DsAccess
TabOrder = 0
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox8: TDBCheckBox
Left = 160
Top = 48
Width = 137
Height = 17
Caption = 'Cartera de Clts.'
DataField = 'CltCartera'
DataSource = DsAccess
TabOrder = 1
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox9: TDBCheckBox
Left = 160
Top = 64
Width = 137
Height = 17
Caption = 'Ventas a Clientes'
DataField = 'CltVentas'
DataSource = DsAccess
TabOrder = 2
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox10: TDBCheckBox
Left = 160
Top = 80
Width = 129
Height = 17
Caption = 'Informes Varios'
DataField = 'CltInformes'
DataSource = DsAccess
TabOrder = 3
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
end
object GroupBox4: TGroupBox
Left = 8
Top = 456
Width = 305
Height = 105
Caption = 'Contabilidad'
TabOrder = 3
object DBCheckBox11: TDBCheckBox
Left = 160
Top = 16
Width = 137
Height = 17
Caption = 'Cuentas contables'
DataField = 'CtbCuentas'
DataSource = DsAccess
TabOrder = 0
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox12: TDBCheckBox
Left = 160
Top = 48
Width = 129
Height = 17
Caption = 'Parte Contable'
DataField = 'CtbParte'
DataSource = DsAccess
TabOrder = 1
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox13: TDBCheckBox
Left = 160
Top = 64
Width = 137
Height = 17
Caption = 'Informes Contables'
DataField = 'CtbInformes'
DataSource = DsAccess
TabOrder = 2
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
end
object GroupBox5: TGroupBox
Left = 8
Top = 568
Width = 305
Height = 105
Caption = 'Compras'
TabOrder = 4
object DBCheckBox14: TDBCheckBox
Left = 160
Top = 32
Width = 129
Height = 17
Caption = 'Informe Facturas'
DataField = 'CtbInformes'
DataSource = DsAccess
TabOrder = 0
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox15: TDBCheckBox
Left = 160
Top = 16
Width = 89
Height = 17
Caption = 'Comprar'
DataField = 'CmpComprar'
DataSource = DsAccess
TabOrder = 1
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox16: TDBCheckBox
Left = 160
Top = 80
Width = 137
Height = 17
Caption = 'Lista de Compra'
DataField = 'CmpListado'
DataSource = DsAccess
TabOrder = 2
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
end
object GroupBox6: TGroupBox
Left = 8
Top = 680
Width = 305
Height = 105
Caption = 'Emleados'
TabOrder = 5
object DBCheckBox17: TDBCheckBox
Left = 160
Top = 32
Width = 129
Height = 17
Caption = 'Permisos de Acceso'
DataField = 'EmpPermisos'
DataSource = DsAccess
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox18: TDBCheckBox
Left = 160
Top = 16
Width = 89
Height = 17
Caption = 'Fichas'
DataField = 'EmpFichas'
DataSource = DsAccess
TabOrder = 1
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox19: TDBCheckBox
Left = 160
Top = 80
Width = 129
Height = 17
Caption = 'Graficas Ventas'
DataField = 'EmpVentas'
DataSource = DsAccess
TabOrder = 2
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox20: TDBCheckBox
Left = 160
Top = 64
Width = 129
Height = 17
Caption = 'Ventas/Empleado'
DataField = 'EmpVentas'
DataSource = DsAccess
TabOrder = 3
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
end
object GroupBox7: TGroupBox
Left = 8
Top = 792
Width = 305
Height = 105
Caption = 'Ventas'
TabOrder = 6
object DBCheckBox21: TDBCheckBox
Left = 160
Top = 64
Width = 110
Height = 17
Caption = 'Balance Diario'
DataField = 'VntBalanceD'
DataSource = DsAccess
TabOrder = 0
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox22: TDBCheckBox
Left = 160
Top = 16
Width = 113
Height = 17
Caption = 'Caja del D<>a'
DataField = 'VntCaja'
DataSource = DsAccess
TabOrder = 1
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
object DBCheckBox24: TDBCheckBox
Left = 160
Top = 80
Width = 129
Height = 17
Caption = 'Balance Mensual'
DataField = 'VntBalanceM'
DataSource = DsAccess
TabOrder = 2
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
end
object GroupBox8: TGroupBox
Left = 8
Top = 8
Width = 305
Height = 105
Caption = 'Miscelanea'
TabOrder = 7
object DBCheckBox23: TDBCheckBox
Left = 160
Top = 80
Width = 129
Height = 17
Caption = 'Configuracion'
DataField = 'MisConfigurar'
DataSource = DsAccess
TabOrder = 0
ValueChecked = 'True'
ValueUnchecked = 'False'
OnClick = MakePost
end
end
end
object DsEmpleados: TDataSource
DataSet = TbEmpleados
Left = 208
Top = 128
end
object TbEmpleados: TTable
Active = True
DatabaseName = 'TpvWin'
Filter = 'Empleado > 0'
Filtered = True
ReadOnly = True
TableName = 'personas.DB'
Left = 208
Top = 160
object TbEmpleadosCodCliente1: TAutoIncField
FieldName = 'CodCliente1'
ReadOnly = True
end
object TbEmpleadosNombre: TStringField
FieldName = 'Nombre'
Size = 15
end
object TbEmpleadosApellidos: TStringField
FieldName = 'Apellidos'
Size = 30
end
object TbEmpleadosEmpleado: TIntegerField
FieldName = 'Empleado'
end
end
object TbAcceso: TTable
Active = True
DatabaseName = 'TpvWin'
IndexFieldNames = 'EnlacePersona'
MasterFields = 'CodCliente1'
MasterSource = DsEmpleados
TableName = 'AccessControl.db'
Left = 315
Top = 204
end
object DsAccess: TDataSource
DataSet = TbAcceso
Left = 315
Top = 172
end
object ElasticForm1: TElasticForm
DesignScreenWidth = 1152
DesignScreenHeight = 864
DesignPixelsPerInch = 96
MinimumTrackWidth = 640
MinimumTrackHeight = 480
DesignFormWidth = 640
DesignFormHeight = 480
DesignFormClientWidth = 632
DesignFormClientHeight = 449
DesignFormLeft = 376
DesignFormTop = 164
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'Verdana'
Font.Style = []
Version = 504
end
end