bookclass.pas

一个图书批发商的通用软件

unit BookClass;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxBar, dxBarExtItems, dxExEdtr, dxCntner, dxTL, dxDBCtrl,
  dxDBGrid, ExtCtrls, DB, ADODB, dxDBTLCl, dxGrClms;

type
  TfrmBookClass = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    Panel1: TPanel;
    dxDBGrid1: TdxDBGrid;
    qryBookClass: TADOQuery;
    DataSource1: TDataSource;
    dxDBGrid1BookId: TdxDBGridColumn;
    dxDBGrid1BookName: TdxDBGridColumn;
    dxDBGrid1BookUnit: TdxDBGridColumn;
    dxDBGrid1Volumes: TdxDBGridColumn;
    dxDBGrid1BookEdition: TdxDBGridColumn;
    qrytemp: TADOQuery;
    dxDBGrid1BookPrice: TdxDBGridCurrencyColumn;
    procedure dxBarLargeButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure dxBarLargeButton3Click(Sender: TObject);
    procedure dxBarLargeButton2Click(Sender: TObject);
    procedure qryBookClassPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBookClass: TfrmBookClass;
  procedure frmBookClassShow;
implementation

uses Data, unSystPublic;

{$R *.dfm}
procedure frmBookClassShow;
begin
  frmBookClass :=TfrmBookClass.Create(Application);
  with frmBookClass do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;
end;
procedure TfrmBookClass.dxBarLargeButton4Click(Sender: TObject);
begin
  Close;
end;

procedure TfrmBookClass.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  qryBookClass.Close;
end;

procedure TfrmBookClass.dxBarLargeButton1Click(Sender: TObject);
var v1,v2,v3,v4,v5,v6 :string;
begin
  with qryBookClass do
  begin
    last;
    v1 :=Fields[0].AsString; v2 :=Fields[1].AsString;v3 :=Fields[2].AsString;v4 :=Fields[3].AsString;v5 :=Fields[4].AsString;v6 :=Fields[5].AsString;
    Append;
    Fields[0].AsString :=v1;Fields[1].AsString :=v2;Fields[2].AsString :=v3;Fields[3].AsString :=v4;Fields[4].AsString :=v5; Fields[5].AsString :=v6;
  end;
end;

procedure TfrmBookClass.dxBarLargeButton3Click(Sender: TObject);
begin
  if Application.MessageBox('真的要删除吗?',Title,MB_ICONQUESTION+MB_YESNO)=Idyes then
  qryBookClass.Delete;
end;

procedure TfrmBookClass.dxBarLargeButton2Click(Sender: TObject);
begin
  if qryBookClass.State in[dsEdit,dsInsert] then
  qryBookClass.Post;
end;

procedure TfrmBookClass.qryBookClassPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  action :=daAbort;
  if dmdata.adcDatabase.Errors.Item[0].NativeError=1023 then
  application.MessageBox('仓库编号不能为空',Title,mb_iconerror)
  else if dmdata.adcDatabase.Errors.Item[0].NativeError=-105121349 then
  application.MessageBox('仓库编号不能重复',Title,mb_iconerror)
  else
  application.MessageBox('数据输入错误',Title,mb_iconerror);
  qryBookClass.Cancel;
end;

end.