Barcode And LabelPrint

unit BarCodeQuery;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, NEOFORM, ExtCtrls, ToolWin, ComCtrls, StdCtrls, DBCtrls, Buttons,
  fcImager, fcdbtreeview, fcStatusBar, fcTreeView, GridsEh, DBGridEh;

type
  TFrmBarCodeQuery = class(TGBKPForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DateTimePickerPostDateSart: TDateTimePicker;
    DateTimePickerPostDateEnd: TDateTimePicker;
    BitBtn1: TBitBtn;
    CheckBoxOrderID: TCheckBox;
    CheckBoxPostDate: TCheckBox;
    CheckBoxCustomer: TCheckBox;
    CheckBoxDevtype: TCheckBox;
    EdtCustomer: TEdit;
    DBNavigator1: TDBNavigator;
    EdtOrderIDSart: TComboBox;
    EdtDevtype: TComboBox;
    CheckBoxIsOut: TCheckBox;
    EdtOrderIDEnd: TComboBox;
    fcTreeView1: TfcTreeView;
    fcStatusBar1: TfcStatusBar;
    PageControl1: TPageControl;
    TabSheetOrderID: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox2: TGroupBox;
    MemoOrderDetail: TMemo;
    GroupBox3: TGroupBox;
    MemoOrderMemo: TMemo;
    GroupBox4: TGroupBox;
    Label11: TLabel;
    EdtOrderID: TEdit;
    Label3: TLabel;
    Edit1: TEdit;
    Label14: TLabel;
    EdtPostDate: TEdit;
    GroupBox5: TGroupBox;
    EdtDevName: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    EdtNum: TEdit;
    DBGridEh1: TDBGridEh;
    GroupBox6: TGroupBox;
    procedure CheckBoxOrderIDClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmBarCodeQuery: TFrmBarCodeQuery;

implementation

uses StockDataModel;

{$R *.dfm}

procedure TFrmBarCodeQuery.CheckBoxOrderIDClick(Sender: TObject);
begin
  inherited;
EdtOrderIDSart.Enabled := CheckBoxOrderID.Checked;
  EdtOrderIDEnd.Enabled := CheckBoxOrderID.Checked;
  DateTimePickerPostDateSart.Enabled := CheckBoxPostDate.Checked;
  DateTimePickerPostDateEnd.Enabled := CheckBoxPostDate.Checked;
  EdtDevtype.Enabled := CheckBoxDevtype.Checked;
  EdtCustomer.Enabled := CheckBoxCustomer.Checked;

  if EdtOrderIDSart.Enabled = false then EdtOrderIDSart.Color := clSilver else EdtOrderIDSart.Color := clWindow;
  EdtOrderIDEnd.Color := EdtOrderIDSart.Color;
  if DateTimePickerPostDateSart.Enabled = false then DateTimePickerPostDateSart.Color := clSilver else DateTimePickerPostDateSart.Color := clWindow;
  DateTimePickerPostDateEnd.Color := DateTimePickerPostDateSart.Color;
  if EdtDevtype.Enabled = false then EdtDevtype.Color := clSilver else EdtDevtype.Color := clWindow;
  if EdtCustomer.Enabled = false then EdtCustomer.Color := clSilver else EdtCustomer.Color := clWindow;

end;

procedure TFrmBarCodeQuery.BitBtn1Click(Sender: TObject);
var sqlstr: string;
begin
  inherited;
  sqlstr := '';
  sqlstr := 'select a.*,b.*,c.DevName,d.CustomerName,d.postdate  from BarCode a,GBarCode b,DeviceType c,Orders d  '+
            'where  a.GBarCodeID=b.GBarCodeID and b.Devnum=c.Devnum and b.OrderID=d.OrderID'; //
  if CheckBoxOrderID.Checked then
  begin
    sqlstr := sqlstr + format(' and a.OrderId=%s', [trim(EdtOrderIDSart.Text)]);
  end;
  if CheckBoxPostDate.Checked then
  begin
    sqlstr := sqlstr + format(' and PostDate >=''%s'' and PostDate <= ''%s''', [datetostr(DateTimePickerPostDateSart.Date), datetostr(DateTimePickerPostDateEnd.Date)]);
  end; //保证日期是datetime型
  if CheckBoxDevtype.Checked then
  begin //可模糊查询
    sqlstr := sqlstr + format(' and DevName like ''%%%s%%'' ', [EdtDevtype.Text]);
  end;

  if CheckBoxCustomer.Checked then
  begin //可模糊查询
    sqlstr := sqlstr + format(' and Customer like ''%%%s%%''', [EdtCustomer.Text]);
  end;

   if CheckBoxIsOut.State=cbChecked then
   sqlstr := sqlstr + format(' and a.IsOut=%d', [1])
   else if CheckBoxIsOut.State=cbunchecked then sqlstr := sqlstr + format(' and a.IsOut=%d', [0]);


  with StockDM.QBarCodefind do
  begin
    Close;
    SQL.Clear;
    SQL.Text := sqlstr + ' order by a.OrderID';
    Prepared := true;
    Open;
    //Parameters.Items[0].Value := strtodate(datetostr(DateTimePickerPostDateSart.Date)); //如果不转换oracle将提示数据类型不一致
    //Parameters.Items[1].Value := strtodate(datetostr(DateTimePickerPostDateEnd.Date));
    //sqlstr:=SQL.Text;
    //EdtSum.Text := inttostr(RecordCount);
    //EdtSum.Text :=sqlstr;
  end;

end;

end.