工作遇到一个需求，主表、明细表需要用看板的模式显示，主表显示内容，从表显示表明细，如下图所示，需要每个表右键菜单独立选择当前明细内容
Pas程序
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms,
Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls, Data.DB, Data.Win.ADODB, Vcl.ComCtrls, Vcl.Menus; type TForm1 = class(TForm) FlowPanel1: TFlowPanel; toppanel: TPanel; Button1: TButton; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; PopupMenu1: TPopupMenu; N11111: TMenuItem; N1: TMenuItem; ScrollBox1: TScrollBox; procedure Button1Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure ListViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure N11111Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); private { Private declarations } var panel: array of TPanel; //动态创建Panel lb: array of TLabel; //动态创建Label lv: array of TListView; //动态创建ListView ListView: TListView; //当前选中ListView count: Integer; //动态创建控件总数 public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var I: Integer; begin //查询所有区域 with ADOQuery1 do begin Close; SQL.Clear; SQL.Add('SELECT r.RegionID, r.RegionDescription FROM Region AS r WITH(NOLOCK)'); Open; end; if ADOQuery1.RecordCount > 0 then begin //设置数组大小 SetLength(panel, ADOQuery1.RecordCount); SetLength(lb, 4); SetLength(lv, ADOQuery1.RecordCount); //创建控件总数 count := ADOQuery1.RecordCount - 1; //拖动竖向滚动条内容跟随滚动 ScrollBox1.VertScrollBar.Tracking := True; //定位查询到第一条记录 ADOQuery1.First; for I := 0 to ADOQuery1.RecordCount - 1 do begin //动态创建Panel panel[I] := TPanel.Create(Self); panel[I].Name := 'pan' + IntToStr(I); panel[I].Width := 200; panel[I].Height := 180; panel[I].AlignWithMargins := True; panel[I].Margins.Top := 5; panel[I].Margins.Left := 5; panel[I].Margins.Right := 5; panel[I].Margins.Bottom := 5; panel[I].ShowCaption := False; panel[I].Parent := FlowPanel1; //动态创建Label lb[I] := TLabel.Create(Self); lb[I].Caption := '区域编号:'; lb[I].Left := 10; lb[I].Top := 10; lb[I].Parent := panel[I]; lb[I] := TLabel.Create(Self); lb[I].Name := 'bh' + IntToStr(I); lb[I].Caption := ADOQuery1.FieldByName('RegionID').AsString; lb[I].Left := 80; lb[I].Top := 10; lb[I].Parent := panel[I]; lb[I] := TLabel.Create(Self); lb[I].Caption := '区域名称:'; lb[I].Left := 10; lb[I].Top := 30; lb[I].Parent := panel[I]; lb[I] := TLabel.Create(Self); lb[I].Name := 'mc' + IntToStr(I); lb[I].Caption := ADOQuery1.FieldByName('RegionDescription').AsString; lb[I].Left := 80; lb[I].Top := 30; lb[I].Parent := panel[I]; //动态创建Listview lv[I] := TListView.Create(Self); lv[I].ViewStyle := vsReport; //设置显示模式 lv[I].RowSelect := True; //行选中 lv[I].GridLines := True; //表格线 lv[I].DoubleBuffered := True; //不设置ListView滚动时会煽动 lv[I].Name := 'tv' + IntToStr(I); lv[I].Top := 50; lv[I].Height := panel[I].Height - 50; lv[I].Width := panel[I].Width; lv[I].Parent := panel[I]; //创建ListView列 with lv[I].Columns.Add do begin Caption := '编号'; Width := 50; end; with lv[I].Columns.Add do begin Caption := '名称'; Width := 120; end; //根据查询添加内容 lv[I].Items.BeginUpdate; with ADOQuery2 do begin Close; SQL.Clear; SQL.Add('SELECT t.TerritoryID, t.TerritoryDescription FROM Territories AS t WITH(NOLOCK) '); SQL.Add('WHERE t.RegionID=:RegionID'); Parameters.ParamByName('RegionID').Value := ADOQuery1.FieldByName('RegionID').AsString; Open; end; if ADOQuery2.RecordCount > 0 then begin ADOQuery2.First; while not ADOQuery2.Eof do begin with lv[I].Items.Add do begin Caption := ADOQuery2.FieldByName('TerritoryID').AsString; SubItems.Add(ADOQuery2.FieldByName('TerritoryDescription').AsString); end; ADOQuery2.Next; end; end; lv[I].Items.EndUpdate; //绑定鼠标点击事件,取当前点击ListView lv[I].OnMouseDown := ListViewMouseDown; //增加右键菜单 lv[I].PopupMenu := PopupMenu1; ADOQuery1.Next; end; end; end; procedure TForm1.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean); begin //窗体更改大小重新设置FlowPanel宽度,不设置FlowPanel不会动态调整 FlowPanel1.width := Self.clientwidth end; //关闭释放动态创建 procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var i: Integer; begin if count > 0 then begin for i := 0 to count do begin lv[i].Free; lb[i].Free; panel[i].Free; end; end; end; //当前选中ListView procedure TForm1.ListViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin ListView := (Sender as TListView); end; //获取全部内容 procedure TForm1.N11111Click(Sender: TObject); var str: string; I: Integer; begin if ListView = nil then Exit; if ListView.Items.Count < 0 then Exit; if ListView.Selected = nil then Exit; for I := 0 to ListView.Items.Count - 1 do begin str := str + ListView.Items[I].Caption + '-' + ListView.Items[I].SubItems[0] + #13; end; ShowMessage(str); end; //当前选中 procedure TForm1.N1Click(Sender: TObject); var str: string; id: string; begin if ListView = nil then Exit; if ListView.Items.Count < 0 then Exit; if ListView.Selected = nil then Exit; id := StringReplace(ListView.Name, 'tv', '', [rfReplaceAll]); str := lb[StrToInt(id)].Caption; str := str + ':' + ListView.Selected.Caption + '-' + ListView.Selected.SubItems[0]; ShowMessage(str); end; end.
当前选中
查询所有
