|
Hola a todos denuevo, saben ahora necesito pasar del form1 al form2 y no me resulta. se me cae el programa por violacion de acceso de no se que cosa.
recordando. logre gracias a uds. pasar datos desde el form2 al form1(main) y ahora me gustaria poder hacer tambien lo contrario.
aqui va el codigo:
--------------------------FORM1 (main)
unit MainProgramFPv1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons,
Mask, XPMan;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
GroupBox1: TGroupBox;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
GroupBox2: TGroupBox;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBEdit17: TDBEdit;
DBGrid2: TDBGrid;
DataSource2: TDataSource;
ADOTable2: TADOTable;
Label19: TLabel;
DBEdit13: TDBEdit;
Label26: TLabel;
DBEdit19: TDBEdit;
DBNavigator2: TDBNavigator;
GroupBox4: TGroupBox;
INGRESOS: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Isalario: TDBEdit;
Idividendo: TDBEdit;
Ibienrais: TDBEdit;
Inegocio: TDBEdit;
Iinteres: TDBEdit;
Itotal: TDBEdit;
BI1: TBitBtn;
BI2: TBitBtn;
BI3: TBitBtn;
BI4: TBitBtn;
BI5: TBitBtn;
EGRESOS: TGroupBox;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label24: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit18: TDBEdit;
BE1: TBitBtn;
BE2: TBitBtn;
BE3: TBitBtn;
BE4: TBitBtn;
BE5: TBitBtn;
BE6: TBitBtn;
BE7: TBitBtn;
GroupBox3: TGroupBox;
DataSource1: TDataSource;
ADOTable1: TADOTable;
XPManifest1: TXPManifest;
Label25: TLabel;
DBEdit20: TDBEdit;
BA1: TBitBtn;
BA2: TBitBtn;
BA3: TBitBtn;
BA4: TBitBtn;
BO1: TBitBtn;
BO2: TBitBtn;
BO3: TBitBtn;
BO4: TBitBtn;
BO5: TBitBtn;
BO6: TBitBtn;
BO7: TBitBtn;
Edit1form1: TEdit;
DBNavigator3: TDBNavigator;
DBComboBox1: TDBComboBox;
Label27: TLabel;
procedure BI1Click(Sender: TObject);
procedure BI2Click(Sender: TObject);
private
{ Private declarations }
Fc, Fd: Integer;
public
{ Public declarations }
Property C: Integer Read Fc Write Fc;
Property D: Integer Read Fd Write Fd;
end;
var
Form1: TForm1;
A,B: String;
implementation
{$R *.dfm}
uses ventana1;
procedure TForm1.BI1Click(Sender: TObject);
begin
Form1.C:=1; // boton 1
if Form2.ShowModal=mrok then
edit1form1.Text:=Form2.A;
end;
end.
--------------------------------FORM 2
unit ventana1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, ADODB, Mask, DBCtrls;
type
TForm2 = class(TForm)
Edit1form2: TEdit;
BitBtn1: TBitBtn;
Gsalarios: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DataSource1: TDataSource;
ADOTable1: TADOTable;
Label11: TLabel;
DBEdit11: TDBEdit;
Gdividendo: TGroupBox;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
Fa, Fb: String;
public
{ Public declarations }
Property A: String Read Fa Write Fa;
Property B: String Read Fb Write Fb;
end;
var
Form2: TForm2;
C,D: Integer;
implementation
uses MainProgramFPv1;
{$R *.dfm}
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
A:=Edit1form2.Text;
end;
begin
if Form1.C = 1 then // aqui me muestra el error de excepcion nose que.. y se muere//
Form2.label2.Visible := true;
end.
--------------------------
Gracias
Oscar.
|