листинг программы Delphi, как увидеть работающую программу ч.1

[Светлана948]

Листинг программы
unit main_form;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, ADODB, ComCtrls, ToolWin;

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
ADOConnection1: TADOConnection;
N6: TMenuItem;
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
StatusBar1: TStatusBar;
N11: TMenuItem;
Gjkmpjdfntkb1: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
ADOQuery1: TADOQuery;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
procedure N2Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure N27Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure Gjkmpjdfntkb1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses frm_kont, frm_ceny, frm_dgvr, vhod_frm, frm_objava, frm_oplata,
frm_genera, analitik, user_frm;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
if not Assigned(kontr)then
kontr:=Tkontr.Create(self);
kontr.Show;
end;

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
N6Click(nil);
end;

procedure TForm1.N7Click(Sender: TObject);
begin
if not Assigned(ceny)then
ceny:=Tceny.Create(self);
ceny.Show;
end;

procedure TForm1.ToolButton5Click(Sender: TObject);
begin
N7Click(nil);
end;

procedure TForm1.N10Click(Sender: TObject);
begin
if not Assigned(dogv)then
dogv:=Tdogv.Create(self);
dogv.Show;
end;

procedure TForm1.ToolButton3Click(Sender: TObject);
begin
N10Click(nil);
end;

procedure TForm1.FormCreate(Sender: TObject);
var put,cs:string;
begin
put:=ExtractFileDir(GetModuleName(G etModuleHandle('gazeta.exe')))+'\uc het_db.mdb;';
cs:='Provider=Microsoft.Jet.OLEDB.4 .0;User ID=Admin;Data Source='+put+
'Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";'+
'Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";'+
'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;'+
'Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;'+
'Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;'+
'Jet OLEDB:Encrypt Database=False;'+
'Jet OLEDB:Don''t Copy Locale on Compact=False;Jet OLEDB:Compact Without Repli-ca Repair=False;'+
'Jet OLEDB:SFP=False;';
ADOConnection1.ConnectionString:=cs ;
ADOConnection1.Connected:=true;

parol_show:=Tparol_show.Create(self );
if parol_show.ShowModal = mrOk then begin
ADOQuery1.Parameters.ParamByName('F ').Value:=parol_show.ComboBox1.Text ;
ADOQuery1.Open;
if ADOQuery1.FieldByName('PAROL').Valu e<>parol_show.Edit1.Text then
begin
ShowMessage('Вы ввели неправильный пароль');
Application.Terminate;
end;

end else begin
ShowMessage('Вы не ввели пароль');
Application.Terminate;
end;
if (parol_show.ComboBox1.Text='Операто р') then begin
N14.Enabled:=false;
N7.Enabled:=false;
Gjkmpjdfntkb1.Enabled:=false;
end;
if (parol_show.ComboBox1.Text='Кассир' ) then begin
N12.Enabled:=false;
N7.Enabled:=false;
N6.Enabled:=false;
Gjkmpjdfntkb1.Enabled:=false;
end;
end;

[Светлана948]

procedure TForm1.N12Click(Sender: TObject);
begin
if not Assigned(objavl)then
objavl:=Tobjavl.Create(self);
objavl.Height:=350;
objavl.Width:=850;
objavl.Show;
end;

procedure TForm1.ToolButton7Click(Sender: TObject);
begin
N12Click(nil);
end;

procedure TForm1.N14Click(Sender: TObject);
begin
if not Assigned(oplata)then
oplata:=Toplata.Create(self);
oplata.Show;
end;

procedure TForm1.ToolButton9Click(Sender: TObject);
begin
N14Click(self);
end;

procedure TForm1.N25Click(Sender: TObject);
var
SI: TStartupInfo;
PI: TProcessInformation;
begin
FillChar(SI, SizeOf(SI), 0);
SI.cb := SizeOf(SI);
DeleteFile('backup\arhiv.pak');
CreateProcess(nil,'compress.exe uchet_db.mdb back-up\arhiv.pak',nil,nil,false,CREATE_ NO_WINDOW,nil,nil,si,pi);
end;

procedure TForm1.N27Click(Sender: TObject);
var
SI: TStartupInfo;
PI: TProcessInformation;
begin
ADOConnection1.Connected:=false;
FillChar(SI, SizeOf(SI), 0);
SI.cb := SizeOf(SI);
DeleteFile('uchet_db.mdb');
CreateProcess(nil,'expand.exe backup\arhiv.pak uchet_db.mdb',nil,nil,false,CREATE_ NO_WINDOW,nil,nil,si,pi);
Sleep(3000);
ADOConnection1.Connected:=true;
end;

procedure TForm1.N21Click(Sender: TObject);
begin
generator:=Tgenerator.Create(self);
generator.Tag:=4;
generator.ShowModal;
end;

procedure TForm1.N19Click(Sender: TObject);
begin
generator:=Tgenerator.Create(self);
generator.Tag:=3;
generator.ShowModal;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
generator:=Tgenerator.Create(self);
generator.Tag:=1;
generator.ShowModal;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
generator:=Tgenerator.Create(self);
generator.Tag:=2;
generator.ShowModal;
end;

procedure TForm1.N23Click(Sender: TObject);
begin
analitika:=Tanalitika.Create(self);
analitika.ShowModal;
end;

procedure TForm1.Gjkmpjdfntkb1Click(Sender: TObject);
begin
if not Assigned(user)then
user:=Tuser.Create(self);
user.ADOTable1.Active:=true;
user.Width:=350;
user.Height:=125;
user.Show;
end;

end.

[Stilet]

Никак. Нужно заново собирать проект (форму, компоненты на ней). После этого код, представленный здесь разводить по событиям компонентов. Только тогда можно получить результат.
В данном случае - никак.

[Светлана948]

спасибо большое(