bproduct.pas

来自「三层ERP系统 (SQL)」· PAS 代码 · 共 255 行

unit BProduct;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MDIBase, dxExEdtr, MSNPopUp, FR_DSet, FR_DBSet, FR_Class, Menus,
  ActnList, DB, DBClient, StdCtrls, Mask, wwdbedit, dxTL, dxDBCtrl,
  dxCntner, dxDBTL, ExtCtrls, Grids, DBGridEh, ComCtrls, Wwdotdot, Wwdbcomb,
  wwcheckbox, DBCtrls, DBCtrlsEh, Buttons, ADODB, wwDialog, wwidlg, ExtDlgs,
  Word2000, OleServer, Jpeg;

Const
  WM_USER_GETDATA = WM_USER+1024;

type
  TfrmProduct = class(TfrmMDIBase)
    Panel1: TPanel;
    FormTitle: TLabel;
    Panel3: TPanel;
    btnExit: TButton;
    Panel2: TPanel;
    btnedit: TButton;
    btndelete: TButton;
    Panel4: TPanel;
    btnrefresh: TButton;
    btnsearch: TButton;
    btnprint: TButton;
    Button4: TButton;
    Button5: TButton;
    Panel5: TPanel;
    dxDBTreeList1: TdxDBTreeList;
    dxDBTreeList1Column1: TdxDBTreeListColumn;
    dxDBTreeList1Column2: TdxDBTreeListColumn;
    PlEdit: TPanel;
    CDSBaseinfo: TClientDataSet;
    DSbaseinfo: TDataSource;
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    Action3: TAction;
    Action4: TAction;
    Action5: TAction;
    frBaseinfo: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    MSNSaveinfo: TMSNPopUp;
    ActionList2: TActionList;
    acinsert: TAction;
    accopy: TAction;
    acmodify: TAction;
    acdelete: TAction;
    acrefresh: TAction;
    acsearch: TAction;
    acexit: TAction;
    btnadd: TButton;
    btncopy: TButton;
    acSave: TAction;
    acCancel: TAction;
    PGbase: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    grid: TDBGridEh;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    wwDBEdit1: TwwDBEdit;
    wwDBEdit2: TwwDBEdit;
    wwDBEdit3: TwwDBEdit;
    wwDBEdit4: TwwDBEdit;
    wwDBEdit5: TwwDBEdit;
    comboLevel: TwwDBComboBox;
    combounit: TwwDBComboBox;
    combounits: TwwDBComboBox;
    wwDBEdit6: TwwDBEdit;
    Label11: TLabel;
    wwDBEdit7: TwwDBEdit;
    wwDBEdit8: TwwDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    wwDBEdit9: TwwDBEdit;
    wwDBEdit10: TwwDBEdit;
    Label15: TLabel;
    wwDBEdit11: TwwDBEdit;
    Label16: TLabel;
    wwDBEdit12: TwwDBEdit;
    Label17: TLabel;
    wwDBEdit13: TwwDBEdit;
    Label18: TLabel;
    wwDBEdit14: TwwDBEdit;
    Label19: TLabel;
    Label20: TLabel;
    wwCheckBox1: TwwCheckBox;
    wwCheckBox2: TwwCheckBox;
    Label21: TLabel;
    DBMemo1: TDBMemo;
    Panel6: TPanel;
    Image1: TImage;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Bmpselect: TAction;
    BmpDelete: TAction;
    BmpSaveAs: TAction;
    Label22: TLabel;
    DBEditEh1: TDBEditEh;
    Button6: TButton;
    Button7: TButton;
    FileSelect: TAction;
    FileOpen: TAction;
    ppmreport: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    CDSTypeTree: TClientDataSet;
    DSTypetree: TDataSource;
    wwDBEdit15: TwwDBEdit;
    SbtnTypeSelect: TSpeedButton;
    wwDBEdit16: TwwDBEdit;
    wwLookupDlg: TwwLookupDialog;
    CDSProducttype: TClientDataSet;
    CDSProducttypefID: TIntegerField;
    CDSProducttypefParentID: TIntegerField;
    CDSProducttypefParentCode: TWideStringField;
    CDSProducttypefCode: TWideStringField;
    CDSProducttypefName: TWideStringField;
    CDSProducttypefNotes: TWideStringField;
    CDSBaseinfofID: TAutoIncField;
    CDSBaseinfofTypeId: TIntegerField;
    CDSBaseinfofTypeName: TWideStringField;
    CDSBaseinfofCode: TWideStringField;
    CDSBaseinfofName: TWideStringField;
    CDSBaseinfofSpec: TWideStringField;
    CDSBaseinfofEnglishName: TWideStringField;
    CDSBaseinfofColor: TWideStringField;
    CDSBaseinfofLevel: TWideStringField;
    CDSBaseinfofUnitName: TWideStringField;
    CDSBaseinfofunitSName: TWideStringField;
    CDSBaseinfofUnitRelation: TBCDField;
    CDSBaseinfofWholePrice: TBCDField;
    CDSBaseinfofRetailPrice: TBCDField;
    CDSBaseinfofPrePrice: TBCDField;
    CDSBaseinfofRefPrice: TBCDField;
    CDSBaseinfofMaxNum: TBCDField;
    CDSBaseinfofMinNum: TBCDField;
    CDSBaseinfofMaxSum: TBCDField;
    CDSBaseinfofMinSum: TBCDField;
    CDSBaseinfofStatus: TBooleanField;
    CDSBaseinfofNotes: TMemoField;
    CDSBaseinfofIsPackage: TBooleanField;
    CDSBaseinfofPicture: TWideStringField;
    CDSBaseinfofReadmeFile: TWideStringField;
    CDSunit: TClientDataSet;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    OpenDlg: TOpenDialog;
    WordDocument1: TWordDocument;
    WordApplication1: TWordApplication;
    procedure acexitExecute(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure gridGetCellParams(Sender: TObject; Column: TColumnEh;
      AFont: TFont; var Background: TColor; State: TGridDrawState);
    procedure FormCreate(Sender: TObject);
    procedure btnprintClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure DSbaseinfoStateChange(Sender: TObject);
    procedure DSbaseinfoDataChange(Sender: TObject; Field: TField);
    procedure SbtnTypeSelectClick(Sender: TObject);
    procedure dxDBTreeList1ChangeNode(Sender: TObject; OldNode,
      Node: TdxTreeListNode);
    procedure acinsertExecute(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure acSaveExecute(Sender: TObject);
    procedure acCancelExecute(Sender: TObject);
    procedure accopyExecute(Sender: TObject);
    procedure acmodifyExecute(Sender: TObject);
    procedure acdeleteExecute(Sender: TObject);
    procedure acrefreshExecute(Sender: TObject);
    procedure acsearchExecute(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
    procedure Action3Execute(Sender: TObject);
    procedure Action4Execute(Sender: TObject);
    procedure BmpselectExecute(Sender: TObject);
    procedure FileSelectExecute(Sender: TObject);
    procedure FileOpenExecute(Sender: TObject);
    procedure BmpDeleteExecute(Sender: TObject);
    procedure BmpSaveAsExecute(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    MainTable:string;
    KeyField:String;
    ReportName:string;
    ITypeID:integer;
    procedure Getdata(var getdata:Tmessage);Message WM_USER_GETDATA;
    procedure SetDropValue;
    function CheckSave :Boolean;
    procedure RefreshData;
    procedure AssignJPG;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmProduct: TfrmProduct;

implementation

uses Global, DataProcess, Bsearch, BImageBrowse;

{$R *.dfm}

procedure TfrmProduct.acexitExecute(Sender: TObject);
begin
  inherited;
  Close;
end;

procedure TfrmProduct.FormDestroy(Sender: TObject);
begin
  inherited;
  frmProduct:=nil;
end;

procedure TfrmProduct.gridGetCellParams(Sender: TObject; Column: TColumnEh;
  AFont: TFont; var Background: TColor; State: TGridDrawState);
begin
  inherited;
  if grid.SumList.RecNo mod 2=1 then
    BackGround:=$00EAEFED
    else
    BackGround:=clWhite;
end;

procedure TfrmProduct.FormCreate(Sender: TObject);
begin
  inherited;
  FormTitle.Caption:='玻珇戈