sys500_01.pas.svn-base

一个用Delphi开发的ERP软件

unit Sys500_01;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, ExtCtrls, Db, ImgList, ToolWin, StdCtrls, Variants,
  DBCtrls, Mask, dxtree, Grids, DBTables, dxdbtree,
  ADODB, dxExEdtr, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid, dxCntner,
  ActnList, wwfltdlg, wwDialog, Wwlocate, Wwintl, dxDBTL;

type
  TSys500_01Form = class(TForm)
    Panel1: TPanel;
    lblUser: TLabel;
    edtUser: TDBEdit;
    Splitter1: TSplitter;
    PageControl1: TPageControl;
    tsProgram: TTabSheet;
    tsDept: TTabSheet;
    tsWhs: TTabSheet;
    dsSys500A: TDataSource;
    dsSys500D: TDataSource;
    TreeView1: TdxDBTreeView;
    dsSys500B: TDataSource;
    dsHrm100: TDataSource;
    dsInv100: TDataSource;
    qrySys500A: TADOQuery;
    qrySys500D: TADOQuery;
    qrySys500B: TADOQuery;
    qryHrm100: TADOQuery;
    qryInv100: TADOQuery;
    qryHrm100S500C_001: TIntegerField;
    qryHrm100S500C_002: TIntegerField;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    tlbFirst: TToolButton;
    tlbPrior: TToolButton;
    tlbNext: TToolButton;
    tlbLast: TToolButton;
    ToolButton1: TToolButton;
    tlbInsert: TToolButton;
    tlbUpdate: TToolButton;
    tlbDelete: TToolButton;
    ToolButton2: TToolButton;
    tlbCopy: TToolButton;
    tlbRefresh: TToolButton;
    tlbLocate: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    tlbExit: TToolButton;
    ActionList1: TActionList;
    ActFirst: TAction;
    ActPrior: TAction;
    ActNext: TAction;
    ActLast: TAction;
    ActInsert: TAction;
    ActUpdate: TAction;
    ActDelete: TAction;
    ActCopy: TAction;
    ActRefresh: TAction;
    ActLocate: TAction;
    ActSearch: TAction;
    ActExit: TAction;
    tsItem: TTabSheet;
    tsWht: TTabSheet;
    tsAccount: TTabSheet;
    qrySys500DS500D_007: TStringField;
    qrySys500DS500D_001: TStringField;
    qrySys500DS500D_002: TStringField;
    qryHrm100H100_002: TStringField;
    qryHrm100S500C_003: TStringField;
    qrySys500DS500D_011: TAutoIncField;
    qrySys500BS500D_001: TStringField;
    qrySys500BS500D_002: TStringField;
    qrySys500BS500B_004: TBooleanField;
    qrySys500BS500B_005: TBooleanField;
    qrySys500BS500B_006: TBooleanField;
    qrySys500BS500B_007: TBooleanField;
    qrySys500BS500B_008: TBooleanField;
    qrySys500BS500B_009: TBooleanField;
    qrySys500BS500B_010: TBooleanField;
    qrySys500BS500D_007: TStringField;
    qryHrm100S500C_004: TBooleanField;
    qrySys500AS500A_001: TAutoIncField;
    qrySys500AS500A_002: TStringField;
    qrySys500AS500A_003: TStringField;
    qrySys500AS500A_004: TBooleanField;
    qrySys500AS500A_005: TBooleanField;
    qrySys500AS500A_006: TBooleanField;
    Image1: TImage;
    sbProgram: TScrollBox;
    dbgProgram: TdxDBGrid;
    dbgProgramS500D_007: TdxDBGridLookupColumn;
    dbgProgramS500B_004: TdxDBGridCheckColumn;
    dbgProgramS500B_005: TdxDBGridCheckColumn;
    dbgProgramS500B_006: TdxDBGridCheckColumn;
    dbgProgramS500B_007: TdxDBGridCheckColumn;
    dbgProgramS500B_008: TdxDBGridCheckColumn;
    dbgProgramS500B_009: TdxDBGridCheckColumn;
    dbgProgramS500B_010: TdxDBGridCheckColumn;
    sbDept: TScrollBox;
    sbWhs: TScrollBox;
    sbItem: TScrollBox;
    sbWht: TScrollBox;
    dbgWht: TdxDBGrid;
    sbAccount: TScrollBox;
    qrySys500BS500B_002: TIntegerField;
    tsCsh: TTabSheet;
    sbCsh: TScrollBox;
    dbgCsh: TdxDBGrid;
    dsCsh550: TDataSource;
    qryCsh550: TADOQuery;
    dbgCshC550_002: TdxDBGridMaskColumn;
    dbgCshS500C_004: TdxDBGridCheckColumn;
    dbgDept: TdxDBTreeList;
    dbgDeptH100_002: TdxDBTreeListMaskColumn;
    dbgDeptS500C_004: TdxDBTreeListCheckColumn;
    qryHrm100H100_001: TIntegerField;
    qryHrm100H100_003: TIntegerField;
    tsCust: TTabSheet;
    sbCust: TScrollBox;
    qryInv100I100_001: TIntegerField;
    qryInv100I100_002: TWideStringField;
    qryInv100I100_003: TWideStringField;
    qryInv100FParent: TIntegerField;
    qryInv100S500C_001: TIntegerField;
    qryInv100S500C_002: TIntegerField;
    qryInv100S500C_003: TWideStringField;
    qryInv100S500C_004: TBooleanField;
    dbgWhs: TdxDBTreeList;
    dbgWhsI100_002: TdxDBTreeListColumn;
    dbgWhsI100_003: TdxDBTreeListColumn;
    dbgWhsS500C_004: TdxDBTreeListCheckColumn;
    dsInv550: TDataSource;
    qryInv550: TADOQuery;
    qryInv550I550_001: TAutoIncField;
    qryInv550I550_002: TWideStringField;
    qryInv550I550_003: TWideStringField;
    qryInv550S500C_001: TIntegerField;
    qryInv550S500C_002: TIntegerField;
    qryInv550S500C_003: TWideStringField;
    qryInv550S500C_004: TBooleanField;
    dbgWhtI550_002: TdxDBGridColumn;
    dbgWhtI550_003: TdxDBGridColumn;
    dbgWhtS500C_004: TdxDBGridCheckColumn;
    dsInv120: TDataSource;
    qryInv120: TADOQuery;
    dsOrd110: TDataSource;
    qryOrd110: TADOQuery;
    dsGld150: TDataSource;
    qryGld150: TADOQuery;
    dbgItem: TdxDBTreeList;
    qryInv120I120_001: TAutoIncField;
    qryInv120I120_002: TWideStringField;
    qryInv120I120_003: TWideStringField;
    qryInv120I120_004: TIntegerField;
    dbgItemI120_002: TdxDBTreeListColumn;
    dbgItemI120_003: TdxDBTreeListColumn;
    dbgItemS500C_004: TdxDBTreeListCheckColumn;
    qryOrd110O110_001: TAutoIncField;
    qryOrd110O110_002: TWideStringField;
    qryOrd110O110_003: TIntegerField;
    dbgCust: TdxDBTreeList;
    dbgCustO110_002: TdxDBTreeListColumn;
    dbgCustS500C_004: TdxDBTreeListCheckColumn;
    qryGld150G150_001: TAutoIncField;
    qryGld150G150_002: TWideStringField;
    qryGld150G150_003: TIntegerField;
    qryGld150G150_004: TWideStringField;
    dbgAccount: TdxDBTreeList;
    dbgAccountG150_002: TdxDBTreeListColumn;
    dbgAccountG150_004: TdxDBTreeListColumn;
    dbgAccountS500C_004: TdxDBTreeListCheckColumn;
    qryInv120S500C_001: TIntegerField;
    qryInv120S500C_002: TIntegerField;
    qryInv120S500C_003: TWideStringField;
    qryInv120S500C_004: TBooleanField;
    qryOrd110S500C_001: TIntegerField;
    qryOrd110S500C_002: TIntegerField;
    qryOrd110S500C_003: TWideStringField;
    qryOrd110S500C_004: TBooleanField;
    qryGld150S500C_001: TIntegerField;
    qryGld150S500C_002: TIntegerField;
    qryGld150S500C_003: TWideStringField;
    qryGld150S500C_004: TBooleanField;
    qryCsh550C550_001: TAutoIncField;
    qryCsh550C550_002: TWideStringField;
    qryCsh550S500C_001: TIntegerField;
    qryCsh550S500C_002: TIntegerField;
    qryCsh550S500C_003: TWideStringField;
    qryCsh550S500C_004: TBooleanField;
    tlbPrint: TToolButton;
    ActPrint: TAction;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure qrySys500DAfterScroll(DataSet: TDataSet);
    procedure qrySys500AAfterScroll(DataSet: TDataSet);
    procedure qrySys500ANewRecord(DataSet: TDataSet);
    procedure dbgProgramClick(Sender: TObject);
    procedure dbgProgramKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ActFirstExecute(Sender: TObject);
    procedure ActPriorExecute(Sender: TObject);
    procedure ActNextExecute(Sender: TObject);
    procedure ActLastExecute(Sender: TObject);
    procedure ActInsertExecute(Sender: TObject);
    procedure ActUpdateExecute(Sender: TObject);
    procedure ActDeleteExecute(Sender: TObject);
    procedure ActRefreshExecute(Sender: TObject);
    procedure ActLocateExecute(Sender: TObject);
    procedure ActSearchExecute(Sender: TObject);
    procedure ActExitExecute(Sender: TObject);
    procedure TreeView1GetImageIndex(Sender: TObject; Node: TTreeNode);
    procedure qrySys500DCalcFields(DataSet: TDataSet);
    procedure qrySys500BCalcFields(DataSet: TDataSet);
    procedure dbgCshClick(Sender: TObject);
    procedure dbgCshKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ActPrintExecute(Sender: TObject);
    procedure ReportGetValue(const ParName: String;
      var ParValue: Variant);
    procedure ActCopyExecute(Sender: TObject);
  private
    AReportName:String;
    procedure SetRights;
    procedure SetButtonState(AInsUpd:Boolean);
    procedure SetInterface;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Sys500_01Form: TSys500_01Form;

