Нужно разобраться с кодом написанным на Object Pascal в среде Delphi 7.0

[anchuta]

Мне написали код, но ничего не объяснили как работает и что получается. Пожалуйста, расскажите как его откомпилировать, и что получается. Мне нужно это очень срочно. Это мне нужно в диплом.

[anchuta]

unit MainUnit; // Главный модуль
var
MainForm: TMainForm;
implementation
{$R *. dfm}
// процедура динамически создаёт форму "
procedure TMainForm. CreateALLEdIzmForm;
Var
MyEdIzmForm: TEdIzmForm; // переменная типа формы
begin
MyEdIzmForm: =TEdIzmForm. Create (Owner); // создаём
MyEdIzmForm. ShowModal; // показываем пользователю
MyEdIzmForm. Free // уничтожаем переменную
end;
// Показать форму "Ед. изм."
procedure TMainForm. EdIzmActExecute (Sender: TObject);
begin
CreateALLEdIzmForm;
end;
// процедура динамически создаёт форму "Клиенты"
procedure TMainForm. CreateALLKlientsForm;
Var
MyKlientsForm: TKlientsForm;
begin
MyKlientsForm: =TKlientsForm. Create (Owner);
MyKlientsForm. ShowModal;
MyKlientsForm. Free;
end;
procedure TMainForm. KlientsActExecute (Sender: TObject);
begin
CreateALLKlientsForm;
end;
type
TForm1 = class(TForm)
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
ADOStoredProc1: TADOStoredProc;
DataSource3: TDataSource;
ADOStoredProc3: TADOStoredProc;
ADOTable3: TADOTable;
ADOTable4: TADOTable;
ADOStoredProc4: TADOStoredProc;
DataSource4: TDataSource;
DataSource5: TDataSource;
ADOStoredProc5: TADOStoredProc;
ADOTable5: TADOTable;
DataSource6: TDataSource;
ADOStoredProc6: TADOStoredProc;
ADOTable6: TADOTable;
DataSource7: TDataSource;
ADOStoredProc7: TADOStoredProc;
ADOTable7: TADOTable;
DataSource8: TDataSource;
ADOStoredProc8: TADOStoredProc;
ADOTable8: TADOTable;
DataSource2: TDataSource;
ADOTable2: TADOTable;
ADOStoredProc2: TADOStoredProc;
ADOStoredProc9: TADOStoredProc;
ADOStoredProc10: TADOStoredProc;
ADOStoredProc11: TADOStoredProc;
ADOStoredProc12: TADOStoredProc;
ADOStoredProc13: TADOStoredProc;
ADOStoredProc14: TADOStoredProc;
RvProject1: TRvProject;
RvSystem1: TRvSystem;
RvDataSetConnection1: TRvDataSetConnection;
RvDataSetConnection2: TRvDataSetConnection;
ADOStoredProc15: TADOStoredProc;
ADOStoredProc16: TADOStoredProc;
RvProject2: TRvProject;
RvSystem2: TRvSystem;
RvDataSetConnection3: TRvDataSetConnection;
RvDataSetConnection4: TRvDataSetConnection;
ADOStoredProc17: TADOStoredProc;
ADOStoredProc18: TADOStoredProc;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
ADOStoredProc19: TADOStoredProc;
ADOStoredProc20: TADOStoredProc;
ADOStoredProc21: TADOStoredProc;
ADOStoredProc22: TADOStoredProc;
ADOStoredProc23: TADOStoredProc;
ADOStoredProc24: TADOStoredProc;

[anchuta]

