sprkthcs.pas

《仓库管理系统》 开发语言：Delphi7.0 数据库：SQLServer2000 数据库文件：仓库管理系统_Data.MDF,仓库管理系统_Log.LDF(mingrisoft仓库管理系统Da

unit sprkthcs;

interface

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

type
  TForm59 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Label2: TLabel;
    BitBtn8: TBitBtn;
    CheckBox1: TCheckBox;
    DataSource1: TDataSource;
    Panel4: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    CheckBox2: TCheckBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure ComboBox1Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn8MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn8MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form59: TForm59;

implementation
  uses Datamodal;
{$R *.dfm}

procedure TForm59.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  Key := #0;
end;

procedure TForm59.ComboBox1Change(Sender: TObject);
begin
  if Trim(ComboBox1.Text)<>''then
  begin
    with Data.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select distinct');
      SQL.Add(Trim(ComboBox1.Text));
      SQL.Add('from 入库退货表');
      Open;
    end;
    ComboBox2.Clear;
    while Not Data.ADOQuery1.Eof do
    begin
      ComboBox2.Items.Add(Data.ADOQuery1.Fields[0].value);
      Data.ADOQuery1.Next;
    end;
  end;
end;

procedure TForm59.SpeedButton1Click(Sender: TObject);
begin
  if (Trim(ComboBox2.Text)<>'')and(Trim(ComboBox1.Text)<>'') then
  begin
    CheckBox1.Checked := False;
    with Data.ADOQuery2 do
    begin
      Close;
      SQL.Clear;
      if CheckBox2.Checked = False then
      begin
        SQL.Add('select * from 入库退货表 where ');
        SQL.Add(Trim(ComboBox1.Text));
        SQL.Add('=');
        SQL.Add(':a');
      end
      else
      begin
        SQL.Add('select * from 入库退货表 where ');
        SQL.Add(Trim(ComboBox1.Text));
        SQL.Add('=');
        SQL.Add(':a');
        SQL.Add('and 退货票号 in (Select 退货票号 From 入库退单票号表 where 退货时间 >= :b and 退货时间<=:c)');
        Parameters.ParamByName('b').Value := Trunc(DateTimePicker1.Date)-2;
        Parameters.ParamByName('c').Value := Trunc(DateTimePicker2.Date)-2 + 0.9998;
      end;
      Parameters.ParamByName('a').value := Trim(ComboBox2.Text);
      Open;
    end;
    if Data.ADOQuery2.RecordCount>0 then
      DataSource1.DataSet := Data.ADOQuery2;
  end;
end;

procedure TForm59.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked = True then
  begin
    with Data.ADOQuery2 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 入库退货表 ');
      Open;
    end;
    DataSource1.DataSet := Data.ADOQuery2;
  end;
end;

procedure TForm59.FormShow(Sender: TObject);
begin
  ComboBox1.Text := '';
  ComboBox2.Clear;
  DataSource1.DataSet := nil;
  CheckBox1.Checked := False;
end;

procedure TForm59.BitBtn8MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure TForm59.BitBtn8MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   TBitBtn(Sender).Font.Color := clBlue;
end;

end.