ord150_02.pas.svn-base

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

    lblDays: TLabel;
    lblCreditEach: TLabel;
    lblPriority: TLabel;
    SpeedButton3: TSpeedButton;
    edtBank: TDBEdit;
    edtAccount: TDBEdit;
    edtTaxCode: TDBEdit;
    edtCredit: TDBEdit;
    edtCreditEach: TDBEdit;
    cbCurrency: TDBLookupComboBox;
    edtPriority: TEdit;
    UpDown1: TUpDown;
    edtDays: TEdit;
    UpDown2: TUpDown;
    GroupBox7: TGroupBox;
    lblCreateDate: TLabel;
    lblCreateBy: TLabel;
    lblUpdateDate: TLabel;
    lblUpdateBy: TLabel;
    edtCreateDate: TEdit;
    edtCreateBy: TEdit;
    edtUpdateDate: TEdit;
    edtUpdateBy: TEdit;
    memRemark: TMemo;
    qryOrd150O150_036: TMemoField;
    qryOrd150O150_037: TDateTimeField;
    qryOrd150O150_038: TWideStringField;
    qryOrd150O150_039: TDateTimeField;
    qryOrd150O150_040: TWideStringField;
    lblCofing: TLabel;
    lblRemark: TLabel;
    edtConfig: TDBEdit;
    edtRemark: TDBEdit;
    qryOrd153O153_013: TWideStringField;
    qryOrd153O153_014: TWideStringField;
    bbtnMove: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    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 ActSaveExecute(Sender: TObject);
    procedure ActCancelExecute(Sender: TObject);
    procedure ActRefreshExecute(Sender: TObject);
    procedure ActLocateExecute(Sender: TObject);
    procedure ActSearchExecute(Sender: TObject);
    procedure ActPrintExecute(Sender: TObject);
    procedure ActExitExecute(Sender: TObject);
    procedure sbClassClick(Sender: TObject);
    procedure sbRegionClick(Sender: TObject);
    procedure sbDiscountClick(Sender: TObject);
    procedure sbCommissionClick(Sender: TObject);
    procedure sbRecNoteClick(Sender: TObject);
    procedure PageControl1Changing(Sender: TObject;
      var AllowChange: Boolean);
    procedure SpeedButton3Click(Sender: TObject);
    procedure bbtnInsertClick(Sender: TObject);
    procedure bbtnUpdateClick(Sender: TObject);
    procedure bbtnDeleteClick(Sender: TObject);
    procedure bbtnSaveClick(Sender: TObject);
    procedure bbtnCancelClick(Sender: TObject);
    procedure bbtnInsert1Click(Sender: TObject);
    procedure bbtnUpdate1Click(Sender: TObject);
    procedure bbtnDelete1Click(Sender: TObject);
    procedure bbtnSave1Click(Sender: TObject);
    procedure bbtnCancel1Click(Sender: TObject);
    procedure sbItemClick(Sender: TObject);
    procedure edtItemExit(Sender: TObject);
    procedure bbtnInsert2Click(Sender: TObject);
    procedure bbtnUpdate2Click(Sender: TObject);
    procedure bbtnDelete2Click(Sender: TObject);
    procedure bbtnSave2Click(Sender: TObject);
    procedure bbtnCancel2Click(Sender: TObject);
    procedure qryOrd150AfterScroll(DataSet: TDataSet);
    procedure FormActivate(Sender: TObject);
    procedure qryOrd153AfterScroll(DataSet: TDataSet);
    procedure qryOrd152AfterScroll(DataSet: TDataSet);
    procedure qryOrd151AfterScroll(DataSet: TDataSet);
    procedure sbInstallAddClick(Sender: TObject);
    procedure edtInstallAddExit(Sender: TObject);
    procedure sbConClick(Sender: TObject);
    procedure edtConExit(Sender: TObject);
    procedure dxDBGrid1O151_002DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBGrid2O152_002DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBGrid3I150_002DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure qryOrd153O153_012GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure bbtnMoveClick(Sender: TObject);
  private
    AMode,AOldCode:string;
    AOldItem,AOldMacNo:String;
    ARecordCount1,ARecordCount2,ARecordCount3:Integer;
    procedure ButtonEnabled(AEnabled:Boolean);
    procedure SetButtonState(AInsUpd:Boolean);
    procedure SetButtonStateA(AInsUpd:Boolean);
    procedure SetButtonStateB(AInsUpd:Boolean);
    procedure SetButtonStateC(AInsUpd:Boolean);
    procedure SetInterface;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant);
    { Private declarations }
  public
    procedure OpenData(ACustNo:Integer);
    { Public declarations }
  end;

var
  Ord150_02Form: TOrd150_02Form;

implementation

uses SYSDATA, CommFun, Ord150_03, Ord110_02, Ord120_01, Gld150_01, Gld100_01, HwSelData;

