paschbf.pas

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

unit paschbf;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,data, dxBar, dxBarExtItems, StdCtrls, dxCntner, dxEditor,
  dxEdLib, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
  cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, ExtCtrls, DB, ADODB;

type
  Tfrchbf = class(TForm)
    dxBarManager1: TdxBarManager;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarLargeButton5: TdxBarLargeButton;
    dxBarLargeButton6: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    dxBarButton1: TdxBarButton;
    Panel1: TPanel;
    ADOQuery4: TADOQuery;
    DataSource3: TDataSource;
    GroupBox1: TGroupBox;
    cxLookupComboBox2: TcxLookupComboBox;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    ADOQuery1: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure dxBarLargeButton5Click(Sender: TObject);
    procedure dxBarLargeButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frchbf: Tfrchbf;

implementation

{$R *.dfm}

procedure Tfrchbf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Tfrchbf.FormDestroy(Sender: TObject);
begin
  frchbf:=nil;
end;

procedure Tfrchbf.FormCreate(Sender: TObject);
begin
  ADOQuery4.Open;
end;

procedure Tfrchbf.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8]) then key:=#0; 
end;

procedure Tfrchbf.dxBarLargeButton1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Text:='select * from tbHouseSave where bookid='''+trim(cxLookupComboBox2.Text)+'''';
  ADOQuery1.Open;
  Edit1.Text:=ADOQuery1.fieldbyname('bookname').AsString ;
  Edit2.Text:=ADOQuery1.fieldbyname('BookCount').AsString ;
  Edit3.Text:=ADOQuery1.fieldbyname('bonus').AsString ;
end;

procedure Tfrchbf.dxBarLargeButton5Click(Sender: TObject);
begin
  if (Edit3.Text<>'') and (edit2.Text<>'') then
  begin
    ADOQuery1.Edit;
    ADOQuery1.fieldbyname('BookCount').Asinteger:=strtoint(edit2.Text)-strtoint(edit3.Text);
    ADOQuery1.fieldbyname('bonus').Asinteger:=strtoint(edit3.Text);
    if ADOQuery1.State in dseditmodes then ADOQuery1.Post;
    showmessage('冲红报废成功');
    close;
  end;
end;

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

end.