publish.pas

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

unit Publish;

interface

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

type
  TfrmPublish = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    Panel1: TPanel;
    dxDBGrid1: TdxDBGrid;
    qryClient: TADOQuery;
    DataSource1: TDataSource;
    dxDBGrid1ClientId: TdxDBGridColumn;
    dxDBGrid1ClientName: TdxDBGridColumn;
    dxDBGrid1ClientAddress: TdxDBGridColumn;
    dxDBGrid1MoneyCode: TdxDBGridColumn;
    dxDBGrid1BondMan: TdxDBGridColumn;
    dxDBGrid1Telphone: TdxDBGridColumn;
    dxDBGrid1Memo: TdxDBGridMemoColumn;
    dxDBGrid1ClientBank: TdxDBGridColumn;
    dxDBGrid1ClientTax: TdxDBGridColumn;
    procedure FormShow(Sender: TObject);
    procedure dxBarLargeButton4Click(Sender: TObject);
    procedure dxBarLargeButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure dxBarLargeButton3Click(Sender: TObject);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure qryClientPostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPublish: TfrmPublish;
  procedure frmPublishShow;
implementation

uses Data, unSystPublic;

{$R *.dfm}
procedure frmPublishShow;
begin
  frmPublish :=TfrmPublish.Create(Application);
  with frmPublish do
  begin
    try
      Top :=90;
      left :=10;
      ShowModal;

    finally
      Free;
    end;
  end;
end;
procedure TfrmPublish.FormShow(Sender: TObject);
begin
  with qryClient do
  begin
    Close;
    SQL.Text :='Select * From tbPublish';
    Open;
  end;
end;

procedure TfrmPublish.dxBarLargeButton4Click(Sender: TObject);
begin
  Close;
end;

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

procedure TfrmPublish.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  qryClient.Close;
end;

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

procedure TfrmPublish.dxBarLargeButton1Click(Sender: TObject);
begin
  qryClient.Append;
end;

procedure TfrmPublish.qryClientPostError(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);
  qryClient.Cancel;
end;

end.