【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-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.