اهدا ء خاص من جمال الجعفري للاخوان في المنتدى للمبرمجين الخبراء

شفرة واجهة الحركة الشهرية Movements:

Insert: شفرة الإضافة

declare
cursor kaka is select max(bill_no) last from movements ;
 kaka1	kaka%rowtype;
	
h varchar2(4); 
a number(8);
d number;
f number;
b number;
m number;
begin if :move1 is null then
set_alert_property('msg',alert_message_text,'enter the no of bill');
M:=show_alert('msg');
go_item('move1');
else
open kaka;
fetch kaka into kaka1; a:=kaka1.last + 1;
:move1:=a;
close kaka;		
insert into movements(bill_no,custmor_no,to_month) values(:move1,:move5,:move3);
commit;
--------------------------------
	
--------------------------------			
		d:= show_alert('A1');
		:move1:=:move1+1;
:move3:=sysdate;
:move5:=null;	
go_item('move1');
	end if;	
			
end;

Delete: شفرة الحذف

declare
cursor kaka is select max(bill_no) last from movements ;
 kaka1	kaka%rowtype;

h varchar2(4); 
a number(8);
d number;
f number;
b number;
m number;
begin if :move1 is null then
set_alert_property('msg',alert_message_text,'enter the no of bill');
M:=show_alert('msg');
go_item('move1');
	else
		open kaka;
fetch kaka into kaka1; a:=kaka1.last + 1;
:move1:=a;
delete from movements where bill_no=:move1; 	
commit;
--------------------------------
	
set_alert_property('A1',alert_message_text,'the information is deleted');
:move1:=:move1+1;
:move3:=sysdate;
:move5:=null;
	end if;	
			
end;

Update: شفرة التعديل

declare
cursor kaka is select max(bill_no) last from movements ;
 kaka1	kaka%rowtype;
		
h varchar2(4); 
a number(8);
d number;
f number;
b number;
m number;
begin if :move1 is null then
set_alert_property('msg',alert_message_text,'enter the no of bill');
M:=show_alert('msg');
go_item('move1');
--------------------------------	
else
	open kaka;
fetch kaka into kaka1; a:=kaka1.last + 1;
:move1:=a;
			update movements set  to_month=:move3 where bill_no=:move1;


commit;

--------------------------------			
		d:= show_alert('A1');
:move3:=sysdate;
	:move5:=null;
		:move1:=:move1+1;
go_item('move1');
	end if;
			
end;

Search: شفرة البحث

show_window('movesearch');

back:

show_window('main_procedure');

Counter: شفرة واجهة العداد
Insert: شفرة الإضافة

declare
cursor kaka is select max(counter_no) last from counter ;
 kaka1	kaka%rowtype;
	
h varchar2(4); 
a number(8);
d number;
f number;
b number;
m number;
begin if :count2 is null then
	set_alert_property('msg',alert_message_text,'enter the no of colum!');
	m:= show_alert('msg');
	go_item('count2');
	elsif :count3 is null then
	set_alert_property('msg',alert_message_text,'enter the note!');
	m:= show_alert('msg');
	go_item('count3');
	

--------------------------------	
	else
insert into counter(counter_no,colum_no,note,custmor_no,bill_no) values(:count1,:count2,:count3,:count4,:count5);
commit;
--------------------------------
	
--------------------------------			
		d:= show_alert('A1');
:count1:=:count1+1;	
:count2 := null;
:count3:=null;
:count4:=null;
:count5:=null;
go_item('count2');
	end if;

			
end;

Delete: شفرة الحذف

declare
	cursor ali is select max(counter_no) last from counter ;
 ali1	ali%rowtype;
n number(10);
d number;
f number;
m number;
c number;
begin if :count2 is null then
	set_alert_property('msg',alert_message_text,'enter the no of colum!');
	m:= show_alert('msg');
	go_item('count2');
	elsif :count3 is null then
	set_alert_property('msg',alert_message_text,'enter the note!');
	m:= show_alert('msg');
	go_item('count3');	