MainMenu1: TMainMenu;
N4: TMenuItem;
N5: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Label51: TLabel;
Label52: TLabel;
Label53: TLabel;
Label54: TLabel;
Button1: TButton;
DBGrid1: TDBGrid;
Button9: TButton;
Edit53: TEdit;
Edit54: TEdit;
Edit55: TEdit;
Edit56: TEdit;
Button26: TButton;
Button27: TButton;
TabSheet2: TTabSheet;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label18: TLabel;
DBGrid2: TDBGrid;
Edit11: TEdit;
Edit4: TEdit;
Edit3: TEdit;
Edit2: TEdit;
Edit1: TEdit;
Button2: TButton;
Button10: TButton;
Button20: TButton;
TabSheet3: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label19: TLabel;
Label20: TLabel;
Button3: TButton;
DBGrid3: TDBGrid;
Edit5: TEdit;
Edit6: TEdit;
Edit13: TEdit;
Edit14: TEdit;
Button11: TButton;
Button21: TButton;
Button28: TButton;
Button29: TButton;
Button30: TButton;
Button31: TButton;
Button32: TButton;
Button33: TButton;
TabSheet4: TTabSheet;
Label11: TLabel;
Label12: TLabel;
Label21: TLabel;
Button4: TButton;
Edit8: TEdit;
DBGrid4: TDBGrid;
Edit15: TEdit;
Button12: TButton;
Button22: TButton;
Button34: TButton;
Button35: TButton;
Button36: TButton;
Button37: TButton;
Button38: TButton;
Button39: TButton;
TabSheet5: TTabSheet;
Label14: TLabel;
Label15: TLabel;
Label22: TLabel;
Label23: TLabel;
Label44: TLabel;
DBGrid5: TDBGrid;
Edit9: TEdit;
Edit10: TEdit;
Button5: TButton;
Edit16: TEdit;
Edit17: TEdit;
Edit38: TEdit;
Button13: TButton;
Button23: TButton;
Button40: TButton;
Button41: TButton;
Button42: TButton;

[anchuta]

Button43: TButton;
Button44: TButton;
Button45: TButton;
TabSheet6: TTabSheet;
Label17: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label28: TLabel;
Label55: TLabel;
Button6: TButton;
DBGrid6: TDBGrid;
Edit22: TEdit;
Button16: TButton;
Button18: TButton;
Button47: TButton;
Button24: TButton;
TabSheet8: TTabSheet;
Label37: TLabel;
Label38: TLabel;
DBGrid8: TDBGrid;
Button8: TButton;
Button15: TButton;
Button19: TButton;
Button48: TButton;
Button55: TButton;
Button56: TButton;
Button57: TButton;
Button58: TButton;
Button59: TButton;
Button60: TButton;
Button61: TButton;
Button62: TButton;
Button63: TButton;
Button64: TButton;
Button65: TButton;
RvProject3: TRvProject;
RvSystem3: TRvSystem;
RvDataSetConnection5: TRvDataSetConnection;
RvDataSetConnection6: TRvDataSetConnection;
ADOStoredProc25: TADOStoredProc;
ADOStoredProc26: TADOStoredProc;
ADOQuery3: TADOQuery;
ADOQuery4: TADOQuery;
Button66: TButton;
Button67: TButton;
N3: TMenuItem;
DBNavigator3: TDBNavigator;
DBNavigator4: TDBNavigator;
DBNavigator5: TDBNavigator;
DBNavigator6: TDBNavigator;
DBNavigator7: TDBNavigator;
DBNavigator8: TDBNavigator;
DataSource9: TDataSource;
ADOTable9: TADOTable;
Label58: TLabel;
DBLookupComboBox2: TDBLookupComboBox;
DBLookupComboBox3: TDBLookupComboBox;
Label59: TLabel;
Label60: TLabel;
DBLookupComboBox4: TDBLookupComboBox;
Label61: TLabel;
DBLookupComboBox5: TDBLookupComboBox;
Label62: TLabel;
DBLookupComboBox6: TDBLookupComboBox;
Label63: TLabel;
DBLookupComboBox7: TDBLookupComboBox;
Label64: TLabel;
DBLookupComboBox8: TDBLookupComboBox;
DBLookupComboBox9: TDBLookupComboBox;
DBLookupComboBox10: TDBLookupComboBox;
Label65: TLabel;
Label66: TLabel;
Label67: TLabel;
Label68: TLabel;
Label69: TLabel;
Label70: TLabel;
DBLookupComboBox12: TDBLookupComboBox;
Label71: TLabel;
DBLookupComboBox13: TDBLookupComboBox;
Label72: TLabel;
Label73: TLabel;
Label74: TLabel;
Label75: TLabel;
Label76: TLabel;
Label77: TLabel;
DBLookupComboBox14: TDBLookupComboBox;
DBLookupComboBox15: TDBLookupComboBox;

