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;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    Panel1: TPanel;
    Panel2: TPanel;
    DBGridEh1: TDBGridEh;
    Label1: TLabel;
    Label2: TLabel;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    PrintDBGridEh1: TPrintDBGridEh;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmhzqd: TFrmhzqd;
  ss:string;
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
   frmckcon:=Tfrmckcon.Create(nil);
   Frmckcon.ShowModal ;
   if (Frmckcon.ModalResult=mrok)   then
   begin
       if (frmhzqd=nil) then
       frmhzqd:=Tfrmhzqd.Create(nil);
       frmhzqd.Show;
       
   end;
   frmckcon.Free;
end;

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

procedure TFrmhzqd.FormCreate(Sender: TObject);
var
    s:string;
begin
    s:=Trim(frmckcon.DBEdit1.text);
    ss:=s;
    Seek(DBGridEh1,'s_qrdetail', '10','xs_rbd','  ((repitem<=43 and repitem>=29)  or repitem=18 or repitem=24 ) and kc_cktag=  '+''''+s+'''');
end;

procedure TFrmhzqd.SpeedButton4Click(Sender: TObject);
var
   con:string;

begin
   Frmset:= TFrmset.Create(nil);
   frmset.Caption :='项目设置';
   Frmset.Tag:=1;
   readset(Frmset.LstSet,'s_qrdetail','11','  ((repitem<=43 and repitem>=29)  or repitem=18  or repitem=24 )  and kc_cktag=  '+''''+ss+'''');
   Frmset.Label1.Caption:='显示项目';
   Frmset.ShowModal;
   con:='   kc_cktag=  '+''''+ss+'''';
   if   (Frmset.ModalResult=mrOk) then
   begin
      reset(Frmset.LstSet,'s_qrdetail','11',con);
      Seek(DBGridEh1,'s_qrdetail', '11','Sys_Cust_view','  ((repitem<=43 and repitem>=29)  or repitem=18 or repitem=24 )  and kc_cktag=  '+''''+ss+'''');
     /// dbgrideh1.Columns.Items[0].AlwaysShowEditButton :=true   ;
     // dbgrideh1.Columns.Items[0].AutoDropDown :=true    ;
     // dbgrideh1.Columns.Items[0].ButtonStyle  :=cbsDropDown;
   end;
   Frmset.free;
end;
procedure TFrmhzqd.SpeedButton2Click(Sender: TObject);
begin
PrintDBGridEh1.Print ;
end;

procedure TFrmhzqd.FormShow(Sender: TObject);
begin
   adoquery1.Close;
   adoquery1.open;
end;

procedure TFrmhzqd.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(label1.caption);
  PrintDBGridEh1.Preview ;
  



end;

end.