baseformtype.pas

这是一个实用的软件

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

interface

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

type
  Tfbaseformtype = class(Tfbaseform)
    ToolBar1: TToolBar;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    SpeedButton10: TSpeedButton;
    Label1: TLabel;
    lbl1: TLabel;
    Qbaseinfo: TADOQuery;
    baseSource: TDataSource;
    Label2: TLabel;
    dxDBGrid: TdxDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBMemo1: TDBMemo;
    ActionList: TActionList;
    ImageList1: TImageList;
    actpirot1: TAction;
    actnext: TAction;
    actadd: TAction;
    actdel: TAction;
    actedit: TAction;
    actquit: TAction;
    actexcel: TAction;
    actsave: TAction;
    actfind: TAction;
    actprerice: TAction;
    SpeedButton4: TSpeedButton;
    SpeedButton6: 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 actprericeExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure actexcelExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fbaseformtype: Tfbaseformtype;

implementation

uses dataform;

{$R *.dfm}

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

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

procedure Tfbaseformtype.actaddExecute(Sender: TObject);
begin
PageControl1.TabIndex:=0;
  inherited;
  //添加记录
TabSheet1.Enabled:=True;
Qbaseinfo.Append;
SpeedButton5.Enabled:=False;
SpeedButton3.Enabled:=False;
SpeedButton8.Enabled:=True;
SpeedButton4.Enabled:=True;
DBEdit1.SetFocus;
end; 
procedure Tfbaseformtype.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 Tfbaseformtype.acteditExecute(Sender: TObject);
begin
  inherited;
if not (Qbaseinfo.State in [dsedit,dsinsert]) and (Qbaseinfo.RecordCount>0)then
  begin
   TabSheet1.Enabled:=True;
   Qbaseinfo.Edit;
   SpeedButton5.Enabled:=False;
   SpeedButton3.Enabled:=False;
   SpeedButton8.Enabled:=True;
   SpeedButton4.Enabled:=True;
   DBEdit1.SetFocus;
  end;
end;

procedure Tfbaseformtype.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 Tfbaseformtype.actsaveExecute(Sender: TObject);
begin
  inherited;
  //保存
if Qbaseinfo.State in [dsedit,dsinsert] then
   begin      
   Qbaseinfo.Post;
   TabSheet1.Enabled:=False;
   SpeedButton5.Enabled:=True;
   SpeedButton3.Enabled:=True;
   SpeedButton8.Enabled:=False;
   SpeedButton4.Enabled:=False; 
   end;
   
end;

procedure Tfbaseformtype.actprericeExecute(Sender: TObject);
begin
  inherited;
  //取消
if MessageBox(0, '真的要取消吗？', '提示', MB_OKCANCEL + MB_ICONINFORMATION + 
  MB_TOPMOST) = IDOK then
begin
Qbaseinfo.Cancel;
 TabSheet1.Enabled:=False;
SpeedButton5.Enabled:=True;
SpeedButton3.Enabled:=True;
SpeedButton8.Enabled:=False;
SpeedButton4.Enabled:=False;
end;
end; 

procedure Tfbaseformtype.FormCreate(Sender: TObject);
begin
  inherited;
SpeedButton8.Enabled:=False;
end;

procedure Tfbaseformtype.actexcelExecute(Sender: TObject);
begin
  inherited;
//导出
  fdata.dlgSave.Filter := 'Microsoft Excel Workbook (*.xls)|*.XLS|xml(*.xml)|*.xml|HTML file (*.htm)|*.HTM';
  fdata.dlgSave.DefaultExt:='xls';
  fdata.dlgSave.FileName := 'Outfile';
  if fdata.dlgSave.Execute then
    begin
      case fdata.dlgSave.FilterIndex of
        1: dxDBGrid.SaveToxls(fdata.dlgSave.FileName,True);
        2: dxDBGrid.SaveToXML(fdata.dlgSave.FileName,true);
        3: dxDBGrid.SaveToHTML(fdata.dlgSave.FileName,true);
      end;
    end;

end;

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

end.