untpophisbarcode.pas

二次开发模块 一、条形码的批量生成

unit UntPoPHisBarCode;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FrmRootAddP, StdCtrls, Buttons, ExtCtrls, dxExEdtr, DB, ADODB,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms, ComCtrls, Mask,
  ToolEdit;

type
  TFrmPoPHisBarCode = class(TFrmRootAdd)
    dxDBGrid1: TdxDBGrid;
    QryBarCode: TADOQuery;
    dsQryBarCode: TDataSource;
    btnOut: TButton;
    Panel3: TPanel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    dxDBGrid1cBarCode: TdxDBGridMaskColumn;
    dxDBGrid1cMarker: TdxDBGridMaskColumn;
    Panel4: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    EditCode: TEdit;
    EditUser: TEdit;
    Date1: TDateTimePicker;
    Date2: TDateTimePicker;
    CheckBox1: TCheckBox;
    btnFind: TButton;
    dxDBGrid1ID: TdxDBGridColumn;
    dxDBGrid1dDate: TdxDBGridMaskColumn;
    procedure Button1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure btnFindClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure QryBarCodeBeforeEdit(DataSet: TDataSet);
    procedure BtnSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmPoPHisBarCode: TFrmPoPHisBarCode;

implementation

uses DataDmP, FrmMainP, SUFunctionP;

{$R *.dfm}

procedure TFrmPoPHisBarCode.Button1Click(Sender: TObject);
begin
  inherited;
  ShowMessage(  TimeToStr(Date1.DateTime));
end;

procedure TFrmPoPHisBarCode.CheckBox1Click(Sender: TObject);
begin
  inherited;
  Date1.Enabled:=CheckBox1.Checked;
  Date2.Enabled:=CheckBox1.Checked;
end;

procedure TFrmPoPHisBarCode.RadioButton1Click(Sender: TObject);
begin
  inherited;
  Panel4.Visible:=RadioButton2.Checked;
  if RadioButton1.Checked then
   begin
     QryBarCode.Close;
     QryBarCode.SQL.Clear;
     QryBarCode.SQL.Add('select * from LsBarData');
     QryBarCode.SQL.Add('Where (PCID ='''+FrmMain.PCID+''')');
     QryBarCode.Open;
   end;
end;

procedure TFrmPoPHisBarCode.btnFindClick(Sender: TObject);
begin
  inherited;
  if (EditCode.Text='') and (EditUser.Text='') and (not CheckBox1.Checked) then Abort;
  QryBarCode.Close;
  QryBarCode.SQL.Clear;
  QryBarCode.SQL.Add('select cBarCode,dDate,cMarker from Barcode');
  QryBarCode.SQL.Add('Where (1=1)');
  if EditCode.Text<>'' then
    QryBarCode.SQL.Add('and  (cBarCode like ''%'+EditCode.Text+'%'')');
  if EditUser.Text<>'' then
    QryBarCode.SQL.Add('and  (cMarker  like ''%'+EditUser.Text+'%'')');
  if CheckBox1.Checked then
    begin
       QryBarCode.SQL.Add('and  (dDate  >= '''+DateToStr(Date1.Date)+''')');
       QryBarCode.SQL.Add('and  (dDate  <  '''+DateToStr(Date2.Date+1)+''')');
    end;
  QryBarCode.SQL.SaveToFile('C:\1.TXT');  
  QryBarCode.Prepared:=True;
  QryBarCode.Open;  
end;

procedure TFrmPoPHisBarCode.FormShow(Sender: TObject);
begin
  inherited;
  Date1.Date:=Date();
  Date2.Date:=Date();  
end;

procedure TFrmPoPHisBarCode.FormCreate(Sender: TObject);
begin
  inherited;
  SUFunction.SetSequenceCol(dxDBGrid1ID);
  dxDBGrid1ID.Width:=50;
end;

procedure TFrmPoPHisBarCode.QryBarCodeBeforeEdit(DataSet: TDataSet);
begin
  inherited;
  Abort;
end;

procedure TFrmPoPHisBarCode.BtnSaveClick(Sender: TObject);
begin
  inherited;
  Close;
end;

end.