else
delete from counter where counter_no=:count1; 	 
commit;
set_alert_property('A1',alert_message_text,'the information is deleted');
c:=show_alert('A1');
:count2:=null;
:count3:=null;
:count4:=null;
open ali;
fetch ali into ali1; n:=ali1.last + 1;
:count1:=n;
close ali;
	end if;
	end;

Update: شفرة التعديل

declare
cursor kaka is select max(counter_no) last from counter ;
 kaka1	kaka%rowtype;

	
h varchar2(4); 
a number(8);
d number;
f number;
b number;
m number;
begin if :count2 is null then
	set_alert_property('msg',alert_message_text,'enter the no of colum!');
	m:= show_alert('msg');
	go_item('count2');
	elsif :count3 is null then
	set_alert_property('msg',alert_message_text,'enter the note!');
	m:= show_alert('msg');
	go_item('count3');	
--------------------------------	
		else
			update counter set  colum_no=:count2 where counter_no=:count1;
			update counter set  note=:count3 where counter_no=:count1;
			


commit;

--------------------------------			
		d:= show_alert('A1');	
:count2 := null;
:count3:=null;
:count4:=null;
open kaka;
fetch kaka into kaka1; a:=kaka1.last + 1;
:count1:=a;
close kaka;
go_item('count2');
	end if;
			
end;

Search: شفرة البحث

show_window('countsearch');

back:

show_window('main_procedure');

Customers: شفرة واجهة المشتركين

Insert: شفرة الإضافة

declare
cursor kaka is select max(custmor_no) last from custmors ;
 kaka1	kaka%rowtype;
	
h varchar2(4); 
a number(8);
d number;
f number;
b number;
m number;
begin if :custmor1 is null then
set_alert_property('msg',alert_message_text,'enter the no of custmor');
M:=show_alert('msg');
go_item('custmor1');
	else	
open kaka;
fetch kaka into kaka1; a:=kaka1.last + 1;
:custmor1:=a;
close kaka;	
if :custmor2 is null then
	set_alert_property('msg',alert_message_text,'enter the name of custmor!');
	m:= show_alert('msg');
	go_item('custmor2');
		elsif :custmor3 is null then
		set_alert_property('msg',alert_message_text,'enter the location of custmor !');
	m:= show_alert('msg');
	 go_item('custmor3');

--------------------------------	
	else
insert into custmors(custmor_no,custmor_name,address) values(:custmor1,:custmor2,:custmor3);
commit;
--------------------------------
	
--------------------------------			
		d:= show_alert('A1');
:custmor1:=:custmor1+1;	
:custmor2 := null;
:custmor3:=null;
go_item('custmor2');
	end if;
	end if;	
			
end;

Delete: شفرة الحذف

declare
	cursor mido is select max(custmor_no) last from custmors ;
 mido1	mido%rowtype;
a number(8);
d number;
f number;
m number;
c number;
begin if :custmor2 is null then
set_alert_property('msg',alert_message_text,'enter the name of custmor');
M:=show_alert('msg');
go_item('custmor2');
		elsif :custmor3 is null then
		set_alert_property('msg',alert_message_text,'enter the address !');
	m:= show_alert('msg');


 go_item('custmor3');
else
delete from payments where custmor_no=:custmor1; 	
delete  from reading where custmor_no=:custmor1; 
delete  from movements where custmor_no=:custmor1;
commit;
set_alert_property('A1',alert_message_text,'the information id deleted');
c:=show_alert('A1');
:custmor1:=null;
:custmor2:=null;
:custmor3:=null;
open mido;
fetch mido into mido1; a:=mido1.last + 1;
:custmor1:=a;
close mido;
	end if;
	end;

Update: شفرة التعديل

declare
cursor kaka is select max(custmor_no) last from custmors ;
 kaka1	kaka%rowtype;
	
