He probado esto, y funciona perfectamente
Unit1.pas
Código:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, DBCtrls, Db, StdCtrls, Mask, DBTables;
type
TForm1 = class(TForm)
Database1: TDatabase;
Table1: TTable;
Table1RAMO_MALLA: TStringField;
Table1NOM_RAMO: TStringField;
Table1CARRERA1: TFloatField;
Table1CARRERA2: TFloatField;
Table1SEMESTRE: TFloatField;
Table1CREDITOS: TFloatField;
Table1P_REQTO1: TStringField;
Table1P_REQTO2: TStringField;
Table1P_REQTO3: TStringField;
Label1: TLabel;
DBEdit1: TDBEdit;
DataSource1: TDataSource;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
Label8: TLabel;
DBEdit8: TDBEdit;
Label9: TLabel;
DBEdit9: TDBEdit;
DBNavigator1: TDBNavigator;
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
end.
Unit1.dfm
Código:
object Form1: TForm1
Left = 207
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 80
Top = 8
Width = 73
Height = 13
Caption = 'RAMO_MALLA'
FocusControl = DBEdit1
end
object Label2: TLabel
Left = 80
Top = 52
Width = 63
Height = 13
Caption = 'NOM_RAMO'
FocusControl = DBEdit2
end
object Label3: TLabel
Left = 80
Top = 96
Width = 58
Height = 13
Caption = 'CARRERA1'
FocusControl = DBEdit3
end
object Label4: TLabel
Left = 80
Top = 140
Width = 58
Height = 13
Caption = 'CARRERA2'
FocusControl = DBEdit4
end
object Label5: TLabel
Left = 80
Top = 184
Width = 59
Height = 13
Caption = 'SEMESTRE'
FocusControl = DBEdit5
end
object Label6: TLabel
Left = 80
Top = 228
Width = 55
Height = 13
Caption = 'CREDITOS'
FocusControl = DBEdit6
end
object Label7: TLabel
Left = 80
Top = 272
Width = 57
Height = 13
Caption = 'P_REQTO1'
FocusControl = DBEdit7
end
object Label8: TLabel
Left = 80
Top = 316
Width = 57
Height = 13
Caption = 'P_REQTO2'
FocusControl = DBEdit8
end
object Label9: TLabel
Left = 80
Top = 360
Width = 57
Height = 13
Caption = 'P_REQTO3'
FocusControl = DBEdit9
end
object DBEdit1: TDBEdit
Left = 80
Top = 24
Width = 46
Height = 21
DataField = 'RAMO_MALLA'
DataSource = DataSource1
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 80
Top = 68
Width = 304
Height = 21
DataField = 'NOM_RAMO'
DataSource = DataSource1
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 80
Top = 112
Width = 64
Height = 21
DataField = 'CARRERA1'
DataSource = DataSource1
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 80
Top = 156
Width = 64
Height = 21
DataField = 'CARRERA2'
DataSource = DataSource1
TabOrder = 3
end
object DBEdit5: TDBEdit
Left = 80
Top = 200
Width = 64
Height = 21
DataField = 'SEMESTRE'
DataSource = DataSource1
TabOrder = 4
end
object DBEdit6: TDBEdit
Left = 80
Top = 244
Width = 64
Height = 21
DataField = 'CREDITOS'
DataSource = DataSource1
TabOrder = 5
end
object DBEdit7: TDBEdit
Left = 80
Top = 288
Width = 46
Height = 21
DataField = 'P_REQTO1'
DataSource = DataSource1
TabOrder = 6
end
object DBEdit8: TDBEdit
Left = 80
Top = 332
Width = 46
Height = 21
DataField = 'P_REQTO2'
DataSource = DataSource1
TabOrder = 7
end
object DBEdit9: TDBEdit
Left = 80
Top = 376
Width = 46
Height = 21
DataField = 'P_REQTO3'
DataSource = DataSource1
TabOrder = 8
end
object DBNavigator1: TDBNavigator
Left = 364
Top = 12
Width = 240
Height = 25
DataSource = DataSource1
TabOrder = 9
end
object Database1: TDatabase
AliasName = 'MIDSN'
Connected = True
DatabaseName = 'XXX'
LoginPrompt = False
Params.Strings = (
'USER NAME=MIUSUARIO'
'PASSWORD=MIPASWORD')
SessionName = 'Default'
Left = 8
Top = 12
end
object Table1: TTable
Active = True
DatabaseName = 'XXX'
TableName = 'RAMOS_MALLA'
Left = 36
Top = 12
object Table1RAMO_MALLA: TStringField
FieldName = 'RAMO_MALLA'
Required = True
Size = 7
end
object Table1NOM_RAMO: TStringField
FieldName = 'NOM_RAMO'
Required = True
Size = 50
end
object Table1CARRERA1: TFloatField
FieldName = 'CARRERA1'
Required = True
end
object Table1CARRERA2: TFloatField
FieldName = 'CARRERA2'
Required = True
end
object Table1SEMESTRE: TFloatField
FieldName = 'SEMESTRE'
Required = True
end
object Table1CREDITOS: TFloatField
FieldName = 'CREDITOS'
Required = True
end
object Table1P_REQTO1: TStringField
FieldName = 'P_REQTO1'
Size = 7
end
object Table1P_REQTO2: TStringField
FieldName = 'P_REQTO2'
Size = 7
end
object Table1P_REQTO3: TStringField
FieldName = 'P_REQTO3'
Size = 7
end
end
object DataSource1: TDataSource
DataSet = Table1
Left = 156
Top = 164
end
end