add.pas

客户档案管理-delphi开发

unit add;

interface

uses
  Windows, Forms, DB, ADODB, BusinessSkinForm, StdCtrls, bsSkinCtrls, Controls,
  ExtCtrls, ComCtrls, bsSkinTabs, Classes;

type
  TFormAdd = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinToolBar1: TbsSkinToolBar;
    bsSkinBevel1: TbsSkinBevel;
    SBAdd: TbsSkinSpeedButton;
    SBDel: TbsSkinSpeedButton;
    sbSave: TbsSkinSpeedButton;
    SBCancel: TbsSkinSpeedButton;
    bsSkinBevel2: TbsSkinBevel;
    SBExit: TbsSkinSpeedButton;
    bsSkinBevel3: TbsSkinBevel;
    cdsAdd: TADODataSet;
    dsAdd: TDataSource;
    bsSkinStdLabelDbStatus: TbsSkinStdLabel;
    sbEdit: TbsSkinSpeedButton;
    procedure SBExitClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SBAddClick(Sender: TObject);
    procedure SBDelClick(Sender: TObject);
    procedure sbSaveClick(Sender: TObject);
    procedure SBCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure sbEditClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAdd: TFormAdd;

implementation

uses
  dm;

{$R *.dfm}

procedure TFormAdd.SBExitClick(Sender: TObject);
begin
  close;
end;

procedure TFormAdd.FormShow(Sender: TObject);
begin
  bsSkinPageControl1.TabIndex := 0;

  if not cdsAdd.Active then
    cdsAdd.Open;
end;

procedure TFormAdd.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if dsAdd.State in [dsInsert, dsEdit] then
  begin
    dbs.ShowMsgDlgInf('当前处于修改或增加状态, 请先保存或取消后再退出!');
    CanClose := False;
  end;
end;

procedure TFormAdd.SBAddClick(Sender: TObject);
begin  // 增加
  if (not cdsAdd.Active) then
    cdsAdd.Open;

  cdsAdd.Append;
end;

procedure TFormAdd.SBDelClick(Sender: TObject);
begin  // 删除
  if not cdsAdd.Active then Exit;
  if cdsAdd.RecordCount <=0 then Exit;

  if (dbs.ShowMsgDlgCfm('警告', '本操作将删除当前一条记录，删除后无法恢复，是否继续？') = mrYES) then
    cdsAdd.Delete;
end;

procedure TFormAdd.sbEditClick(Sender: TObject);
begin // 编辑
  if not (dsAdd.State in [dsInsert, dsEdit]) then
    cdsAdd.Edit;
end;

procedure TFormAdd.sbSaveClick(Sender: TObject);
begin  // 保存
  if dsAdd.State in [dsInsert, dsEdit] then
    dbs.PostWithError(cdsAdd);

  if not (dsAdd.State in [dsInsert, dsEdit]) then
    dbs.ShowMsgDlgInf('当前数据已保存！');
end;

procedure TFormAdd.SBCancelClick(Sender: TObject);
begin  // 取消
  if dsAdd.State in [dsInsert, dsEdit] then
    cdsAdd.Cancel;
end;

end.