h varchar2(4); 
a number(8);
d number;
f number;
b number;
m number;
begin if :custmor1 is null then
set_alert_property('msg',alert_message_text,'enter the no of custmor');
M:=show_alert('msg');
go_item('custmor1');
	elsif :custmor2 is null then
	set_alert_property('msg',alert_message_text,'enter the name of custmor!');
	m:= show_alert('msg');
	go_item('custmor2');
		elsif :custmor3 is null then
		set_alert_property('msg',alert_message_text,'enter the location of custmor !');
	m:= show_alert('msg');
	 go_item('custmor3');

--------------------------------	
		else
			update custmors set  custmor_name=:custmor2 where custmor_no=:custmor1;
				update custmors set  address=:custmor3 where custmor_no=:custmor1;


commit;

--------------------------------			
		d:= show_alert('A1');
:custmor1:=null;	
:custmor2 := null;
:custmor3:=null;
open kaka;
fetch kaka into kaka1; a:=kaka1.last + 1;
:custmor1:=a;
close kaka;
go_item('custmor2');
	end if;
			
end;

Search: شفرة البحث

show_window('search');

back:

show_window('main_procedure');

Parts: شفرة واجهة الفروع

Insert: شفرة الإضافة

Declare

cursor kaka is select max(part_no) last from parts ;
 kaka1	kaka%rowtype;

	
h varchar2(4); 
a number(8);
d number;
f number;
b number;
m number;
begin if :part1 is null then
set_alert_property('msg',alert_message_text,'enter the no of part');
M:=show_alert('msg');
go_item('part1');
	else	
open kaka;
fetch kaka into kaka1; a:=kaka1.last + 1;
:part1:=a;
close kaka;	
if :part2 is null then
	set_alert_property('msg',alert_message_text,'enter the name of part!');
	m:= show_alert('msg');
	go_item('part2');
--------------------------------	
	else
insert into parts(part_no,part_name,custmor_no,bill_no) values(:part1,:part2,:part4,:part5);
commit;
--------------------------------
	
--------------------------------			
		d:= show_alert('A1');
:part1:=:part1+1;	
:part2 := null;
:part4 := null;
go_item('part2');
	end if;
	end if;	
			
end;

Delete: شفرة الحذف

declare
	cursor ali is select max(part_no) last from parts ;
 ali1	ali%rowtype;
n number(10);
d number;
f number;
m number;
c number;
begin if :part2 is null then
set_alert_property('msg',alert_message_text,'enter the name of part');
M:=show_alert('msg');
go_item('part2');
else
delete from parts where part_no=:part1; 	 
commit;
set_alert_property('A1',alert_message_text,'the information is deleted');
c:=show_alert('A1');
:part2:=null;
:part4 := null;
open ali;
fetch ali into ali1; n:=ali1.last + 1;
:part1:=n;
close ali;
	end if;
	end;

Update: شفرة التعديل

Declare
cursor kaka is select max(part_no) last from parts ;
 kaka1	kaka%rowtype;
	
h varchar2(4); 
a number(8);
d number;
f number;
b number;
m number;
begin if :part2 is null then
	set_alert_property('msg',alert_message_text,'enter the name of part!');
	m:= show_alert('msg');
	go_item('part2');
--------------------------------	
		else
			update parts set  part_name=:part2 where part_no=:part1;
			


commit;

--------------------------------			
		d:= show_alert('A1');	
:part2 := null;
:part4 := null;
open kaka;
fetch kaka into kaka1; a:=kaka1.last + 1;
:part1:=a;
close kaka;
go_item('part2');
	end if;
			
end;

Search: شفرة البحث

show_window('partsearch');

back:

show_window('main_procedure');

Payments: شفرة واجهة المدفوعات

Insert: شفرة الإضافة

declare
	m number;
d number;
begin if :pay1 is null then
	set_alert_property('msg',alert_message_text,'enter the payment !');
	m:= show_alert('msg');
	go_item('pay1');

--------------------------------	
	else
insert into payments(payment,the_month,custmor_no,bill_no) values(:pay1,:pay3,:pay4,:pay5);
commit;
--------------------------------
	
--------------------------------			
		d:= show_alert('A1');
:pay1:=null;	
:pay3:=sysdate;
:pay4:=null;
go_item('pay1');
	end if;	
			
end;

Delete: شفرة الحذف

