ufmpo.pas

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

unit ufmpo;
                     
interface                

uses
  Windows, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, upub2, dxExEdtr, ActnList, ImgList, Menus, DB, ComCtrls,
  ToolWin, ExtCtrls, Tabs, dxCntner, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl,
  dxGrClms, wwdbdatetimepicker, DBCtrls, StdCtrls, Mask, dxGrClEx, dxEdLib,
  dxDBELib, dxExGrEd, dxEditor;

type
  Tfmpo = class(Tfmpub2)
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label3: TLabel;
    wwDBDateTimePicker1: TwwDBDateTimePicker;                      
    Label4: TLabel;
    Label5: TLabel;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    Label6: TLabel;
    DBLookupComboBox3: TDBLookupComboBox;
    Label7: TLabel;
    DBLookupComboBox4: TDBLookupComboBox;
    Label8: TLabel;
    DBLookupComboBox5: TDBLookupComboBox;
    Label9: TLabel;
    DBLookupComboBox6: TDBLookupComboBox;
    Label10: TLabel;
    DBLookupComboBox7: TDBLookupComboBox;
    Label11: TLabel;
    DBEdit2: TDBEdit;
    Label12: TLabel;
    DBEdit3: TDBEdit;
    Label13: TLabel;
    DBEdit4: TDBEdit;
    Label14: TLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    Label17: TLabel;
    DBEdit8: TDBEdit;
    Label18: TLabel;
    DBEdit9: TDBEdit;
    Label15: TLabel;
    dxDBButtonEdit1: TdxDBButtonEdit;
    GridMasPONo: TdxDBGridMaskColumn;
    GridMasCategoryName: TdxDBGridMaskColumn;
    GridMasVersion: TdxDBGridMaskColumn;
    GridMasOrderDate: TdxDBGridDateColumn;
    GridMasShipDate: TdxDBGridDateColumn;
    GridMasCompanyFrom: TdxDBGridLookupColumn;
    GridMasCompanyTo: TdxDBGridLookupColumn;
    GridMasVendorName: TdxDBGridLookupColumn;
    GridMasCurrencyName: TdxDBGridLookupColumn;
    GridMasRate: TdxDBGridMaskColumn;
    GridMasTax: TdxDBGridMaskColumn;
    GridMasShipViaName: TdxDBGridLookupColumn;
    GridMasPayModeName: TdxDBGridLookupColumn;
    GridMasPayTermName: TdxDBGridLookupColumn;
    GridMasCarriage: TdxDBGridMaskColumn;
    GridMasAdjust: TdxDBGridMaskColumn;
    GridMasDiscount1: TdxDBGridMaskColumn;
    GridMasTotalMoney: TdxDBGridMaskColumn;
    GridMasRemark: TdxDBGridMaskColumn;
    GridMasCreater: TdxDBGridMaskColumn;
    GridMasCreateDate: TdxDBGridDateColumn;
    GridMasUpdater: TdxDBGridMaskColumn;
    GridMasUpDateDate: TdxDBGridDateColumn;
    GridMasApprover: TdxDBGridMaskColumn;
    GridMasApproveDate: TdxDBGridDateColumn;
    GridMasConfirmer: TdxDBGridMaskColumn;
    GridMasConfirmDate: TdxDBGridDateColumn;
    GridEnterUnitName: TdxDBGridLookupColumn;
    GridEnterShipDate: TdxDBGridDateColumn;
    GridEnterDiscount: TdxDBGridMaskColumn;
    GridEnterSubtotal: TdxDBGridMaskColumn;
    GridEnterPartNo: TdxDBGridButtonColumn;
    GridEnterOrderNo: TdxDBGridButtonColumn;
    GridEnterPartNameC: TdxDBGridMaskColumn;
    GridEnterPartNameE: TdxDBGridMaskColumn;
    GridEnterModel: TdxDBGridMaskColumn;
    GridEnterColor: TdxDBGridMaskColumn;
    GridEnterQty: TdxDBGridCalcColumn;
    GridEnterPrice: TdxDBGridCalcColumn;
    GridSubOrderNo: TdxDBGridMaskColumn;
    GridSubPartNo: TdxDBGridMaskColumn;
    GridSubPartNameC: TdxDBGridMaskColumn;
    GridSubPartNameE: TdxDBGridMaskColumn;
    GridSubModel: TdxDBGridMaskColumn;
    GridSubColor: TdxDBGridMaskColumn;
    GridSubUnitID: TdxDBGridMaskColumn;
    GridSubUnitName: TdxDBGridMaskColumn;
    GridSubQty: TdxDBGridMaskColumn;
    GridSubPrice: TdxDBGridMaskColumn;
    GridSubArriveQty: TdxDBGridMaskColumn;
    GridSubArriveDate: TdxDBGridMaskColumn;
    GridSubShipDate: TdxDBGridMaskColumn;
    GridSubDiscount: TdxDBGridMaskColumn;
    GridSubSubtotal: TdxDBGridMaskColumn;
    DBMemo1: TDBMemo;
    Splitter1: TSplitter;
    GridMasFinished: TdxDBGridCheckColumn;
    GridSubBackQty: TdxDBGridMaskColumn;
    GridSubDifferQty: TdxDBGridMaskColumn;
    dxDBSpinEdit1: TdxDBSpinEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBMemo1Enter(Sender: TObject);
    procedure AEditExecute(Sender: TObject);
    procedure ASaveExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmpo: Tfmpo;

implementation

uses udmpo, SherryLib;

{$R *.dfm}

procedure Tfmpo.FormCreate(Sender: TObject);
begin
  inherited;
  DBEdit1.ReadOnly:=Exists(Format('select 1 from SysConfig where Note%dAutoNo=1 and ID=1',[1]));
end;

procedure Tfmpo.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ActiveControl<>DBMemo1 then inherited;
end;

procedure Tfmpo.DBMemo1Enter(Sender: TObject);
begin
  DMPO.CPoSub.Edit;
end;

procedure Tfmpo.AEditExecute(Sender: TObject);
begin
  inherited;
  DMPO.CPoSub.Edit;
end;

procedure Tfmpo.ASaveExecute(Sender: TObject);
begin
  inherited;
  //DMPO.CPoMas.RefreshRecord;
end;

end.