unitbillprint.pas

仓储系统

unit UnitBillPrint;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TfrmBillPrint = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    labto: TLabel;
    labfrom: TLabel;
    rbAll: TRadioButton;
    rbMore: TRadioButton;
    rbOne: TRadioButton;
    edtdz: TEdit;
    edtfrom: TEdit;
    edtto: TEdit;
    Button3: TButton;
    cbbLb: TComboBox;
    procedure Button3Click(Sender: TObject);
    procedure rbOneClick(Sender: TObject);
    procedure rbMoreClick(Sender: TObject);
    procedure rbAllClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmBillPrint: TfrmBillPrint;

implementation

uses UnitMain;

{$R *.dfm}

procedure TfrmBillPrint.Button3Click(Sender: TObject);
begin
  close;
end;

procedure TfrmBillPrint.rbOneClick(Sender: TObject);
begin
  if rbOne.Checked=true then
  begin
    edtDz.enabled:=true;
    edtdz.color:=clWindow;

    edtfrom.enabled:=false;
    edtto.enabled:=false;
    edtfrom.color:=clInactiveBorder;
    edtto.color:=clInactiveBorder;
    edtfrom.text:='';
    edtto.text:='';

    labfrom.Enabled:=false;
    labto.Enabled:=false;
    edtdz.enabled:=true;
    edtdz.SetFocus;
  end;

end;

procedure TfrmBillPrint.rbMoreClick(Sender: TObject);
begin
  if rbMore.Checked=true then
  begin
    edtdz.enabled:=false;
    edtfrom.enabled:=true;
    edtto.enabled:=true;
    edtfrom.color:=clWindow;
    edtto.color:=clWindow;
    labfrom.Enabled:=true;
    labto.Enabled:=true;
    edtdz.text:='';
    edtdz.Enabled:=false;
    edtdz.color:=clInactiveBorder;
    edtfrom.SetFocus;
  end
end;

procedure TfrmBillPrint.rbAllClick(Sender: TObject);
begin
  {if rbMore.Checked=true then
  begin
    edtfrom.enabled:=false;
    edtto.enabled:=false;
    edtdz.enabled:=false;

    edtfrom.color:=clInactiveBorder;
    edtto.color:=clInactiveBorder;
    edtdz.color:=clInactiveBorder;
    edtfrom.text:='';
    edtto.text:='';
    edtdz.text:='';

    labfrom.Enabled:=false;
    labto.Enabled:=false;
  end;  }
  if Sender is Tradiobutton then
  begin
     if (Sender as Tradiobutton).name='rbone' then
     begin
      edtfrom.enabled:=false;
      edtto.enabled:=false;
      edtdz.color:=clWindow;
      edtfrom.color:=clInactiveBorder;
      edtto.color:=clInactiveBorder;
      labfrom.Enabled:=false;
      labto.Enabled:=false;
      edtdz.enabled:=true;
      edtdz.SetFocus;
  end
  else if (Sender as Tradiobutton).name='rbmore' then
  begin
      edtdz.enabled:=false;
      edtfrom.color:=clWindow;
      edtto.color:=clWindow;
      labfrom.Enabled:=true;
      labto.Enabled:=true;
      edtdz.color:=clInactiveBorder;
      edtfrom.enabled:=true;
      edtto.enabled:=true;
      edtfrom.SetFocus;
  end
  else if (Sender as Tradiobutton).name='rball' then
  begin
      edtfrom.enabled:=false;
      edtto.enabled:=false;
      edtdz.enabled:=false;
      edtfrom.color:=clInactiveBorder;
      edtto.color:=clInactiveBorder;
      labfrom.Enabled:=false;
      labto.Enabled:=false;
      edtdz.color:=clInactiveBorder;
  end;
end;

end;

end.