ord150_01.pas

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Ord150_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_05, dxExEdtr, DB, ADODB, 
  ActnList, Menus, dxCntner, dxTL, dxDBCtrl, dxDBGrid, ComCtrls, dxtree,
  dxdbtree, ToolWin, ExtCtrls, dxDBTLCl, dxGrClms, StdCtrls, Mask, DBCtrls;

type
  TOrd150_01Form = class(TBas200_05Form)
    ADOQuery2O150_001: TAutoIncField;
    ADOQuery2O150_002: TStringField;
    ADOQuery2O150_003: TStringField;
    ADOQuery2O150_004: TStringField;
    ADOQuery2O150_005: TStringField;
    ADOQuery2O150_006: TStringField;
    ADOQuery2O150_007: TStringField;
    ADOQuery2O150_008: TStringField;
    ADOQuery2O150_009: TSmallintField;
    ADOQuery2O150_012: TStringField;
    ADOQuery2O150_013: TStringField;
    ADOQuery2O150_014: TSmallintField;
    ADOQuery2O150_015: TMemoField;
    qryOrd151: TADOQuery;
    qryOrd151O151_001: TIntegerField;
    qryOrd151O151_002: TStringField;
    qryOrd151O151_003: TStringField;
    qryOrd151O151_004: TStringField;
    qryOrd151O151_005: TStringField;
    qryOrd151O151_006: TStringField;
    qryOrd151O151_007: TStringField;
    qryOrd151O151_008: TStringField;
    qryOrd151O151_009: TStringField;
    qryOrd151O151_010: TStringField;
    dsOrd151: TDataSource;
    dsOrd152: TDataSource;
    qryOrd152: TADOQuery;
    qryOrd152O152_001: TIntegerField;
    qryOrd152O152_002: TStringField;
    qryOrd152O152_003: TIntegerField;
    qryOrd152O120_002: TStringField;
    qryOrd152O152_004: TStringField;
    qryOrd152O152_005: TStringField;
    qryOrd152O152_006: TStringField;
    qryOrd152O152_007: TStringField;
    qryOrd152O152_008: TStringField;
    qryOrd120: TADOQuery;
    qryOrd151O151_011: TBooleanField;
    qryOrd153: TADOQuery;
    dsOrd153: TDataSource;
    qryOrd153O153_001: TIntegerField;
    qryOrd153O153_002: TIntegerField;
    qryOrd153O153_003: TWideStringField;
    qryOrd153O153_004: TWideStringField;
    qryOrd153O153_005: TWideStringField;
    qryOrd153O153_006: TDateTimeField;
    qryOrd153O153_007: TDateTimeField;
    qryOrd153O153_008: TDateTimeField;
    qryOrd153O153_009: TDateTimeField;
    qryOrd153O153_012: TSmallintField;
    qryInv150: TADOQuery;
    qryOrd153I150_002: TStringField;
    qryOrd153I150_003: TStringField;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    Panel: TPanel;
    ScrollBox1: TScrollBox;
    dxDBGrid2: TdxDBGrid;
    dxDBGrid2O151_002: TdxDBGridMaskColumn;
    dxDBGrid2O151_003: TdxDBGridMaskColumn;
    dxDBGrid2O151_004: TdxDBGridMaskColumn;
    dxDBGrid2O151_005: TdxDBGridMaskColumn;
    dxDBGrid2O151_006: TdxDBGridMaskColumn;
    dxDBGrid2O151_007: TdxDBGridMaskColumn;
    dxDBGrid2O151_008: TdxDBGridMaskColumn;
    dxDBGrid2O151_009: TdxDBGridMaskColumn;
    dxDBGrid2O151_010: TdxDBGridMaskColumn;
    GroupBox4: TGroupBox;
    lblCustName1: TLabel;
    lblCust1: TLabel;
    edtCustName1: TDBEdit;
    edtCust1: TDBEdit;
    Panel4: TPanel;
    ScrollBox3: TScrollBox;
    dxDBGrid3: TdxDBGrid;
    dxDBGrid3O152_002: TdxDBGridMaskColumn;
    dxDBGrid3O120_002: TdxDBGridLookupColumn;
    dxDBGrid3O152_004: TdxDBGridMaskColumn;
    dxDBGrid3O152_005: TdxDBGridMaskColumn;
    dxDBGrid3O152_006: TdxDBGridMaskColumn;
    dxDBGrid3O152_007: TdxDBGridMaskColumn;
    dxDBGrid3O152_008: TdxDBGridMaskColumn;
    GroupBox5: TGroupBox;
    lblCustName2: TLabel;
    lblCust2: TLabel;
    edtCustName2: TDBEdit;
    edtCust2: TDBEdit;
    Panel7: TPanel;
    ScrollBox4: TScrollBox;
    dxDBGrid4: TdxDBGrid;
    dxDBGrid4I150_002: TdxDBGridLookupColumn;
    dxDBGrid4I150_003: TdxDBGridLookupColumn;
    dxDBGrid4O153_003: TdxDBGridColumn;
    dxDBGrid4O153_004: TdxDBGridColumn;
    dxDBGrid4O153_005: TdxDBGridColumn;
    dxDBGrid4O153_006: TdxDBGridDateColumn;
    dxDBGrid4O153_007: TdxDBGridDateColumn;
    dxDBGrid4O153_008: TdxDBGridDateColumn;
    dxDBGrid4O153_009: TdxDBGridDateColumn;
    dxDBGrid4O153_012: TdxDBGridMaskColumn;
    GroupBox6: TGroupBox;
    lblCust3: TLabel;
    lblCustName3: TLabel;
    edtCust3: TDBEdit;
    edtCustName3: TDBEdit;
    ADOQuery2O110_002: TWideStringField;
    ADOQuery2O120_002: TWideStringField;
    dxDBGrid1O150_002: TdxDBGridMaskColumn;
    dxDBGrid1O150_003: TdxDBGridMaskColumn;
    dxDBGrid1O150_004: TdxDBGridMaskColumn;
    dxDBGrid1O150_005: TdxDBGridMaskColumn;
    dxDBGrid1O150_006: TdxDBGridMaskColumn;
    dxDBGrid1O150_007: TdxDBGridMaskColumn;
    dxDBGrid1O150_008: TdxDBGridMaskColumn;
    dxDBGrid1O150_009: TdxDBGridMaskColumn;
    dxDBGrid1O110_002: TdxDBGridColumn;
    dxDBGrid1O120_002: TdxDBGridColumn;
    dxDBGrid1O150_012: TdxDBGridMaskColumn;
    dxDBGrid1O150_013: TdxDBGridMaskColumn;
    dxDBGrid1O150_014: TdxDBGridMaskColumn;
    dxDBGrid4O153_010: TdxDBGridDateColumn;
    qryOrd153O153_010: TDateTimeField;
    ADOQuery2O150_034: TWideStringField;
    ADOQuery2O150_035: TWideStringField;
    dxDBGrid1O150_034: TdxDBGridMaskColumn;
    dxDBGrid1O150_035: TdxDBGridMaskColumn;
    qryOrd153O153_011: TWideStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ADOQuery2O150_014GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ADOQuery2O150_009GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure dxDBGrid1O150_002DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBGrid2O151_002DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBGrid3O152_002DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBGrid4I150_002DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
  private
    AStatus:array[0..2] of string;
    AType:array[0..2] of string;
    ARecordCount1,ARecordCount2,ARecordCount3:Integer;
    procedure GetCustInfo;
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure InsertClassEvent; override;
    procedure UpdateClassEvent; override;
    procedure DeleteClassEvent; override;
    procedure InsertEvent; override;
    procedure UpdateEvent; override;
    procedure DeleteEvent; override;
    procedure BrowseEvent; override;
    procedure ClassAfterScroll; override;
    procedure DetailAfterScroll; override;
    procedure GetAllClass; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Ord150_01Form: TOrd150_01Form;

