baseformtree.pas

这是一个实用的软件

//********************************//
//  模块:树型类窗                 //
//  设计：杨凌      2005.06.20    //
//                                //
//********************************//
unit baseformtree;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, baseform, ToolWin, ComCtrls, Buttons, dxExEdtr, dxEdLib,
  dxDBELib, dxCntner, dxEditor, StdCtrls, dxTL, DB, ADODB, dxDBCtrl, dxDBTL,
  DBCtrls, Mask, ActnList, ImgList;

type
  Tfbaseformtree = class(Tfbaseform)
    ToolBar1: TToolBar;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    Label1: TLabel;
    lbl1: TLabel;
    lbl2: TLabel;
    Qbaseinfo: TADOQuery;
    DataSource: TDataSource;
    dxDBTreeList1: TdxDBTreeList;
    dxDBTreeList1Column1: TdxDBTreeListColumn;
    dxDBTreeList1Column2: TdxDBTreeListColumn;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBMemo1: TDBMemo;
    ImageList1: TImageList;
    ActionList: TActionList;
    actpirot1: TAction;
    actnext: TAction;
    actadd: TAction;
    actdel: TAction;
    actedit: TAction;
    actquit: TAction;
    actexcel: TAction;
    actsave: TAction;
    actfind: TAction;
    SpeedButton5: TSpeedButton;
    actrepri: TAction;
    btn1: TSpeedButton;
    SpeedButton1: TSpeedButton;
    procedure actpirot1Execute(Sender: TObject);
    procedure actnextExecute(Sender: TObject);
    procedure actaddExecute(Sender: TObject);
    procedure actdelExecute(Sender: TObject);
    procedure acteditExecute(Sender: TObject);
    procedure actquitExecute(Sender: TObject);
    procedure actsaveExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure actrepriExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fbaseformtree: Tfbaseformtree;

implementation

uses dataform;

{$R *.dfm}

procedure Tfbaseformtree.actpirot1Execute(Sender: TObject);
begin
  inherited;
Qbaseinfo.Prior;
end;

procedure Tfbaseformtree.actnextExecute(Sender: TObject);
begin
  inherited;
Qbaseinfo.Next;
end;

procedure Tfbaseformtree.actaddExecute(Sender: TObject);
var tempcode:string;
begin
inherited;
//QBaseInfo.Append;
tempcode:='';
    DBEdit1.Enabled:=True;
    DBEdit2.Enabled:=True;
    DBMemo1.Enabled:=True;
if Qbaseinfo.RecordCount=0 then
    begin
   //tempcode:=QBaseInfo.fieldbyname('fCode').AsString;
   QBaseInfo.Append;
   QBaseInfo.fieldbyname('fCode').asString :='00';
   QBaseInfo.fieldbyname('fatherCode').asString :='00';
   end
   else
   begin
   tempcode:=QBaseInfo.fieldbyname('fCode').AsString;
   QBaseInfo.Append;
   QBaseInfo.fieldbyname('fCode').asString :=tempcode;
   QBaseInfo.fieldbyname('fatherCode').asString :=tempcode;
   end;

SpeedButton7.Enabled:=False;
SpeedButton4.Enabled:=False;
SpeedButton10.Enabled:=True;
SpeedButton5.Enabled:=True;
DBEdit2.SetFocus;
end;


procedure Tfbaseformtree.actdelExecute(Sender: TObject);
begin
  inherited;
if (Qbaseinfo.RecordCount>0) then
if MessageBox(0, '确定删除这条记录？', '提示', MB_OKCANCEL + MB_ICONWARNING) =
  IDOK then
begin
Qbaseinfo.Delete;
end;

end;

procedure Tfbaseformtree.acteditExecute(Sender: TObject);
begin
  inherited;
if not (Qbaseinfo.State in [dsedit,dsinsert])and (Qbaseinfo.RecordCount>0) then
  begin
    DBEdit1.Enabled:=True;
    DBEdit2.Enabled:=True;
    DBMemo1.Enabled:=True;
   Qbaseinfo.Edit;
   SpeedButton7.Enabled:=False;
   SpeedButton4.Enabled:=False;
   SpeedButton10.Enabled:=True;
   SpeedButton5.Enabled:=True;
   DBEdit1.SetFocus;
  end;
end;

procedure Tfbaseformtree.actquitExecute(Sender: TObject);
begin
  inherited;
if Qbaseinfo.State in [dsedit,dsinsert] then
   begin
    if MessageBox(0, '数据尚未保存，确认退出？', '提示', MB_OKCANCEL +
     MB_ICONWARNING) = IDOK then
      begin
      Close;
      end
     else
      begin
      Exit;
      end;
   end
   else
   close;
end;


procedure Tfbaseformtree.actsaveExecute(Sender: TObject);
begin
  inherited;
if Qbaseinfo.State in [dsedit,dsinsert] then
   begin
    DBEdit1.Enabled:=False;
    DBEdit2.Enabled:=False;
    DBMemo1.Enabled:=False;
    Qbaseinfo.Post;
   SpeedButton7.Enabled:=True;
   SpeedButton4.Enabled:=True;
   SpeedButton10.Enabled:=False;
   SpeedButton5.Enabled:=False;
   end;
end;

procedure Tfbaseformtree.FormCreate(Sender: TObject);
begin
  inherited;
SpeedButton10.Enabled:=False;
end;

procedure Tfbaseformtree.actrepriExecute(Sender: TObject);
begin
  inherited;
if MessageBox(0, '真的要取消修改吗？', '提示', MB_OKCANCEL + MB_ICONQUESTION
    + MB_TOPMOST) = IDOK then
  begin
    DBEdit1.Enabled:=False;
    DBEdit2.Enabled:=False;
    DBMemo1.Enabled:=False;
   Qbaseinfo.Cancel;
   SpeedButton7.Enabled:=True;
   SpeedButton4.Enabled:=True;
   SpeedButton10.Enabled:=False;
   SpeedButton5.Enabled:=False;
  end;    
end;

procedure Tfbaseformtree.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
action:=caFree;
end;

end.