Вот содержание юнита в который пытаюсь добавить, но сомневаюсь, что это хоть что-нибудь даст.
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, DB, ADODB, sSkinManager,
sPageControl, ExtCtrls, Menus;
type
Tmainmenu = class(TForm)
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
ADOConnection1: TADOConnection;
kotirovki: TADOTable;
DataSource1: TDataSource;
dengi: TADOTable;
limits: TADOTable;
sdelki: TADOTable;
DataSource2: TDataSource;
DataSource3: TDataSource;
DataSource4: TDataSource;
DataSource5: TDataSource;
DataSource6: TDataSource;
Button1: TButton;
grob: TADOTable;
Button7: TButton;
ADOQ_ordersdel: TADOQuery;
sSkinManager1: TsSkinManager;
PageControl1: TsPageControl;
TabSheet1: TsTabSheet;
TabSheet2: TsTabSheet;
TabSheet3: TsTabSheet;
TabSheet4: TsTabSheet;
TabSheet5: TsTabSheet;
TabSheet6: TsTabSheet;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
DBGrid4: TDBGrid;
DBGrid5: TDBGrid;
DBGrid6: TDBGrid;
TabSheet7: TsTabSheet;
killza: TADOTable;
DBGrid7: TDBGrid;
DataSource7: TDataSource;
orders: TADOTable;
Stop_orders: TADOTable;
ADOQ_zayavdel: TADOQuery;
ADOQ_stopdel: TADOQuery;
Button8: TButton;
Nomerr: TADOTable;
DataSource8: TDataSource;
DBGrid8: TDBGrid;
DataSource9: TDataSource;
sd: TADOTable;
DBGrid9: TDBGrid;
Button9: TButton;
PageControl2: TsPageControl;
TabSheet8: TsTabSheet;
TabSheet9: TsTabSheet;
TabSheet10: TsTabSheet;
TabSheet12: TsTabSheet;
TabSheet13: TsTabSheet;
TabSheet14: TsTabSheet;
DBGrid10: TDBGrid;
DBGrid11: TDBGrid;
DBGrid12: TDBGrid;
DBGrid14: TDBGrid;
DBGrid15: TDBGrid;
DBGrid16: TDBGrid;
DataSource10: TDataSource;
forts: TADOTable;
fortsid_secs: TAutoIncField;
fortsSec_Code_class: TWideStringField;
fortsSec_name: TWideStringField;
fortsLot: TIntegerField;
fortsSec_Price: TBCDField;
fortsSec_name1: TWideStringField;
fortsKod_bumagi: TWideStringField;
fortsShag: TIntegerField;
fortsSt_shag: TFloatField;
Button10: TButton;
Button11: TButton;
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
mainmenu: Tmainmenu;
implementation
uses Unit3, Unit2, Unit4, Unit5, Unit6, Unit7;
{$R *.dfm}
procedure Tmainmenu.Button2Click(Sender: TObject);
begin
new_order.ShowModal;
end;
procedure Tmainmenu.Button4Click(Sender: TObject);
begin
Stop_order.ShowModal;
end;
procedure Tmainmenu.Button3Click(Sender: TObject);
begin
Kill_orders.Showmodal;
end;
procedure Tmainmenu.Button1Click(Sender: TObject);
begin
groupz.ShowModal;
end;
procedure Tmainmenu.Button6Click(Sender: TObject);
begin
TFileStream.Create('trans.tri', fmCreate or fmShareExclusive).Free;
end;
procedure Tmainmenu.Button5Click(Sender: TObject);
begin
TFileStream.Create('trans.trr', fmCreate or fmShareExclusive).Free;
TFileStream.Create('trans.tro', fmCreate or fmShareExclusive).Free;
end;
procedure Tmainmenu.Button7Click(Sender: TObject);
begin
ADOQ_ordersdel.Close;
ADOQ_ordersdel.SQL.Clear;
ADOQ_ordersdel.SQL.Text:='DELETE * FROM New_order';
ADOQ_ordersdel.ExecSQL;
ADOQ_zayavdel.Close;
ADOQ_zayavdel.SQL.Clear;
ADOQ_zayavdel.SQL.Text:='DELETE * FROM Zayavki';
ADOQ_zayavdel.ExecSQL;
ADOQ_stopdel.Close;
ADOQ_stopdel.SQL.Clear;
ADOQ_stopdel.SQL.Text:='DELETE * FROM Stop_zayavki';
ADOQ_stopdel.ExecSQL;
mainmenu.orders.Active:=false;
mainmenu.orders.Active:=true;
mainmenu.killza.Active:=false;
mainmenu.killza.Active:=true;
mainmenu.Stop_orders.Active:=false;
mainmenu.Stop_orders.Active:=true;
end;
//обновление таблиц
procedure Tmainmenu.Button8Click(Sender: TObject);
begin
limits.Requery();
dengi.Requery();
kotirovki.Requery();
Nomerr.Requery();
sd.Requery();
sdelki.Requery();
orders.Requery();
Stop_orders.Requery();
killza.Requery();
forts.Requery();
end;
//смена площадки
procedure Tmainmenu.Button9Click(Sender: TObject);
begin
if button9.Caption='ММВБ' then
begin
PageControl1.Visible:=false;
PageControl2.Visible:=true;
button9.Caption:='ФОРТС';
button2.Visible:=false;
button10.Visible:=true;
end
else
begin
PageControl1.Visible:=true;
PageControl2.Visible:=false;
button9.Caption:='ММВБ';
button2.Visible:=true;
button10.Visible:=false;
end
end;
procedure Tmainmenu.FormCreate(Sender: TObject);
begin
button2.Visible:=true;
end;
procedure Tmainmenu.Button10Click(Sender: TObject);
begin
new_order_forts.showmodal;
end;
procedure Tmainmenu.N2Click(Sender: TObject);
begin
Report.QuickRep1.Preview;
end;
procedure Tmainmenu.Button11Click(Sender: TObject);
begin
Report.QuickRep1.Preview;
end;
end.
|
|