implementation

uses Ord110_02, Ord150_02, CommFun, SYSDATA, OrdComm;

{$R *.dfm}

procedure TOrd150_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('ORD15001001');  //客户资料维护
  ADOQuery2O150_002.DisplayLabel:=GetDBString('ORD15001002');  //客户编号
  ADOQuery2O150_003.DisplayLabel:=GetDBString('ORD15001003');  //客户名称
  ADOQuery2O150_004.DisplayLabel:=GetDBString('ORD15001004');  //客户简称
  ADOQuery2O150_005.DisplayLabel:=GetDBString('ORD15001005');  //电话号码
  ADOQuery2O150_006.DisplayLabel:=GetDBString('ORD15001006');  //传真号码
  ADOQuery2O150_007.DisplayLabel:=GetDBString('ORD15001007');  //电子邮件
  ADOQuery2O150_008.DisplayLabel:=GetDBString('ORD15001008');  //公司网址
  ADOQuery2O150_009.DisplayLabel:=GetDBString('ORD15001009');  //客户类型
  ADOQuery2O110_002.DisplayLabel:=GetDBString('ORD15001010');  //客户分类
  ADOQuery2O120_002.DisplayLabel:=GetDBString('ORD15001011');  //所属地区
  ADOQuery2O150_012.DisplayLabel:=GetDBString('ORD15001012');  //通讯地址
  ADOQuery2O150_013.DisplayLabel:=GetDBString('ORD15001013');  //邮政编码
  ADOQuery2O150_014.DisplayLabel:=GetDBString('ORD15001014');  //客户状态
  ADOQuery2O150_015.DisplayLabel:=GetDBString('ORD15001015');  //备注

  ADOQuery2O150_034.DisplayLabel:=GetDBString('ORD15003078');  //英文名称
  ADOQuery2O150_035.DisplayLabel:=GetDBString('ORD15003079');  //英文地址

  AStatus[0]:=GetDBString('ORD15003039');  //正常
  AStatus[1]:=GetDBString('ORD15003040');  //锁定
  AStatus[2]:=GetDBString('ORD15003041');  //潜在
  AType[0]:=GetDBString('ORD15003042');  //客户
  AType[1]:=GetDBString('ORD15003043');  //供应商
  AType[2]:=GetDBString('ORD15003044');  //客户&供应商

  lblCust1.Caption:=GetDBString('ORD15001002');  //客户编号
  lblCustName1.Caption:=GetDBString('ORD15001003');  //客户名称
  lblCust2.Caption:=lblCust1.Caption;
  lblCustName2.Caption:=lblCustName1.Caption;
  lblCust3.Caption:=lblCust1.Caption;
  lblCustName3.Caption:=lblCustName1.Caption;

  TabSheet1.Caption:=GetDBString('ORD15001017');  //客户资料
  TabSheet3.Caption:=GetDBString('ORD15001018');  //联系人员
  TabSheet4.Caption:=GetDBString('ORD15001019');  //交货地点
  TabSheet5.Caption:=GetDBString('ORD15001020');  //产品资料

  qryOrd151O151_002.DisplayLabel:=GetDBString('ORD15001021');  //联系人名
  qryOrd151O151_003.DisplayLabel:=GetDBString('ORD15001022');  //部门名称
  qryOrd151O151_004.DisplayLabel:=GetDBString('ORD15001023');  //职位名称
  qryOrd151O151_005.DisplayLabel:=GetDBString('ORD15001024');  //电话号码
  qryOrd151O151_006.DisplayLabel:=GetDBString('ORD15001025');  //传真号码
  qryOrd151O151_007.DisplayLabel:=GetDBString('ORD15001026');  //电子邮件
  qryOrd151O151_008.DisplayLabel:=GetDBString('ORD15001027');  //移动电话
  qryOrd151O151_009.DisplayLabel:=GetDBString('ORD15001028');  //通讯地址
  qryOrd151O151_010.DisplayLabel:=GetDBString('ORD15001029');  //邮政编码
  qryOrd151O151_011.DisplayLabel:=GetDBString('ORD15001030');  //主联系人

  qryOrd152O152_002.DisplayLabel:=GetDBString('ORD15001031');  //交货地点
  qryOrd152O120_002.DisplayLabel:=GetDBString('ORD15001032');  //所属地区
  qryOrd152O152_004.DisplayLabel:=GetDBString('ORD15001033');  //交货地址
  qryOrd152O152_005.DisplayLabel:=GetDBString('ORD15001034');  //邮政编码
  qryOrd152O152_006.DisplayLabel:=GetDBString('ORD15001035');  //电话号码
  qryOrd152O152_007.DisplayLabel:=GetDBString('ORD15001036');  //传真号码
  qryOrd152O152_008.DisplayLabel:=GetDBString('ORD15001037');  //联系人名

  qryOrd153I150_002.DisplayLabel:=GetDBString('ORD15001038');  //产品编号
  qryOrd153I150_003.DisplayLabel:=GetDBString('ORD15001039');  //产品名称
  qryOrd153O153_003.DisplayLabel:=GetDBString('ORD15001040');  //机身编号
  qryOrd153O153_004.DisplayLabel:=GetDBString('ORD15001041');  //控制器号
  qryOrd153O153_005.DisplayLabel:=GetDBString('ORD15001042');  //系统软件
  qryOrd153O153_006.DisplayLabel:=GetDBString('ORD15001043');  //安装日期
  qryOrd153O153_007.DisplayLabel:=GetDBString('ORD15001044');  //免费保养开始日期
  qryOrd153O153_008.DisplayLabel:=GetDBString('ORD15001045');  //免费保养结束日期
  qryOrd153O153_009.DisplayLabel:=GetDBString('ORD15001046');  //收费保养开始日期
  qryOrd153O153_010.DisplayLabel:=GetDBString('ORD15001047');  //收费保养结束日期
  qryOrd153O153_011.DisplayLabel:=GetDBString('ORD15001048');  //安装地址
  qryOrd153O153_012.DisplayLabel:=GetDBString('ORD15001049');  //来源类型
end;

procedure TOrd150_01Form.FormCreate(Sender: TObject);