f_findman.pas

仓库管理系统 仓库管理系统

unit f_findman;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Db, ADODB, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, ppDB,
  ppDBPipe, ppBands, ppVar, ppCtrls, ppPrnabl, ppClass, ppCache, ppComm,
  ppRelatv, ppProd, ppReport, DBGridEh;

type
  Tdfmfindman = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Panel2: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    BitBtn1: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    manquery: TADOQuery;
    DataSource2: TDataSource;
    CheckBox1: TCheckBox;
    BitBtn2: TBitBtn;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    BitBtn3: TBitBtn;
    ppReport1: TppReport;
    ppHeaderBand1: TppHeaderBand;
    ppLabel1: TppLabel;
    ppLabel2: TppLabel;
    ppLabel3: TppLabel;
    ppLabel4: TppLabel;
    ppLabel5: TppLabel;
    ppLine1: TppLine;
    ppSystemVariable1: TppSystemVariable;
    ppLabel10: TppLabel;
    ppLabel12: TppLabel;
    ppDetailBand1: TppDetailBand;
    ppDBText1: TppDBText;
    ppDBText2: TppDBText;
    ppDBText3: TppDBText;
    ppDBText4: TppDBText;
    ppDBText6: TppDBText;
    ppFooterBand1: TppFooterBand;
    ppSystemVariable2: TppSystemVariable;
    ppSystemVariable3: TppSystemVariable;
    ppLabel6: TppLabel;
    ppLabel7: TppLabel;
    ppLabel8: TppLabel;
    ppLabel9: TppLabel;
    ppLine2: TppLine;
    ppSummaryBand1: TppSummaryBand;
    ppVariable3: TppVariable;
    ppLabel15: TppLabel;
    ppLine5: TppLine;
    ppPageStyle1: TppPageStyle;
    ppDBPipeline1: TppDBPipeline;
    ppLabel11: TppLabel;
    ppDBText5: TppDBText;
    manqueryFreno: TWideStringField;
    manqueryFname: TWideStringField;
    manqueryFgroup: TWideStringField;
    manqueryFbirth: TDateTimeField;
    manqueryFindate: TDateTimeField;
    manqueryFbm: TSmallintField;
    manqueryFoutdate: TDateTimeField;
    manqueryFsite: TWideStringField;
    manqueryFdue: TWideStringField;
    manqueryFnote: TWideStringField;
    manquerycduedate: TDateTimeField;
    manqueryfduem: TSmallintField;
    ppLabel13: TppLabel;
    ppDBText7: TppDBText;
    Bevel1: TBevel;
    DBGridEh1: TDBGridEh;
    manquerybmh: TWideStringField;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ppVariable3Calc(Sender: TObject; var Value: Variant);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh1TitleClick(Column: TColumnEh);
  private
    { Private declarations }
    procedure scheckyes;
    procedure scheckno;
  public
    { Public declarations }
  end;

var
  dfmfindman: Tdfmfindman;

implementation

uses dbmRainbowMis, chHeadUnit;

{$R *.DFM}

procedure Tdfmfindman.BitBtn1Click(Sender: TObject);
begin
  if checkbox1.Checked then
    scheckyes
  else
    scheckno;
end;

procedure Tdfmfindman.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  manquery.Active :=false;
  action:=cafree;
end;

procedure Tdfmfindman.FormCreate(Sender: TObject);
begin
//  manquery.Active :=true;
  CheckBox1Click(CheckBox1);
  label5.Caption :=inttostr(TCustomADODataSet(manquery).RecordCount);
end;

procedure Tdfmfindman.scheckyes;
begin
  with manquery do
  begin
    close;
    SQL.clear;
    SQL.add('select * from man');
    SQL.Add('where bmh like :vbmh and fname like :vname and fsite like :vsite');
    SQL.Add('order by fshop');
    Parameters.ParamByName ('vbmh').value:=trim(edit1.text)+'%';
    Parameters.ParamByName ('vname').value:=trim(edit2.text)+'%';
    Parameters.ParamByName ('vsite').value:=trim(edit3.text)+'%';
    open;
  end;
  label5.Caption :=inttostr(TCustomADODataSet(manquery).RecordCount);
end;

procedure Tdfmfindman.scheckno;
begin
  with manquery do
  begin
    close;
    SQL.clear;
    SQL.add('select * from man');
    SQL.Add('where (bmh like :vbmh) and (fname like :vname) and (fsite like :vsite) and foutdate is null ');
    SQL.Add('order by fshop');
    Parameters.ParamByName ('vbmh').value:=trim(edit1.text)+'%';
    Parameters.ParamByName ('vname').value:=trim(edit2.text)+'%';
    Parameters.ParamByName ('vsite').value:=trim(edit3.text)+'%';
    open;
  end;
  label5.Caption :=inttostr(TCustomADODataSet(manquery).RecordCount);
end;

procedure Tdfmfindman.CheckBox1Click(Sender: TObject);
begin
  if checkbox1.Checked then
    scheckyes
  else
    scheckno;
end;

procedure Tdfmfindman.BitBtn2Click(Sender: TObject);
begin
  adotable1.Active := true;
{  adotable1.First;
  while not adotable1.Eof do
  begin
    adotable1.Delete;
    adotable1.Next ;
  end; }
// manquery['fname']
  adotable1.AppendRecord([manquery['Freno'],manquery['fname'],manquery['fshop'],manquery['fgroup'],
                     manquery['fbirth'],manquery['findate'],manquery['fbm'],manquery['foutdate'],
                     manquery['fsite'],manquery['fdue'],manquery['fnote'],manquery['cduedate']]);

end;

procedure Tdfmfindman.ppVariable3Calc(Sender: TObject; var Value: Variant);
begin
  value:=label5.Caption ;
end;

procedure Tdfmfindman.BitBtn3Click(Sender: TObject);
begin
  ppReport1.Print;  
end;

procedure Tdfmfindman.FormKeyPress(Sender: TObject; var Key: Char);
begin
  chheadunit.tabventer(dfmfindman,key);
end;

procedure Tdfmfindman.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
var
 holdColor: TColor;
begin
  holdColor := DBGrideh1.Canvas.Brush.Color; {store the original color}
    if manquery.FieldByName('Foutdate').Asdatetime=0 then begin
    end
    else
    begin
      DBGrideh1.Canvas.Brush.Color := clred;
      DBGrideh1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrideh1.Canvas.Brush.Color := holdColor;
    end;
end;

procedure Tdfmfindman.DBGridEh1TitleClick(Column: TColumnEh);
begin
  chHeadunit.ehTitClick(column);
end;

end.