ubasedata.pas

delphi 源码 小型企业管理软件

unit uBaseData;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, se_controls, KsSkinButtons,
  KsSkinLabels, KsSkinPanels, Grids, DBGrids, JvExDBGrids, JvDBGrid,
  KsSkinTabs, JvExControls, JvComponent, JvEnterTab, ExtCtrls, JvDBLookup,
  JvExStdCtrls, JvDBCombobox, wwdbedit, Wwdotdot, Wwdbcomb, DB, wwdblook,
  KsSkinComboBoxs, uBaseForm, ADODB;

type
  TfBaseData = class(TfrmBase)
    SeSkinPageControl1: TSeSkinPageControl;
    SeCustomTabSheet1: TSeCustomTabSheet;
    SeCustomTabSheet2: TSeCustomTabSheet;
    SeCustomTabSheet3: TSeCustomTabSheet;
    SeCustomTabSheet4: TSeCustomTabSheet;
    SeCustomTabSheet5: TSeCustomTabSheet;
    Q_kh: TADOQuery;
    JvDBGrid4: TJvDBGrid;
    SeSkinPanel4: TSeSkinPanel;
    SeSkinLabel9: TSeSkinLabel;
    SeSkinLabel10: TSeSkinLabel;
    SeSkinLabel11: TSeSkinLabel;
    SeSkinLabel12: TSeSkinLabel;
    SeSkinLabel13: TSeSkinLabel;
    SeSkinLabel27: TSeSkinLabel;
    JvEnterAsTab1: TJvEnterAsTab;
    SeSkinButton7: TSeSkinButton;
    SeSkinButton8: TSeSkinButton;
    SeSkinDBEdit9: TDBEdit;
    SeSkinDBEdit10: TDBEdit;
    SeSkinDBEdit11: TDBEdit;
    SeSkinDBEdit12: TDBEdit;
    SeSkinDBEdit13: TDBEdit;
    DBEdit1: TDBEdit;
    SeSkinButton1: TSeSkinButton;
    SeSkinButton2: TSeSkinButton;
    D_kh: TDataSource;
    SeSkinLabel1: TSeSkinLabel;
    SeSkinLabel2: TSeSkinLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Q_khkhid: TStringField;
    Q_khkhType: TSmallintField;
    Q_khkhname: TStringField;
    Q_khtel: TStringField;
    Q_khfax: TStringField;
    Q_khaddr: TStringField;
    Q_khpostalCode: TStringField;
    Q_khlinkman: TStringField;
    Q_khwebsite: TStringField;
    Q_khemail: TStringField;
    Q_khremark: TStringField;
    SeSkinLabel4: TSeSkinLabel;
    SeSkinLabel5: TSeSkinLabel;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    JvDBGrid1: TJvDBGrid;
    SeSkinPanel1: TSeSkinPanel;
    SeSkinButton3: TSeSkinButton;
    SeSkinButton4: TSeSkinButton;
    SeSkinButton5: TSeSkinButton;
    SeSkinButton6: TSeSkinButton;
    Q_LJ: TADOQuery;
    D_LJ: TDataSource;
    Q_LJspType: TIntegerField;
    Q_LJspno: TStringField;
    Q_LJspname: TStringField;
    Q_LJspspec: TStringField;
    Q_LJspunit: TStringField;
    Q_LJinvQty: TFloatField;
    Q_LJremark: TStringField;
    Label1: TLabel;
    DBEdit4: TDBEdit;
    Label2: TLabel;
    DBEdit5: TDBEdit;
    Label3: TLabel;
    DBEdit8: TDBEdit;
    Label4: TLabel;
    Label6: TLabel;
    DBEdit11: TDBEdit;
    Q_CP: TADOQuery;
    IntegerField1: TIntegerField;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    FloatField2: TFloatField;
    StringField5: TStringField;
    D_CP: TDataSource;
    JvDBGrid2: TJvDBGrid;
    SeSkinPanel2: TSeSkinPanel;
    SeSkinButton9: TSeSkinButton;
    SeSkinButton10: TSeSkinButton;
    SeSkinButton11: TSeSkinButton;
    SeSkinButton12: TSeSkinButton;
    Q_BOM: TADOQuery;
    D_BOM: TDataSource;
    Q_BOMspno: TStringField;
    Q_BOMljno: TStringField;
    Q_BOMQty: TFloatField;
    Q_BOMljname: TStringField;
    Q_BOMljspec: TStringField;
    Q_BOMljunit: TStringField;
    Panel1: TPanel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit14: TDBEdit;
    DBEdit17: TDBEdit;
    Splitter1: TSplitter;
    Panel2: TPanel;
    JvDBGrid3: TJvDBGrid;
    SeSkinPanel3: TSeSkinPanel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    SeSkinButton13: TSeSkinButton;
    SeSkinButton14: TSeSkinButton;
    SeSkinButton15: TSeSkinButton;
    SeSkinButton16: TSeSkinButton;
    DBEdit19: TDBEdit;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    JvDBComboBox2: TJvDBComboBox;
    SeSkinButton22: TSeSkinButton;
    JvDBComboBox3: TJvDBComboBox;
    SeSkinButton17: TSeSkinButton;
    wwDBLookupCombo2: TwwDBLookupCombo;
    JvDBGrid5: TJvDBGrid;
    SeSkinPanel5: TSeSkinPanel;
    SeSkinButton18: TSeSkinButton;
    SeSkinButton19: TSeSkinButton;
    SeSkinButton20: TSeSkinButton;
    SeSkinButton21: TSeSkinButton;
    Q_mrp: TADOQuery;
    D_mrp: TDataSource;
    Q_mrppoid: TStringField;
    Q_mrpspno: TStringField;
    Q_mrpqtyNeed: TFloatField;
    Q_mrpqtyPO: TFloatField;
    Q_mrpqtyLeft: TFloatField;
    Q_mrpboid: TStringField;
    Label18: TLabel;
    DBEdit9: TDBEdit;
    Label19: TLabel;
    DBEdit15: TDBEdit;
    Label20: TLabel;
    DBLookupComboBox1: TDBLookupComboBox;
    Label21: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    Label22: TLabel;
    DBLookupComboBox3: TDBLookupComboBox;
    Label23: TLabel;
    DBEdit18: TDBEdit;
    Label24: TLabel;
    DBEdit23: TDBEdit;
    Label25: TLabel;
    DBEdit24: TDBEdit;
    Q_mrpchecked: TIntegerField;
    Q_mrpid: TIntegerField;
    Q_khsupType: TStringField;
    JvDBGrid6: TJvDBGrid;
    SeSkinPanel6: TSeSkinPanel;
    SeSkinLabel6: TSeSkinLabel;
    SeSkinLabel7: TSeSkinLabel;
    SeSkinLabel8: TSeSkinLabel;
    SeSkinLabel14: TSeSkinLabel;
    SeSkinLabel15: TSeSkinLabel;
    SeSkinLabel16: TSeSkinLabel;
    SeSkinLabel17: TSeSkinLabel;
    SeSkinLabel18: TSeSkinLabel;
    SeSkinLabel19: TSeSkinLabel;
    SeSkinLabel20: TSeSkinLabel;
    SeSkinLabel21: TSeSkinLabel;
    SeSkinButton23: TSeSkinButton;
    SeSkinButton24: TSeSkinButton;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBEdit27: TDBEdit;
    DBEdit28: TDBEdit;
    DBEdit29: TDBEdit;
    DBEdit30: TDBEdit;
    SeSkinButton25: TSeSkinButton;
    SeSkinButton26: TSeSkinButton;
    DBEdit31: TDBEdit;
    DBEdit32: TDBEdit;
    DBEdit33: TDBEdit;
    DBEdit34: TDBEdit;
    wwDBLookupCombo3: TwwDBLookupCombo;
    SeCustomTabSheet6: TSeCustomTabSheet;
    JvDBGrid7: TJvDBGrid;
    SeSkinPanel7: TSeSkinPanel;
    SeSkinButton27: TSeSkinButton;
    SeSkinButton28: TSeSkinButton;
    SeSkinButton29: TSeSkinButton;
    SeSkinButton30: TSeSkinButton;
    Label32: TLabel;
    DBEdit38: TDBEdit;
    Label33: TLabel;
    DBEdit39: TDBEdit;
    Label34: TLabel;
    DBEdit40: TDBEdit;
    SeSkinLabel3: TSeSkinLabel;
    wwDBLookupCombo6: TwwDBLookupCombo;
    Q_khpayTerm: TStringField;
    SeSkinLabel22: TSeSkinLabel;
    wwDBLookupCombo7: TwwDBLookupCombo;
    SeCustomTabSheet7: TSeCustomTabSheet;
    JvDBGrid8: TJvDBGrid;
    SeSkinPanel8: TSeSkinPanel;
    SeSkinButton31: TSeSkinButton;
    SeSkinButton32: TSeSkinButton;
    SeSkinButton33: TSeSkinButton;
    SeSkinButton34: TSeSkinButton;
    Label35: TLabel;
    DBEdit41: TDBEdit;
    Label36: TLabel;
    DBEdit42: TDBEdit;
    Label37: TLabel;
    DBEdit43: TDBEdit;
    Label38: TLabel;
    edCurr0: TEdit;
    Q_LJInvQtyUsed: TFloatField;
    Q_LJInvQtyComing: TFloatField;
    Q_CPInvQtyUsed: TFloatField;
    Q_CPInvQtyComing: TFloatField;
    Label39: TLabel;
    DBEdit44: TDBEdit;
    Label40: TLabel;
    DBEdit45: TDBEdit;
    Label41: TLabel;
    DBEdit46: TDBEdit;
    Label42: TLabel;
    DBEdit47: TDBEdit;
    SeCustomTabSheet8: TSeCustomTabSheet;
    SeCustomTabSheet9: TSeCustomTabSheet;
    Panel3: TPanel;
    JvDBGrid10: TJvDBGrid;
    SeSkinPanel10: TSeSkinPanel;
    Label53: TLabel;
    Label54: TLabel;
    Label55: TLabel;
    Label56: TLabel;
    Label57: TLabel;
    Label58: TLabel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    SeSkinButton40: TSeSkinButton;
    SeSkinButton41: TSeSkinButton;
    SeSkinButton42: TSeSkinButton;
    SeSkinButton43: TSeSkinButton;
    DBEdit56: TDBEdit;
    DBEdit57: TDBEdit;
    DBEdit58: TDBEdit;
    DBEdit59: TDBEdit;
    JvDBComboBox4: TJvDBComboBox;
    DBEdit60: TDBEdit;
    DBEdit61: TDBEdit;
    wwDBLookupCombo9: TwwDBLookupCombo;
    wwDBLookupCombo10: TwwDBLookupCombo;
    Q_supPrice: TADOQuery;
    StringField14: TStringField;
    StringField15: TStringField;
    StringField16: TStringField;
    StringField17: TStringField;
    FloatField9: TFloatField;
    StringField18: TStringField;
    StringField19: TStringField;
    FloatField11: TFloatField;
    FloatField12: TFloatField;
    StringField20: TStringField;
    StringField21: TStringField;
    D_supPrice: TDataSource;
    Label5: TLabel;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Q_supPricerid: TStringField;
    Q_supPricemodiDate: TDateTimeField;
    Q_supPricemodifier: TStringField;
    Q_KHPrice: TADOQuery;
    StringField6: TStringField;
    StringField7: TStringField;
    StringField8: TStringField;
    StringField9: TStringField;
    FloatField1: TFloatField;
    StringField10: TStringField;
    StringField11: TStringField;
    FloatField3: TFloatField;
    FloatField4: TFloatField;
    StringField12: TStringField;
    StringField13: TStringField;
    StringField22: TStringField;
    DateTimeField1: TDateTimeField;
    StringField23: TStringField;
    D_KHPrice: TDataSource;
    JvDBGrid9: TJvDBGrid;
    SeSkinPanel9: TSeSkinPanel;
    Label11: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label43: TLabel;
    Label44: TLabel;
    Label45: TLabel;
    SeSkinButton35: TSeSkinButton;
    SeSkinButton36: TSeSkinButton;
    SeSkinButton37: TSeSkinButton;
    SeSkinButton38: TSeSkinButton;
    DBEdit10: TDBEdit;
    DBEdit16: TDBEdit;
    DBEdit35: TDBEdit;
    DBEdit36: TDBEdit;
    JvDBComboBox1: TJvDBComboBox;
    DBEdit37: TDBEdit;
    DBEdit48: TDBEdit;
    wwDBLookupCombo4: TwwDBLookupCombo;
    wwDBLookupCombo5: TwwDBLookupCombo;
    wwDBLookupCombo8: TwwDBLookupCombo;
    SeSkinLabel23: TSeSkinLabel;
    wwDBLookupCombo11: TwwDBLookupCombo;
    Panel4: TPanel;
    Splitter2: TSplitter;
    Panel5: TPanel;
    panPriceHist: TPanel;
    Label46: TLabel;
    dgPriceHist: TJvDBGrid;
    Panel7: TPanel;
    Splitter3: TSplitter;
    Q_priceHist: TADOQuery;
    D_priceHist: TDataSource;
    SeSkinButton39: TSeSkinButton;
    SeSkinButton44: TSeSkinButton;
    Q_priceHistspno: TStringField;
    Q_priceHistspname: TStringField;
    Q_priceHistspspec: TStringField;
    Q_priceHistspunit: TStringField;
    Q_priceHistprice: TFloatField;
    Q_priceHistremark: TStringField;
    Q_priceHistkhid: TStringField;
    Q_priceHistPrice0: TFloatField;
    Q_priceHistmoq: TFloatField;
    Q_priceHistkhname: TStringField;
    Q_priceHistcurr: TStringField;
    Q_priceHistmodiDate: TDateTimeField;
    Q_priceHistmodifier: TStringField;
    Q_priceHistexpiryDate: TDateTimeField;
    Q_priceHistexpiryID: TIntegerField;
    Q_LJspClass: TStringField;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure SeSkinButton1Click(Sender: TObject);
    procedure SeSkinButton2Click(Sender: TObject);
    procedure Q_khNewRecord(DataSet: TDataSet);
    procedure Q_LJNewRecord(DataSet: TDataSet);
    procedure Q_CPNewRecord(DataSet: TDataSet);
    procedure Q_BOMNewRecord(DataSet: TDataSet);
    procedure SeSkinButton15Click(Sender: TObject);
    procedure SeSkinButton16Click(Sender: TObject);
    procedure JvDBComboBox2Exit(Sender: TObject);
    procedure SeSkinButton22Click(Sender: TObject);
    procedure Q_CPBeforeDelete(DataSet: TDataSet);
    procedure Q_LJBeforeDelete(DataSet: TDataSet);
    procedure Q_khBeforeDelete(DataSet: TDataSet);
    procedure Q_mrpqtyNeedChange(Sender: TField);
    procedure JvDBGrid5CellClick(Column: TColumn);
    procedure Q_mrpcheckedGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure FloatField1Change(Sender: TField);
    procedure Q_BOMAfterPost(DataSet: TDataSet);
    procedure FloatField9Change(Sender: TField);
    procedure Q_supPriceNewRecord(DataSet: TDataSet);
    procedure Q_supPriceBeforePost(DataSet: TDataSet);
    procedure SeSkinButton39Click(Sender: TObject);
  private
    pageCap: string;
    bShowPriceHist: Boolean;
    procedure PreparePage;
    procedure sbOKClick(Sender: TObject);
    procedure InitUI;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fBaseData: TfBaseData;
  curPageIndex: integer;
  ccode,sRet: string;

implementation

uses uDM, uManData,uFunc, bw_sort;

{$R *.dfm}

//var
//  AManData,AManData2: TManData;

procedure TfBaseData.FormShow(Sender: TObject);
begin
  HidePageTabs(SeSkinPageControl1);

  SeSkinPageControl1.ActivePage := SeSkinPageControl1.Pages[curPageIndex];
  PreparePage;

  ActivateCtrlDataset(SeSkinPageControl1);
  Caption := Caption + ' - ' + SeSkinPageControl1.ActivePage.Caption ;


  SeSkinButton7.Enabled := GUserCanC;
  SeSkinButton9.Enabled := GUserCanC;
  SeSkinButton13.Enabled := GUserCanC;
  SeSkinButton3.Enabled := GUserCanC;
  SeSkinButton18.Enabled := GUserCanC;

  SeSkinButton10.Enabled := GUserCanD;
  SeSkinButton14.Enabled := GUserCanD;
  SeSkinButton4.Enabled := GUserCanD;
  SeSkinButton8.Enabled := GUserCanD;
  SeSkinButton19.Enabled := GUserCanD;

  SeSkinButton17.Enabled := GUserCanU;
  SeSkinButton22.Enabled := GUserCanU;