码迷，mamicode.com
首页 > Windows程序 > 详细

Delphi实现ERP单据列表栏目设置

时间：2016-03-22 06:29:58      阅读：422      评论：0      收藏：0      [点我收藏+]

标签：

什么都不用说了，ERP你懂的。一张报表，不同的客户都可以调死你。直接上图

技术分享 

通过这个设置界面，直接生成参数调整报表所用的DBGridEh。对，是DBGridEh，不是DBGrid,也不是CXGrid。

然后再将这些参数生成一个JSON，保存到数据库。下次打开，直接取这个JSON就可以了。这样，客户可以根据自己的需要调整自己的报表。

unit uGridDes;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,DbGridEh, DBGridEhGrouping, ToolCtrlsEh,
  DBGridEhToolCtrls, DynVarsEh, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Param, FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf,
  FireDAC.DApt.Intf, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client,
  EhLibVCL, GridsEh, DBAxisGridsEh,QJson, Vcl.ComCtrls, Vcl.ToolWin;

type
  RGridIndex=record
    cFileName:String;
    cTitle:String;
    cDefTitle:String;
    iWidth:Integer;
    bVisible:Boolean;
  end;
  TFrmGridDes = class(TForm)
    FDMem: TFDMemTable;
    DataSource1: TDataSource;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    StatusBar1: TStatusBar;
    DBGridEh1: TDBGridEh;
    procedure FormShow(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure DBGridEh1CellClick(Column: TColumnEh);
    procedure ToolButton4Click(Sender: TObject);
  private
  //  function JsonLoadGrid: TQJson;
    { Private declarations }
  public
    FDBGridEh:TDBGridEh;
    FJson:TQJson;
    function UPDateJson:TQJson;
    function GetJsonFromGrid:TQJson;
    function UPDateGrid:Boolean;
    Function TryParsetojson(Text:String):Boolean;
  class Function SetGridasJson(FDBGrid:TDBGridEh;Ajson:TQjson):TQJson;
    { Public declarations }
  end;

var
  FrmGridDes: TFrmGridDes;

implementation

{$R *.dfm}

procedure TFrmGridDes.DBGridEh1CellClick(Column: TColumnEh);
begin
// if  then
  if DBGridEh1.ReadOnly=False  And (Column.FieldName<>‘cFieldName‘) then
    DBGridEh1.EditorMode:=True;

end;

procedure TFrmGridDes.FormCreate(Sender: TObject);
begin
  FJson:=TQJson.Create;
  FDMem.CreateDataSet;
end;

procedure TFrmGridDes.FormShow(Sender: TObject);
var
  I:integer;
begin

  Self.Left:=(Screen.Width-Self.Width) div 2;
  Self.Top:=(Screen.Height-Self.Height)div 2;
  DBGridEh1.ReadOnly:=True;
  DBGridEh1.Options:=DBGridEh1.Options-[dgEditing]+[dgRowSelect];
  FDMem.Close;
  FDMem.CreateDataSet;
//  if FJson.Count=0 then

     for I := 0 to FDBGridEh.Columns.Count-1 do
        FDMem.AppendRecord([I,FDBGridEh.Columns[i].FieldName,FDBGridEh.Columns[i].Title.Caption,
        FDBGridEh.Columns[i].Title.Caption,FDBGridEh.Columns[i].Width,FDBGridEh.Columns[i].Visible]);

   FDMem.First;


end;

function TFrmGridDes.GetJsonFromGrid: TQJson;
Var
  I:integer;
begin
  Result:=nil;
  FDMem.DisableControls;
  FDMem.Table.Clear;
   for I := 0 to FDBGridEh.Columns.Count-1 do
      FDMem.AppendRecord([I,FDBGridEh.Columns[i].FieldName,FDBGridEh.Columns[i].Title.Caption,
      FDBGridEh.Columns[i].Title.Caption,FDBGridEh.Columns[i].Width,FDBGridEh.Columns[i].Visible]);
   UPDateJson;
   FDMem.First;
   FDMem.EnableControls;
   Result:=Fjson;
end;



function TFrmGridDes.UPDateGrid:Boolean;
Var
  ItemJson:TQJson;
  I:integer;
begin
  Result:=False;
  if Fjson.Count=0 then Exit;

  Try

  for I := 0 to FJson.Count-1 do
      begin
       ItemJson:=FJson.ItemByName(IntToStr(I));
       With FDBGridEh.Columns[i] do// else
         begin
           if  FieldName<>ItemJson.ValueByName(‘cFieldName‘,‘‘) then
             FieldName:=ItemJson.ValueByName(‘cFieldName‘,‘‘);
           if Width<>StrTOInt(ItemJson.ValueByName(‘iWidth‘,‘64‘)) then
             Width:=StrTOInt(ItemJson.ValueByName(‘iWidth‘,‘64‘));
           if Title.Caption<>ItemJson.ValueByName(‘cDefTitle‘,‘1‘) then
             Title.Caption:=ItemJson.ValueByName(‘cDefTitle‘,‘1‘);
           if Visible<>StrToBool(ItemJson.ValueByName(‘bVisible‘,‘2‘)) then
             Visible:=StrToBool(ItemJson.ValueByName(‘bVisible‘,‘2‘));
         end;
//         ItemJson.Free;
      end;
  except
    Exit(False);
  End;

   Result:=True;

end;

function TFrmGridDes.UPDateJson: TQJson;
Var
  ItemJson:TQJson;
  str:string;
begin
 FJson.Clear;
 FDMem.DisableControls;
 FDMem.First;
 while Not FDMem.Eof do
   begin
     ItemJson:=TQJson.Create;
     for Str in FDMem.FieldList do
       ItemJson.Add(Str,FDMem.FieldByName(Str).AsString);
     FJson.Add(IntToStr(FDMem.FieldByName(‘iRow‘).AsInteger),ItemJson);
     FDMem.Next;
   end;
 FDMem.First;
 FDMem.EnableControls;
 Result:=FJson;
end;

class function TFrmGridDes.SetGridasJson(FDBGrid: TDBGridEh;
  Ajson: TQjson): TQJson;
begin
  if FrmGridDes=nil then
   FrmGridDes:=TFrmGridDes.Create(nil);
   FrmGridDes.FDBGridEh:=FDBGrid;

     FrmGridDes.UPDateGrid;
   FrmGridDes.ShowModal;
   FrmGridDes.UPDateGrid;
   Result:=TQJson.Create;
   Result.Assign(FrmGridDes.fJson);

end;

procedure TFrmGridDes.ToolButton1Click(Sender: TObject);
begin

 DBGridEh1.ReadOnly:=False;
 DBGridEh1.Options:=DBGridEh1.Options+[dgediting]-[dgRowSelect];
 ToolButton2.Enabled:=True;
 ToolButton1.Enabled:=False;
 ToolButton5.Enabled:=True;
 ToolButton6.Enabled:=True;
 ToolButton4.Enabled:=True;
end;

procedure TFrmGridDes.ToolButton2Click(Sender: TObject);
begin
 FDMem.Edit;
 FDMem.Post;
 DBGridEh1.ReadOnly:=True;
 UPDateJson;
 DBGridEh1.Options:=DBGridEh1.Options-[dgediting]+[dgRowSelect];
 ToolButton1.Enabled:=True;
 ToolButton2.Enabled:=False;
  ToolButton4.Enabled:=False;
  ToolButton5.Enabled:=False;
 ToolButton6.Enabled:=False;
end;

procedure TFrmGridDes.ToolButton3Click(Sender: TObject);
begin
 if ToolButton2.Enabled then
    begin
      ShowMessage(‘栏目设置未保存，不能退出‘);
      Exit;
    end;

 Close;
end;

procedure TFrmGridDes.ToolButton4Click(Sender: TObject);
begin
 FDMem.Edit;
 FDMem.Post;
 DBGridEh1.ReadOnly:=True;
 GetJsonFromGrid;
 DBGridEh1.Options:=DBGridEh1.Options-[dgediting]+[dgRowSelect];
 ToolButton1.Enabled:=True;
 ToolButton2.Enabled:=False;
 ToolButton4.Enabled:=False;
 ToolButton5.Enabled:=False;
 ToolButton6.Enabled:=False;
end;

procedure TFrmGridDes.ToolButton5Click(Sender: TObject);

Var
  R1,R2:RGridIndex;
begin
  if FDMem.Bof then exit;

  FDMem.DisableControls;
  R1.cFileName:=FDMem.FieldByName(‘cFieldName‘).AsString;
  R1.cTitle:=FDMem.FieldByName(‘cTitle‘).AsString;
  R1.cDefTitle:=FDMem.FieldByName(‘cDefTitle‘).AsString;
  R1.iWidth:=FDMem.FieldByName(‘iWidth‘).AsInteger;
  R1.bVisible:=FDMem.FieldByName(‘bVisible‘).AsBoolean;

  FDMem.Prior;

  R2.cFileName:=FDMem.FieldByName(‘cFieldName‘).AsString;
  R2.cTitle:=FDMem.FieldByName(‘cTitle‘).AsString;
  R2.cDefTitle:=FDMem.FieldByName(‘cDefTitle‘).AsString;
  R2.iWidth:=FDMem.FieldByName(‘iWidth‘).AsInteger;
  R2.bVisible:=FDMem.FieldByName(‘bVisible‘).AsBoolean;
  FDMem.Edit;
  FDMem.FieldByName(‘cFieldName‘).AsString:=R1.cFileName;
  FDMem.FieldByName(‘ctitle‘).AsString:=R1.cTitle;
  FDMem.FieldByName(‘cDeftitle‘).AsString:=R1.cDefTitle;
  FDMem.FieldByName(‘iWidth‘).AsInteger:=r1.iWidth;
  FDMem.FieldByName(‘bVisible‘).AsBoolean:=R1.bVisible;
  FDMem.Next;
  FDMem.Edit;
  FDMem.FieldByName(‘cFieldName‘).AsString:=R2.cFileName;
  FDMem.FieldByName(‘ctitle‘).AsString:=R2.cTitle;
  FDMem.FieldByName(‘cDeftitle‘).AsString:=R2.cDefTitle;
  FDMem.FieldByName(‘iWidth‘).AsInteger:=r2.iWidth;
  FDMem.FieldByName(‘bVisible‘).AsBoolean:=R2.bVisible;
  FDMem.Prior;
  FDMem.EnableControls;

end;

procedure TFrmGridDes.ToolButton6Click(Sender: TObject);
Var
  R1,R2:RGridIndex;
begin
 if FDMem.Eof then Exit;

  FDMem.DisableControls;
  R1.cFileName:=FDMem.FieldByName(‘cFieldName‘).AsString;
  R1.cTitle:=FDMem.FieldByName(‘cTitle‘).AsString;
  R1.cDefTitle:=FDMem.FieldByName(‘cDefTitle‘).AsString;
  R1.iWidth:=FDMem.FieldByName(‘iWidth‘).AsInteger;
  R1.bVisible:=FDMem.FieldByName(‘bVisible‘).AsBoolean;

  FDMem.Next;

  R2.cFileName:=FDMem.FieldByName(‘cFieldName‘).AsString;
  R2.cTitle:=FDMem.FieldByName(‘cTitle‘).AsString;
  R2.cDefTitle:=FDMem.FieldByName(‘cDefTitle‘).AsString;
  R2.iWidth:=FDMem.FieldByName(‘iWidth‘).AsInteger;
  R2.bVisible:=FDMem.FieldByName(‘bVisible‘).AsBoolean;
  FDMem.Edit;
  FDMem.FieldByName(‘cFieldName‘).AsString:=R1.cFileName;
  FDMem.FieldByName(‘ctitle‘).AsString:=R1.cTitle;
  FDMem.FieldByName(‘cDeftitle‘).AsString:=R1.cDefTitle;
  FDMem.FieldByName(‘iWidth‘).AsInteger:=r1.iWidth;
  FDMem.FieldByName(‘bVisible‘).AsBoolean:=R1.bVisible;
  FDMem.Prior;
  FDMem.Edit;
  FDMem.FieldByName(‘cFieldName‘).AsString:=R2.cFileName;
  FDMem.FieldByName(‘ctitle‘).AsString:=R2.cTitle;
  FDMem.FieldByName(‘cDeftitle‘).AsString:=R2.cDefTitle;
  FDMem.FieldByName(‘iWidth‘).AsInteger:=r2.iWidth;
  FDMem.FieldByName(‘bVisible‘).AsBoolean:=R2.bVisible;
  FDMem.Next;
  FDMem.EnableControls;

end;

function TFrmGridDes.TryParsetojson(Text: String): Boolean;
begin
  Result:=FJson.TryParse(Text);
end;

end.

 

object FrmGridDes: TFrmGridDes
  Left = 0
  Top = 0
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = #35774#32622
  ClientHeight = 416
  ClientWidth = 425
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = ‘Tahoma‘
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 425
    Height = 26
    ButtonWidth = 31
    Caption = ‘ToolBar1‘
    DrawingStyle = dsGradient
    EdgeBorders = [ebLeft, ebTop, ebRight]
    EdgeInner = esNone
    EdgeOuter = esNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = ‘Tahoma‘
    Font.Style = []
    ParentFont = False
    ShowCaptions = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Caption = #20462#25913
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton5: TToolButton
      Left = 31
      Top = 0
      Caption = #21521#19978
      Enabled = False
      ImageIndex = 3
      OnClick = ToolButton5Click
    end
    object ToolButton6: TToolButton
      Left = 62
      Top = 0
      Caption = #21521#19979
      Enabled = False
      ImageIndex = 3
      OnClick = ToolButton6Click
    end
    object ToolButton2: TToolButton
      Left = 93
      Top = 0
      Caption = #20445#23384
      Enabled = False
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton4: TToolButton
      Left = 124
      Top = 0
      Caption = #25918#24323
      Enabled = False
      ImageIndex = 3
      OnClick = ToolButton4Click
    end
    object ToolButton3: TToolButton
      Left = 155
      Top = 0
      Caption = #36864#20986
      ImageIndex = 2
      OnClick = ToolButton3Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 397
    Width = 425
    Height = 19
    Panels = <
      item
        Text = #26639#30446#33258#23450#20041#35774#32622
        Width = 50
      end>
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 26
    Width = 425
    Height = 371
    Align = alClient
    Color = 13816530
    ColumnDefValues.Title.Alignment = taCenter
    ColumnDefValues.Title.Color = clBtnShadow
    DataGrouping.Color = clWindow
    DataGrouping.ParentColor = False
    DataSource = DataSource1
    DynProps = <>
    EvenRowColor = clScrollBar
    GridLineParams.DataHorzLines = True
    GridLineParams.DataVertLines = False
    IndicatorOptions = [gioShowRowIndicatorEh]
    BackgroundData.Visible = True
    OddRowColor = clGradientActiveCaption
    RowHeight = 23
    RowPanel.Active = True
    STFilter.Color = clActiveBorder
    TabOrder = 2
    TitleParams.Font.Charset = DEFAULT_CHARSET
    TitleParams.Font.Color = clWindowText
    TitleParams.Font.Height = 15
    TitleParams.Font.Name = ‘Tahoma‘
    TitleParams.Font.Style = [fsBold]
    TitleParams.ParentFont = False
    OnCellClick = DBGridEh1CellClick
    Columns = <
      item
        Color = 11776947
        DynProps = <>
        EditButtons = <>
        FieldName = ‘cFieldName‘
        Footers = <>
        ReadOnly = True
        TextEditing = False
        Title.Caption = #23383#27573
        Title.Color = clGradientInactiveCaption
        Width = 113
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = ‘cTitle‘
        Footers = <>
        ReadOnly = True
        Title.Caption = #26631#39064
        Visible = False
        Width = 126
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = ‘cDefTitle‘
        Footers = <>
        Title.Caption = #33258#23450#20041#26631#39064
        Width = 143
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = ‘iWidth‘
        Footers = <>
        Title.Caption = #23485#24230
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = ‘bVisible‘
        Footers = <>
        Title.Caption = #26174#31034
        Width = 53
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = ‘iRow‘
        Footers = <>
        Visible = False
      end>
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object FDMem: TFDMemTable
    FieldDefs = <
      item
        Name = ‘iRow‘
        DataType = ftInteger
      end
      item
        Name = ‘cFieldName‘
        DataType = ftString
        Size = 20
      end
      item
        Name = ‘cTitle‘
        DataType = ftString
        Size = 50
      end
      item
        Name = ‘cDefTitle‘
        DataType = ftString
        Size = 50
      end
      item
        Name = ‘iWidth‘
        DataType = ftFloat
      end
      item
        Name = ‘bVisible‘
        DataType = ftBoolean
      end>
    IndexDefs = <>
    FetchOptions.AssignedValues = [evMode]
    FetchOptions.Mode = fmAll
    ResourceOptions.AssignedValues = [rvSilentMode]
    ResourceOptions.SilentMode = True
    UpdateOptions.AssignedValues = [uvCheckRequired, uvAutoCommitUpdates]
    UpdateOptions.CheckRequired = False
    UpdateOptions.AutoCommitUpdates = True
    StoreDefs = True
    Left = 152
    Top = 144
  end
  object DataSource1: TDataSource
    DataSet = FDMem
    Left = 288
    Top = 176
  end
end

 

Delphi实现ERP单据列表栏目设置

标签：

原文地址：http://www.cnblogs.com/wuxi15/p/5304550.html
踩
(0)
赞
(0)
   
举报
评论 一句话评论（0）
登录后才能评论！
分享档案
更多>
2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)
周排行
mamicode.com排行更多图片
更多
友情链接
兰亭集智   国之画   百度统计   站长统计   阿里云   chrome插件   新版天听网
关于我们 - 联系我们 - 留言反馈
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码！