unit JkPanel;
interface
uses
Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,
ExtCtrls,dbctrls,stdctrls,db,ADODB,ComCtrls,Variants,Gauges,
SqlExpr,Grids,DBGrids,MovePanel,JKFootpanel,Buttons,dsr;
type
TEditorstyle = (TsMemo,Tscombox,Tsedit);
type
TJkPanel = class(TPanel)
private
{ Private declarations }
This_Jth :string; //机台编号
This_TaskOrder :string; //任务序次
FEditorstyle:Teditorstyle;
FLeft :Integer;
FTop :Integer;
maxTextLen :Integer;
maxLabelLen :Integer;
maxDgheight :Integer;
maxFootHeight :integer;
FTitleVisible :Boolean;
FEditorVisible :Boolean;
FDataReadOnly :Boolean;
FPageCount :Integer;
FPass_Grid :TDBGrid;
FP_Move :TMovePanel;
FP_Parent :TPanel;
ColorLabels :array of TLabel;
Co_Shapes :array of TShape;
Co_DllBtn :array of TSpeedButton;
Co_Panels :array of TPanel;
FPageControl: TPageControl; {分页控件}
FTabSheets :array of TTabSheet;
ScrollBoxs :array of TScrollBox; {滚动控件}
Splitters :array of TSplitter; {分割控件}
FootPanels :array of TJKFootpanel; {Foot页显示控件}
FLineHeight :Integer;
//数据数组控件，动态生成
MemoEditors :array of TMemo;
comEditors :array of TCombobox;
edEditors :array of Tedit;
DGLists :array of TDbGrid;
AdoLists :array of TadoDataset;
DsLists :array of TDataSource;
DGGlides :array of TDbGrid;
AdoGlides :TadoDataset;
DsGlides :TDataSource;
ProgressEditor :array of Tedit;
Labels :array of TLabel; //字段标题，动态生成
ProgressBars :array of TGauge;
Shapes :array of TShape;
FDataSource :TDataSource; // 数据源
FDataField_A :String; // DataField
FDataField_B :String; // DataField
FDataField_C :String; // DataField
FDataField_ColA :String; // DataField
FDataField_ColB :String; // DataField
Fcnnstr :String;
FPageSql :string;
FListSql :String;
FFootSql :string;
FGlideSql :String;
FCheJianFieldName :String;
FColumns :Integer; //显示列数
tmpado :TadoDataset;
tmpDs :TDataSource;
TmpDgListIdx,TmpDgListCol:integer;
procedure FreeEditors; //释放数据输入控件的内存
procedure AKeyDown(Sender:TObject; var Key :Word; Shift:TShiftState);
procedure AKeyPress(Sender:TObject; var Key :Char);
procedure AProgressEditorChange(Sender :TObject);
//procedure inti_Grid(sender :TObject);
procedure LabelsClick(Sender: TObject);
procedure Co_DllBtnClick(Sender: TObject);
procedure AdolistsAfterScroll(DataSet: TDataSet);
procedure DGListsCellClick(Column: TColumn);
procedure DGListsDrawColumnCell(Sender: TObject;
const Rect: TRect;DataCol: Integer;
Column: TColumn;State: TGridDrawState);
procedure refreshFootpanel(Tag :integer);
procedure DGGlideDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
procedure FP_MovePanelDblClick(Sender: TObject);
procedure FootPanelDblclick(Sender: TObject);
//function comEditor(Index :Integer):TComboBox;
//function edEditor(Index :Integer):Tedit;
//function MemoEditor(Index :Integer) :TMemo;
protected
{ Protected declarations }
public
constructor Create(AOwner:TComponent); override;
// destructor Destroy; override;
procedure Setedit(Value :TEditorstyle);
procedure CreateEditors(var DS :TDataSource; cnnstr :String;
Const Defaultsheet :String = ''); //创建各字段的数据输入控件
procedure ClearHits(ItemIndex :Integer);
procedure AddHits(ItemIndex:Integer; Hits :array of string);
{ Public declarations }
published
property LimitLeft :Integer read FLeft write FLeft default 10;
property LimitTop :Integer read FTop write FTop default 10;
property Editorstyle :TEditorstyle read FEditorstyle write Setedit default TsMemo;
property EditorWidth :Integer read maxTextLen write maxTextLen default 100;
property TitleWidth :Integer read maxLabelLen write maxLabelLen default 100;
property DgHeight :Integer read maxDgheight write maxDgheight default 300;
property FootHeight :Integer read maxFootHeight write maxFootHeight default 200;
property TitleVisible :Boolean read FTitleVisible write FTitleVisible default True;
property EditorVisible :Boolean read FEditorVisible write FEditorVisible default True;
property DataReadOnly :Boolean read FDataReadOnly write FDataReadOnly; //default True;
property LineHeight :Integer read FLineHeight write FLineHeight default 15;
property DataSource :TDataSource read FDataSource write FDataSource; //数据源
property DataField_ColA :String read FDataField_A write FDataField_ColA;
property DataField_ColB :String read FDataField_B write FDataField_ColB;
property DataField_Editor :String read FDataField_A write FDataField_A;
property DataField_Title :String read FDataField_B write FDataField_B;
property DataField_Progress :String read FDataField_C write FDataField_C;
property Data_PageSql :String read FPageSql write FPageSql;
property Data_DgListSql :String read FListSql write FListSql;
property Data_FootSql :String read FFootSql write FFootSql;
property Data_GlideSql :String read FGlideSql write FGlideSql;
property Data_CheJianField :String read FCheJianFieldName write FCheJianFieldName;
property Columns :Integer read FColumns write FColumns default 4;//表列数
{ Published declarations }
end;
procedure Register;
implementation
constructor TJkPanel.Create(AOwner :TComponent);
begin
Inherited Create(AOWner);
FLeft := 20;
FTop := 20;
maxTextLen := 250;
maxLabelLen := 250;
maxDgheight := 200;
maxFootHeight := 150;
FLineHeight := 15;
FTitleVisible := True;
FDataReadOnly := True;
end;
procedure TJkPanel.Setedit(Value :TEditorstyle);
begin
if FEditorstyle <> Value then
begin
FEditorstyle := Value;
Invalidate;
end;
end;
{ 为第I字段增加提示信息的方法}
procedure TJkPanel.AddHits(ItemIndex :Integer; Hits :array of string);
var
m,n,i :Integer;
begin
if FEditorstyle = Tscombox then
begin
n := Length(comEditors);
m := Length(Hits);
if ItemIndex< n then
for i:= 0 to m - 1 do
comEditors[ItemIndex].Items.Add(Hits[i]);
end
else if FEditorstyle = Tsedit then
begin
n := Length(edEditors);
m := Length(Hits);
if ItemIndex< n then
for i:=0 to m-1 do
edEditors[ItemIndex].Hint:= Hits[i];
end
else if FEditorstyle = TsMemo then
begin
n := Length(memoEditors);
m := Length(Hits);
if ItemIndex< n then
for i:=0 to m-1 do
memoEditors[ItemIndex].Hint:= Hits[i];
end;
end;
procedure TJkPanel.AKeyDown(Sender :TObject; var Key :Word; Shift :TShiftState);
begin
//
end;
procedure TJkPanel.AProgressEditorChange(Sender :TObject);
begin
//
end;
procedure TJkPanel.AKeyPress(Sender :TObject; var Key :Char);
begin
if (Sender is TComboBox) or (Sender is Tedit) or (Sender is TMemo) then
if Key=#13 then
(Owner as TForm).Perform(WM_NEXTDLGCTL, 0, 0);
end;
procedure TJkPanel.ClearHits(ItemIndex :Integer);
var
n :Integer;
begin
if FEditorstyle = Tscombox then
begin
n := Length(comEditors);
if ItemIndex< n then comEditors[ItemIndex].Items.Clear;
end
else if FEditorstyle = Tsedit then
begin
n := Length(edEditors);
if ItemIndex< n then edEditors[ItemIndex].Hint:='';;
end
else if FEditorstyle = TsMemo then
begin
n := Length(MemoEditors);
if ItemIndex< n then MemoEditors[ItemIndex].Hint:='';;
end;
end;
{ 创建各字段的数据输入控件的方法}
procedure TJkPanel.CreateEditors(var DS :TDataSource; cnnstr :String; Const Defaultsheet :String = '');
var
Tmp_CheJian,Tmp_Parm :String;
i,j,n,k,This_Index,TextHeight :Integer;
tmp_col0,Tmp_Row0,Tmp_Row1 :Integer;
XXX :TStringList;
kkk,RRR :array of integer;
DefaultIndex :Integer; //默认车间
begin
if (Data_CheJianField = '') then exit;
{ 释放全部控件内存}
FreeEditors;
if DS = nil then exit;
if DataSource = nil then FDataSource := Ds;
if not DataSource.DataSet.Active then exit;
if (DataSource.DataSet is TAdoDataSet) = False then exit;
TmpDgListIdx := -1;
FPageCount := 0;
DefaultIndex := 0;
n := DataSource.DataSet.RecordCount;
if n <= 0 then exit;
DataSource.DataSet.DisableControls;
if TitleWidth < maxTextLen then
maxTextLen := TitleWidth;
{ 计算最大的标题长度及显示长度}
DataSource.DataSet.First;
{ 计算高度}
TextHeight := Canvas.TextHeight(DataSource.DataSet.Fields[0].DisplayLabel) + LineHeight; //10;
{ 分配内存}
SetLength(AdoLists,n);
SetLength(DsLists,n);
SetLength(DGLists,n);
SetLength(Labels,n);
SetLength(ColorLabels,n);
SetLength(ProgressEditor,n);
SetLength(Shapes,n);
{ 创建数据感知控件 AdoGlides、DsGlides}
AdoGlides := TadoDataset.Create(owner);
DsGlides := TDatasource.Create(owner);
DsGlides.DataSet := AdoGlides;
if Columns = 0 then Columns := 6;
try
tmpado := TadoDataset.Create(Owner);
tmpDs := TDatasource.Create(Owner);
tmpDs.DataSet := tmpado;
with tmpado do
begin
Active := False;
Fcnnstr := cnnstr;
tmpado.ConnectionString := Fcnnstr;
tmpado.CommandText := Data_PageSql;
Active := True;
FPageCount := RecordCount;
if FPageCount = 0 then exit;
setlength(kkk,FPageCount);
for i := 0 to high(kkk) do
kkk[i] := -1;
SetLength(RRR,FPageCount);
for i := 0 to high(RRR) do
RRR[i] := 0;
first;
// 创建PageControl
FPageControl := TPageControl.Create(Owner);
FPageControl.Parent := Self;
FPageControl.Font.Name := '宋体';
FPageControl.Font.Size := 9;
FPageControl.Align := alClient;
FPageControl.Visible := False;
{ 分配载体内存}
setlength(FTabSheets,FPageCount+1);
setlength(ScrollBoxs,FPageCount+1);
setlength(FootPanels,FPageCount+1);
setlength(Splitters,FPageCount+1);
setlength(Co_Shapes,FPageCount+1);
setlength(Co_DllBtn,FPageCount+1);
setlength(Co_Panels,FPageCount+1);
SetLength(DGGlides,FPageCount+1);
XXX := TStringList.Create();
for j := 0 to FPageCount do
begin
{ FPageControl分页}
FTabSheets[j] := TTabSheet.Create(Owner);
FTabSheets[j].Parent := FPageControl;
FTabSheets[j].ParentFont := True;
FTabSheets[j].PageControl := FPageControl;
FTabSheets[j].Visible := True;
FTabSheets[j].PageIndex := j;
if j < FPageCount then
begin
Tmp_CheJian := trim(fieldByName(Data_CheJianField).AsString);
if Defaultsheet <> '' then //指定默认车间
begin
if Tmp_CheJian = Defaultsheet then
DefaultIndex := j;
end;
FTabSheets[j].Caption := '车间：' + Tmp_CheJian;
FTabSheets[j].Hint := Tmp_CheJian;
XXX.Append(Tmp_CheJian);
end
else
begin
Tmp_CheJian := '';
FTabSheets[j].Caption := '未指定车间';
FTabSheets[j].Hint := Tmp_CheJian;
XXX.Append('未指定车间');
end;
FTabSheets[j].ShowHint := False;
FTabSheets[j].Visible := True;
FTabSheets[j].Align := alClient;
//创建Foot页显示控件
FootPanels[j] := TJKFootpanel.Create(Owner);
with FootPanels[j] do
begin
Visible := True;
Parent := FTabSheets[j];
// BevelInner := bvLowered;
//BevelOuter := bvRaised;
Left := 0;
Width := 1;
Align := alRight;
Hint := FTabSheets[j].Hint;
ShowHint := False;
onDblclick := FootPanelDblclick;
LimitLeft := 8;
Ctl3D := False;
end;
//创建颜色块显示控件载体
Co_Panels[j] := Tpanel.Create(Owner);
with Co_Panels[j] do
begin
Visible := True;
Parent := FootPanels[j];
BevelInner := bvLowered;
BevelOuter := bvRaised;
height := 40;
Co_Panels[j].BorderWidth := 2;
Align := alTop;
end;
//创建颜色块显示控件
Co_Shapes[j] := TShape.Create(Owner);
with Co_Shapes[j] do
begin
Visible := True;
Parent := Co_Panels[j];
Width := FootHeight;
Align := alClient;
end;
//创建按钮控件
Co_DllBtn[j] := TSpeedButton.Create(Owner);
with Co_DllBtn[j] do
begin
Visible := True;
Parent := FootPanels[j];
height := 25;
Tag := j;
Font.name := '宋体';
Font.Size := 9;
Align := alTop;
Font.Color := ClBlue;
//Flat := true;
caption := '流程处理';
OnClick := Co_DllBtnClick;
end;
{ 创建DbGrid控件 DGGlides}
DGGlides[j]:= TDBGrid.Create(owner);
with DGGlides[j] do
begin
Visible := True;
Parent := FootPanels[j];
height := 110;
Align := alTop;
Tag := j;
Font.name := '宋体';
Font.Size := 9;
ReadOnly := True;
Options := [dgEditing,dgMultiSelect]; //,dgRowLines,dgColumnResize,
FixedColor := clSkyBlue;
OnDrawColumnCell := DGGlideDrawColumnCell;
end;
//创建分割控件
Splitters[j] := TSplitter.Create(Owner);
with Splitters[j] do
begin
Visible := True;
Parent := FTabSheets[j];
Width := 4;
Align := alRight;
end;
//创建滚动盒
ScrollBoxs[j] := TScrollBox.Create(Owner);
with ScrollBoxs[j] do
begin
Visible := True;
Parent := FTabSheets[j];
Color := RGB(100,100,100);//clTeal;
Align := alClient;
Hint := FTabSheets[j].Hint;
ShowHint := False;
end;
next;
end;
end;
if FEditorstyle = Tscombox then
SetLength(comEditors,n)
else if FEditorstyle = Tsedit then
SetLength(edEditors,n)
else
SetLength(MemoEditors,n);
{ 创建编辑}
for i := 0 to n - 1 do
begin
if DataSource.DataSet.Fieldbyname(Data_CheJianField).AsVariant = null then
This_Index := FPageCount
else
This_Index := XXX.IndexOf(trim(DataSource.DataSet.Fieldbyname(Data_CheJianField).Asstring));
if kkk[This_Index] >= Columns -1 then
begin
kkk[This_Index] := 0;
RRR[This_Index] := RRR[This_Index] +1;
end
else
kkk[This_Index] := kkk[This_Index] + 1;
tmp_col0 := kkk[This_Index];
tmp_Row0 := RRR[This_Index];
{ 创建数据感知控件 AdoLists、DsLists}
AdoLists[i] := TadoDataset.Create(owner);
AdoLists[i].Tag := i;
AdoLists[i].AfterScroll:= AdolistsAfterScroll;
DsLists[i] := TDatasource.Create(owner);
DsLists[i].DataSet := AdoLists[i];
DsLists[i].Tag := i;
//DsLists[i].OnDataChange := DsListsDataChange;
{ 创建标题}
Labels[i] := TLabel.Create(owner);
Labels[i].visible := FTitleVisible;
Labels[i].Parent := (ScrollBoxs[This_Index] as TScrollBox);
Labels[i].Font.Name := '宋体';
Labels[i].Font.Size := 9;
Labels[i].Font.Color := ClBlue;
Labels[i].OnClick := LabelsClick;
Labels[i].Tag := i;
//Labels[i].Font.Style := [FsBold];
Labels[i].Transparent := True;
//机台名称
if DataSource.DataSet.Fieldbyname(DataField_Title).AsVariant <> null then
Labels[i].caption := DataSource.DataSet.Fieldbyname(DataField_Title).AsString
else
Labels[i].caption := '';
Tmp_CheJian := trim((ScrollBoxs[This_Index] as TScrollBox).Hint);
//机台编号
if DataSource.DataSet.Fieldbyname(DataField_ColA).AsVariant <> null then
Labels[i].Hint := trim(DataSource.DataSet.Fieldbyname(DataField_ColA).AsString)
else
Labels[i].Hint := '';
Labels[i].ShowHint := False;
if FEditorstyle = TsMemo then
begin
Labels[i].Top := FTop + tmp_Row0 * (TextHeight*3+DgHeight+5) + 2;
Labels[i].Left := FLeft + (TitleWidth + 20) * tmp_Col0 + 5;
Labels[i].Width := TitleWidth;
end
else
begin
Labels[i].Top := FTop + tmp_Row0 * (TextHeight*2+DgHeight+5) + 2;
Labels[i].Left := FLeft + (TitleWidth + 12) * tmp_Col0;
Labels[i].Width := TitleWidth;
end;
{ 创建信息显示数据对象}
if FEditorstyle = Tscombox then
begin
comEditors[i] := TComboBox.Create(Owner);
comEditors[i].Parent := ScrollBoxs[This_Index]; //Self;
comEditors[i].Left := Labels[i].Left; //+ Labels[i].Width;
comEditors[i].Width := maxTextLen;
if FTitleVisible then
comEditors[i].Top := Labels[i].Top+14
else
comEditors[i].Top := Labels[i].Top;
if DataSource.DataSet.Fieldbyname(DataField_Editor).AsVariant <> null then
comEditors[i].Text := DataSource.DataSet.Fieldbyname(DataField_Editor).AsString;
comEditors[i].OnKeyPress := OnKeyPress;
comEditors[i].OnKeyDown := OnKeyDown;
comEditors[i].Visible := EditorVisible;
comEditors[i].Tag := i;
DGLists[i] := TDbGrid.Create(Owner);
DGLists[i].Parent := ScrollBoxs[This_Index];
DGLists[i].Font.name := '宋体';
DGLists[i].Font.Size := 9;
DGLists[i].ReadOnly := True;
DGLists[i].FixedColor := clSkyBlue;
DGLists[i].Left := comEditors[i].Left;
DGLists[i].Width := comEditors[i].Width;
DGLists[i].Height := DgHeight;
DGLists[i].Options := [dgRowSelect];
if EditorVisible then
DGLists[i].Top := comEditors[i].Top+comEditors[i].height+2
else
DGLists[i].Top := comEditors[i].Top+2;
DGLists[i].Hint := trim(Labels[i].caption);
DGLists[i].ShowHint := False;
DGLists[i].OnDrawColumnCell := DGListsDrawColumnCell;
DGLists[i].OnCellClick := DGListsCellClick;
DGLists[i].Tag := i;
ColorLabels[i] := TLabel.Create(Owner);
ColorLabels[i].Parent := ScrollBoxs[This_Index];
ColorLabels[i].AutoSize := true;
ColorLabels[i].Font.name := '宋体';
ColorLabels[i].Font.Size := 9;
ColorLabels[i].Top := Labels[i].top;
ColorLabels[i].Left := Labels[i].Left + round(Labels[i].Width/2)+20;
ColorLabels[i].Width := round(Labels[i].Width/2)-20;
ColorLabels[i].BringToFront;
ColorLabels[i].Tag := i;
ColorLabels[i].Font.Color := ClWhite;
ColorLabels[i].Color := RGB(100,100,100);
ColorLabels[i].Caption := '待机中';
end
else if FEditorstyle = Tsedit then
begin
edEditors[i] := Tedit.Create(Owner);
edEditors[i].Parent := ScrollBoxs[This_Index];
edEditors[i].Left := Labels[i].Left; //+ Labels[i].Width;
edEditors[i].Width := maxTextLen;
if FTitleVisible then
edEditors[i].Top := Labels[i].Top+14
else
edEditors[i].Top := Labels[i].Top;
edEditors[i].ReadOnly := DataReadOnly;
if DataSource.DataSet.Fieldbyname(DataField_Editor).AsVariant <> null then
edEditors[i].Text := DataSource.DataSet.Fieldbyname(DataField_Editor).AsString;
edEditors[i].OnKeyPress := OnKeyPress;
edEditors[i].OnKeyDown := OnKeyDown;
edEditors[i].Visible := EditorVisible;
DGLists[i] := TDbGrid.Create(Owner);
DGLists[i].Parent := ScrollBoxs[This_Index];
DGLists[i].Font.name := '宋体';
DGLists[i].Font.Size := 9;
DGLists[i].ReadOnly := True;
DGLists[i].Options := [dgRowSelect];
DGLists[i].FixedColor := clSkyBlue;
DGLists[i].Left := edEditors[i].Left;
DGLists[i].Width := edEditors[i].Width;
DGLists[i].Height := DgHeight;
DGLists[i].Tag := i;
if EditorVisible then
DGLists[i].Top := edEditors[i].Top+edEditors[i].height+2
else
DGLists[i].Top := edEditors[i].Top+2;
DGLists[i].Hint := trim(Labels[i].caption);
DGLists[i].ShowHint := False;
DGLists[i].OnDrawColumnCell := DGListsDrawColumnCell;
DGLists[i].OnCellClick := DGListsCellClick;
DGLists[i].Tag := i;
ColorLabels[i] := TLabel.Create(Owner);
ColorLabels[i].Parent := ScrollBoxs[This_Index];
ColorLabels[i].AutoSize := False;
ColorLabels[i].Font.name := '宋体';
ColorLabels[i].Font.Size := 9;
ColorLabels[i].Top := Labels[i].top;
ColorLabels[i].Left := Labels[i].Left + round(Labels[i].Width/2)+20;
ColorLabels[i].Width := round(Labels[i].Width/2)-20;
ColorLabels[i].BringToFront;
ColorLabels[i].Tag := i;
ColorLabels[i].Font.Color := ClWhite;
ColorLabels[i].Color := RGB(100,100,100);
ColorLabels[i].Caption := '待机中';
end
else
begin
MemoEditors[i] := Tmemo.Create(Owner);
MemoEditors[i].Parent := ScrollBoxs[This_Index];
MemoEditors[i].Left := Labels[i].Left;
MemoEditors[i].Width := maxTextLen;
if FTitleVisible then
MemoEditors[i].Top := Labels[i].Top+14
else
MemoEditors[i].Top := Labels[i].Top;
MemoEditors[i].Height := 60;
MemoEditors[i].ReadOnly := DataReadOnly;
if DataSource.DataSet.Fieldbyname(DataField_Editor).AsVariant <> null then
MemoEditors[i].Lines.Add(DataSource.DataSet.Fieldbyname(DataField_Editor).AsString);
MemoEditors[i].OnKeyPress := OnKeyPress;
MemoEditors[i].OnKeyDown := OnKeyDown;
MemoEditors[i].Visible := EditorVisible;
MemoEditors[i].Tag := i;
DGLists[i] := TDbGrid.Create(Owner);
DGLists[i].Parent := ScrollBoxs[This_Index];
DGLists[i].Font.name := '宋体';
DGLists[i].Font.Size := 9;
DGLists[i].ReadOnly := True;
DGLists[i].FixedColor := clSkyBlue;
DGLists[i].Left := MemoEditors[i].Left;
DGLists[i].Width := MemoEditors[i].Width;
DGLists[i].Height := DgHeight;
DGLists[i].Options := [dgRowSelect];
if EditorVisible then
DGLists[i].Top := MemoEditors[i].Top+MemoEditors[i].height+2
else
DGLists[i].Top := MemoEditors[i].Top+2;
DGLists[i].Hint := trim(Labels[i].caption);
DGLists[i].ShowHint := False;
DGLists[i].OnDrawColumnCell := DGListsDrawColumnCell;
DGLists[i].OnCellClick := DGListsCellClick;
DGLists[i].Tag := i;
ColorLabels[i] := TLabel.Create(Owner);
ColorLabels[i].Parent := ScrollBoxs[This_Index];
ColorLabels[i].AutoSize := False;
ColorLabels[i].Font.name := '宋体';
ColorLabels[i].Font.Size := 9;
ColorLabels[i].Left := DGLists[i].Left + DGLists[i].Width +1;
ColorLabels[i].Height := DGLists[i].Height + MemoEditors[i].Height;
ColorLabels[i].Top := DGLists[i].Top;
ColorLabels[i].Tag := i;
ColorLabels[i].Font.Color := ClWhite;
ColorLabels[i].Color := RGB(100,100,100);
ColorLabels[i].Caption := '待机中';
end;
Tmp_Parm := trim(DataSource.DataSet.Fieldbyname(DataField_Editor).Value);
with AdoLists[i] do
begin
DisableConTrols;
Active := False;
ConnectionString := Fcnnstr; //数据库连接串
CursorType := ctStatic;
LockType := ltReadOnly;
CommandText := Data_DgListSql;
Parameters.ParamValues['ListParm'] := Tmp_Parm;
Active := True;
{
tmpSql := 'select a.AutoID,case a.MachMiss when ''0000000000'' then '
+ 'convert(varchar(20),f.GlideName) else convert(varchar(20),d.ShortName) end'
+ ' as ShortName,rtrim(b.MP_Crock) as MP_Crock,'
+ 'convert(varchar(20),c.ChnName) as ChnName,a.MachLen,'
+ 'convert(varchar(20),f.GlideName) as GlideName,'
+ 'a.MachMiss,a.TaskOrder,a.Status,'
+ 'c.RedCode,c.GreenCode,c.BlueCode'
+ ' from MD_Dev_Mission a '+#10#13
+ ' left join MD_PlanCrock b on b.mp_autocrk = left(a.MachMiss,10)'
+ ' left join Mc_color c on c.ColorId = b.MP_Color '
+ ' left join Mc_Glide f on f.GlideNo = a.MachGlide'+#10#13
+ ' left join BC_Customer d on d.customno = b.MP_Customno'+#10#13
+ ' where a.Status <> ''6'''
+ ' and a.Machine =:ListParm'+#10#13
+ ' order by a.Machine,a.TaskOrder';
}
for k := 0 to Fields.Count -1 do
Fields[k].Visible := False;
Fieldbyname('ShortName').Visible := True; //加工单位
Fieldbyname('MP_Crock').Visible := True; //助记缸号
Fieldbyname('ChnName').Visible := True; //颜色
Fieldbyname('MachLen').Visible := True; //单缸重量
Fieldbyname('GlideName').Visible := True; //工序
DGLists[i].DataSource := DsLists[i];
EnableConTrols;
DGLists[i].Columns[0].width := 50;
DGLists[i].Columns[1].width := 30;
DGLists[i].Columns[2].width := 55;
DGLists[i].Columns[3].width := 45;
DGLists[i].Columns[4].width := 50;
//DGLists[i].Columns[0].Alignment := TaCenter;
//DGLists[i].Columns[1].Alignment := TaCenter;
//DGLists[i].Columns[2].Alignment := TaCenter;
//DGLists[i].Columns[3].Alignment := TaCenter;
//DGLists[i].Columns[4].Alignment := TaCenter;
First;
end;
Shapes[i] := TShape.Create(Owner);
Shapes[i].Parent := ScrollBoxs[This_Index];
Shapes[i].Left := Labels[i].Left - 5;
Shapes[i].top := Labels[i].Top - 5;
if FEditorstyle = TsMemo then
begin
Shapes[i].height := ColorLabels[i].height + Labels[i].height +20 +10;
Shapes[i].Width := (ColorLabels[i].left - Labels[i].left) + ColorLabels[i].Width + 10;
end
else
begin
Shapes[i].height := (DGLists[i].Top + DGLists[i].Height - Labels[i].Top)+ 10;
Shapes[i].Width := Labels[i].Width +10;
end;
Shapes[i].Brush.Color := clSkyBlue;
Shapes[i].Visible := True;
Shapes[i].SendToBack;
Shapes[i].Tag := i;
if not DataSource.DataSet.Eof then
DataSource.DataSet.next;
end;
DataSource.DataSet.EnableControls;
tmpado.Close;
XXX.Free;
if FPageControl.PageCount > 0 then
begin
FPageControl.ActivePageIndex := FPageControl.PageCount-1;
FPageControl.ActivePageIndex := DefaultIndex;
end;
Finally
FPageControl.Visible := True;
end;
end;
procedure TJkPanel.Co_DllBtnClick(Sender: TObject);
var
this_Gh :String;
k :Integer;
begin
if not CanLCCL then //判断是否有权操作此项功能
begin
application.messagebox('对不起，目前您还没有被授权操作此项功能。','信息提示',mb_ok or MB_ICONInformation);
Exit;
end;
k := (sender as TSpeedButton).Tag;
if not FootPanels[k].DataSource.dataset.active then exit;
if Co_DllBtn[k].Caption = '流程处理' then
begin
if FootPanels[k].DataSource.dataset.FieldValues['缸号'] = null then exit;
this_Gh := FootPanels[k].DataSource.dataset.fieldbyname('缸号').AsString;
//执行流程处理
DoAbnormalC(TmpHandle,cnn_Base,V_UserId,V_User,this_Gh);
end
else
begin
//执行洗缸领料
if This_Jth <> '' then
DoRinseprt(TmpHandle,cnn_Base,V_UserId,V_User,This_Jth,This_TaskOrder);
end;
end;
procedure TJkPanel.DGListsDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
Redcode,GreenCode,BlueCode,TmpStatus :Integer;
begin
with (Sender as TdbGrid) do
begin
if DataSource = nil then exit;
if not DataSource.DataSet.Active then exit;
Redcode := (DataSource.DataSet as TAdoDataset).fieldByName('Redcode').AsInteger;
Greencode := (DataSource.DataSet as TAdoDataset).fieldByName('Greencode').AsInteger;
Bluecode := (DataSource.DataSet as TAdoDataset).fieldByName('Bluecode').AsInteger;
TmpStatus := (DataSource.DataSet as TAdoDataset).fieldByName('Status').AsInteger;
if gdFocused in State then
begin
Canvas.Brush.Color := clblack;
Canvas.Font.Color := Clred;
end
else if TmpStatus = 5 then
begin
Canvas.Font.Color := clBlue;
Canvas.Brush.Color := clWhite;
Canvas.Font.Style := [fsBold]; //fsItalic
ColorLabels[(Sender as TDbGrid).Tag].Color := RGB(Redcode,Greencode,Bluecode);
if (Redcode <=10) or (Bluecode <=10) or (Greencode <=10) then
ColorLabels[(Sender as TDbGrid).Tag].Font.Color := ClWhite
else
ColorLabels[(Sender as TDbGrid).Tag].Font.Color := ClBlack;
ColorLabels[(Sender as TDbGrid).Tag].Caption := '生产中';
end
else if (Redcode <=100) or (Greencode <=100) then
begin
Canvas.Font.Color := ClWhite;
Canvas.Brush.Color := RGB(Redcode,Greencode,Bluecode);
end
else
begin
Canvas.Font.Color := ClBlack;
Canvas.Brush.Color := RGB(Redcode,Greencode,Bluecode);
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
procedure TJkPanel.DGGlideDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with (Sender as TDbGrid) do
begin
if DataSource = nil then exit;
if not DataSource.DataSet.Active then exit;
if gdFocused in State then exit;
if (Sender as TDbGrid).SelectedRows.CurrentRowSelected then
begin
Canvas.Brush.Color := clHighlight;
Canvas.Font.Color := ClWhite;
end
else if DataSource.DataSet.RecNo mod 2 = 0 then
begin
Canvas.Brush.Color := $00DEDEDE;
Canvas.Font.Color := ClBlack;
end
else
begin
Canvas.Brush.Color := clwhite;
Canvas.Font.Color := ClBlack;
end;
DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;
procedure TJkPanel.refreshFootpanel(Tag :integer);
var
i,Listindex,PageIndex :integer;
R,G,B :Integer;
tmpCarN0 :String;
TmpMachMiss :String; //单缸号
begin
try
PageIndex := FPageControl.ActivePageIndex;
Listindex := Tag;
if AdoLists[Listindex].RecordCount = 0 then
begin
FootPanels[PageIndex].DataSource := Nil;
exit;
end;
//获取机台号
This_Jth := Labels[Listindex].Hint;
//获取任务序次
This_TaskOrder := trim(AdoLists[Listindex].FieldByName('TaskOrder').AsString);
TmpMachMiss := trim(AdoLists[Listindex].FieldByName('MachMiss').AsString);
if TmpMachMiss = '0000000000' then
Co_DllBtn[PageIndex].Caption := '洗缸领料'
else
Co_DllBtn[PageIndex].Caption := '流程处理';
with tmpado do
begin
DisableConTrols;
Active := False;
ConnectionString := Fcnnstr;
CursorType := ctStatic;
LockType := ltReadOnly;
CommandText := Data_FootSql;
Parameters.ParamValues['FootParm'] := AdoLists[Listindex].Fields[0].Value;
Active := True;
for i := 0 to fieldCount -1 do
tmpado.Fields[i].Alignment := taLeftJustify;
tmpDs.dataset := tmpado;
EnableConTrols;
end;
with adoGlides do
begin
DisableConTrols;
Active := False;
ConnectionString := Fcnnstr;
CursorType := ctStatic;
LockType := ltReadOnly;
CommandText := Data_GlideSql;
if AdoLists[Listindex].Fieldbyname('MachMiss').AsString <> null then
begin
tmpCarN0 := trim(AdoLists[Listindex].Fieldbyname('MachMiss').AsString);
tmpCarN0 := Copy(tmpCarN0,1,10);
end
else
tmpCarN0 := '////';
Parameters.ParamValues['PCarNo'] := tmpCarN0;
Active := True;
First;
EnableConTrols;
end;
DGGlides[PageIndex].DataSource := DsGlides;
DGGlides[PageIndex].Columns[0].Width := 74;
DGGlides[PageIndex].Columns[1].Width := 40;
FootPanels[PageIndex].Width := 140;
FootPanels[PageIndex].Columns := 1;
FootPanels[PageIndex].DataSource := tmpDs;
FootPanels[PageIndex].CreateEditors(tmpDs,1);
R := 255; G:= 255; B := 255;
R := AdoLists[Listindex].Fieldbyname('RedCode').AsInteger;
G := AdoLists[Listindex].Fieldbyname('GreenCode').AsInteger;
B := AdoLists[Listindex].Fieldbyname('BlueCode').AsInteger;
Co_Shapes[PageIndex].Brush.Color := RGB(R,G,B);
except
//
end;
end;
procedure TJkPanel.DGListsCellClick(Column: TColumn);
var
tmpIdx,TmpCol,TmpTag :Integer;
begin
if not Column.Grid.DataSource.DataSet.Active then exit;
if Column.Grid.DataSource.DataSet.RecordCount = 0 then exit;
if Column.Grid.DataSource.DataSet.RecNo = 1 then
begin
tmpIdx := (Column.Grid as TCustomDbGrid).ComponentIndex;
TmpCol := Column.Index;
if TmpDgListIdx = -1 then
begin
TmpDgListIdx := tmpIdx;
TmpDgListCol := TmpCol;
refreshFootpanel((Column.Grid as TCustomDbGrid).DataSource.DataSet.Tag);
end
else
begin
if TmpDgListIdx <> tmpIdx then
refreshFootpanel((Column.Grid as TCustomDbGrid).DataSource.DataSet.Tag);
TmpDgListIdx := tmpIdx;
TmpDgListCol := TmpCol;
end;
(Column.Grid as TCustomDbGrid).SetFocus;
end
end;
procedure TJkPanel.AdolistsAfterScroll(DataSet: TDataSet);
begin
//刷新 Footpanel
refreshFootpanel(DataSet.tag);
end;
//响应Labels[i]的Click事件
procedure TJkPanel.LabelsClick(Sender: TObject);
begin
//
end;
{
procedure TJkPanel.LabelsClick(Sender: TObject);
var
i :integer;
Tmp_CheJian,Tmp_JiTai :String;
begin
try
if FP_Parent = nil then inti_Grid(Sender);
if FP_Parent = nil then exit;
Tmp_JiTai := trim((Sender as Tlabel).Caption);
Tmp_CheJian := trim(((Sender as Tlabel).Parent as TScrollBox).Hint);
if tmpado.Active then
begin
if tmpado.FieldValues['机台'] <> null then
if tmpado.FieldByName('机台').AsString = Tmp_JiTai then
exit;
end;
screen.Cursor := crSQLWait;
//FP_Parent.Visible := False;
//FP_Parent.Left := FPageControl.Left + (Sender as Tlabel).Left + (Sender as Tlabel).Width + 28;
//FP_Parent.Top := FPageControl.Top + (Sender as Tlabel).top + (Sender as Tlabel).Height +4;
FP_Move.Caption := trim((Sender as Tlabel).Hint) + '明细列表';
with tmpado do
begin
DisableConTrols;
Active := False;
ConnectionString := Fcnnstr;
tmpado.CursorType := ctStatic;
tmpado.LockType := ltReadOnly;
CommandText := 'Exec '+Data_BerthListSql+' '''+Tmp_CheJian+''','''+Tmp_JiTai+'''';
Active := True;
First;
EnableConTrols;
for i := 0 to Fields.Count -1 do
begin
Fields[i].Alignment := taCenter;
if i = 0 then
fields[i].DisplayWidth := 20
else
fields[i].DisplayWidth := 8;
Fpass_Grid.Columns[i].Title.Alignment := taCenter;
Fpass_Grid.Columns[i].Title.Font.Style:= [];
end;
end;
screen.Cursor := crDefault;
FP_Parent.Visible := True;
except
screen.Cursor := crDefault;
end;
end;
}
procedure TJkPanel.FootPanelDblclick(Sender: TObject);
begin
if sender is TScrollBox then
(sender as TScrollBox).Parent.width := 1;
end;
procedure TJkPanel.FP_MovePanelDblClick(Sender: TObject);
begin
FP_Parent.Visible := False;
end;
//Register控件
procedure Register;
begin
RegisterComponents('Data Controls', [TJkPanel]);
end;
// 内存的释放是要有顺序的！必须以创建的相反的顺序进行！尤其是当组件之间有父子关系时
procedure TJkPanel.FreeEditors;
begin
if FPageControl <> nil then
begin
if FP_Parent <> nil then
begin
try
FPass_Grid.Free;
FP_Move.Free;
FP_Parent.Free;
except
//
end;
end;
DGGlides := nil;
DsGlides := nil;
AdoGlides := nil;
DsGlides.Free;
AdoGlides.Free;
DGLists := nil;
DsLists := nil;
AdoLists := nil;
FPass_Grid := nil;
FP_Move := nil;
FP_Parent := nil;
Shapes := nil;
ProgressBars := nil;
comEditors := nil;
edEditors := nil;
MemoEditors := nil;
ScrollBoxs := nil;
Splitters := nil;
Co_Shapes:= nil;
Co_DllBtn := Nil;
Co_Panels:= nil;
FootPanels := nil;
tmpDs.Free;
tmpado.Free;
FPageControl.Free;
end;
end;
end.