u_set_base.pas

这是一个用条码录入的数据的进销存(只对成品）---做童装的

unit U_Set_Base;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_base, DB, ADODB, WinSkinData, ExtCtrls, DBCtrls, Grids,
  DBGridEh, Buttons, WinSkinStore;

type
  TF_set_base = class(TF_base)
    Ado_Query: TADOQuery;
    Ds_query: TDataSource;
    Panel1: TPanel;
    DBGridEh1: TDBGridEh;
    Panel2: TPanel;
    btn_insert: TSpeedButton;
    btn_delete: TSpeedButton;
    btn_edit: TSpeedButton;
    btn_cancel: TSpeedButton;
    btn_save: TSpeedButton;
    SpeedButton1: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure Ado_QueryAfterInsert(DataSet: TDataSet);
    procedure btn_insertClick(Sender: TObject);
    procedure Ado_QueryAfterCancel(DataSet: TDataSet);
    procedure Ado_QueryAfterEdit(DataSet: TDataSet);
    procedure Ado_QueryAfterClose(DataSet: TDataSet);
    procedure Ado_QueryAfterPost(DataSet: TDataSet);
    procedure btn_deleteClick(Sender: TObject);
    procedure btn_editClick(Sender: TObject);
    procedure btn_saveClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Ado_QueryDeleteError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Ado_QueryPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
    procedure Ado_QueryEditError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_set_base: TF_set_base;

implementation

uses U_DM, U_Function;

{$R *.dfm}

procedure TF_set_base.FormCreate(Sender: TObject);
var i:integer;
begin
  inherited;
  if ISConnected then
  begin
    if ActiveConnect <> nil then
      Ado_Query.Connection := ActiveConnect
    else
    begin
      MessageDlg('对不起，数据源没有连接！', mtInformation, [mbOK], 0);
      exit;
    end;
  end
  else
  begin
    MessageDlg('对不起，没有连接数据库，请与管理员联系！', mtInformation, [mbOK], 0);
    exit;
  end;
 if DBGridEh1.DataSource.DataSet.Active  then
 For I:=0 to DBGridEh1.Columns.Count-1  do
 BEgin
    DBGridEh1.Columns[i].Title.TitleButton:=True;
 end;
end;

procedure TF_set_base.Ado_QueryAfterInsert(DataSet: TDataSet);
begin
  inherited;
  Btn_insert.Enabled := False;
  Btn_Delete.Enabled := False;
  Btn_Edit.Enabled := false;
  Btn_Cancel.Enabled := True; ;
  Btn_Save.Enabled := True;
end;

procedure TF_set_base.btn_insertClick(Sender: TObject);
begin
  inherited;
  Ado_query.Append;
  Addoperatlog(Self.Caption,'新增记录');
end;

procedure TF_set_base.Ado_QueryAfterCancel(DataSet: TDataSet);
begin
  inherited;
  Btn_insert.Enabled := True;
  Btn_Delete.Enabled := True;
  Btn_Edit.Enabled := True;
  Btn_Cancel.Enabled := False; ;
  Btn_Save.Enabled := False;
end;

procedure TF_set_base.Ado_QueryAfterEdit(DataSet: TDataSet);
begin
  inherited;
  Btn_insert.Enabled := False;
  Btn_Delete.Enabled := False;
  Btn_Edit.Enabled := False;
  Btn_Cancel.Enabled := True; ;
  Btn_Save.Enabled := True;
      
end;

procedure TF_set_base.Ado_QueryAfterClose(DataSet: TDataSet);
begin
  inherited;
//  Btn_insert.Enabled:=False;
//  Btn_Delete.Enabled:=False;
//  Btn_Edit.Enabled:=false;
//  Btn_Cancel.Enabled:=false;;
//  Btn_Save.Enabled:=false;
end;

procedure TF_set_base.Ado_QueryAfterPost(DataSet: TDataSet);
begin
  inherited;
  Btn_insert.Enabled := True;
  Btn_Delete.Enabled := True;
  Btn_Edit.Enabled := True;
  Btn_Cancel.Enabled := False;
  Btn_Save.Enabled := False;
end;

procedure TF_set_base.btn_deleteClick(Sender: TObject);
begin
  inherited;
  if Ado_query.RecordCount = 0 then
  begin
    Application.MessageBox('没有可以删除的记录！', '提示信息');
    Exit;
  end;

  if Application.MessageBox('你认确认删除这条记录吗？', '确认', mb_iconinformation + mb_YesNo) = id_no then
    exit;
    Ado_query.Delete;
      Addoperatlog(Self.Caption,'删除记录');
end;

procedure TF_set_base.btn_editClick(Sender: TObject);
begin
  inherited;
  if Ado_query.RecordCount = 0 then
  begin
    Application.MessageBox('没有可以修改的记录！', '提示信息');
    Exit;
  end;
  Ado_query.Edit;
  Addoperatlog(Self.Caption,'修改记录');

end;

procedure TF_set_base.btn_saveClick(Sender: TObject);
begin
  inherited;
  try
    Ado_query.Post;
  except
  //
  end;
  Addoperatlog(Self.Caption,'保存记录');
end;

procedure TF_set_base.btn_cancelClick(Sender: TObject);
begin
  inherited;
  Ado_query.Cancel;
end;

procedure TF_set_base.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  Action := Cafree;
end;

procedure TF_set_base.Ado_QueryDeleteError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  inherited;
//  MessageDlg(IntToStr(Activeconnect.Errors.Item[0].NativeError), mtWarning, [mbOK], 0);
end;

procedure TF_set_base.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TF_set_base.Ado_QueryPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  inherited;

 //MessageDlg(IntToStr(Activeconnect.Errors.Item[0].NativeError), mtWarning, [mbOK], 0);

 if Activeconnect.Errors.Item[0].NativeError =2627 then
  begin
   Application.MessageBox('出现相同的编号，请检查后再保存！', '提示信息', MB_ICONERROR + MB_OK);
   Abort;
  end;


end;

procedure TF_set_base.Ado_QueryEditError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  inherited;
//MessageDlg(IntToStr(Activeconnect.Errors.Item[0].NativeError), mtWarning, [mbOK], 0);
end;

end.