searchku.pas

来自「一个图书批发商的通用软件」· PAS 代码 · 共 127 行

unit SearchKu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid, DB,
  ADODB,data, dxDBTLCl, dxGrClms, cxControls, cxContainer, cxEdit,
  cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
  Grids, DBGrids, dxBar, dxBarExtItems;

type
  TfrmSearchKu = class(TForm)
    GroupBox1: TGroupBox;
    dxDBGrid1: TdxDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    dxDBGrid1BookId: TdxDBGridColumn;
    dxDBGrid1BookName: TdxDBGridColumn;
    dxDBGrid1BookEdition: TdxDBGridColumn;
    dxDBGrid1BookCount: TdxDBGridMaskColumn;
    dxDBGrid1BookPrice: TdxDBGridCurrencyColumn;
    dxDBGrid1AddBook: TdxDBGridMaskColumn;
    dxDBGrid1TotalMoney: TdxDBGridCurrencyColumn;
    dxDBGrid1HousePos: TdxDBGridColumn;
    dxDBGrid1Bundles: TdxDBGridColumn;
    Edit2: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    ADOQuery2: TADOQuery;
    cxLookupComboBox1: TcxLookupComboBox;
    DataSource2: TDataSource;
    ADOQuery3: TADOQuery;
    cxLookupComboBox2: TcxLookupComboBox;
    ADOQuery4: TADOQuery;
    DataSource3: TDataSource;
    dxBarManager1: TdxBarManager;
    dxBarLargeButton1: TdxBarLargeButton;
    dxBarLargeButton2: TdxBarLargeButton;
    dxBarLargeButton3: TdxBarLargeButton;
    dxBarLargeButton5: TdxBarLargeButton;
    dxBarLargeButton6: TdxBarLargeButton;
    dxBarLargeButton4: TdxBarLargeButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ADOQuery1AfterOpen(DataSet: TDataSet);
    procedure bjc(Sender: TField; var Text: String; DisplayText: Boolean);
    procedure dxBarLargeButton1Click(Sender: TObject);
    procedure dxBarLargeButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSearchKu: TfrmSearchKu;

implementation

{$R *.dfm}

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

procedure TfrmSearchKu.FormDestroy(Sender: TObject);
begin
  frmSearchKu:=nil;
end;

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

procedure TfrmSearchKu.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
  ADOQuery1.FieldByName('Bundles').OnGetText:=bjc;
end;
procedure TfrmSearchKu.bjc(Sender: TField; var Text: String; DisplayText: Boolean);
var itemp,istr,istr2:integer;ftemp:double;
begin
  ADOQuery3.Close;
  ADOQuery3.SQL.Text:='select Volumes from tbBookClass where BookId='''+ADOQuery1.FieldByName('bookid').AsString+'''';
  ADOQuery3.Open;
  itemp:=ADOQuery3.Fields[0].asinteger;
  ftemp:=ADOQuery1.fieldbyname('BookCount').asinteger/itemp;
  istr:=Trunc(ftemp);
  istr2:=ADOQuery1.fieldbyname('BookCount').asinteger-(istr*itemp);
  text:=inttostr(istr)+'包+'+inttostr(istr2)+'册('+inttostr(itemp)+')';
end;
procedure TfrmSearchKu.dxBarLargeButton1Click(Sender: TObject);
var stemp:string;
begin
  if (not CheckBox1.Checked) and (not CheckBox2.Checked) and (not CheckBox3.Checked) then
  begin
    application.MessageBox(pchar('请至少选择一个查询条件!'),'提示',0);
    exit;
  end else
  begin
    stemp:='select * from tbHouseSave where 1=1';
    if CheckBox1.Checked then
      stemp:=stemp+' and BookId like '''+trim(cxLookupComboBox2.Text)+'%'' ';
    if CheckBox2.Checked then
      stemp:=stemp+' and BookName like '''+trim(Edit2.Text)+'%'' ';
    if CheckBox3.Checked then
      stemp:=stemp+' and BookEdition like '''+trim(cxLookupComboBox1.Text)+'%'' ';
    ADOQuery1.Close;
    ADOQuery1.SQL.Text:=stemp;
    ADOQuery1.Open;
  end;

end;

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

end.