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.
139 lines
3.4 KiB
Plaintext
139 lines
3.4 KiB
Plaintext
unit u_rp_zou_airi;
|
|
|
|
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_airi = 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_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;
|
|
p_lirun: TADOStoredProc;
|
|
bsSkinButton1: TbsSkinButton;
|
|
SaveDialog1: TSaveDialog;
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
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_airi: Tfrm_rp_zou_airi;
|
|
|
|
implementation
|
|
|
|
uses u_main, my_sys_function;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_rp_zou_airi.bsSkinButton5Click(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_airi.FormClose(Sender: TObject;
|
|
var Action: TCloseAction);
|
|
begin
|
|
frm_rp_zou_airi.Hide;
|
|
frm_rp_zou_airi.ManualFloat(frm_rp_zou_airi.BoundsRect );
|
|
frm_main.freeTabs('frm_rp_zou_airi');
|
|
action:=cafree;
|
|
frm_rp_zou_airi:=nil;
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_airi.bsSkinButton10Click(Sender: TObject);
|
|
begin
|
|
query_airi(7,'0037');
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_airi.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_airi.N11Click(Sender: TObject);
|
|
begin
|
|
chartpreview(frm_rp_zou_airi,dbchart1);
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_airi.N5Click(Sender: TObject);
|
|
begin
|
|
chartpreview(frm_rp_zou_airi,dbchart2);
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_airi.N2Click(Sender: TObject);
|
|
begin
|
|
chartpreview(frm_rp_zou_airi,dbchart3);
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_airi.Panel2Resize(Sender: TObject);
|
|
var
|
|
i:integer;
|
|
begin
|
|
i:=round((Panel2.Height)/3);
|
|
DBChart3.Height:=i;
|
|
DBChart1.Height:=i;
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_airi.bsSkinButton1Click(Sender: TObject);
|
|
begin
|
|
if SaveDialog1.Execute then
|
|
frm_rp_zou_airi.GetFormImage.SaveToFile(SaveDialog1.FileName+'.bmp');
|
|
end;
|
|
|
|
procedure Tfrm_rp_zou_airi.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.
|