searchku.pas

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

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, FR_PTabl;

type
  TfrmSearchKu = class(TForm)
    GroupBox1: TGroupBox;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    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;
    frPrintGrid1: TfrPrintGrid;
    DBGrid1: TDBGrid;
    CheckBox1: TRadioButton;
    CheckBox3: TRadioButton;
    RadioButton1: TRadioButton;
    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);
    procedure dxBarLargeButton6Click(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;
  if ADOQuery3.Fields[0].AsString <>'' then
  begin
  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;
end;
procedure TfrmSearchKu.dxBarLargeButton1Click(Sender: TObject);
var stemp:string;
begin
  begin
    stemp:='select * from tbHouseSave where 1=1';
    if CheckBox1.Checked then
      stemp:=stemp+' and BookId like '''+trim(cxLookupComboBox2.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;

procedure TfrmSearchKu.dxBarLargeButton6Click(Sender: TObject);
var stemp:string;
begin
  if not ADOQuery1.Active then
  begin
    exit;
  end;
  frPrintGrid1.Title.Text:=sysname; 
  stemp:='全部库存';
  if CheckBox1.Checked then stemp:='图书编号：'+trim(cxLookupComboBox2.Text);
  if CheckBox3.Checked then stemp:='图书版别：'+trim(cxLookupComboBox1.Text);
  frPrintGrid1.PageHeader.Text:='库存统计表   ->'+stemp;
  frPrintGrid1.PageFooter.Text:=datetimetostr(now);
  frPrintGrid1.ShowReport;
end;

end.