frmsearchrate.pas

这是我在去年年底利用业余时间做的一个鞋塑企业的计件工资系统。由于本人技术有限

unit frmSearchRate;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, DB, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid,
  dxCntner, StdCtrls, Buttons, dxEditor, dxDBEdtr, dxDBELib, dxEdLib,
  ExtCtrls,ADODB;

type
  TSearchRateForm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edtModelID: TdxEdit;
    edtColor: TdxEdit;
    BitBtn4: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    grdRate: TdxDBGrid;
    dsRates: TDataSource;
    edtShoesize: TdxEdit;
    grdRateModelID: TdxDBGridMaskColumn;
    grdRateColor: TdxDBGridMaskColumn;
    grdRateShoeSize: TdxDBGridMaskColumn;
    grdRateRateA: TdxDBGridCurrencyColumn;
    grdRateRateB: TdxDBGridCurrencyColumn;
    grdRateRateC: TdxDBGridCurrencyColumn;
    grdRatePicecARate: TdxDBGridCurrencyColumn;
    grdRatePicecBRate: TdxDBGridCurrencyColumn;
    grdRatecheckRate: TdxDBGridCurrencyColumn;
    grdRateNotes: TdxDBGridMaskColumn;
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure grdRateDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SearchRateForm: TSearchRateForm;

implementation

uses DataCenter, ChoicePerson;

{$R *.dfm}

procedure TSearchRateForm.BitBtn4Click(Sender: TObject);
begin
  with dmData.aquRates do
  begin
    SQL.Clear;
    SQL.Add('select * from Rates where 1=1');
    if edtModelID.Text<>'' then
      SQL.Add(' and ModelId like '''+edtModelId.Text+'%'+'''');
    if edtColor.Text<>'' then
      SQL.Add(' and Color like '''+edtColor.Text+'%'+'''');
    if edtShoesize.Text<>'' then
      SQL.Add(' and Shoesize like '''+edtShoesize.Text+'%'+'''');
    Sql.Add(' Order by ModelID,Color,Shoesize');  
    Open;
  end;
end;

procedure TSearchRateForm.BitBtn1Click(Sender: TObject);
begin
  SearchRateForm.ModalResult:=mrOk;
end;

procedure TSearchRateForm.grdRateDblClick(Sender: TObject);
begin
  SearchRateForm.ModalResult:=mrOk;

end;

end.