basemdform.pas

SunwayERP框架(支持Plugin)

unit BaseMDForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseForm, ComCtrls, ExtCtrls, ToolWin, DB, ADODB, ImgList;

type
  TfrmBaseMDForm = class(TfrmBaseForm)
    ToolBar1: TToolBar;
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ADOQuery1: TADOQuery;
    btnBuild: TToolButton;
    ImageList1: TImageList;
    ToolButton2: TToolButton;
    btnCopy: TToolButton;
    btnNew: TToolButton;
    btnEdit: TToolButton;
    btnSave: TToolButton;
    btnCancel: TToolButton;
    btnDelete: TToolButton;
    ToolButton9: TToolButton;
    btnCheck: TToolButton;
    ToolButton11: TToolButton;
    btnUP: TToolButton;
    btnPrint: TToolButton;
    ToolButton14: TToolButton;
    btnExit: TToolButton;
    btnOpen: TToolButton;
    DataSource1: TDataSource;
    procedure btnExitClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure btnSaveClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBaseMDForm: TfrmBaseMDForm;

implementation

{$R *.dfm}

procedure TfrmBaseMDForm.btnExitClick(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmBaseMDForm.btnEditClick(Sender: TObject);
begin
  inherited;
  with ADOQuery1 do
    begin
      Close;
      LockType:=ltOptimistic;
      Open;
      Edit;
    end;
end;

procedure TfrmBaseMDForm.btnSaveClick(Sender: TObject);
begin
  inherited;
  try
    ADOQuery1.Post;
    ADOQuery1.Close;
    ADOQuery1.LockType:=ltReadOnly;
    Messagebox(Handle,'数据保存成功！','系统提示',mb_ok+mb_iconInformation);
  except
    Messagebox(Handle,'数据保存失败,请检查设置是否正确！','操作失败',mb_ok+mb_iconInformation);
  end;
end;

procedure TfrmBaseMDForm.btnCancelClick(Sender: TObject);
begin
  inherited;
  ADOQuery1.Cancel;
end;

procedure TfrmBaseMDForm.btnDeleteClick(Sender: TObject);
begin
  inherited;
  if Messagebox(Handle,'是否确认删除当前记录?','系统询问',mb_yesno+mb_iconQuestion)=mryes then
  ADOQuery1.Delete;
end;

end.