fkcbd.pas

系统目标：通过库存管理系统

unit Fkcbd;

interface

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

type
  TF_kcbd = class(TF_base)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label1: TLabel;
    Label2: TLabel;
    ToolButton1: TToolButton;
    SpeedButton2: TSpeedButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    Panel2: TPanel;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGrid1ColumnMoved(Sender: TObject; FromIndex,
      ToIndex: Integer);
    procedure DBGrid1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_kcbd: TF_kcbd;

implementation
  uses Fdm,Fkcmx,Fzct;
{$R *.dfm}

procedure TF_kcbd.FormShow(Sender: TObject);
begin
  inherited;
  datetimepicker1.Date:=now;
  datetimepicker2.Date:=now;
  Panel2.Caption:='请选择商品';
  F_zct.mx:=2;
  with F_dm.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select a.jh 商品编号,a.sp 商品全称,a.jhqty 进货数量,b.jhthqty 进货退货数量,a.jhqty-b.jhthqty 存进货数量,');
    SQL.Add('c.xsqty 销售数量,d.xsthqty 销售退货数量,c.xsqty-xsthqty 存销售数量 from');
    SQL.Add('(select tradecode jh,fullname sp,sum(qty) jhqty from tb_warehouse_detailed  group by fullname,tradecode) a left join');
    SQL.Add('(select tradecode jhth,sum(qty) jhthqty from tb_rewarehouse_detailed group by tradecode) b  on a.jh=b.jhth left join ');
    SQL.Add('(select tradecode xs,sum(qty) xsqty from tb_sell_detailed group by tradecode) c on c.xs=a.jh left join');
    SQL.Add('(select tradecode xsth,sum(qty) xsthqty from tb_resell_detailed group by tradecode) d on d.xsth=a.jh');
    Open;
  end;
end;

procedure TF_kcbd.SpeedButton1Click(Sender: TObject);
begin
  inherited;
  Panel1.Visible:=not(Panel1.Visible);
  if panel1.Visible=False then
  begin
    Application.CreateForm(TF_kcmx, F_kcmx);
    F_kcmx.ShowModal;
    F_kcmx.Free;
  end;
end;

procedure TF_kcbd.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  inherited;
  if Application.MessageBox('是否退出？','提示',mb_yesno)=Id_no then
    Canclose:=False;
  F_zct.mx:=0;
end;

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

procedure TF_kcbd.DBGrid1ColumnMoved(Sender: TObject; FromIndex,
  ToIndex: Integer);
begin
  inherited;
  Panel2.Caption:='商品全称：'+F_dm.ADOQuery1.Fields[1].AsString;
end;

procedure TF_kcbd.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
    Panel2.Caption:='商品全称：'+F_dm.ADOQuery1.Fields[1].AsString;
end;

procedure TF_kcbd.DBGrid1CellClick(Column: TColumn);
begin
  inherited;
  Panel2.Caption:='商品全称：'+F_dm.ADOQuery1.Fields[1].AsString;
end;

end.