1,183
社区成员
发帖
与我相关
我的任务
分享
procedure TMainForm.FormCreate(Sender: TObject);
var
OLEObj:Variant;
i,nCmdBarCount:integer;
begin
Login:=TLogin.Create(Application);
if Login.ShowModal=MROK then begin
end;
// 显示Excel ====================================================================
xlsname:= ExtractFilePath(Application.Exename) + '2016年度现场请假单.xlsx' ;
olcntnr1.CreateObjectFromFile(xlsname,false);
OLEObj:=olcntnr1.OleObject;
// 隐藏工具栏
nCmdBarCount := OLEObj.CommandBars.Count;
for I := 0 to nCmdBarCount - 1 do
begin
OLEObj.CommandBars[i+1].Enabled := false;
end;
end;