[anchuta]

DBLookupComboBox16: TDBLookupComboBox;
DBLookupComboBox17: TDBLookupComboBox;
DBLookupComboBox18: TDBLookupComboBox;
DateTimePicker1: TDateTimePicker;
TabSheet7: TTabSheet;
Label29: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label35: TLabel;
Label36: TLabel;
Label27: TLabel;
Label30: TLabel;
DBGrid7: TDBGrid;
Edit29: TEdit;
Button7: TButton;
Button14: TButton;
Button17: TButton;
Button25: TButton;
Button46: TButton;
Button49: TButton;
Button50: TButton;
Button51: TButton;
Button52: TButton;
Button53: TButton;
Button54: TButton;
DBNavigator1: TDBNavigator;
DBLookupComboBox1: TDBLookupComboBox;
DBLookupComboBox19: TDBLookupComboBox;
DBLookupComboBox20: TDBLookupComboBox;
DateTimePicker2: TDateTimePicker;
DBLookupComboBox21: TDBLookupComboBox;
DBLookupComboBox22: TDBLookupComboBox;
Label34: TLabel;
XPManifest1: TXPManifest;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(Sender: TObject);
procedure Button17Click(Sender: TObject);
procedure Button18Click(Sender: TObject);
procedure Button19Click(Sender: TObject);
procedure Button20Click(Sender: TObject);
procedure Button21Click(Sender: TObject);
procedure Button22Click(Sender: TObject);
procedure Button24Click(Sender: TObject);
procedure Button23Click(Sender: TObject);
procedure Button25Click(Sender: TObject);
procedure Button26Click(Sender: TObject);
procedure Button27Click(Sender: TObject);

procedure N4Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Button28Click(Sender: TObject);
procedure Button31Click(Sender: TObject);
procedure Button29Click(Sender: TObject);
procedure Button32Click(Sender: TObject);
procedure Button30Click(Sender: TObject);
procedure Button33Click(Sender: TObject);
procedure Button34Click(Sender: TObject);
procedure Button35Click(Sender: TObject);
procedure Button36Click(Sender: TObject);
procedure Button37Click(Sender: TObject);
procedure Button38Click(Sender: TObject);
procedure Button39Click(Sender: TObject);
procedure Button43Click(Sender: TObject);
procedure Button44Click(Sender: TObject);
procedure Button45Click(Sender: TObject);
procedure Button40Click(Sender: TObject);
procedure Button41Click(Sender: TObject);
procedure Button42Click(Sender: TObject);
procedure Button47Click(Sender: TObject);
procedure Button16Click(Sender: TObject);
procedure Button46Click(Sender: TObject);

[anchuta]

