lbda1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit lbda1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, Db, DBTables, Menus, ExtCtrls, ADODB,
  ImgList, dxPSCore, dxPSTVLnk, dxCntner, dxTL, dxDBCtrl, dxDBTL,
  dxPSdxTLLnk, dxPSdxDBCtrlLnk, dxPSdxDBTLLnk;

type
  Tlbda = class(TForm)
    Panel1: TPanel;
    dxComponentPrinter1: TdxComponentPrinter;
    DataSource1: TDataSource;
    Table1: TADOTable;
    Table1lbid: TIntegerField;
    Table1lbname: TStringField;
    Table1sjlbid: TIntegerField;
    dxComponentPrinter1Link1: TdxDBTreeListReportLink;
    dxDBTreeList1: TdxDBTreeList;
    dxDBTreeListMaskColumn1: TdxDBTreeListMaskColumn;
    dxDBTreeListMaskColumn2: TdxDBTreeListMaskColumn;
    dxDBTreeListMaskColumn3: TdxDBTreeListMaskColumn;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    procedure N2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure dxDBTreeList1GetStateIndex(Sender: TObject;
      Node: TdxTreeListNode; var Index: Integer);
    procedure Table1NewRecord(DataSet: TDataSet);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    FParentValue: Variant;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lbda: Tlbda;

implementation

uses MainForm1;

{$R *.DFM}

procedure Tlbda.N2Click(Sender: TObject);
begin
  if Table1lbid.IsNull then exit;
  if Table1lbid.Value = 1 then exit;
  if Application.MessageBox(PCHAR('是否要删除类别：' + Table1.FieldByName('lbname').asstring + ' ?'), '提示', MB_YESNO + MB_ICONQUESTION) = IDNO then exit;
  dxDBTreeList1.OptionsBehavior := [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDragExpand, etoDragScroll, etoEditing, etoEnterShowEditor, etoMultiSelect, etoTabThrough];
  with dxDBTreeList1 do
    if SelectedCount > 0 then
    try
      DeleteSelection;
    except
      Application.MessageBox('某些档案正在使用中,不能删除.', '提示', MB_OK + MB_ICONWARNING);
    end;
  dxDBTreeList1.OptionsBehavior := [etoAutoDragDrop, etoAutoDragDropCopy, etoAutoSort, etoDragExpand, etoDragScroll, etoEditing, etoEnterShowEditor, etoTabThrough];
end;

procedure Tlbda.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Table1.edit;
  Table1.post;
  action := cafree;
end;

procedure Tlbda.BitBtn4Click(Sender: TObject);
begin
  dxComponentPrinter1.Preview(true, nil);
end;

procedure Tlbda.BitBtn3Click(Sender: TObject);
begin
  if Table1lbid.IsNull then exit;
  FParentValue := TdxDBTreeListNode(dxDBTreeList1.FocusedNode).ID;
  Table1.Insert;
  dxDBTreeList1.ShowEditor;
end;

procedure Tlbda.BitBtn1Click(Sender: TObject);
begin
  if Table1sjlbid.IsNull then
    FParentValue := Null
  else FParentValue := Table1sjlbid.Value;
  Table1.Insert;
  dxDBTreeList1.ShowEditor;
end;

procedure Tlbda.dxDBTreeList1GetStateIndex(Sender: TObject;
  Node: TdxTreeListNode; var Index: Integer);
begin
  if Node.Expanded then
    Index := 1
  else Index := 0;
end;

procedure Tlbda.Table1NewRecord(DataSet: TDataSet);
begin
  DataSet.FieldByName('sjlbid').Value := FParentValue;
end;

procedure Tlbda.FormCreate(Sender: TObject);
begin
  dxDBTreeList1.FullExpand;
end;

procedure Tlbda.BitBtn5Click(Sender: TObject);
begin
  close;
end;

end.