Declare

m number;
c number;
begin delete from payments where payment=:pay1; 	
commit;
set_alert_property('A1',alert_message_text,'the information id deleted');
c:=show_alert('A1');
:pay1:=null;
:pay3:=sysdate;
:pay4:=null;
	end;

Update: شفرة التعديل

declare
d number;
f number;
b number;
m number;
begin --------------------------------	
			update payments set  payment=:pay1 where payment=:pay1;


commit;

--------------------------------			
		d:= show_alert('A1');
:pay1:=null;	
:pay3:=sysdate;
:pay4:=null;
end;

Search: شفرة البحث

show_window('paysearch');

back:

show_window('main_procedure');

Reading: شفرة واجهة القراءات

Insert: شفرة الإضافة

declare
m number;
d number;

begin if :read1 is null then
set_alert_property('msg',alert_message_text,'enter the last reading');
M:=show_alert('msg');
go_item('read1');
elsif :read2 is null then
set_alert_property('msg',alert_message_text,'enter the now reading');
M:=show_alert('msg');
go_item('read2');


	

--------------------------------	


else
	if :rg = 0 then
insert into reading(last_reading,now_reading,the_sub,userless,readdate,custmor_no,ser1,ser2, ser3,tot,bill_no)
values(:read1,:read2,(:read2-:read1),((:read2-:read1)*4),:read6,:read7,(((:read2-:read1)*4)*0.02),(((:read2-:read1)*4)*0.02),(((:read2-:read1)*4)*0.01),(((:read2-:read1)*4)*0.02)+(((:read2-:read1)*4)*0.02)+(((:read2-:read1)*4)*0.01)+((:read2-:read1)*4),:read8);
commit;
	elsif :rg = 1 then 
		insert into reading(last_reading,now_reading,the_sub,userless,readdate,custmor_no,ser1,ser2, ser3,tot,bill_no)
values(:read1,:read2,(:read2-:read1),((:read2-:read1)*17),:read6,:read7,(((:read2-:read1)*17)*0.02),(((:read2-:read1)*17)*0.02),(((:read2-:read1)*17)*0.01),(((:read2-:read1)*17)*0.02)+(((:read2-:read1)*17)*0.02)+(((:read2-:read1)*17)*0.01)+((:read2-:read1)*17),:read8);
commit;
end if;
--------------------------------
	
--------------------------------			
		d:= show_alert('A1');
:read1:=null;	
:read2 := null;
:read7:=null;
:read6:=sysdate;
go_item('read1');
	end if;	
			
end;

Delete: شفرة الحذف

Declare

m number;
c number;
begin if :read1 is null then
set_alert_property('msg',alert_message_text,'enter the last reading');
M:=show_alert('msg');
go_item('read1');
elsif :read2 is null then
set_alert_property('msg',alert_message_text,'enter the now reading');
M:=show_alert('msg');
go_item('read2');
else


delete from reading where last_reading=:read1; 	 
commit;
set_alert_property('A1',alert_message_text,'the information is deleted');
c:=show_alert('A1');
:read1:=null;	
:read2 := null;
:read6:=sysdate;
:read7:=null;
go_item('read1');
	end if;
	end;

Update: شفرة التعديل

declare

h varchar2(4); 
a number(8);
d number;
f number;
b number;
m number;
begin if :read1 is null then
set_alert_property('msg',alert_message_text,'enter the last reading');
M:=show_alert('msg');
go_item('read1');
elsif :read2 is null then
set_alert_property('msg',alert_message_text,'enter the now reading');
M:=show_alert('msg');
go_item('read2');

--------------------------------	


		else
			update reading set  last_reading=:read1 where last_reading=:read1;
			update reading set  now_reading=:read1 where last_reading=:read1; 
			update reading set  the_sub=:read1 where last_reading=:read1; 
			update reading set  userless=:read1 where last_reading=:read1;
		
			                                                                


commit;

--------------------------------			
		d:= show_alert('A1');	
		:read1:=null;	
:read2 := null;
:read6:=sysdate;
:read7:=null;
go_item('read1');
	end if;
			
