You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
145 lines
3.6 KiB
Plaintext
145 lines
3.6 KiB
Plaintext
unit u_rp_zou_aire;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, XPMenu, Menus, DB, ADODB, bsSkinCtrls, TeEngine, Series,
|
|
TeeProcs, Chart, DbChart, ComCtrls, bsSkinTabs, ExtCtrls,teeprevi,
|
|
dxExEdtr, dxDBGrid, dxTL, dxDBCtrl, dxCntner;
|
|
|
|
type
|
|
Tfrm_rp_zou_aire = class(TForm)
|
|
PopupMenu1: TPopupMenu;
|
|
N11: TMenuItem;
|
|
N4: TMenuItem;
|
|
N5: TMenuItem;
|
|
N1: TMenuItem;
|
|
N2: TMenuItem;
|
|
XPMenu1: TXPMenu;
|
|
bsSkinPanel2: TbsSkinPanel;
|
|
bsSkinButton10: TbsSkinButton;
|
|
bsSkinButton9: TbsSkinButton;
|
|
bsSkinButton5: TbsSkinButton;
|
|
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
|
|
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
|
|
p_lirun: TADOStoredProc;
|
|
p_lirun1: TDataSource;
|
|
Panel1: TPanel;
|
|
Panel2: TPanel;
|
|
DBChart3: TDBChart;
|
|
Series1: TLineSeries;
|
|
DBChart1: TDBChart;
|
|
LineSeries2: TLineSeries;
|
|
DBChart2: TDBChart;
|
|
LineSeries1: TLineSeries;
|
|
dxDBGrid1: TdxDBGrid;
|
|
dxDBGrid1Column1: TdxDBGridMaskColumn;
|
|
dxDBGrid1Column2: TdxDBGridColumn;
|
|
dxDBGrid1TEU: TdxDBGridColumn;
|
|
dxDBGrid1Column4: TdxDBGridColumn;
|
|
bsSkinButton1: TbsSkinButton;
|
|
SaveDialog1: TSaveDialog;
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
procedure Panel1Resize(Sender: TObject);
|
|
procedure bsSkinButton10Click(Sender: TObject);
|
|
procedure bsSkinButton9Click(Sender: TObject);
|
|
procedure N11Click(Sender: TObject);
|
|
procedure N5Click(Sender: TObject);
|
|
procedure N2Click(Sender: TObject);
|
|
procedure Panel2Resize(Sender: TObject);
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
procedure bsSkinPanel2Resize(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frm_rp_zou_aire: Tfrm_rp_zou_aire;
|
|
|
|
implementation
|
|
|
|
uses u_main, my_sys_function;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_rp_zou_aire.bsSkinButton5Click(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_aire.FormClose(Sender: TObject;
|
|
var Action: TCloseAction);
|
|
begin
|
|
frm_rp_zou_aire.Hide;
|
|
frm_rp_zou_aire.ManualFloat(frm_rp_zou_aire.BoundsRect );
|
|
frm_main.freeTabs('frm_rp_zou_aire');
|
|
action:=cafree;
|
|
frm_rp_zou_aire:=nil;
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_aire.Panel1Resize(Sender: TObject);
|
|
begin
|
|
bsSkinPanel2.Left:=Panel1.Width-bsSkinPanel2.Width;
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_aire.bsSkinButton10Click(Sender: TObject);
|
|
begin
|
|
query_aire(7,'0037');
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_aire.bsSkinButton9Click(Sender: TObject);
|
|
var
|
|
Pnt:Tpoint;
|
|
begin
|
|
Pnt:=bsSkinButton9.ClientToScreen(Point(0,bsSkinButton9.Height));
|
|
PopupMenu1.Popup(Pnt.x,Pnt.y);
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_aire.N11Click(Sender: TObject);
|
|
begin
|
|
chartpreview(frm_rp_zou_aire,dbchart1);
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_aire.N5Click(Sender: TObject);
|
|
begin
|
|
chartpreview(frm_rp_zou_aire,dbchart2);
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_aire.N2Click(Sender: TObject);
|
|
begin
|
|
chartpreview(frm_rp_zou_aire,dbchart3);
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_aire.Panel2Resize(Sender: TObject);
|
|
var
|
|
i:integer;
|
|
begin
|
|
i:=round((Panel2.Height)/3);
|
|
DBChart3.Height:=i;
|
|
DBChart1.Height:=i;
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_aire.bsSkinButton1Click(Sender: TObject);
|
|
begin
|
|
if SaveDialog1.Execute then
|
|
frm_rp_zou_aire.GetFormImage.SaveToFile(SaveDialog1.FileName+'.bmp');
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_aire.bsSkinPanel2Resize(Sender: TObject);
|
|
var
|
|
i:integer;
|
|
begin
|
|
i:=round(bsSkinPanel2.width/6);
|
|
bsSkinCheckRadioBox2.width:=i;
|
|
bsSkinCheckRadioBox1.width:=i;
|
|
bsSkinButton10.width:=i;
|
|
bsSkinButton9.width:=i;
|
|
bsSkinButton1.width:=i;
|
|
end;
|
|
|
|
end.
|