[How to set SelectedField in TUniDBGrid?]

Great!

 

Thanks your answer!!

 

Thank you!

Hi,

 

Try:

procedure TMainForm.UniButton1Click(Sender: TObject);
var
  DBGridJSName: string;
  FieldIndx: Integer;
begin
  DBGridJSName := UniDBGrid1.JSName;
  FieldIndx := 2;

  UniSession.AddJS(DBGridJSName + '.getSelectionModel().select({row: '+ DBGridJSName +'.uniRow, column: '+ IntToStr(FieldIndx) +'});');
end;

Best regards

[How to set SelectedField in TUniDBGrid?]

My VCL code:

  DBGrid1.SelectedField := ClientDataSetSaleID;

 

Could TUniDBGrid to do it? How to?

[Can not install uniGUI15Chartdcl.bpl]

My Teechart version is 2010 Pro.

When I want to install uniGUI15Chartdcl.bpl.

I get the Error message: Not found Tee9150.bpl...

 

UniGui not support Teechart Pro?

 

p.s.:UniGui can install teechart in Standard(DelphiXE).

[Not Found Excel.Application]

No, it is normal. Just make sure you have an Excel installed on the server where you suppose to run your unigui application.

I've made a demo for you, it works fine on my Win7x64 with Office 2003 (I hate ribbon interface).

 

Yes!

You are right!

 

This test project can running in my PC! Very nice!!!

 

Just because "ServerModule.AutoCoInitialize = True"?

 

I will try it! Thank you!

[Not Found Excel.Application]

My original workflow (Win32):

1. Client open excel file.

2. Import the excel file to database(dbx).

3. over.

 

I want convert the project to Unigui.

My Unigui workflow:

1. Client upload Excel file to Server.

2. Server will prcess excel import to Database(dbx);

3. Delete the Excel file in Server

 

Below my simple code:

 

procedure TfmMain.UniFileUpload1Completed(Sender: TObject;

AStream: TFileStream);

var

DestName : string;

DestFolder : string;

begin

DestFolder:=UniServerModule.StartPath+'UploadFolder\';

DestName:=DestFolder+ExtractFileName(UniFileUpload1.FileName);

CopyFile(PChar(AStream.FileName), PChar(DestName), False);

edtFilePath.Text := DestFolder + UniFileUpload1.FileName;

end;

 

procedure TfmMain.UniBtnFileUpload(Sender:TObject);

begin

UniFileUpload1.Filter := 'Excel files (*.xls)|*.xls';

UniFileUpload1.Execute;

end;

 

procedure TfmMain.UniBtnFileProcessClick(Sender: TObject);

var

MsExcel, MsExcelWorkBook, MsExcelWorkSheet: Variant;

begin

try

MsExcel := CreateOleObject('Excel.Application');

except

ShowMessage('Not Found Excel');

Exit;

end;

 

MsExcelWorkBook := msExcel.Workbooks.Open(edtFilePath.Text,0,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,

EmptyParam,EmptyParam,EmptyParam,1,0);

MsExcelWorkSheet := MsExcelWorkBook.WorkSheets[5];

ProcedureExcel(MsExcelWorkSheet);

end;

 

>>You can embebbed Excel into your application...

I try embebbed Excel(NativeExcel) in my project.

But, it don't work.

 

My workflow is abnormal?

 

Please, Help me! Thank you!

[Not Found Excel.Application]

My sample code in TUniButton.OnClick:

var ExcelApp: Variant;

try

ExcelApp := CreateOleObject('Excel.Application');

except

ShowMessage('Not Found Excel!');

end;

 

I have install Excel in my PC.

But, always show except in Run-Time. Why?