implementation

uses CommFun, SYSDATA, Sys500_02;

{$R *.DFM}

procedure TSys500_01Form.SetRights;
var
  ATreeNode:TTreeNode;
  AParentNo:Integer;
  AFieldName:string;
begin
  AFieldName:=dbgProgram.FocusedField.FieldName;
  if AFieldName='S500D_007' then Exit;
  if AFieldName='S500B_004' then
  begin
    if not qrySys500BS500B_004.Value then
    begin
      qrySys500B.Edit;
      if qrySys500BS500B_005.Value then qrySys500BS500B_005.Value:=False;
      if qrySys500BS500B_006.Value then qrySys500BS500B_006.Value:=False;
      if qrySys500BS500B_007.Value then qrySys500BS500B_007.Value:=False;
      if qrySys500BS500B_008.Value then qrySys500BS500B_008.Value:=False;
      if qrySys500BS500B_009.Value then qrySys500BS500B_009.Value:=False;
      if qrySys500BS500B_010.Value then qrySys500BS500B_010.Value:=False;
      qrySys500B.Post;
    end;
    SYSDM.qryQuery.Close;
    SYSDM.qryQuery.SQL.Clear;
    SYSDM.qryQuery.SQL.Add('update SYS500B set S500B_004='+GetBoolean(qrySys500BS500B_004.Value)+',');
    SYSDM.qryQuery.SQL.Add('                   S500B_005='+GetBoolean(qrySys500BS500B_005.Value)+',');
    SYSDM.qryQuery.SQL.Add('                   S500B_006='+GetBoolean(qrySys500BS500B_006.Value)+',');
    SYSDM.qryQuery.SQL.Add('                   S500B_007='+GetBoolean(qrySys500BS500B_007.Value)+',');
    SYSDM.qryQuery.SQL.Add('                   S500B_008='+GetBoolean(qrySys500BS500B_008.Value)+',');
    SYSDM.qryQuery.SQL.Add('                   S500B_009='+GetBoolean(qrySys500BS500B_009.Value)+',');
    SYSDM.qryQuery.SQL.Add('                   S500B_010='+GetBoolean(qrySys500BS500B_010.Value));
    SYSDM.qryQuery.SQL.Add('where S500B_001='+qrySys500AS500A_001.AsString+' and S500B_002='+qrySys500BS500B_002.AsString);
    SYSDM.qryQuery.ExecSQL;
  end else
  begin
    if (qrySys500B.FieldByName(AFieldName).Value) and (not qrySys500BS500B_004.Value) then
    begin
      qrySys500B.Edit;
      qrySys500BS500B_004.Value:=True;
      qrySys500B.Post;
    end;
    SYSDM.qryQuery.Close;
    SYSDM.qryQuery.SQL.Clear;
    SYSDM.qryQuery.SQL.Add('update SYS500B set S500B_004='+GetBoolean(qrySys500BS500B_004.Value)+',');
    SYSDM.qryQuery.SQL.Add('                   S500B_005='+GetBoolean(qrySys500BS500B_005.Value)+',');
    SYSDM.qryQuery.SQL.Add('                   S500B_006='+GetBoolean(qrySys500BS500B_006.Value)+',');
    SYSDM.qryQuery.SQL.Add('                   S500B_007='+GetBoolean(qrySys500BS500B_007.Value)+',');
    SYSDM.qryQuery.SQL.Add('                   S500B_008='+GetBoolean(qrySys500BS500B_008.Value)+',');
    SYSDM.qryQuery.SQL.Add('                   S500B_009='+GetBoolean(qrySys500BS500B_009.Value)+',');
    SYSDM.qryQuery.SQL.Add('                   S500B_010='+GetBoolean(qrySys500BS500B_010.Value));
    SYSDM.qryQuery.SQL.Add('where S500B_001='+qrySys500AS500A_001.AsString+' and S500B_002='+qrySys500BS500B_002.AsString);
    SYSDM.qryQuery.ExecSQL;