selxsquitymoney.~pas

来自「企业商品管理系统」· ~PAS 代码 · 共 110 行

unit SelXSQuityMoney;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, Grids, DBGrids, StdCtrls, Buttons,Theme;

type
  TFrm_SelXSQuityMoney = class(TBaseForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit1: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DBGrid1: TDBGrid;
    StatusBar1: TStatusBar;
    ADOMaster: TADODataSet;
    ADODetail: TADODataSet;
    ADODetailMR_PriceID: TStringField;
    ADODetailMR_Code: TStringField;
    ADODetailMR_Name: TStringField;
    ADODetailMR_Spce: TStringField;
    ADODetailMR_Unit: TStringField;
    ADODetailMR_Cards: TStringField;
    ADODetailMR_Count: TIntegerField;
    ADODetailMR_OutPrice: TFloatField;
    ADODetailMR_Agio: TFloatField;
    ADODetailMR_Sum: TFloatField;
    DSMaster: TDataSource;
    DSDetail: TDataSource;
    DBGrid2: TDBGrid;
    ADOMasterMR_Name: TStringField;
    ADOMasterMR_QuitID: TStringField;
    ADOMasterMR_QuiteDate: TDateTimeField;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_SelXSQuityMoney: TFrm_SelXSQuityMoney;

implementation

{$R *.dfm}

procedure TFrm_SelXSQuityMoney.SpeedButton1Click(Sender: TObject);
var
   SQLStr:string;
begin
  if RadioButton1.Checked then
  begin
    if Edit1.Text='' then
    begin
      Application.MessageBox('订单编号不能为空！','明日科技');
      Edit1.SetFocus;
      Exit;
    end; 
    SQLStr:='MR_QuitID Like '+QuotedStr(Edit1.Text+'%');
  end
  else
  if RadioButton2.Checked then
  begin
    if DateTimePicker2.DateTime<DateTimePicker1.DateTime then
    begin
      Application.MessageBox('请重新设置日期！','明日科技');
      Exit;
    end;
    SQLStr:='MR_QuiteDate>='+QuotedStr(DateTimeToStr(DateTimePicker1.DateTime))+
            ' and MR_QuiteDate<='+QuotedStr(DateTimeToStr(DateTimePicker2.DateTime));
  end;
  ADOMaster.Filtered:=False;
  ADOMaster.Filter:=SQLStr;
  ADOMaster.Filtered:=True;
end;

procedure TFrm_SelXSQuityMoney.SpeedButton3Click(Sender: TObject);
begin
  ADOMaster.Filtered:=False;
  ADOMaster.Filter:='';
  ADOMaster.Filtered:=True;
end;

procedure TFrm_SelXSQuityMoney.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

procedure TFrm_SelXSQuityMoney.FormShow(Sender: TObject);
begin
  inherited;
  ADOMaster.Close;
  ADOMaster.Open;
  ADODetail.Close;
  ADODetail.Open;
end;

end.