end;

Search: شفرة البحث

show_window('readsearch');
back:
show_window('main_procedure');

Regions: شفرة واجهة المناطق

Insert: شفرة الإضافة

declare
cursor kaka is select max(region_no) last from regions ;
 kaka1	kaka%rowtype;

	
h varchar2(4); 
a number(8);
d number;
f number;
b number;
m number;
begin if :reg1 is null then
set_alert_property('msg',alert_message_text,'enter the no of region');
M:=show_alert('msg');
go_item('reg1');
	else	
open kaka;
fetch kaka into kaka1; a:=kaka1.last + 1;
:reg1:=a;
close kaka;	
if :reg2 is null then
	set_alert_property('msg',alert_message_text,'enter the name of region!');
	m:= show_alert('msg');
	go_item('reg2');
--------------------------------	
	else
insert into regions(region_no,region_name,custmor_no,bill_no) values(:reg1,:reg2,:reg4,:reg5);
commit;
--------------------------------
	
--------------------------------			
		d:= show_alert('A1');
:reg1:=:reg1+1;	
:reg2 := null;
:reg4 := null;

go_item('reg2');
	end if;
	end if;	
			
end;

Delete: شفرة الحذف

Declare

	cursor ali is select max(region_no) last from regions ;
 ali1	ali%rowtype;
n number(10);
d number;
f number;
m number;
c number;
begin if :reg2 is null then
set_alert_property('msg',alert_message_text,'enter the name of region');
M:=show_alert('msg');
go_item('reg2');
else
delete from regions where region_no=:reg1; 	 
commit;
set_alert_property('A1',alert_message_text,'the information is deleted');
c:=show_alert('A1');
:reg2:=null;
:reg4 := null;
open ali;
fetch ali into ali1; n:=ali1.last + 1;
:reg1:=n;
close ali;
	end if;
	end;

Update: شفرة التعديل

Declare
cursor kaka is select max(region_no) last from regions ;
 kaka1	kaka%rowtype;

h varchar2(4); 
a number(8);
d number;
f number;
b number;
m number;
begin if :reg2 is null then
	set_alert_property('msg',alert_message_text,'enter the name of region!');
	m:= show_alert('msg');
	go_item('reg2');
--------------------------------	
		else
			update regions set  region_name=:reg2 where region_no=:reg1;
			


commit;

--------------------------------			
		d:= show_alert('A1');	
:reg2 := null;
:reg4 := null;
open kaka;
fetch kaka into kaka1; a:=kaka1.last + 1;
:part1:=a;
close kaka;
go_item('reg2');
	end if;
			
end;

Search: شفرة البحث

show_window('regionsearch');

back:

show_window('main_procedure');

Search screens: شاشات البحث

Customer search: شفرة بحث للمشتركين

Ok:
declare
cursor a is select  custmor_no, custmor_name,address from custmors where custmor_no=:ts;
aa a%rowtype;
	
m number;	

begin open a;
fetch a into aa; if :ts is null then
  	set_alert_property('msg',alert_message_text,'enter the no !');
	m:= show_alert('msg');
	go_item('ts');

else
	 	select   custmor_no, custmor_name,address into :custmor1,:custmor2,:custmor3 from custmors
where custmor_no = :ts ;
commit;
end if;
close a;
:ts:=null;
show_window('main_procedure_custmors');	
end;


back:

show_window('main_procedure_custmors');

Movements search: شفرة بحث للحركة الشهرية

ok:

declare
cursor a is select  bill_no,to_month,custmor_no from movements where bill_no=:tsmove;
aa a%rowtype;
	
m number;	

begin open a;
fetch a into aa; if :tsmove is null then
  	set_alert_property('msg',alert_message_text,'enter the value !');
	m:= show_alert('msg');
	go_item('tsmove');

else
	 	select   bill_no,to_month,custmor_no into :move1,:move3,:move5 from movements 
where bill_no = :tsmove ;
end if;
close a;
:tsmove:=null;
show_window('main_procedure_monthmovement');	
end;


back:

