cqfkcx.pas

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

unit cqfkcx;

interface

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

type
  TForm53 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure FormShow(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2Exit(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form53: TForm53;

implementation
   uses DataModal;
{$R *.dfm}

procedure TForm53.FormShow(Sender: TObject);
begin
  Edit1.Text := ForMatDateTime('yyyy/mm/dd',Now());
  Edit2.Clear;
  DataSource1.DataSet := Nil;
end;

procedure TForm53.Edit2KeyPress(Sender: TObject; var Key: Char);
var
  m: Boolean;
begin
  m := (key <#8)or(Key>#8)and(key <#48)or(key>#57);
  if m then
    key := #0;
end;

procedure TForm53.Edit2Exit(Sender: TObject);
begin
  if Trim(Edit2.Text)<>'' then
  begin
    Try
      StrToInt(Edit2.Text);
    Except
      Application.MessageBox('请输入合法数据。','提示',0+64);
      Edit2.Clear;
      Edit2.SetFocus;
    end;
  end;
end;

procedure TForm53.SpeedButton1Click(Sender: TObject);
begin
if  Trim(Edit2.Text) = '' then
  begin
    with Data.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 供应商结款表');
      Open;
    end;
  end
  else
  begin
    with Data.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from 供应商结款表 where 结款时间<=:a');
      Parameters.ParamByName('a').Value :=  StrToDateTime(Edit1.Text)- StrToInt(Edit2.Text)+0.9998;
      Open;
    end;
  end;
  DataSource1.DataSet := Data.ADOQuery1;
end;

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

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

end.