uhzqd.pas

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

unit Uhzqd;

interface

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

type
  TFrmhzqd = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Panel1: TPanel;
    Panel2: TPanel;
    DBGridEh1: TDBGridEh;
    Label2: TLabel;
    DataSource1: TDataSource;
    PrintDBGridEh1: TPrintDBGridEh;
    SpeedButton6: TSpeedButton;
    ADOStoredProc1: TADOStoredProc;
    Edit1: TEdit;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ADOStoredProc1CalcFields(DataSet: TDataSet);
    procedure Edit1Change(Sender: TObject);
    procedure DBGridEh1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure DBGridEh1TitleClick(Column: TColumnEh);
    procedure DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmhzqd: TFrmhzqd;
  ss:string;
  b:boolean;
implementation

uses Umain, Ufrmckcon, U_DM, Ufunction, Uset;

{$R *.DFM}

procedure TFrmhzqd.FormActivate(Sender: TObject);
begin
    frmmain.Outlook1.Visible:=False;
  frmmain.Panel1.Visible:=true;
  frmmain.Panel2.Visible:=false;
//  adoquery1.close;
 // adoquery1.open;
end;

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

procedure TFrmhzqd.SpeedButton3Click(Sender: TObject);
begin
   if frmckcon=nil then
   frmckcon:=Tfrmckcon.Create(nil);
   Frmckcon.ShowModal ;
   if (Frmckcon.ModalResult=mrok)   then
   begin
           if (Frmhzqd=nil) then
                 frmhzqd:=Tfrmhzqd.Create(nil);
            frmhzqd.Caption :=Frmckcon.DBLookupComboBox1.Text+'的库存情况' ;

            frmhzqd.Label1.caption:='商场：'+Frmckcon.DBLookupComboBox1.Text ;
            frmhzqd.Label2.caption:='单位：双';
            frmhzqd.Label4.Caption :='时间:'+datetostr(Frmckcon.DateTimePicker1.date);
            frmhzqd.ADOStoredProc1.close;
            frmhzqd.ADOStoredProc1.Parameters.ParamByName('@ckcode').value:=Trim(Frmckcon.DBEdit1.Text);
            frmhzqd.ADOStoredProc1.Parameters.ParamByName('@nDate1').value:=datetostr(Frmckcon.DateTimePicker1.date);
            frmhzqd.ADOStoredProc1.open;
            //frmhzqd.adoquery1.open;
            frmhzqd.Show;
   end;
end;

procedure TFrmhzqd.SpeedButton5Click(Sender: TObject);
begin
   ADOStoredProc1.active:=false;
   close;
end;

procedure TFrmhzqd.SpeedButton4Click(Sender: TObject);
var
   con,s:string;
    i:integer;
begin
//(repitem<=43 and repitem>=29)  or repitem=18  or repitem=24 )  and
   Frmset:= TFrmset.Create(nil);
   frmset.Caption :='项目设置';
   Frmset.Tag:=1;
   s:=Trim(frmckcon.DBEdit1.text);
   readset(Frmset.LstSet,'s_qrdetail','11','   location='''+'d'+'''  and  kc_cktag=  '+''''+s+'''');
   Frmset.Label1.Caption:='显示项目';
   Frmset.ShowModal;
   con:='   kc_cktag=  '+''''+ss+'''';
   if   (Frmset.ModalResult=mrOk) then
   begin
      reset(Frmset.LstSet,'s_qrdetail','11','   location='''+'d'+'''  and  kc_cktag=  '+''''+s+'''');
      dbgrideh1.DataSource :=nil;
      Seek(DBGridEh1,'s_qrdetail', '11','Sys_Cust_view','   location='''+'d'+'''  and  kc_cktag=  '+''''+s+'''');
      dbgrideh1.DataSource :=datasource1; 
      for i:=0 to dbgrideh1.Columns.Count-1 do
      begin
        if  dbgrideh1.Columns.Items[i].FieldName='nFsCount' then
        begin
         DBGridEh1.Columns.Items[i].Footer.FieldName:='nFsCount';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus1' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus1';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus2' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus2';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus3' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus3';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus4' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus4';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus5' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus5';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus6' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus6';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
                if  dbgrideh1.Columns.Items[i].FieldName='ncus6' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus6';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus7' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus7';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus8' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus8';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus9' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus9';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus10' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus10';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus11' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus11';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus12' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus12';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus13' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus13';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus14' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus14';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
        if  dbgrideh1.Columns.Items[i].FieldName='ncus15' then
        begin
          DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus15';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtsum;
        end;
         if  dbgrideh1.Columns.Items[i].FieldName='nGoodName' then
        begin
          //DBGridEh1.Columns.Items[i].Footer.FieldName:='ncus15';
          dbgrideh1.columns.items[i].Footer.Value:='合计';
          dbgrideh1.columns.items[i].Footer.ValueType :=fvtStaticText;

        end;
      end;
      if (dbgrideh1.sumlist.active=false) then
      dbgrideh1.SumList.Active :=true;
   end;
   Frmset.free;
end;
procedure TFrmhzqd.SpeedButton2Click(Sender: TObject);
begin
PrintDBGridEh1.Print ;
end;

procedure TFrmhzqd.FormShow(Sender: TObject);

var