show_window('main_procedure_monthmovement');

Part search: شفرة بحث للفروع

ok:

declare
cursor a is select  part_no,part_name,parts.custmor_no,parts.bill_no from parts,movements where parts.bill_no=movements.bill_no and movements.bill_no=:tspart;
aa a%rowtype;
	
m number;	

begin open a;
fetch a into aa; if :tspart is null then
  	set_alert_property('msg',alert_message_text,'enter the no !');
	m:= show_alert('msg');
	go_item('tspart');

else
	 	select   part_no, part_name,parts.custmor_no,parts.bill_no into :part1,:part2,:part4,:part5 from parts,movements
where parts.bill_no=movements.bill_no and movements.bill_no=:tspart;
commit;
end if;
close a;
:tspart:=null;
show_window('main_procedure_parts');	
end;


Back:

show_window('main_procedure_parts');

Regions search: شفرة بحث للمناطق

ok:

declare
cursor a is select  region_no,region_name,regions.custmor_no,regions.bill_no from regions,movements where regions.bill_no=movements.bill_no and movements.bill_no=:tsreg;
aa a%rowtype;
	
m number;	

begin open a;
fetch a into aa; if :tsreg is null then
  	set_alert_property('msg',alert_message_text,'enter the no !');
	m:= show_alert('msg');
	go_item('tsreg');

else
	 	select   region_no, region_name,regions.custmor_no,regions.bill_no into :reg1,:reg2,:reg4,:reg5 from regions,movements
where regions.bill_no=movements.bill_no and movements.bill_no=:tsreg;
commit;
end if;
close a;
:tsreg:=null;
show_window('main_procedure_regon');	
end;


bak:

show_window('main_procedure_regon');

Reading search: شفرة بحث للقراءات

ok:

declare
cursor a is select  last_reading,now_reading,the_sub,userless,readdate,movements.custmor_no from reading,movements where reading.bill_no=movements.bill_no and reading.bill_no=:tsread ;
aa a%rowtype;
	
m number;	

begin open a;
fetch a into aa; if :tsread is null then
  	set_alert_property('msg',alert_message_text,'enter the no !');
	m:= show_alert('msg');
	go_item('tsread');

else
	 	select    last_reading,now_reading,readdate,ser1,ser2,ser3,tot,movements.custmor_no into :read1,:read2,:read6,:t1,:t2,:t3,:t4,:read7 from reading,movements
where reading.bill_no=movements.bill_no and reading.bill_no=:tsread ;
commit;
end if;
close a;
:tsread:=null;
show_window('main_procedure_reading');	
end;


back:

show_window('main_procedure_reading');

Counter search: شفرة بحث للعداد

ok:

declare
cursor a is select  counter_no,colum_no,note,counter.custmor_no,counter.bill_no from counter,movements where counter.bill_no=movements.bill_no and movements.bill_no=:tscount;
aa a%rowtype;
	
m number;	

begin open a;
fetch a into aa; if :tscount is null then
  	set_alert_property('msg',alert_message_text,'enter the no !');
	m:= show_alert('msg');
	go_item('tscount');

else
	 	select    counter_no,colum_no,note,counter.custmor_no,counter.bill_no into :count1,:count2,:count3,:count4,:count5 from counter,movements
where counter.bill_no=movements.bill_no and movements.bill_no=:tscount;
commit;
end if;
close a;
:tscount:=null;
show_window('main_procedure_counter');	
end;

back:

show_window('main_procedure_counter');

payments search:

شفرة بحث للمدفوعات

ok:

declare
cursor a is select  payment,the_month,tot,payments.bill_no,payments.custmor_no from payments,reading,movements where reading.bill_no=movements.bill_no and payments.custmor_no= reading.custmor_no and movements.bill_no=:tspay; 
aa a%rowtype;
	
m number;	

begin open a;
fetch a into aa; if :tspay is null then
  	set_alert_property('msg',alert_message_text,'enter the no !');
	m:= show_alert('msg');
	go_item('tspay');

