house.pas

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

unit House;

interface

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

type
  TfrmHouse = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    qryHouse: TADOQuery;
    DataSource1: TDataSource;
    Panel1: TPanel;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1HouseId: TdxDBGridColumn;
    dxDBGrid1HouseName: TdxDBGridColumn;
    dxDBGrid1Memo: TdxDBGridColumn;
    procedure FormShow(Sender: TObject);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure dxBarLargeButton2Click(Sender: TObject);
    procedure dxBarLargeButton4Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dxBarLargeButton3Click(Sender: TObject);
    procedure qryHousePostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmHouse: TfrmHouse;
  procedure frmHouseShow;
implementation

uses Data, unSystPublic;

{$R *.dfm}
procedure frmHouseShow;
begin
  frmHouse :=TfrmHouse.Create(Application);
  with frmHouse do
  begin
    try
      ShowModal;
    finally
      free;
    end;
  end;
end;
procedure TfrmHouse.FormShow(Sender: TObject);
begin
  with qryHouse do
  begin
    Close;
    SQL.Text :='select * from tbhouse';
    Open;
  end;
end;

procedure TfrmHouse.dxBarLargeButton1Click(Sender: TObject);
begin
  qryHouse.Append;
end;

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

procedure TfrmHouse.dxBarLargeButton4Click(Sender: TObject);
begin
  close;
end;

procedure TfrmHouse.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  qryHouse.Close;
end;

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

procedure TfrmHouse.qryHousePostError(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);
  //showmessage(inttostr(dmdata.adcDatabase.Errors.Item[0].NativeError));
  //dmdata.adcDatabase.RollbackTrans;
  qryHouse.Cancel;
end;

end.