[Reinaldo08]

soy del país de las maravillas, Rep. Dom., aqui esta mi codigo para el formulario Asignación de aulas.


[b]unit SAsigna;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons;

type
TSasign = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label5: TLabel;
pnuevo: TBitBtn;
pguardar: TBitBtn;
pborrar: TBitBtn;
psalir: TBitBtn;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
procedure psalirClick(Sender: TObject);
procedure pborrarClick(Sender: TObject);
procedure pnuevoClick(Sender: TObject);
procedure pguardarClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Sasign: TSasign;
x,b,e,m,n,c:integer;

implementation
uses primerapractica, formaula,formgrupo,formhorario;

{$R *.dfm}

procedure TSasign.psalirClick(Sender: TObject);
begin
close;
end;

procedure TSasign.pborrarClick(Sender: TObject);
begin
if (x<=l) then
begin

numgrupo[x]:=strtoint(edit1.text);
codhorario[x]:=strtoint(edit2.text);
numeraula[x]:=strtoint(edit3.text);
inc(x);
end
else
showmessage ('arreglo Lleno');
edit1.clear;
edit2.clear;
edit3.clear;
edit1.Enabled:=false;
edit2.enabled:=false;
edit3.Enabled:=false;

pnuevo.enabled:=true;
pguardar.enabled:=false;
pborrar.enabled:=false;
end;

procedure TSasign.pnuevoClick(Sender: TObject);
begin
edit1.clear;
edit2.clear;
edit3.clear;

edit1.Enabled:=true;
edit2.enabled:=true;
edit3.Enabled:=true;

pnuevo.enabled:=false;
pguardar.enabled:=true;
pborrar.enabled:=true;
end;

procedure TSasign.pguardarClick(Sender: TObject);

begin
if (x<=l) then
begin
numgrupo[x]:=strtoint(edit1.Text);
inc(x);
end
else
showmessage ('Arreglo Lleno');
edit1.clear;
edit2.setfocus;
for b:=0 to l do
if numgrupo[b] <> numegrupo[b] then
combobox1.Items.Add(inttostr(numgrupo[b]));
combobox1.Items.add(inttostr(numegrupo[b]));
end;

procedure TSasign.BitBtn1Click(Sender: TObject);
begin

if (x<=l) then
begin
codhorario[x]:=strtoint(edit2.text);
inc(x);
end
else
showmessage ('Arreglo Lleno');
edit2.clear;
edit3.setfocus;
for b:=0 to l do
if codhorario[b] <> horario[b] and codhorarioo[b] then
combobox2.Items.Add(inttostr(codhorario[b]));
combobox2.Items.Add(inttostr(horario[b]));
combobox2.Items.Add(inttostr(codhorarioo[b]));
end;
procedure TSasign.BitBtn2Click(Sender: TObject);
begin
if (x<=l) then
begin
numeraula[x]:=strtoint(edit3.Text);
inc(x);
end
else
showmessage ('Arreglo Lleno');
edit3.clear;
edit1.setfocus;
for b:=0 to l do
if numeraula[b] <> numaula[b] and aula[b] then
combobox3.Items.Add(inttostr(numeraula[b]));
combobox3.Items.Add(inttostr(numaula[b]));
combobox3.Items.Add(inttostr(aula));
end;
end.


por cierto,el codigo no estaba de esa forma es que hice algunas cuantas pruebas, pero bueno ojala me digan en que fallo, lo que quiero es que me registre todo lo de asignacion aula, lo que es el: codigo de horario, el numero de aula y el numero de grupos, en fin tratar de que cuando se repita uno de estos 3 renglones tratar de que no pase ,osea, no se filtre, que solo pasen las quq nose repiten y sobre todo coincidir en los demas formularios. ya sea en el formulario de horario, aula y grupo...

gracias de antemano....