|
发表于 2008-4-29 10:01:28
|
显示全部楼层
附件是效果图,这是你的代码,你看一下哪些有出入
unit SWDJFX;
interface
uses
Business.System, Business.Forms, Business.Model, Business.Data;
type
TSWDJFX = class(FUNC_GGJCCTZ.TForm_GGJCZCT)
pgc: TPageControl;
TabSheet1: TTabSheet;
ControlBar1: TControlBar;
BizToolBar1: TBizToolBar;
DocViewBar1: TDocViewBar;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
DecisionChart1: TDecisionChart;
ActionList1: TActionList;
act_find: TAction;
act_Clear: TAction;
DecisionBroker1: TDecisionBroker;
InfoBroker1: TInfoBroker;
FuncBroker1: TFuncBroker;
InfoBrokerTJ: TInfoBroker;
dsbTJ: TDataSetBroker;
Series2: TBarSeries;
Series3: TBarSeries;
Panel2: TPanel;
Bevel1: TBevel;
Label3: TLabel;
SpeedButton2: TSpeedButton;
Label1: TLabel;
Label2: TLabel;
Label4: TLabel;
SpeedButton1: TSpeedButton;
Label5: TLabel;
dedtStart: TDataEdit;
dedtEnd: TDataEdit;
dedtDD: TDataEdit;
dedtBC: TDataEdit;
dedtXZ: TDataEdit;
DecisionChart2: TDecisionChart;
Series4: TBarSeries;
DecisionChart3: TDecisionChart;
Series5: TBarSeries;
DecisionBroker2: TDecisionBroker;
DecisionBroker3: TDecisionBroker;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure dedtEndChange(Sender: TObject);
procedure BizFormCreate(Sender: TObject);
private
{private declarations}
procedure UDecisionChart;
public
{public declarations}
end;
implementation
procedure TSWDJFX.SpeedButton2Click(Sender: TObject);
var
sql,s1,s2: String;
begin
Inherited;
dsbTJ.DataSet.Edit;
dsbTJ.DataSet.Post;
s1 := ' 00:00:00.000';
s2 := ' 23:59:59.000';
sql := '1 = 1';
if (SysUtils.Trim(dedtStart.Text) <> '') and (SysUtils.Trim(dedtEnd.Text) <> '') then
begin
dedtEndChange(nil);
sql := sql + ' and (swxx4 >= ''' + SysUtils.Trim(dedtStart.Text) + s1 + '''' +
' and swxx4 <= ''' + SysUtils.Trim(dedtEnd.Text) + s2 + ''')';
end;
if SysUtils.Trim(dedtBC.Text) <> '' then
begin
sql := sql + ' and swxx5 = ''' + dsbTJ.DataSet.FieldByName('BC').AsString + '''';
end;
if SysUtils.Trim(dedtXZ.Text) <> '' then
begin
sql := sql + ' and swxx6 = ''' + dsbTJ.DataSet.FieldByName('WZCD').AsString + '''';
end;
//if SysUtils.Trim(dedtZL.Text) <> '' then
// begin
// sql := sql + ' and S_SWBM.swzl = ''' + dsbTJ.DataSet.FieldByName('SWZL').AsString + '''';
//end;
if SysUtils.Trim(dedtDD.Text) <> '' then
begin
sql := sql + ' and swxx3 = ''' + dsbTJ.DataSet.FieldByName('DD').AsString + '''';
end;
if sql = '1 = 1' then sql := FSQL;
TSQLDataSet(DecisionBroker1.DataSet).UserFilter := sql;
if not DecisionBroker1.DataSet.Active then DecisionBroker1.DataSet.Open;
UDecisionChart;
if DecisionBroker1.DataSet.IsEmpty then
begin
jsDialogs.ShowMsg('没有满足条件的数据,请重新选择条件!','系统提示');
DecisionBroker1.DataSet.Close;
Exit;
end;
pgc.ActivePageIndex := 0;
end;
procedure TSWDJFX.SpeedButton1Click(Sender: TObject);
begin
Inherited;
dsbTj.DataSet.Delete;
end;
procedure TSWDJFX.dedtEndChange(Sender: TObject);
begin
Inherited;
if (SysUtils.Trim(dedtStart.Text) <> '') and (SysUtils.Trim(dedtEnd.Text) <> '') then
if SysUtils.StrToDate(SysUtils.Trim(dedtEnd.Text)) <
SysUtils.StrToDate(SysUtils.Trim(dedtStart.Text)) then
begin
dedtEnd.SetFocus;
jsDialogs.ShowWarning('结束时间不能早于起始时间!','系统警告');
SysUtils.Abort;
end;
end;
procedure TSWDJFX.UDecisionChart;
begin
//去掉左轴和低轴的标题
DecisionChart1.LeftAxis.Title.Caption := '';
DecisionChart1.BottomAxis.Title.Caption := '';
DecisionChart2.LeftAxis.Title.Caption := '';
DecisionChart2.BottomAxis.Title.Caption := '';
DecisionChart3.LeftAxis.Title.Caption := '';
DecisionChart3.BottomAxis.Title.Caption := '';
//显示标签
if DecisionBroker1.DataSet.RecordCount > 0 then
begin
DecisionChart1.Series[1].Marks.Visible := True;
DecisionChart1.Series[2].Marks.Visible := True;
DecisionChart1.Series[3].Marks.Visible := True;
DecisionChart1.Series[4].Marks.Visible := True;
// DecisionChart2.Series[1].Marks.Visible := True;
// DecisionChart2.Series[2].Marks.Visible := True;
// DecisionChart3.Series[1].Marks.Visible := True;
// DecisionChart3.Series[2].Marks.Visible := True;
end;
if DecisionBroker2.DataSet.RecordCount > 0 then
begin
DecisionChart2.Series[1].Marks.Visible := True;
// DecisionChart2.Series[2].Marks.Visible := True;
end;
if DecisionBroker3.DataSet.RecordCount > 0 then
begin
DecisionChart3.Series[1].Marks.Visible := True;
// DecisionChart3.Series[2].Marks.Visible := True;
end;
end;
procedure TSWDJFX.BizFormCreate(Sender: TObject);
begin
Inherited;
pgc.ActivePageIndex := 0;
dsbTJ.DataSet.Open;
BizToolBar1.Buttons[4].Visible := False;
FSQL := ' swxx4 >= ''' + FStartTime + ''' and swxx4 <= ''' + FEndTime + '''';
TSQLDataSet(DecisionBroker1.DataSet).UserFilter := FSQL;
DecisionBroker1.DataSet.Open;
DecisionBroker2.DataSet.Open;
DecisionBroker3.DataSet.Open;
UDecisionChart;
//dsbTJ.DataSet.Open;
DecisionChart1.Color := Self.Color;
DecisionChart2.Color := Self.Color;
DecisionChart3.Color := Self.Color;
end;
end.
|
-
-
2.gif
66.04 KB, 下载次数: 114
|