udj.pas

delphi 源码 小型企业管理软件

unit uDJ;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, se_controls, KsSkinTabs, Grids, DBGrids, JvExDBGrids, JvDBGrid,
  StdCtrls, Mask, DBCtrls, KsSkinButtons, KsSkinLabels, KsSkinPanels,
  ExtCtrls, DBCtrlsEh, KsSkinDBControls, JvExControls, JvComponent,
  JvEnterTab, JvDBLookup, wwdblook, DB, uBaseForm, ADODB, frxClass,
  frxDBSet;

type
  TfrmDJ = class(TfrmBase)
    SeSkinPageControl1: TSeSkinPageControl;
    SeCustomTabSheet1: TSeCustomTabSheet;
    SeCustomTabSheet2: TSeCustomTabSheet;
    SeCustomTabSheet3: TSeCustomTabSheet;
    SeCustomTabSheet4: TSeCustomTabSheet;
    SeCustomTabSheet5: TSeCustomTabSheet;
    SeCustomTabSheet6: TSeCustomTabSheet;
    Panel1: TPanel;
    SeSkinPanel1: TSeSkinPanel;
    SeSkinLabel1: TSeSkinLabel;
    SeSkinLabel2: TSeSkinLabel;
    SeSkinLabel7: TSeSkinLabel;
    JvEnterAsTab1: TJvEnterAsTab;
    SeSkinLabel5: TSeSkinLabel;
    SeSkinButton3: TSeSkinButton;
    SeSkinButton4: TSeSkinButton;
    DBEdit3: TDBEdit;
    SeSkinButton5: TSeSkinButton;
    SeSkinButton6: TSeSkinButton;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    DBDateTimeEditEh2: TDBDateTimeEditEh;
    SeSkinButton31: TSeSkinButton;
    SeSkinButton32: TSeSkinButton;
    wwDBLookupCombo5: TwwDBLookupCombo;
    SeSkinButton33: TSeSkinButton;
    JvDBGrid1: TJvDBGrid;
    Splitter1: TSplitter;
    Panel2: TPanel;
    SeSkinPanel2: TSeSkinPanel;
    SeSkinLabel3: TSeSkinLabel;
    SeSkinLabel6: TSeSkinLabel;
    SeSkinLabel8: TSeSkinLabel;
    SeSkinLabel29: TSeSkinLabel;
    DBEdit4: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit1: TDBEdit;
    wwDBLookupCombo2: TwwDBLookupCombo;
    JvDBGrid2: TJvDBGrid;
    SeSkinButton13: TSeSkinButton;
    SeSkinButton14: TSeSkinButton;
    SeSkinButton15: TSeSkinButton;
    SeSkinButton16: TSeSkinButton;
    Q_poHead: TADOQuery;
    Q_poHeadpoid: TStringField;
    Q_poHeadkhid: TStringField;
    Q_poHeadpodate: TDateTimeField;
    Q_poHeadneedDate: TDateTimeField;
    Q_poHeadkhname: TStringField;
    Q_poHeadifok: TStringField;
    D_poHead: TDataSource;
    Q_poBody: TADOQuery;
    Q_poBodypoid: TStringField;
    Q_poBodyspno: TStringField;
    Q_poBodyqty: TFloatField;
    Q_poBodyprice: TFloatField;
    Q_poBodyamt: TFloatField;
    Q_poBodyspname: TStringField;
    Q_poBodyspspec: TStringField;
    D_poBody: TDataSource;
    Q_poBodyspnunit: TStringField;
    Q_boHead: TADOQuery;
    Q_boBody: TADOQuery;
    FloatField1: TFloatField;
    FloatField2: TFloatField;
    FloatField3: TFloatField;
    StringField7: TStringField;
    StringField8: TStringField;
    StringField9: TStringField;
    D_boBody: TDataSource;
    D_boHead: TDataSource;
    Q_boHeadboid: TStringField;
    Q_boHeadkhid: TStringField;
    Q_boHeadbodate: TDateTimeField;
    Q_boHeadneedDate: TDateTimeField;
    Q_boHeadifok: TStringField;
    Q_boBodyboid: TStringField;
    Q_boBodyljno: TStringField;
    Panel3: TPanel;
    SeSkinPanel3: TSeSkinPanel;
    SeSkinLabel4: TSeSkinLabel;
    SeSkinLabel9: TSeSkinLabel;
    SeSkinLabel10: TSeSkinLabel;
    JvEnterAsTab2: TJvEnterAsTab;
    SeSkinLabel11: TSeSkinLabel;
    SeSkinButton1: TSeSkinButton;
    SeSkinButton2: TSeSkinButton;
    DBEdit2: TDBEdit;
    SeSkinButton7: TSeSkinButton;
    SeSkinButton8: TSeSkinButton;
    DBDateTimeEditEh3: TDBDateTimeEditEh;
    DBDateTimeEditEh4: TDBDateTimeEditEh;
    SeSkinButton9: TSeSkinButton;
    wwDBLookupCombo1: TwwDBLookupCombo;
    SeSkinButton11: TSeSkinButton;
    JvDBGrid3: TJvDBGrid;
    Splitter2: TSplitter;
    Panel4: TPanel;
    SeSkinPanel4: TSeSkinPanel;
    SeSkinLabel12: TSeSkinLabel;
    SeSkinLabel13: TSeSkinLabel;
    SeSkinLabel14: TSeSkinLabel;
    SeSkinLabel15: TSeSkinLabel;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit8: TDBEdit;
    wwDBLookupCombo3: TwwDBLookupCombo;
    SeSkinButton12: TSeSkinButton;
    SeSkinButton17: TSeSkinButton;
    SeSkinButton18: TSeSkinButton;
    SeSkinButton19: TSeSkinButton;
    JvDBGrid4: TJvDBGrid;
    SeSkinButton20: TSeSkinButton;
    Panel5: TPanel;
    SeSkinPanel5: TSeSkinPanel;
    SeSkinLabel16: TSeSkinLabel;
    SeSkinLabel17: TSeSkinLabel;
    SeSkinLabel18: TSeSkinLabel;
    SeSkinLabel19: TSeSkinLabel;
    SeSkinLabel20: TSeSkinLabel;
    SeSkinButton21: TSeSkinButton;
    SeSkinButton22: TSeSkinButton;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    SeSkinButton23: TSeSkinButton;
    SeSkinButton24: TSeSkinButton;
    DBDateTimeEditEh5: TDBDateTimeEditEh;
    JvDBLookupCombo2: TJvDBLookupCombo;
    DBDateTimeEditEh6: TDBDateTimeEditEh;
    SeSkinButton25: TSeSkinButton;
    SeSkinButton29: TSeSkinButton;
    SeSkinButton30: TSeSkinButton;
    JvDBGrid5: TJvDBGrid;
    Panel6: TPanel;
    SeSkinPanel6: TSeSkinPanel;
    SeSkinLabel21: TSeSkinLabel;
    SeSkinLabel22: TSeSkinLabel;
    SeSkinLabel23: TSeSkinLabel;
    SeSkinLabel24: TSeSkinLabel;
    SeSkinLabel28: TSeSkinLabel;
    SeSkinButton26: TSeSkinButton;
    SeSkinButton27: TSeSkinButton;
    DBEdit9: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    SeSkinButton28: TSeSkinButton;
    SeSkinButton34: TSeSkinButton;
    DBEdit14: TDBEdit;
    wwDBLookupCombo4: TwwDBLookupCombo;
    JvDBGrid6: TJvDBGrid;
    Splitter3: TSplitter;
    Q_moHead: TADOQuery;
    Q_moHeadmoid: TStringField;
    Q_moHeadkhid: TStringField;
    Q_moHeadneeddate: TDateTimeField;
    Q_moHeadmoDate: TDateTimeField;
    Q_moHeadpoid: TStringField;
    Q_moHeadifok: TStringField;
    D_moHead: TDataSource;
    Q_moBody: TADOQuery;
    Q_moBodymoid: TStringField;
    Q_moBodyspno: TStringField;
    Q_moBodyqty: TFloatField;
    D_moBody: TDataSource;
    Panel7: TPanel;
    SeSkinPanel7: TSeSkinPanel;
    SeSkinLabel25: TSeSkinLabel;
    SeSkinLabel26: TSeSkinLabel;
    SeSkinLabel27: TSeSkinLabel;
    SeSkinButton35: TSeSkinButton;
    SeSkinButton36: TSeSkinButton;
    DBEdit15: TDBEdit;
    SeSkinButton37: TSeSkinButton;
    SeSkinButton38: TSeSkinButton;
    DBDateTimeEditEh7: TDBDateTimeEditEh;
    SeSkinButton39: TSeSkinButton;
    SeSkinButton40: TSeSkinButton;
    SeSkinButton41: TSeSkinButton;
    wwDBLookupCombo6: TwwDBLookupCombo;
    JvDBGrid7: TJvDBGrid;
    Panel8: TPanel;
    SeSkinPanel8: TSeSkinPanel;
    SeSkinLabel30: TSeSkinLabel;
    SeSkinLabel31: TSeSkinLabel;
    SeSkinLabel32: TSeSkinLabel;
    SeSkinLabel33: TSeSkinLabel;
    SeSkinLabel34: TSeSkinLabel;
    SeSkinLabel35: TSeSkinLabel;
    SeSkinButton42: TSeSkinButton;
    SeSkinButton43: TSeSkinButton;
    DBEdit16: TDBEdit;
    DBEdit17: TDBEdit;
    SeSkinButton44: TSeSkinButton;
    SeSkinButton45: TSeSkinButton;
    DBEdit18: TDBEdit;
    DBEdit19: TDBEdit;
    JvDBLookupCombo4: TJvDBLookupCombo;
    JvDBGrid8: TJvDBGrid;
    Splitter4: TSplitter;
    Q_invHead: TADOQuery;
    Q_invHeadinvid: TStringField;
    Q_invHeadkhid: TStringField;
    Q_invHeadinvDate: TDateTimeField;
    Q_invHeadinvType: TStringField;
    Q_invHeadioType: TSmallintField;
    Q_invHeadkhname: TStringField;
    Q_invHeadifok: TStringField;
    D_invHead: TDataSource;
    Q_invBody: TADOQuery;
    StringField5: TStringField;
    FloatField4: TFloatField;
    FloatField5: TFloatField;
    FloatField6: TFloatField;
    StringField6: TStringField;
    StringField1: TStringField;
    Q_invBodyinvid: TStringField;
    Q_invBodyrem: TStringField;
    D_invBody: TDataSource;
    wwDBLookupCombo7: TwwDBLookupCombo;
    Q_invBodyunit: TStringField;
    Q_invHeadspType: TSmallintField;
    Panel9: TPanel;
    SeSkinPanel9: TSeSkinPanel;
    SeSkinLabel36: TSeSkinLabel;
    SeSkinLabel37: TSeSkinLabel;
    SeSkinLabel38: TSeSkinLabel;
    SeSkinButton46: TSeSkinButton;
    SeSkinButton47: TSeSkinButton;
    DBEdit20: TDBEdit;
    SeSkinButton48: TSeSkinButton;
    SeSkinButton49: TSeSkinButton;
    DBDateTimeEditEh8: TDBDateTimeEditEh;
    SeSkinButton50: TSeSkinButton;
    SeSkinButton51: TSeSkinButton;
    SeSkinButton52: TSeSkinButton;
    wwDBLookupCombo8: TwwDBLookupCombo;
    JvDBGrid9: TJvDBGrid;
    Panel10: TPanel;
    SeSkinPanel10: TSeSkinPanel;
    SeSkinLabel39: TSeSkinLabel;
    SeSkinLabel40: TSeSkinLabel;
    SeSkinLabel41: TSeSkinLabel;
    SeSkinLabel42: TSeSkinLabel;
    SeSkinLabel44: TSeSkinLabel;
    SeSkinButton53: TSeSkinButton;
    SeSkinButton54: TSeSkinButton;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    SeSkinButton55: TSeSkinButton;
    SeSkinButton56: TSeSkinButton;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    wwDBLookupCombo9: TwwDBLookupCombo;
    JvDBGrid10: TJvDBGrid;
    Splitter5: TSplitter;
    Q_mrpHead: TADOQuery;
    Q_mrp: TADOQuery;
    D_mrpHead: TDataSource;
    D_mrp: TDataSource;
    Q_mrpHeadpoid: TStringField;
    Q_mrpHeadneedDate: TDateTimeField;
    Q_mrpHeadstatus: TStringField;
    Q_mrpHeadboid: TStringField;
    Q_mrppoid: TStringField;
    Q_mrpspno: TStringField;
    Q_mrpqtyNeed: TFloatField;
    Q_mrpqtyPO: TFloatField;
    Q_mrpqtyLeft: TFloatField;
    Q_mrpInvQty: TFloatField;
    Q_mrpInvQtyUsed: TFloatField;
    Q_mrpInvQtyComing: TFloatField;
    Q_mrpkhid: TStringField;
    Q_mrpprice: TFloatField;
    Q_mrpspname: TStringField;
    Q_mrpspspec: TStringField;
    Q_mrpunit: TStringField;
    Panel11: TPanel;
    SeSkinPanel11: TSeSkinPanel;
    SeSkinButton57: TSeSkinButton;
    SeSkinButton58: TSeSkinButton;
    SeSkinButton59: TSeSkinButton;
    SeSkinButton60: TSeSkinButton;
    SeSkinButton61: TSeSkinButton;
    JvDBGrid11: TJvDBGrid;
    Label2: TLabel;
    Label3: TLabel;
    DBEdit27: TDBEdit;
    DBDateTimeEditEh9: TDBDateTimeEditEh;
    SeSkinButton62: TSeSkinButton;
    Splitter6: TSplitter;
    Panel12: TPanel;
    SeSkinPanel12: TSeSkinPanel;
    SeSkinLabel45: TSeSkinLabel;
    SeSkinLabel46: TSeSkinLabel;
    SeSkinLabel47: TSeSkinLabel;
    SeSkinLabel48: TSeSkinLabel;
    SeSkinLabel49: TSeSkinLabel;
    SeSkinButton63: TSeSkinButton;
    SeSkinButton64: TSeSkinButton;
    DBEdit26: TDBEdit;
    DBEdit28: TDBEdit;
    SeSkinButton65: TSeSkinButton;
    SeSkinButton66: TSeSkinButton;
    DBEdit29: TDBEdit;
    wwDBLookupCombo10: TwwDBLookupCombo;
    JvDBGrid12: TJvDBGrid;
    Q_mrpamt: TFloatField;
    Q_invHeadpoid: TStringField;
    SeSkinLabel43: TSeSkinLabel;
    JvDBLookupCombo1: TJvDBLookupCombo;
    JvDBLookupCombo5: TJvDBLookupCombo;
    Q_mrpkhname: TStringField;
    Q_mrpQtyDiff: TFloatField;
    frxDBDataset1: TfrxDBDataset;
    frxDBDataset2: TfrxDBDataset;
    frxDBDataset3: TfrxDBDataset;
    frxDBDataset4: TfrxDBDataset;
    frxDBDataset5: TfrxDBDataset;
    frxReport1: TfrxReport;
    frxDBDataset6: TfrxDBDataset;
    frxDBDataset7: TfrxDBDataset;
    Q_boHeadpoid: TStringField;
    SeSkinLabel51: TSeSkinLabel;
    JvDBLookupCombo3: TJvDBLookupCombo;
    SeSkinLabel52: TSeSkinLabel;
    wwDBLookupCombo11: TwwDBLookupCombo;
    SeSkinLabel53: TSeSkinLabel;
    SeSkinLabel50: TSeSkinLabel;
    DBEdit25: TDBEdit;
    Q_invBodyqty2: TFloatField;

    procedure FormShow(Sender: TObject);
    procedure FormDestroy(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Q_poHeadNewRecord(DataSet: TDataSet);
    procedure Q_poHeadBeforeDelete(DataSet: TDataSet);
    procedure Q_poBodyqtyChange(Sender: TField);
    procedure SeSkinButton5Click(Sender: TObject);
    procedure SeSkinButton6Click(Sender: TObject);
    procedure SeSkinButton15Click(Sender: TObject);
    procedure SeSkinButton16Click(Sender: TObject);
    procedure SeSkinButton32Click(Sender: TObject);
    procedure Q_boHeadBeforeDelete(DataSet: TDataSet);
    procedure Q_boHeadNewRecord(DataSet: TDataSet);
    procedure FloatField1Change(Sender: TField);
    procedure SeSkinButton20Click(Sender: TObject);
    procedure Q_moHeadBeforeDelete(DataSet: TDataSet);
    procedure Q_moHeadNewRecord(DataSet: TDataSet);
    procedure Q_moHeadmoidChange(Sender: TField);
    procedure JvDBLookupCombo2Change(Sender: TObject);
    procedure Q_invHeadBeforeDelete(DataSet: TDataSet);
    procedure Q_invHeadNewRecord(DataSet: TDataSet);
    procedure Q_invHeadinvidChange(Sender: TField);
    procedure FloatField4Change(Sender: TField);
    procedure SeSkinButton39Click(Sender: TObject);
    procedure Q_mrpHeadNewRecord(DataSet: TDataSet);
    procedure Q_mrpHeadBeforeDelete(DataSet: TDataSet);
    procedure SeSkinButton62Click(Sender: TObject);
    procedure Q_mrpHeadAfterScroll(DataSet: TDataSet);
    procedure Q_mrpHeadAfterOpen(DataSet: TDataSet);
    procedure Q_mrpCalcFields(DataSet: TDataSet);
    procedure SeSkinButton61Click(Sender: TObject);
    procedure SeSkinButton11Click(Sender: TObject);
    procedure frxReport1GetValue(const VarName: String;
      var Value: Variant);
    procedure SeSkinButton50Click(Sender: TObject);
    procedure wwDBLookupCombo2CloseUp(Sender: TObject; LookupTable,
      FillTable: TDataSet; modified: Boolean);
    procedure Q_mrpqtyPOChange(Sender: TField);
    procedure wwDBLookupCombo11CloseUp(Sender: TObject; LookupTable,
      FillTable: TDataSet; modified: Boolean);
    procedure wwDBLookupCombo3CloseUp(Sender: TObject; LookupTable,
      FillTable: TDataSet; modified: Boolean);
    procedure SeSkinButton52Click(Sender: TObject);
    procedure wwDBLookupCombo9CloseUp(Sender: TObject; LookupTable,
      FillTable: TDataSet; modified: Boolean);
    procedure JvDBLookupCombo1CloseUp(Sender: TObject);
    procedure JvDBLookupCombo4CloseUp(Sender: TObject);

  private
    pageCap: string;
    GrandTotal: Double;
    procedure PreparePage;
    function GetioTYpe(invType: string): integer;
    function GetspTYpe(invType: string): integer;
    function GetFeature(invType: string; idx: integer): integer;
    function GetFeatureStr(invType: string; idx: integer): string;
    function GetkhTYpe(invType: string): integer;
    function GetdjTYpe(invType: string): string;