Jump to content

gywlx

Members
  • Posts

    26
  • Joined

  • Last visited

  • Days Won

    2

Everything posted by gywlx

  1. procedure TMainAreaForm.NavTreeViewClick(Sender: TObject); var s, sn, strSheetName:string; uts:TUniTabSheet; I: Integer; begin s := NavTreeView.Selected.Text; if s='主界面' then sn := 'Main' else if s='考勤登记' then sn := 'WorkRecord' else if s='销售分析' then sn := 'SaleTotal' else if s='注销离开' then begin UniApplication.Terminate; exit; end else sn := 'Main'; strSheetName := sn+'Sheet'; for I := 0 to NavPage.PageCount - 1 do begin uts := NavPage.Pages[i]; if uts.Name=strSheetName then begin NavPage.ActivePage := uts; NavPageChange(NavPage); exit; end; end; uts := TUniTabSheet.Create( NavPage ); uts.Caption := s; uts.Name := strSheetName; uts.PageControl := NavPage; NavPage.ActivePage := uts; NavPageChange(NavPage); InsertFrame(NavPage.ActivePage, sn); end; procedure TMainAreaForm.btnCloseSheetClick(Sender: TObject); var I: Integer; begin NavPage.ActivePage.Free; if NavPage.ActivePage=MainSheet then btnDelSheet.Visible := False; for I := 0 to NavTreeView.Items.Count - 1 do if NavTreeView.Items.Item[i].Text=NavPage.ActivePage.Caption then begin NavTreeView.Items.Item[i].Selected := True; Break; end; end;
  2. 1. TreeView,DBGrid increase the checkbox property, increase checklistbox 2. Roadmap to achieve 3. ExtJS Library upgraded to the latest
  3. two problems 1. Sort only on the current page 2. Clicks after the changes after the SQL query, the sort failure
  4. Ask a question, do not know how unigui concurrency, what is the maximum number of online? Publish into whether effects of exe and dll?
  5. The following code is not a bug procedure TuSaleTotalFrame.UniButton2Click(Sender: TObject); var Series1:TUniBarSeries; begin UniChart1.Title.Text.Text := '测试数据11'; Series1 := TUniBarSeries.Create(UniChart1); Series1.Clear; Series1.Add(200, '1'); Series1.Add(210, '2'); Series1.Add(220, '3'); Series1.Add(190, '4'); Series1.Add(280, '5'); end; uniChart How to load dynamically?
×
×
  • Create New...