else
	 	select    payment,the_month,(tot-payment),payments.bill_no,payments.custmor_no  into :pay1,:pay3,:tt1,:pay5,:pay4 from payments,reading,movements
where reading.bill_no=movements.bill_no and payments.bill_no=reading.bill_no and movements.bill_no=:tspay; 
commit;
end if;
close a;
:tspay:=null;
show_window('main_procedure_payment');	
end;


back:

show_window('main_procedure_payment');

شفرة واجهة التقرير النهائي

Queue:

Find: شفرة البحث

declare
cursor a is select  payment,tot,ser1,ser2,ser3,the_sub
,last_reading,now_reading,reading.custmor_no,
custmor_name,address,region_no,part_no,counter_no,movements.bill_no
 from payments,reading,custmors,regions,parts,counter,movements where reading.bill_no=movements.bill_no and reading.bill_no=:f21 and regions.bill_no=movements.bill_no and regions.bill_no=:f21 and parts.bill_no=movements.bill_no and parts.bill_no=:f21 and counter.bill_no=movements.bill_no and counter.bill_no=:f21 and payments.bill_no=movements.bill_no and payments.bill_no=:f21 and custmors.custmor_no=:f18; 
aa a%rowtype;
	
m number;	

begin open a;
fetch a into aa; select    payment,tot,(tot-payment),ser1,ser2,ser3,the_sub
	 	,last_reading,now_reading,reading.custmor_no,custmor_name,
	 	address,region_no,part_no,counter_no,(ser1+ser2+ser3+tot),movements.bill_no
	 	  into :f1,:f2,:f3,:f4,:f5,:f6,:f7,:f8,:f9,:f10,:f11,:f12,:f13,:f14,:f16,:f17,:f19 from payments,reading,custmors,regions,parts,counter,movements
where reading.bill_no=movements.bill_no and reading.bill_no=:f21 and regions.bill_no=movements.bill_no and regions.bill_no=:f21 and parts.bill_no=movements.bill_no and parts.bill_no=:f21 and counter.bill_no=movements.bill_no and counter.bill_no=:f21 and payments.bill_no=movements.bill_no and payments.bill_no=:f21 and custmors.custmor_no=:f18; 
commit;
close a;
end;

back:

show_window('main');

Clear: شفرة المسح

:f1:=null;
:f2:=null;
:f3:=null;:f4:=null;
:f5:=null;:f6:=null;
:f7:=null;:f8:=null;
:f9:=null;:f10:=null;:f11:=null;
:f12:=null;:f14:=null;:f13:=null;
:f14:=null;:f15:=null;:f16:=null;
:f17:=null;:f18:=null;:f19:=null;:f21:=null;

شفرة فتح تقرير المشتركين

declare
re report_object;
vre varchar2(100);
begin re:=find_report_object('rep2');
vre:=run_report_object(re);
end;

شفرة لفتح تقرير المتأخرات

declare
re report_object;
vre varchar2(100);
begin re:=find_report_object('rep3');
vre:=run_report_object(re);
end;

شفرة لفتح التقرير النهائي

declare
re report_object;
vre varchar2(100);
begin re:=find_report_object('rep1');
vre:=run_report_object(re);
end;

شفرة واجهة تغير كلمة المرور
Ok:

declare
 error_txt  varchar2(2000);
 error_cd   number;
v_user varchar2(40)  :=user;
v_password  varchar2(20);
name  varchar2(40);
begin if NVL(:passs2,'AAAAAAA') != :passs1 then
 message('?');

شفرة إثناء تشغيل البرنامج

When new form instance:

