Ver Mensaje Individual
  #9  
Antiguo 07-07-2003
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.932
Reputación: 27
delphi.com.ar Va por buen camino
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
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita