cqfkyj.pas

用delphi编写的销售管理系统

unit cqfkyj;

interface

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

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

var
  Form52: TForm52;

implementation
  uses DataModal;
{$R *.dfm}

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

procedure TForm52.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 :=  Int(StrToDateTime(Edit1.Text))- StrToInt(Edit2.Text)+0.9998;
      Open;
    end;
  end;
  DataSource1.DataSet := Data.ADOQuery1;
end;

procedure TForm52.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 TForm52.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 TForm52.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

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

end.