declare
tm_intero timer;
begin set_window_property(forms_mdi_window,window_state,maximize);
set_window_property('main',window_state,maximize);
set_window_property('intero',window_state,maximize);
set_window_property('pass',window_state,maximize);
set_window_property('MAIN_PROCEDURE',window_state,maximize);
set_window_property('MAIN_PROCEDURE_MONTHMOVEMENT',window_state,maximize);
set_window_property('MAIN_PROCEDURE_regon',window_state,maximize);
set_window_property('MAIN_PROCEDURE_parts',window_state,maximize);
set_window_property('MAIN_PROCEDURE_custmors',window_state,maximize);
set_window_property('MAIN_PROCEDURE_counter',window_state,maximize);
set_window_property('MAIN_PROCEDURE_reading',window_state,maximize);
set_window_property('MAIN_PROCEDURE_symbol',window_state,maximize);
set_window_property('MAIN_PROCEDURE_total',window_state,maximize);
set_window_property('MAIN_PROCEDURE_payment',window_state,maximize);
set_window_property('MAIN_PROCEDURE_later',window_state,maximize);
set_window_property('MAIN_PROCEDURE_service',window_state,maximize);
set_window_property('ok',window_state,maximize);
tm_intero :=find_timer('intro_tm');
if not id_null (tm_intero) then 
	delete_timer (tm_intero);
end if ;
  tm_intero := create_timer ('intero_tm',5000,no_repeat);
  :read6:=sysdate;
  :move3:=sysdate;
  :pay3:=sysdate;
  :f20:=sysdate;
end;
declare
cursor c1 is select custmor_no,custmor_name from custmors; cursor c2 is select counter_no,note from counter; cursor c3 is select part_no,part_name from parts; cursor c4 is select region_no,region_name from regions; cursor c5 is select bill_no,to_month from movements; i number;
a number (10);
b varchar2 (100);
c number (10);
f varchar2 (100);
d number (10);
e varchar2 (100);
g number(10);
k varchar2(100);
l number(10);
m varchar2(100);
z date;
s number(10);
begin open c1;
i:=0;
loop
	i:=i+1;
	fetch c1 into a,b; exit when c1%notfound;
	add_list_element('move5',i,b,a);
		add_list_element('reg4',i,b,a);
			add_list_element('pay4',i,b,a);
			add_list_element('read7',i,b,a);
				add_list_element('count4',i,b,a);			
		add_list_element('part4',i,b,a);			
		add_list_element('symb4',i,b,a);
						
end loop;
close c1;
open c2;
	i:=0;
loop
	i:=i+1;
	fetch c2 into c,f; exit when c2%notfound;
	add_list_element('move4',i,c,f);
end loop;
close c2;
open c3;
	i:=0;
loop
	i:=i+1;
	fetch c3 into d,e; exit when c3%notfound;
	add_list_element('move9',i,d,e);
end loop;
close c3;
open c4;
	i:=0;
loop
	i:=i+1;
	fetch c4 into g,k; exit when c4%notfound;
	add_list_element('move8',i,g,k);
end loop;
close c4;
open c5;
	i:=0;
loop
	i:=i+1;
	fetch c5 into s,z; exit when c5%notfound;
	add_list_element('read8',i,z,s);
	add_list_element('pay5',i,z,s);
	add_list_element('reg5',i,z,s);
	add_list_element('part5',i,z,s);
	add_list_element('count5',i,z,s);
end loop;
close c5;
end;

السلام عليكم
اخي الحبيب...ياريت ترفق الجداول كي يتمكن كل الاخوه من الاستفادة من الموضوع...

مجهود ممتاز بارك الله فيك
بس ياريت ترفق الجداول ولو امكن صور الشاشات يكون استفاده كبيره جدا ولك جزيل الشكر وجعله الله في ميزان حسناتك
وغفر الله لك ولي ولوالدينا والمؤمنين والمؤمنات والمسلمين والمسلمات الاحياء منهم والاموات من اول الخلق الي يوم الدين امين امين امين وصلي اللهم علي سيدنا محمد واله وصاحبه والتابعين الي يوم الدين اجمعين صلي الله عليه وسلم

شكرا لك ياخي الكريم على هذا الاظافة الجميلة

فعلا ياريت لو ترفق الجداول تبعها ولو امكن الشاشات ترفعها وربنا يجزيك كل الخير.

للاسف : البرنامج ما اشتغلته قبل كذا بس حصلت على اكواد البرنامج وحبيت انزلها على المنتدى للاخوان اللي حاب يشتغل البرنامج واما بالنسبة للشاشات لم احصل عليها بعد ...