ugoodsck.pas

相关的销售服务管理行业的一个软件

unit Ugoodsck;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, ADODB, StdCtrls, ExtCtrls, ComCtrls, Buttons, ToolWin, Grids, DBGrids,
  DBGridEh, PrnDbgeh;

type
  Tfrmgoodsck = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ToolButton1: TToolButton;
    SpeedButton5: TSpeedButton;
    Panel1: TPanel;
    Label2: TLabel;
    Label4: TLabel;
    ADOStoredProc1: TADOStoredProc;
    DataSource1: TDataSource;
    ADOStoredProc1ncode: TWideStringField;
    ADOStoredProc1ncolor: TWideStringField;
    ADOStoredProc1nCkCode: TWideStringField;
    ADOStoredProc1nFsCount: TIntegerField;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOStoredProc1sgoodname: TStringField;
    ADOStoredProc1ckname: TStringField;
    SpeedButton3: TSpeedButton;
    PrintDBGridEh1: TPrintDBGridEh;
    DBGridEh1: TDBGridEh;
    procedure SpeedButton3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmgoodsck: Tfrmgoodsck;

implementation

uses U_DM, UCxgoods, Umain, Uhzqd;

{$R *.DFM}

procedure Tfrmgoodsck.SpeedButton3Click(Sender: TObject);
var s:string;
begin
     if Frmcxgoods=nil then
     FrmCxgoods:=TFrmCxgoods.create(nil);
     FrmCxgoods.showmodal;
     if FrmCxgoods.ModalResult=mrok then
     begin
         if (frmgoodsck=nil) then
           frmgoodsck:=Tfrmgoodsck.Create(nil);
         s:=FrmCxgoods.ADOQuery1.FieldByName('ngdcode').Asstring;
         frmgoodsck.Label2.caption:='型体：'+FrmCxgoods.ADOQuery1.FieldByName('ngdName').Asstring;
         frmgoodsck.Label4.Caption :='时间：'+Datetostr(FrmCxgoods.DateTimePicker1.date)+' 到 '+Datetostr(FrmCxgoods.DateTimePicker2.date);
         frmgoodsck.ADOStoredProc1.Close ;
         frmgoodsck.ADOStoredProc1.Parameters.ParamByName('@nGdcode').value:=s;
         frmgoodsck.ADOStoredProc1.Parameters.ParamByName('@nDate1').value:=Datetostr(FrmCxgoods.DateTimePicker1.date);
         frmgoodsck.ADOStoredProc1.Parameters.ParamByName('@nDate2').value:=Datetostr(FrmCxgoods.DateTimePicker2.date);
         frmgoodsck.ADOStoredProc1.open;
         frmgoodsck.show;
     end;
end;

procedure Tfrmgoodsck.FormActivate(Sender: TObject);
begin
    frmmain.Outlook1.Visible:=False;
  frmmain.Panel1.Visible:=true;
  frmmain.Panel2.Visible:=false;
end;

procedure Tfrmgoodsck.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Frmmain.Outlook1.Visible :=true;
    frmmain.Panel1.Visible:=true;
    Frmmain.Panel2.Visible:=True;
    Frmgoodsck:=nil;
    action:=cafree;
end;

procedure Tfrmgoodsck.SpeedButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrmgoodsck.SpeedButton1Click(Sender: TObject);
begin
  PrintDBGridEh1.PageHeader.CenterText.clear;
  PrintDBGridEh1.PageHeader.CenterText.Add('货品的销售情况');
  PrintDBGridEh1.PageHeader.CenterText.Add('');
  PrintDBGridEh1.PageHeader.CenterText.Add('');


  PrintDBGridEh1.PageHeader.LeftText.Clear;
  PrintDBGridEh1.PageHeader.LeftText.add('');
  PrintDBGridEh1.PageHeader.LeftText.add('');
  PrintDBGridEh1.PageHeader.LeftText.add(label2.caption+'  '+Label4.caption);
  PrintDBGridEh1.Preview ;
end;

procedure Tfrmgoodsck.SpeedButton2Click(Sender: TObject);
begin
PrintDBGridEh1.Print ;
end;

end.