uaccept.pas

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

unit uAccept;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, ComCtrls, StdCtrls, Buttons, ExtCtrls, ADODB, Db, Mask,
  DBCtrls,Menus;

type
  TfrmAccept = class(TForm)
    Panel1: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    DBGrid1: TDBGrid;
    TabSheet2: TTabSheet;
    DBGrid2: TDBGrid;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    ADOQuery1: TADOQuery;
    Panel10: TPanel;
    Label8: TLabel;
    Label9: TLabel;
    Panel11: TPanel;
    Label6: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit7: TDBEdit;
    Label7: TLabel;
    Label10: TLabel;
    DBEdit8: TDBEdit;
    Label11: TLabel;
    DBEdit9: TDBEdit;
    Label12: TLabel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    ADOQuery2: TADOQuery;
    ADOQuery2AcceptNo: TIntegerField;
    ADOQuery2PluCode: TWideStringField;
    ADOQuery2barcode: TWideStringField;
    ADOQuery2PluName: TWideStringField;
    ADOQuery2CargoNo: TWideStringField;
    ADOQuery2Spec: TWideStringField;
    ADOQuery2Unit: TWideStringField;
    ADOQuery2JPrice: TBCDField;
    ADOQuery2NetJPrice: TBCDField;
    ADOQuery2Price: TBCDField;
    ADOQuery2Count1: TBCDField;
    ADOQuery2Count2: TBCDField;
    ADOQuery2Cost: TBCDField;
    ADOQuery2NetCost: TBCDField;
    ADOQuery2Total: TBCDField;
    ADOQuery2JTaxRate: TWordField;
    ADOQuery2ProductDate: TDateTimeField;
    ADOQuery2QualityDate: TDateTimeField;
    ADOQuery2ThCount: TBCDField;
    ADOQuery2difsum: TBCDField;
    ADOQuery2Tag: TWideStringField;
    ADOConnection1: TADOConnection;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ADOStoredProc1: TADOStoredProc;
    procedure FormShow(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure FDefine(var Message: TMessage); message wm_user;
    procedure BeforeSee(var Message: TMessage); message wm_user+1;
    procedure FPrinters(var Message: TMessage); message wm_user+2;
  end;

var
  frmAccept: TfrmAccept;

implementation
  uses import1, Umain;

{$R *.DFM}


procedure TfrmAccept.FDefine(var Message: TMessage);
begin
  if PageControl1.ActivePageIndex=0 then SetReport(Application.Handle,'16','eesc')
  else SetReport(Application.Handle,'2','eekc');
end;

procedure TfrmAccept.FPrinters(var Message: TMessage);
begin
  if PageControl1.ActivePageIndex=0 then
     CreateReport(Application.Handle,ADOConnection1.ConnectionString,'16',
                  nil,TAdoQuery(DataSource1.DataSet),true)
  else
     CreateReport(Application.Handle,ADOConnection1.ConnectionString,'2',
                 (TAdoQuery(DataSource1.DataSet)),TAdoQuery(DataSource2.DataSet),true);
end;

procedure TfrmAccept.BeforeSee(var Message: TMessage);
begin
  if PageControl1.ActivePageIndex=0 then
     CreateReport(Application.Handle,ADOConnection1.ConnectionString,'16',
                  nil,TAdoQuery(DataSource1.DataSet),false)
  else
     CreateReport(Application.Handle,ADOConnection1.ConnectionString,'2',
                 (TAdoQuery(DataSource1.DataSet)),TAdoQuery(DataSource2.DataSet),false);
end;

procedure TfrmAccept.FormShow(Sender: TObject);
begin
  ADOStoredProc1.close;  ADOStoredProc1.open;
  PageControl1.ActivePageIndex:=0;
end;

procedure TfrmAccept.PageControl1Change(Sender: TObject);
var
ss:string;
begin
  if (PageControl1.ActivePageIndex=1)And
            (ADOStoredProc1.Active) And (ADOStoredProc1.RecordCount>0)  then
  begin
    ss:= ADOStoredProc1.fieldbyname('Acceptno').asstring;
    ADOQuery2.close;
    ADOQuery2.SQL.Clear;
    ADOQuery2.SQL.Add('select * from AcceptDetail where Acceptno=:aa');
    ADOQuery2.Parameters[0].value:=ss;
    ADOQuery2.open;
    DataSource2.dataSet:=ADOQuery2;
  end
  else
  begin
    DataSource2.dataSet:=nil;
  end;
end;

procedure TfrmAccept.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    ADOQuery1.Close;
    ADOQuery2.Close;
    ADOStoredProc1.Close;
    Action:=cafree;
end;

procedure TfrmAccept.Button1Click(Sender: TObject);
begin
  if PageControl1.ActivePageIndex=0 then
     CreateReport(Application.Handle,ADOConnection1.ConnectionString,'16',
                  nil,TAdoQuery(DataSource1.DataSet),false)
  else
     CreateReport(Application.Handle,ADOConnection1.ConnectionString,'2',
                 (TAdoQuery(DataSource1.DataSet)),TAdoQuery(DataSource2.DataSet),false);
end;

procedure TfrmAccept.Button2Click(Sender: TObject);
begin
  if PageControl1.ActivePageIndex=0 then
     CreateReport(Application.Handle,ADOConnection1.ConnectionString,'16',
                  nil,TAdoQuery(DataSource1.DataSet),true)
  else
     CreateReport(Application.Handle,ADOConnection1.ConnectionString,'2',
                 (TAdoQuery(DataSource1.DataSet)),TAdoQuery(DataSource2.DataSet),true);
end;

procedure TfrmAccept.Button3Click(Sender: TObject);
begin
  close;
end;

end.