procedure Button54Click(Sender: TObject);
procedure Button53Click(Sender: TObject);
procedure Button50Click(Sender: TObject);
procedure Button51Click(Sender: TObject);
procedure Button52Click(Sender: TObject);
procedure Button49Click(Sender: TObject);
procedure Button57Click(Sender: TObject);
procedure Button58Click(Sender: TObject);
procedure Button59Click(Sender: TObject);
procedure Button48Click(Sender: TObject);
procedure Button55Click(Sender: TObject);
procedure Button56Click(Sender: TObject);
procedure Button63Click(Sender: TObject);
procedure Button64Click(Sender: TObject);
procedure Button65Click(Sender: TObject);
procedure Button60Click(Sender: TObject);
procedure Button61Click(Sender: TObject);
procedure Button62Click(Sender: TObject);
procedure Button66Click(Sender: TObject);
procedure Button67Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure DBLookupComboBox2Click(Sender: TObject);
procedure DBLookupComboBox4Click(Sender: TObject);
procedure DBLookupComboBox6Click(Sender: TObject);
procedure DBLookupComboBox8Click(Sender: TObject);
procedure DBLookupComboBox10Click(Sender: TObject);
procedure DBLookupComboBox13Click(Sender: TObject);
procedure DBLookupComboBox3Click(Sender: TObject);
procedure DBLookupComboBox5Click(Sender: TObject);
procedure DBLookupComboBox7Click(Sender: TObject);
procedure DBLookupComboBox14Click(Sender: TObject);
procedure DBLookupComboBox16Click(Sender: TObject);
procedure DBLookupComboBox19Click(Sender: TObject);
procedure DBLookupComboBox22Click(Sender: TObject);
procedure DBLookupComboBox24Click(Sender: TObject);
procedure DBLookupComboBox11Click(Sender: TObject);
procedure DBLookupComboBox26Click(Sender: TObject);
procedure Button68Click(Sender: TObject);
procedure Button69Click(Sender: TObject);
procedure DBLookupComboBox28Click(Sender: TObject);
procedure Button70Click(Sender: TObject);
procedure Edit22KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit22Enter(Sender: TObject);
procedure Edit22Exit(Sender: TObject);
procedure Edit22Change(Sender: TObject);
procedure hggfh1Click(Sender: TObject);

procedure Button71Click(Sender: TObject);
procedure Button72Click(Sender: TObject);
procedure Button73Click(Sender: TObject);
procedure Button74Click(Sender: TObject);
procedure Button75Click(Sender: TObject);
procedure Button76Click(Sender: TObject);
procedure Button77Click(Sender: TObject);
procedure Button78Click(Sender: TObject);
procedure Button79Click(Sender: TObject);
procedure Button80Click(Sender: TObject);
procedure Button82Click(Sender: TObject);
procedure DBLookupComboBox29Click(Sender: TObject);
procedure Button81Click(Sender: TObject);
procedure Button83Click(Sender: TObject);
procedure Button85Click(Sender: TObject);
procedure Button84Click(Sender: TObject);
procedure Button87Click(Sender: TObject);
procedure Button86Click(Sender: TObject);
procedure DBLookupComboBox30Click(Sender: TObject);
procedure Button88Click(Sender: TObject);
procedure DBLookupComboBox42Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
x,nomer:integer;
z1,z2,z3,z4,z5,z6,z7:integer;
bool:boolean;
s: TDateTime;
a:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

[anchuta]

begin
//ADOStoredProc1.ExecProc;
//ADOTable1.Refresh;
if parol then begin
//val(edit53.Text,x,z1);
if //(z1=0) and (edit53.Text<>'') and
(edit54.Text<>'')
and (edit55.Text<>'') and (edit56.Text<>'')
then begin
adostoredproc1.Parameters.ParamValu es['nom']:=dblookupcombobox2.KeyValue;
ADOStoredProc1. Parameters.ParamValues['nazv'] := Edit54.Text;
ADOStoredProc1. Parameters.ParamValues['fio'] := Edit55.Text;
ADOStoredProc1.Parameters.ParamValu es['adr']:= Edit56.Text;
ADOStoredProc1.ExecProc;
adotable1.Close;
adotable1.Open;
{label51.Visible:=false;
label52.Visible:=false;
label53.Visible:=false;
label54.Visible:=false;
edit53.Visible:=false;
edit54.Visible:=false;
edit55.Visible:=false;
edit56.Visible:=false;
button1.Visible:=false; }
end
else showmessage('Неправильный ввод');
end
else showmessage('У вас нет прав для изменения данных в БД');

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//addpokup.Form2.Visible:=true;
if (adotable2.Locate('Nomer_pokupately a',edit1.Text,[])=false) then begin
val(edit1.Text,x,z1);
if edit11.Text<>''
then val(edit11.Text,x,z2)
else z2:=0;
if (z1=0) and (z2=0)
and (edit1.Text<>'') and (edit3.Text<>'')
then begin
//ADOStoredProc2. Parameters.ParamValues['@nom1'] := Edit45.Text;
ADOStoredProc2. Parameters.ParamValues['@nazv'] := Edit2.Text;
ADOStoredProc2. Parameters.ParamValues['@fio'] := Edit3.Text;
ADOStoredProc2.Parameters.ParamValu es['@adr']:= Edit4.Text;
if edit11.Text<>''
then
ADOStoredProc2.Parameters.ParamValu es['@tel']:= Edit11.Text;
adostoredproc2.Parameters.ParamValu es['@nom']:=Edit1.Text;
ADOStoredProc2.ExecProc;
adotable2.Close;
adotable2.Open;
end
else showmessage('Неправильный ввод');
end
else showmessage('Запись уже существует');
//ADOTable2.Refresh;

