delphi10.1 app开发例程（框架XE10） ___delphi___

delphi10.1 app开发例程（框架XE10） haolizi.net/example/view_13631.html
https://www.haolizi.net/example/view_13631.html
【核心代码】

unit u_order;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
uFrame_Edit, FMX.Layouts, FMX.Objects, FireDAC.Stan.Intf,
FireDAC.Stan.Option, FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS,
FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DApt,
Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, FMX.Controls.Presentation;

type
TFrm_TestOrder = class(TFrame_Edit)
FDQuery1: TFDQuery;
FDQuery1Issue: TIntegerField;
FDQuery1Code: TWideStringField;
FDQuery1Name: TWideStringField;
FDQuery1_Image: TBlobField;
Scr_Item: TFramedScrollBox;
procedure btn_OPClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Frm_TestOrder: TFrm_TestOrder;

implementation
uses xItemOrder, u_DM,u_DMUse;
{$R *.fmx}

procedure TFrm_TestOrder.btn_OPClick(Sender: TObject);
var I:Integer;
TOrder:TFrm_ItemOrder;
MemStream: TMemoryStream;
begin
inherited;
FDQuery1.Active:=False;
FDQuery1.Active:=True;
lyt_Main.BeginUpdate;


Try
// DM.ApkLog1.SendLog(lyt_Main.ComponentCount.ToString());
for I := lyt_Main.ComponentCount-1 downto 0 do begin

if lyt_Main.Components[i].ClassName<>'TFrm_ItemOrder' then
Continue;

TOrder:=TFrm_ItemOrder(lyt_Main.Components[i]);
lyt_Main.RemoveComponent(TOrder);
lyt_Main.RemoveObject(TFmxObject(TOrder));
TOrder.Free;

end;
// DM.ApkLog1.SendLog(lyt_Main.ComponentCount.ToString());
lyt_Main.Repaint;

with FDQuery1 do begin
DisableControls;
try
First;
while not Eof do begin
TOrder:=TFrm_ItemOrder.Create(lyt_Main) ;
lyt_Main.AddObject(TOrder);
TOrder.Name:='I_' FieldByName('Issue').AsString;
TOrder.T_Name.Text:=FieldByName('Name').AsString;
MemStream := TMemoryStream.Create;
try
TBlobField(FieldByName('_Image')).SaveToStream(MemStream);
TOrder.crc_Image.Fill.Bitmap.Bitmap.LoadFromStream(MemStream);
finally
MemStream.Free;
end;
Next;
end;
except on E: Exception do
// DM.ApkLog1.SendLog(e.Message);
end;
EnableControls;
end;
except
on E: Exception do
//DM.ApkLog1.SendLog(e.Message);
End;

lyt_Main.EndUpdate;

end;

end.


　　　　　　　　　　　　　 查看评论 回复