rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
61630656e9
RTFormwork/项目代码/RTBasicsV1/C02纱线加弹检验/DbPanel/.svn/text-base/AutoPanel.pas.svn-base

708 lines
23 KiB
Plaintext
Raw Normal View History

1
2024-07-07 09:35:27 +08:00
unit AutoPanel;
interface
uses
Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,
ExtCtrls,dbctrls,stdctrls,db,ADODB,ComCtrls,Variants,Gauges,
SqlExpr,DBGrids,MovePanel;
type
TEditorstyle = (TsMemo,Tscombox,Tsedit);
type
TAutoPanel = class(TPanel)
private
{ Private declarations }
FEditorstyle:Teditorstyle;
FLeft :Integer;
FTop :Integer;
maxTextLen :Integer;
maxLabelLen :Integer;
FTitleVisible :Boolean;
FDataReadOnly :Boolean;
FPageCount :Integer;
FPass_Grid :TDBGrid;
FP_Move :TMovePanel;
FP_Parent :TPanel;
FPageControl: TPageControl; {<7B><>ҳ<EFBFBD>ؼ<EFBFBD>}
FTabSheets :array of TTabSheet;
FScrollBox :array of TScrollBox; {<7B><><EFBFBD><EFBFBD><EFBFBD>ؼ<EFBFBD>}
FLineHeight :Integer;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ؼ<EFBFBD><D8BC><EFBFBD><EFBFBD><EFBFBD>̬<EFBFBD><CCAC><EFBFBD><EFBFBD>
MemoEditors :array of TMemo;
comEditors :array of TCombobox;
edEditors :array of Tedit;
ProgressEditor :array of Tedit;
Labels :array of TLabel; //<2F>ֶα<D6B6><CEB1>⣬<EFBFBD><E2A3AC>̬<EFBFBD><CCAC><EFBFBD><EFBFBD>
ProgressBars :array of TGauge;
Shapes :array of TShape;
FDataSource :TDataSource; // <20><><EFBFBD><EFBFBD>Դ
FDataField_A :String; // DataField
FDataField_B :String; // DataField
FDataField_C :String; // DataField
FDataField_D :String; // DataField
FDataField_E :String; // DataField
FDataField_F :String; // DataField
FStore :String;
Fcnnstr :String;
FListSql :String;
FBerthFieldName :String;
FStoreFieldName :String;
FBerthTableName :String;
FColumns :Integer; //<2F><>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>
tmpado :TadoDataset;
tmpDs :TDataSource;
procedure FreeEditors; //<2F>ͷ<EFBFBD><CDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ؼ<EFBFBD><D8BC><EFBFBD><EFBFBD>ڴ<EFBFBD>
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 FP_MovePanelDblClick(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); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶε<D6B6><CEB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ؼ<EFBFBD>
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 TitleVisible :Boolean read FTitleVisible write FTitleVisible 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; //<2F><><EFBFBD><EFBFBD>Դ
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 DataField_BerthArea :String read FDataField_D write FDataField_D;
property DataField_IconLeft :String read FDataField_E write FDataField_E;
property DataField_IconTop :String read FDataField_F write FDataField_F;
property Data_BerthListSql :String read FListSql write FListSql;
property Data_BerthField :String read FBerthFieldName write FBerthFieldName;
property Data_StoreField :String read FStoreFieldName write FStoreFieldName;
property Data_BerthTable :String read FBerthTableName write FBerthTableName;
property Store_Name :String read FStore write FStore;
property Columns :Integer read FColumns write FColumns default 4;//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Data Controls', [TAutoPanel]);
end;
procedure TAutoPanel.Setedit(Value :TEditorstyle);
begin
if FEditorstyle <> Value then
begin
FEditorstyle := Value;
Invalidate;
end;
end;
{ Ϊ<><CEAA>I<EFBFBD>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʾ<EFBFBD><CABE>Ϣ<EFBFBD>ķ<EFBFBD><C4B7><EFBFBD>}
procedure TAutoPanel.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 TAutoPanel.AKeyDown(Sender :TObject; var Key :Word; Shift :TShiftState);
begin
//
end;
procedure TAutoPanel.AProgressEditorChange(Sender :TObject);
begin
//
end;
procedure TAutoPanel.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 TAutoPanel.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;
constructor TAutoPanel.Create(AOwner :TComponent);
begin
Inherited Create(AOWner);
FLeft := 20;
FTop := 20;
maxTextLen := 100;
maxLabelLen := 100;
FLineHeight := 15;
FTitleVisible := True;
FDataReadOnly := True;
end;
{ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֶε<D6B6><CEB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ؼ<EFBFBD><D8BC>ķ<EFBFBD><C4B7><EFBFBD>}
procedure TAutoPanel.CreateEditors(var DS :TDataSource; cnnstr :String);
var
i,j,n,This_Index,TextHeight :Integer;
tmp_col0,Tmp_Row0,tmp_col1,Tmp_Row1 :Integer;
XXX :TStringList;
tmpFlag :Boolean;
begin
if (Store_Name = '')
or (Data_BerthTable = '')
or (DataField_BerthArea = '') then
exit;
{ <20>ͷ<EFBFBD>ȫ<EFBFBD><C8AB><EFBFBD>ؼ<EFBFBD><D8BC>ڴ<EFBFBD>}
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;
FPageCount := 0;
tmp_col1 := -1;
Tmp_Row1 := 0;
n := DataSource.DataSet.RecordCount;
if n <= 0 then exit;
DataSource.DataSet.DisableControls;
if maxLabelLen < maxTextLen then
maxTextLen := maxLabelLen;
{ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ı<EFBFBD><C4B1>ⳤ<EFBFBD>ȼ<EFBFBD><C8BC><EFBFBD>ʾ<EFBFBD><CABE><EFBFBD><EFBFBD>}
DataSource.DataSet.First;
{ <20><><EFBFBD><EFBFBD><EFBFBD>߶<EFBFBD>}
TextHeight := Canvas.TextHeight(DataSource.DataSet.Fields[0].DisplayLabel) + FLineHeight; //10;
{ <20><><EFBFBD><EFBFBD><EFBFBD>ڴ<EFBFBD>}
SetLength(Labels,n);
SetLength(ProgressBars,n);
SetLength(ProgressEditor,n);
SetLength(Shapes,n);
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.Connection := (DataSource.DataSet as TAdoDataset).Connection;
tmpado.CommandText := ' Select '+DataField_BerthArea+' '
+ ' from '+Data_BerthTable+' where '+DataField_BerthArea+' is not null'
+ ' and '+Data_StoreField+' = '''+Store_Name+''''
+ ' Group by '+DataField_BerthArea+' order by '+DataField_BerthArea+'';
Active := True;
FPageCount := RecordCount;
if FPageCount = 0 then exit;
first;
// <20><><EFBFBD><EFBFBD>PageControl
FPageControl := TPageControl.Create(Owner);
FPageControl.Parent := Self;
FPageControl.Font.Name := '<27><><EFBFBD><EFBFBD>';
FPageControl.Font.Size := 9;
FPageControl.Align := alClient;
FPageControl.Visible := False;
{ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڴ<EFBFBD>}
setlength(FTabSheets,FPageCount+1);
setlength(FScrollBox,FPageCount+1);
XXX := TStringList.Create();
for j := 0 to FPageCount do
begin
{ FPageControl<6F><6C>ҳ}
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
FTabSheets[j].Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + trim(fieldByName(DataField_BerthArea).AsString);
FTabSheets[j].Hint := trim(fieldByName(DataField_BerthArea).AsString);
XXX.Append(trim(fieldByName(DataField_BerthArea).AsString));
end
else
begin
FTabSheets[j].Caption := 'δָ<CEB4><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
FTabSheets[j].Hint := '';
XXX.Append('δָ<CEB4><D6B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
FTabSheets[j].ShowHint := False;
FTabSheets[j].Visible := True;
FTabSheets[j].Align := alClient;
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
FScrollBox[j] := TScrollBox.Create(Owner);
FScrollBox[j].Visible := True;
FScrollBox[j].Parent := FTabSheets[j];
FScrollBox[j].Color := ClBlack;//clTeal;
FScrollBox[j].Align := alClient;
FScrollBox[j].Hint := FTabSheets[j].Hint;
FScrollBox[j].ShowHint := False;
next;
end;
end;
if FEditorstyle = Tscombox then
SetLength(comEditors,n)
else if FEditorstyle = Tsedit then
SetLength(edEditors,n)
else
SetLength(MemoEditors,n);
{ <20><><EFBFBD><EFBFBD><EFBFBD>༭}
for i := 0 to n - 1 do
begin
//DataField_BerthArea
if DataSource.DataSet.Fieldbyname(DataField_BerthArea).AsVariant = null then
This_Index := FPageCount
else
This_Index := XXX.IndexOf(trim(DataSource.DataSet.Fieldbyname(DataField_BerthArea).Asstring));
tmpFlag := False;
if DataSource.DataSet.Fieldbyname(DataField_IconLeft).AsVariant <> null then
tmp_col0 := DataSource.DataSet.Fieldbyname(DataField_IconLeft).Asinteger -1
else
begin
tmpFlag := True;
if tmp_col1 = Columns -1 then
begin
tmp_col1 := 0;
tmp_Row1 := tmp_Row1 +1;
end
else
tmp_col1 := tmp_col1 + 1;
tmp_col0 := tmp_col1;
This_Index := FPageCount;
end;
if DataSource.DataSet.Fieldbyname(DataField_IconTop).AsVariant <> null then
tmp_Row0 := DataSource.DataSet.Fieldbyname(DataField_IconTop).Asinteger - 1
else
begin
if not tmpFlag then
begin
if tmp_col1 = Columns - 1 then
begin
tmp_col1 := 0;
tmp_Row1 := tmp_Row1 +1;
end
else
tmp_col1 := tmp_col1 + 1;
end;
tmp_Row0 := tmp_Row1;
This_Index := FPageCount;
end;
{ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>}
Labels[i] := TLabel.Create(owner);
Labels[i].visible := FTitleVisible;
Labels[i].Parent := (FScrollBox[This_Index] as TScrollBox); // FScrollBox[This_Index];
Labels[i].Font.Name := '<27><><EFBFBD><EFBFBD>';
Labels[i].Font.Size := 9;
Labels[i].Font.Color := ClBlue;
Labels[i].OnClick := LabelsClick;
//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 := '';
Labels[i].Hint := '<27><>λ<EFBFBD><CEBB>[' + Labels[i].caption + ']';
Labels[i].ShowHint := True;
if FEditorstyle = TsMemo then
begin
Labels[i].Top := FTop + tmp_Row0 * (TextHeight*3+30) + 2;
Labels[i].Left := FLeft + (maxLabelLen + 40) * tmp_Col0 + 10;
Labels[i].Width := maxLabelLen;
end
else
begin
Labels[i].Top := FTop + tmp_Row0 * (TextHeight*2+30) + 2;
Labels[i].Left := FLeft + (maxLabelLen + 30) * tmp_Col0 + 10;
Labels[i].Width := maxLabelLen;
end;
{ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݶ<EFBFBD><DDB6><EFBFBD>}
ProgressEditor[i] := Tedit.Create(Owner);
ProgressEditor[i].visible := False;
ProgressEditor[i].Parent := FScrollBox[This_Index];
if DataSource.DataSet.Fieldbyname(DataField_Progress).AsVariant <> null then
ProgressEditor[i].Text := DataSource.DataSet.Fieldbyname(DataField_Progress).AsString
else
ProgressEditor[i].Text := '0';
ProgressEditor[i].OnChange := AProgressEditorChange;
{ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2>ʾ<EFBFBD><CABE><EFBFBD>ݶ<EFBFBD><DDB6><EFBFBD>}
if FEditorstyle = Tscombox then
begin
comEditors[i] := TComboBox.Create(Owner);
comEditors[i].Parent := FScrollBox[This_Index]; //Self;
comEditors[i].Left := Labels[i].Left; //+ Labels[i].Width;
comEditors[i].Width := maxTextLen;
comEditors[i].Top := Labels[i].Top+20;
if DataSource.DataSet.Fieldbyname(DataField_Editor).AsVariant <> null then
comEditors[i].Text := DataSource.DataSet.Fieldbyname(DataField_Editor).AsString;
comEditors[i].OnKeyPress := AKeyPress;
comEditors[i].OnKeyDown := AKeyDown;
ProgressBars[i] := TGauge.Create(Owner);
ProgressBars[i].Parent := FScrollBox[This_Index];
ProgressBars[i].Font.name := '<27><><EFBFBD><EFBFBD>';
ProgressBars[i].Font.Size := 9;
ProgressBars[i].ShowText := True;
ProgressBars[i].Font.Color := ClWindow;
ProgressBars[i].Kind := gkHorizontalBar;
ProgressBars[i].Left := comEditors[i].Left;
ProgressBars[i].Width := comEditors[i].Width;
ProgressBars[i].Height := 10;
ProgressBars[i].Top := comEditors[i].Top+comEditors[i].height+2;
ProgressBars[i].Progress := Round((DataSource.DataSet
.Fieldbyname(DataField_Progress).Ascurrency)*100);
end
else if FEditorstyle = Tsedit then
begin
edEditors[i] := Tedit.Create(Owner);
edEditors[i].Parent := FScrollBox[This_Index];
edEditors[i].Left := Labels[i].Left; //+ Labels[i].Width;
edEditors[i].Width := maxTextLen;
edEditors[i].Top := Labels[i].Top+20;
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 := AKeyPress;
edEditors[i].OnKeyDown := AKeyDown;
ProgressBars[i] := TGauge.Create(Owner);
ProgressBars[i].Parent := FScrollBox[This_Index];
ProgressBars[i].Font.name := '<27><><EFBFBD><EFBFBD>';
ProgressBars[i].Font.Size := 9;
ProgressBars[i].ShowText := True;
ProgressBars[i].Font.Color := ClWindow;
ProgressBars[i].Kind := gkHorizontalBar;
ProgressBars[i].Left := edEditors[i].Left;
ProgressBars[i].Width := edEditors[i].Width;
ProgressBars[i].Height := 10;
ProgressBars[i].Top := edEditors[i].Top+edEditors[i].height+2;;
ProgressBars[i].Progress := Round((DataSource.DataSet
.Fieldbyname(DataField_Progress).Ascurrency)*100);
end
else
begin
MemoEditors[i] := Tmemo.Create(Owner);
MemoEditors[i].Parent := FScrollBox[This_Index];
MemoEditors[i].Left := Labels[i].Left;
MemoEditors[i].Width := maxTextLen;
MemoEditors[i].Top := Labels[i].Top+20;
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 := AKeyPress;
MemoEditors[i].OnKeyDown := AKeyDown;
ProgressBars[i] := TGauge.Create(Owner);
ProgressBars[i].Parent := FScrollBox[This_Index];
ProgressBars[i].Font.name := '<27><><EFBFBD><EFBFBD>';
ProgressBars[i].Font.Size := 9;
ProgressBars[i].ShowText := False;
ProgressBars[i].Font.Color := ClWindow;
ProgressBars[i].Kind := gkVerticalBar;
ProgressBars[i].Left := MemoEditors[i].Left + MemoEditors[i].Width +1;
ProgressBars[i].Width := 10;
ProgressBars[i].Height := MemoEditors[i].Height;
ProgressBars[i].Top := MemoEditors[i].Top;
ProgressBars[i].Progress := Round((DataSource.DataSet
.Fieldbyname(DataField_Progress).Ascurrency)*100);
end;
if ProgressBars[i].Progress <= 20 then
ProgressBars[i].ForeColor := RGB(48,48,96)
else if (ProgressBars[i].Progress > 20) and (ProgressBars[i].Progress <= 40) then
ProgressBars[i].ForeColor := RGB(48,48,144)
else if (ProgressBars[i].Progress > 40) and (ProgressBars[i].Progress <= 60) then
ProgressBars[i].ForeColor := RGB(96,48,144)
else if (ProgressBars[i].Progress > 60) and (ProgressBars[i].Progress <= 80) then
ProgressBars[i].ForeColor := RGB(144,48,144)
else if ProgressBars[i].Progress > 80 then
ProgressBars[i].ForeColor := RGB(200,48,48);
Shapes[i] := TShape.Create(Owner);
Shapes[i].Parent := FScrollBox[This_Index];
Shapes[i].Left := Labels[i].Left - 10;
Shapes[i].top := Labels[i].Top - 10;
if FEditorstyle = TsMemo then
begin
Shapes[i].height := ProgressBars[i].height + Labels[i].height +20 +10;
Shapes[i].Width := (ProgressBars[i].left - Labels[i].left) + ProgressBars[i].Width + 20;
end
else
begin
Shapes[i].height := (ProgressBars[i].Top - Labels[i].Top) + ProgressBars[i].Height + 20;
Shapes[i].Width := Labels[i].Width +20;
end;
Shapes[i].Brush.Color := clSkyBlue;
Shapes[i].Visible := True;
Shapes[i].SendToBack;
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 := 0;
end;
Finally
FPageControl.Visible := True;
end;
end;
destructor TAutoPanel.Destroy;
begin
FreeEditors;
Inherited Destroy;
end;
function TAutoPanel.comEditor(Index :Integer) :TComboBox;
begin
if Index< Length(comEditors) then Result := comEditors[Index]
else Result := nil;
end;
function TAutoPanel.edEditor(Index :Integer) :Tedit;
begin
if Index < Length(edEditors) then Result := edEditors[Index]
else Result := nil;
end;
function TAutoPanel.MemoEditor(Index :Integer) :TMemo;
begin
if Index< Length(MemoEditors) then Result := MemoEditors[Index]
else Result := nil;
end;
procedure TAutoPanel.inti_Grid(sender :TObject);
begin
try
// <20><><EFBFBD><EFBFBD>FP_Parent
FP_Parent := TPanel.Create(Owner);
with FP_Parent Do
begin
Parent := Self;
Visible := False;
Font.Name := '<27><><EFBFBD><EFBFBD>';
Font.Size := 9;
Font.Style:= [fsBold];
Align := AlNone;
BevelInner := bvLowered;
BevelOuter := bvRaised;
Width := 380;
Height := 250;
try
Left := round(((Sender as Tlabel).Parent.Width-380)/2);
Top := round(((Sender as Tlabel).Parent.height-250)/2);
except
Left := 0;
Top := 0;
end;
end;
FP_Move := TMovePanel.Create(Owner);
with FP_Move do
begin
Parent := FP_Parent;
ParentFont := true;
BevelInner := bvLowered;
BevelOuter := bvRaised;
Height := 26;
Align := AlTop;
Color := clSkyBlue;
Caption := '';
OnDblClick := FP_MovePanelDblClick;
Visible := True;
end;
FPass_Grid := TDBGrid.Create(Owner);
with FPass_Grid do
begin
Parent := FP_Parent;
ParentFont := true;
Font.Style:= [];
Align := AlClient;
Visible := True;
DataSource := TmpDs;
end;
except
FPass_Grid := Nil;
FP_Move := Nil;
FP_Parent := Nil;
end;
end;
//<2F><>ӦLabels[i]<5D><>Click<63>¼<EFBFBD>
procedure TAutoPanel.LabelsClick(Sender: TObject);
var
i :integer;
Tmp_Area,Tmp_Berth :String;
begin
try
if FP_Parent = nil then inti_Grid(Sender);
if FP_Parent = nil then exit;
Tmp_Berth := trim((Sender as Tlabel).Caption);
Tmp_Area := trim(((Sender as Tlabel).Parent as TScrollBox).Hint);
if tmpado.Active then
begin
if tmpado.FieldValues['<27><>λ'] <> null then
if tmpado.FieldByName('<27><>λ').AsString = Tmp_Berth 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) + '<27><>ϸ<EFBFBD>б<EFBFBD>';
with tmpado do
begin
DisableConTrols;
Active := False;
ConnectionString := Fcnnstr;
tmpado.CursorType := ctStatic;
tmpado.LockType := ltReadOnly;
CommandText := 'Exec '+Data_BerthListSql+' '''+Store_Name+''','''+Tmp_Area+''','''+Tmp_Berth+'''';
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 TAutoPanel.FP_MovePanelDblClick(Sender: TObject);
begin
FP_Parent.Visible := False;
end;
// <20>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD>ͷ<EFBFBD><CDB7><EFBFBD>Ҫ<EFBFBD><D2AA>˳<EFBFBD><CBB3><EFBFBD>ģ<EFBFBD><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Դ<EFBFBD><D4B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>෴<EFBFBD><E0B7B4>˳<EFBFBD><CBB3><EFBFBD><EFBFBD><EFBFBD>У<EFBFBD><D0A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǵ<EFBFBD><C7B5><EFBFBD><EFBFBD><EFBFBD>֮<EFBFBD><D6AE><EFBFBD>и<EFBFBD><D0B8>ӹ<EFBFBD>ϵʱ
procedure TAutoPanel.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;
FPass_Grid := nil;
FP_Move := nil;
FP_Parent := nil;
Shapes := nil;
ProgressBars := nil;
comEditors := nil;
edEditors := nil;
MemoEditors := nil;
FScrollBox := nil;
tmpDs.Free;
tmpado.Free;
FPageControl.Free;
end;
end;
end.
Reference in New Issue Copy Permalink