{$R *.dfm}

procedure TOrd150_02Form.ButtonEnabled(AEnabled:Boolean);
begin
  ActFirst.Enabled:=AEnabled;
  ActPrior.Enabled:=AEnabled;
  ActNext.Enabled:=AEnabled;
  ActLast.Enabled:=AEnabled;
  ActInsert.Enabled:=(ARights[2]='Y') and (AEnabled);
  ActUpdate.Enabled:=(ARights[3]='Y') and (AEnabled);
  ActDelete.Enabled:=(ARights[4]='Y') and (AEnabled);
//  ActSave.Enabled:=AEnabled;
//  ActCancel.Enabled:=AEnabled;
  ActRefresh.Enabled:=AEnabled;
  ActLocate.Enabled:=AEnabled;
  ActSearch.Enabled:=AEnabled;
  ActPrint.Enabled:=(ARights[5]='Y') and (AEnabled);
  ActExit.Enabled:=True;
end;

//设置按钮状态
procedure TOrd150_02Form.SetButtonState(AInsUpd:Boolean);
begin
  ActFirst.Enabled:=not AInsUpd;
  ActPrior.Enabled:=not AInsUpd;
  ActNext.Enabled:=not AInsUpd;
  ActLast.Enabled:=not AInsUpd;
  ActInsert.Enabled:=(ARights[2]='Y') and (not AInsUpd);
  ActUpdate.Enabled:=(ARights[3]='Y') and (not AInsUpd);
  ActDelete.Enabled:=(ARights[4]='Y') and (not AInsUpd);
  ActSave.Enabled:=AInsUpd;
  ActCancel.Enabled:=AInsUpd;
  ActRefresh.Enabled:=not AInsUpd;
  ActLocate.Enabled:=not AInsUpd;
  ActSearch.Enabled:=not AInsUpd;
  ActPrint.Enabled:=(ARights[5]='Y') and (not AInsUpd);
  ActExit.Enabled:=True;

  ScrollBox1.Enabled:=AInsUpd;
  if AInsUpd then PageControl1.ActivePageIndex:=0;
end;

procedure TOrd150_02Form.SetButtonStateA(AInsUpd:Boolean);
begin
  bbtnInsert.Enabled:=(ARights[2]='Y') and (not AInsUpd);
  bbtnUpdate.Enabled:=(ARights[3]='Y') and (not AInsUpd);
  bbtnDelete.Enabled:=(ARights[4]='Y') and (not AInsUpd);
  bbtnSave.Enabled:=AInsUpd;
  bbtnCancel.Enabled:=AInsUpd;
  Panel3.Enabled:=AInsUpd;
  dxDBGrid1.Enabled:=not AInsUpd;
  ButtonEnabled(not AInsUpd);
end;

procedure TOrd150_02Form.SetButtonStateB(AInsUpd:Boolean);
begin
  bbtnInsert1.Enabled:=(ARights[2]='Y') and (not AInsUpd);
  bbtnUpdate1.Enabled:=(ARights[3]='Y') and (not AInsUpd);
  bbtnDelete1.Enabled:=(ARights[4]='Y') and (not AInsUpd);
  bbtnSave1.Enabled:=AInsUpd;
  bbtnCancel1.Enabled:=AInsUpd;
  Panel5.Enabled:=AInsUpd;
  dxDBGrid2.Enabled:=not AInsUpd;
  ButtonEnabled(not AInsUpd);
end;

procedure TOrd150_02Form.SetButtonStateC(AInsUpd:Boolean);
begin
  bbtnInsert2.Enabled:=(ARights[2]='Y') and (not AInsUpd);
  bbtnUpdate2.Enabled:=(ARights[3]='Y') and (not AInsUpd);
  bbtnDelete2.Enabled:=(ARights[4]='Y') and (not AInsUpd);
  bbtnMove.Enabled:=(ARights[2]='Y') and (not AInsUpd);
  bbtnSave2.Enabled:=AInsUpd;
  bbtnCancel2.Enabled:=AInsUpd;
  Panel8.Enabled:=AInsUpd;
  dxDBGrid3.Enabled:=not AInsUpd;
  ButtonEnabled(not AInsUpd);
end;

