fkczk.pas

进销存开发系统

unit Fkczk;

interface

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

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

var
                                                                                     F_kczk: TF_kczk;

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

procedure TF_kczk.FormShow(Sender: TObject);
var
  grow:integer;
  mone,qty:real;
begin
  inherited;
  datetimepicker1.Date:=now;
  datetimepicker2.Date:=now;
  Panel2.Caption:='请选择商品';
  F_zct.mx:=1;
  mone:=0;
  qty:=0;
  with F_dm.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select tradecode 商品编号,fullnamed 商品全称,qty 库存数量,');
    SQL.Add('averageprice 商品均价,averageprice*qty 库存总价 from tb_stock order by tradecode');
    Open;
  end;
  if F_dm.ADOQuery1.RecordCount=0 then
  begin
    Application.MessageBox('无库存商品','提示',mb_ok);
  end;
  F_dm.ADOQuery1.First;
  for grow:=1 to F_dm.ADOQuery1.RecordCount do
  begin
    qty:=qty+F_dm.Adoquery1.Fields[2].AsFloat;
    mone:=mone+F_dm.Adoquery1.Fields[4].AsFloat;
    F_dm.ADOQuery1.Next;
  end;
  statusbar1.Panels[1].Text:='库存数量：'+floattostr(qty);
  statusbar1.Panels[2].Text:='库存金额：'+format('%10.4f',[mone]);
  statusbar1.Panels[3].Text:='商品种类：'+inttostr(F_dm.Adoquery1.RecordCount);
end;

procedure TF_kczk.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_kczk.SpeedButton2Click(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TF_kczk.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_kczk.DBGrid1CellClick(Column: TColumn);
begin
  inherited;
  Panel2.Caption:='商品全称：'+F_dm.ADOQuery1.Fields[1].AsString;
end;

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

end.