end;


procedure TForm1.Button3Click(Sender: TObject);
begin
if (adotable3.Locate('Nomer_postavschi ka',edit5.Text,[])=false) then begin
val(edit5.Text,x,z1);
if edit14.Text<>''
then val(edit14.Text,x,z2)
else z2:=0;
if (z1=0) and (z2=0)
and (edit5.Text<>'') and (edit6.Text<>'') and (edit13.Text<>'')
then begin
ADOStoredProc3. Parameters.ParamValues['@nom'] := Edit5.Text;
ADOStoredProc3.Parameters.ParamValu es['@nazv']:= Edit6.Text;
ADOStoredProc3. Parameters.ParamValues['@adr'] := Edit13.Text;
if edit14.Text<>'' then
ADOStoredProc3. Parameters.ParamValues['@tel'] := Edit14.Text;
ADOStoredProc3.ExecProc;
adotable3.Close;
adotable3.Open;
end
else showmessage('Неправильный ввод');
end
else showmessage('Запись уже существует');
//ADOTable3.Refresh;
end;

[anchuta]

procedure TForm1.Button4Click(Sender: TObject);
begin

if (adotable4.Locate('Lichniy_nomer',e dit8.Text,[])=false) then begin
//val(edit7.Text,x,z1);
val(edit8.Text,x,z2);
if //(z1=0) and
(z2=0)
//and (edit7.Text<>'')
and (edit8.Text<>'') and (edit15.Text<>'')
then begin
ADOStoredProc4. Parameters.ParamValues['@nom'] := nomer;
ADOStoredProc4. Parameters.ParamValues['@lnom'] := Edit8.Text;
ADOStoredProc4. Parameters.ParamValues['@fio'] := Edit15.Text;
ADOStoredProc4.ExecProc;
adotable4.Close;
adotable4.Open;
end
else showmessage('Неправильный ввод');
end
else showmessage('Запись уже существует');
//ADOTable4.Refresh;
//Edit8.Text :=
//ADOStoredProc4.Parameters.ParamValu es['@RETURN_VALUE'];

End;
button88.Visible:=false;
button86.Visible:=false;
dblookupcombobox30.Visible:=false;
label95.Visible:=false;
end;

procedure TForm1.DBLookupComboBox30Click(Send er: TObject);
begin

button88.Visible:=true;
button86.Visible:=true;
end;

procedure TForm1.Button88Click(Sender: TObject);
begin
if dblookupcombobox30.Text<>''
then begin
ADOStoredProc35. Parameters.ParamValues['@n'] := dblookupcombobox30.KeyValue;
ADOStoredProc35.ExecProc;
adotable6.Close;
adotable6.Open;
adotable7.Close;
adotable7.Open;
end
else showmessage('Заказов нет ')
end;
procedure TForm1.DBLookupComboBox42Click(Send er: TObject);
begin
label96.Caption:=dblookupcombobox42 .KeyValue;
label96.Visible:=true;
label37.Visible:=true;
end;
end.

[anchuta]

пожалуйста, помогите!

[Son Of Pain]

Для начала тебе придется установить делфи.
И приведенный здесь кусок - не вся программа, а всего лишь один модуль