procedure TOrd150_02Form.SetInterface;
begin
  Image1.Picture.Bitmap.LoadFromResourceName(AImgHandle,'TOPTITL');
  Caption:=GetDBString('ORD15003001');  //客户资料维护
  ActFirst.Caption:=GetDBString('COM00005001');  //最前
  ActPrior.Caption:=GetDBString('COM00005002');  //上移
  ActNext.Caption:=GetDBString('COM00005003');  //下移
  ActLast.Caption:=GetDBString('COM00005004');  //最后
  ActInsert.Caption:=GetDBString('COM00005005');  //新增
  ActUpdate.Caption:=GetDBString('COM00005006');  //修改
  ActDelete.Caption:=GetDBString('COM00005007');  //删除
  ActSave.Caption:=GetDBString('COM00005008');  //保存
  ActCancel.Caption:=GetDBString('COM00005009');  //取消
  ActRefresh.Caption:=GetDBString('COM00005010');  //刷新
  ActLocate.Caption:=GetDBString('COM00005011');  //查找
  ActSearch.Caption:=GetDBString('COM00005012');  //查询
  ActPrint.Caption:=GetDBString('COM00005013');  //打印
  ActExport.Caption:=GetDBString('COM00005014');  //导出数据
  ActExit.Caption:=GetDBString('COM00005015');  //退出
  TabSheet1.Caption:=GetDBString('ORD15003002');  //客户资料
  TabSheet2.Caption:=GetDBString('ORD15003003');  //联系人名
  TabSheet3.Caption:=GetDBString('ORD15003004');  //交货地点

  ActFirst.Hint:=GetDBString('COM00005001',2);  //移到第一条记录
  ActPrior.Hint:=GetDBString('COM00005002',2);  //移到上一条记录
  ActNext.Hint:=GetDBString('COM00005003',2);  //移到下一条记录
  ActLast.Hint:=GetDBString('COM00005004',2);  //移到最后一条记录
  ActInsert.Hint:=GetDBString('COM00005005',2);  //新增一条记录
  ActUpdate.Hint:=GetDBString('COM00005006',2);  //修改当前记录
  ActDelete.Hint:=GetDBString('COM00005007',2);  //删除当前记录
  ActSave.Hint:=GetDBString('COM00005008',2);  //保存编辑的记录
  ActCancel.Hint:=GetDBString('COM00005009',2);  //取消编辑的记录
  ActRefresh.Hint:=GetDBString('COM00005010',2);  //取得最新的数据
  ActLocate.Hint:=GetDBString('COM00005011',2);  //快速定位记录
  ActSearch.Hint:=GetDBString('COM00005012',2);  //按条件查询数据
  ActPrint.Hint:=GetDBString('COM00005013',2);  //将数据打印出来
  ActExport.Hint:=GetDBString('COM00005014',2);  //导出数据到文件中
  ActExit.Hint:=GetDBString('COM00005015',2);  //关闭当前窗口
  TabSheet1.Hint:=GetDBString('ORD15003002',2);  //客户基本信息
  TabSheet2.Hint:=GetDBString('ORD15003003',2);  //客户联系人信息
  TabSheet3.Hint:=GetDBString('ORD15003004',2);  //客户的交货地点信息

  GroupBox1.Caption:=GetDBString('ORD15003036');  //基本信息
  GroupBox2.Caption:=GetDBString('ORD15003037');  //会计科目
  GroupBox3.Caption:=GetDBString('ORD15003038');  //结算信息

  lblCustNo.Caption:=GetDBString('ORD15003005');  //客户编号
  lblName.Caption:=GetDBString('ORD15003006');  //客户名称
  lblShort.Caption:=GetDBString('ORD15003007');  //客户简称
  lblPhone.Caption:=GetDBString('ORD15003008');  //电话号码
  lblFax.Caption:=GetDBString('ORD15003009');  //传真号码
  lblEmail.Caption:=GetDBString('ORD15003010');  //电子邮件
  lblSite.Caption:=GetDBString('ORD15003011');  //公司网址
  lblType.Caption:=GetDBString('ORD15003012');  //客户类型
  lblClass.Caption:=GetDBString('ORD15003013');  //客户分类
  lblRegion.Caption:=GetDBString('ORD15003014');  //所属地区
  lblAddress.Caption:=GetDBString('ORD15003015');  //通讯地址
  lblPostalcode.Caption:=GetDBString('ORD15003016');  //邮政编码
  lblStatus.Caption:=GetDBString('ORD15003017');  //客户状态
  lblRecNote.Caption:=GetDBString('ORD15003018');  //应收票据
  lblReceive.Caption:=GetDBString('ORD15003019');  //应收科目
  lblRecAdv.Caption:=GetDBString('ORD15003020');  //预收科目
  lblRecEst.Caption:=GetDBString('ORD15003021');  //暂估应收
  lblPayNote.Caption:=GetDBString('ORD15003022');  //应付票据
  lblPayable.Caption:=GetDBString('ORD15003023');  //应付科目
  lblPayAdv.Caption:=GetDBString('ORD15003024');  //预付科目
  lblPayEst.Caption:=GetDBString('ORD15003025');  //暂估应付
  lblBank.Caption:=GetDBString('ORD15003026');  //银行名称
  lblAccount.Caption:=GetDBString('ORD15003027');  //银行帐号
  lblTaxCode.Caption:=GetDBString('ORD15003028');  //税务代码
  lblCurrency.Caption:=GetDBString('ORD15003029');  //币别编号
  lblCredit.Caption:=GetDBString('ORD15003032');  //信用额度
  lblDays.Caption:=GetDBString('ORD15003033');  //信用期限
  lblCreditEach.Caption:=GetDBString('ORD15003034');  //单笔信用额度
  lblPriority.Caption:=GetDBString('ORD15003035');  //优先级别
  lblEngNm.Caption:=GetDBString('ORD15003078');  //英文名称
  lblEngAd.Caption:=GetDBString('ORD15003079');  //英文地址

  cbStatus.Items.Clear;
  cbStatus.Items.Add(GetDBString('ORD15003039'));  //正常
  cbStatus.Items.Add(GetDBString('ORD15003040'));  //锁定
  cbStatus.Items.Add(GetDBString('ORD15003041'));  //潜在

  cbType.Items.Clear;
  cbType.Items.Add(GetDBString('ORD15003042'));  //客户
  cbType.Items.Add(GetDBString('ORD15003043'));  //供应商
  cbType.Items.Add(GetDBString('ORD15003044'));  //客户&供应商

  lblContact.Caption:=GetDBString('ORD15003045');  //联系人名
  lblDept.Caption:=GetDBString('ORD15003046');  //部门名称
  lblPost.Caption:=GetDBString('ORD15003047');  //职位名称
  lblTel.Caption:=GetDBString('ORD15003048');  //电话号码
  lblFaxNo.Caption:=GetDBString('ORD15003049');  //传真号码
  lblConEmail.Caption:=GetDBString('ORD15003050');  //电子邮件
  lblMobile.Caption:=GetDBString('ORD15003051');  //移动电话
  lblAdd.Caption:=GetDBString('ORD15003052');  //通讯地址
  lblZip.Caption:=GetDBString('ORD15003053');  //邮政编码

  lblPlace.Caption:=GetDBString('ORD15003054');  //交货地点
  lblCity.Caption:=GetDBString('ORD15003055');  //所属地区
  lblPlaceAdd.Caption:=GetDBString('ORD15003056');  //交货地址
  lblPlaceZip.Caption:=GetDBString('ORD15003057');  //邮政编码
  lblPlaceTel.Caption:=GetDBString('ORD15003058');  //电话号码
  lblPlaceFax.Caption:=GetDBString('ORD15003059');  //传真号码
  lblCon.Caption:=GetDBString('ORD15003060');  //联系人名

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

  TabSheet4.Caption:=GetDBString('ORD15003061');  //产品资料
  TabSheet4.Hint:=GetDBString('ORD15003061',2);  //客户的产品资料
  qryInv150.FieldByName('I150_002').DisplayLabel:=GetDBString('ORD15003062');  //产品编号
  qryInv150.FieldByName('I150_003').DisplayLabel:=GetDBString('ORD15003063');  //产品名称
  lblItem.Caption:=GetDBString('ORD15003064');  //产品编号
  lblMacNo.Caption:=GetDBString('ORD15003065');  //机身编号
  lblControlNo.Caption:=GetDBString('ORD15003066');  //控制器号
  lblSoftware.Caption:=GetDBString('ORD15003067');  //软件系统
  lblInstallDate.Caption:=GetDBString('ORD15003068');  //安装日期
  lblFromDate1.Caption:=GetDBString('ORD15003069');  //保养日期
  lblToDate1.Caption:=GetDBString('ORD15003070');  //结束日期
  lblFrom.Caption:=GetDBString('ORD15003071');  //来源类型
  lblFromDate2.Caption:=GetDBString('ORD15003072');  //续保日期
  lblToDate2.Caption:=GetDBString('ORD15003073');  //结束日期
  cbFrom.Clear;
  cbFrom.Items.Add(GetDBString('ORD15003074'));  //销售
  cbFrom.Items.Add(GetDBString('ORD15003075'));  //外来
  cbFrom.Items.Add(GetDBString('ORD15003076'));  //合作
  cbFrom.Items.Add(GetDBString('ORD15003077'));  //转让
  cbFrom.ItemIndex:=1;

  cbPrimary.Caption:=GetDBString('ORD15001030');  //主联系人
  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');  //主联系人

  cbPrimaryPlace.Caption:=GetDBString('ORD15001050');  //主要交货地点
  qryOrd152O152_002.DisplayLabel:=GetDBString('ORD15001031');  //交货地点
  qryOrd152O120_002.DisplayLabel:=GetDBString('ORD15001032');  //所属地区
  qryOrd152O152_004.DisplayLabel:=GetDBString('ORD15001033');  //交货地址
  qryOrd152O152_005.DisplayLabel:=GetDBString('ORD15001034');  //邮政编码