📄 ser510_02.pas.svn-base

📁 这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
💻 SVN-BASE
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
unit Ser510_02;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas100_01, StdCtrls, Buttons, wwdbdatetimepicker, ComCtrls,
  Menus, DB, ADODB, ActnList, ToolWin, dxdbtrel, dxCntner, dxEditor, StrUtils,
  dxExEdtr, dxEdLib, FR_DSet;

type
  TSer510_02Form = class(TBas100_01Form)
    gbInfo: TGroupBox;
    lblCode: TLabel;
    lblCallCode: TLabel;
    lblDate: TLabel;
    edtCode: TEdit;
    edtCallName: TEdit;
    edtCallCode: TEdit;
    edtDate: TwwDBDateTimePicker;
    gbDetail: TGroupBox;
    lblCreateDate: TLabel;
    lblCreateBy: TLabel;
    lblUpdateDate: TLabel;
    lblUpdateBy: TLabel;
    edtCreateBy: TEdit;
    edtUpdateBy: TEdit;
    lblAppelater: TLabel;
    edtAppelater: TEdit;
    sbAppelater: TSpeedButton;
    edtAppelateName: TEdit;
    qrySer510: TADOQuery;
    qryHrm150: TADOQuery;
    qryHrm150H150_001: TAutoIncField;
    qryHrm150H150_002: TWideStringField;
    qryHrm150H150_003: TWideStringField;
    CoolBar1: TCoolBar;
    ToolBar2: TToolBar;
    tlbFirst: TToolButton;
    tlbPrior: TToolButton;
    tlbNext: TToolButton;
    tlbLast: TToolButton;
    ToolButton1: TToolButton;
    tlbInsert: TToolButton;
    tlbUpdate: TToolButton;
    tlbDelete: TToolButton;
    ToolButton2: TToolButton;
    tlbSave: TToolButton;
    tlbCancel: TToolButton;
    ToolButton3: TToolButton;
    tlbRefresh: TToolButton;
    tlbLocate: TToolButton;
    tlbSearch: TToolButton;
    tlbPrint: TToolButton;
    ToolButton6: TToolButton;
    tlbExit: TToolButton;
    ActionList1: TActionList;
    ActFirst: TAction;
    ActPrior: TAction;
    ActNext: TAction;
    ActLast: TAction;
    ActInsert: TAction;
    ActUpdate: TAction;
    ActDelete: TAction;
    ActSave: TAction;
    ActCancel: TAction;
    ActRefresh: TAction;
    ActLocate: TAction;
    ActSearch: TAction;
    ActPrint: TAction;
    ActExit: TAction;
    dsSer510: TDataSource;
    qryInv150: TADOQuery;
    edtCreateDate: TEdit;
    edtUpdateDate: TEdit;
    lblBillNo: TLabel;
    edtBillNo: TEdit;
    qryInv150I150_001: TAutoIncField;
    qryInv150I150_002: TWideStringField;
    qryInv150I150_003: TWideStringField;
    sbCallCode: TSpeedButton;
    lblCust: TLabel;
    lblAddress: TLabel;
    lblPhone: TLabel;
    lblFax: TLabel;
    lblItem: TLabel;
    lblMacNo: TLabel;
    edtCust: TEdit;
    edtCustName: TEdit;
    edtAddress: TEdit;
    edtPhone: TEdit;
    edtFax: TEdit;
    edtItem: TEdit;
    edtItemName: TEdit;
    edtMacNo: TEdit;
    lblDetails: TLabel;
    memDetails: TMemo;
    lblReport: TLabel;
    memReport: TMemo;
    lblRepDate: TLabel;
    edtRepDate: TwwDBDateTimePicker;
    lblPerson: TLabel;
    edtPerson: TEdit;
    lblDeptName: TLabel;
    edtContact: TEdit;
    lblPosit: TLabel;
    edtPosit: TEdit;
    lblContact: TLabel;
    edtDeptName: TEdit;
    lblCallPerson: TLabel;
    edtCallPerson: TEdit;
    edtDept: TEdit;
    lblDept: TLabel;
    lblPost: TLabel;
    edtPost: TEdit;
    edtTelNo: TEdit;
    lblTelNo: TLabel;
    qrySer510S510_001: TWideStringField;
    qrySer510S510_002: TWideStringField;
    qrySer510S510_003: TDateTimeField;
    qrySer510S510_004: TIntegerField;
    qrySer510S510_005: TWideStringField;
    qrySer510S510_006: TWideStringField;
    qrySer510S510_007: TWideStringField;
    qrySer510S510_008: TWideStringField;
    qrySer510S510_009: TMemoField;
    qrySer510S510_010: TDateTimeField;
    qrySer510S510_011: TWideStringField;
    qrySer510S510_012: TDateTimeField;
    qrySer510S510_013: TWideStringField;
    qrySer510S500_002: TWideStringField;
    qrySer510H150_002: TWideStringField;
    qrySer510H150_003: TWideStringField;
    qrySer510O150_001: TAutoIncField;
    qrySer510O150_002: TWideStringField;
    qrySer510O150_003: TWideStringField;
    qrySer510O150_005: TWideStringField;
    qrySer510O150_006: TWideStringField;
    qrySer510O150_012: TWideStringField;
    qrySer510S500_007: TDateTimeField;
    qrySer510S500_011: TWideStringField;
    qrySer510S500_012: TWideStringField;
    qrySer510S500_013: TWideStringField;
    qrySer510S500_014: TWideStringField;
    qrySer510S500_016: TWideStringField;
    qrySer510S500_017: TIntegerField;
    qrySer510S500_018: TIntegerField;
    qrySer510S500_019: TWideStringField;
    qrySer510S500_033: TMemoField;
    qrySer510I150_002: TStringField;
    qrySer510I150_003: TStringField;
    qrySer500: TADOQuery;
    qrySer500S500_001: TWideStringField;
    qrySer500S500_002: TWideStringField;
    qrySer500I150_002: TStringField;
    qrySer500I150_003: TStringField;
    qrySer500O150_002: TWideStringField;
    qrySer500O150_003: TWideStringField;
    qrySer500S500_019: TWideStringField;
    qrySer500O150_001: TAutoIncField;
    qrySer500S500_018: TIntegerField;
    qrySer500S500_033: TMemoField;
    qrySer500S500_011: TWideStringField;
    qrySer500S500_012: TWideStringField;
    qrySer500S500_013: TWideStringField;
    qrySer500S500_014: TWideStringField;
    qrySer500S500_016: TWideStringField;
    qrySer500S500_007: TDateTimeField;
    qrySer500S500_008: TIntegerField;
    qrySer500S500_009: TBCDField;
    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 qrySer510AfterScroll(DataSet: TDataSet);
    procedure qrySer510CalcFields(DataSet: TDataSet);
    procedure sbCallCodeClick(Sender: TObject);
    procedure edtCallCodeExit(Sender: TObject);
    procedure sbAppelaterClick(Sender: TObject);
    procedure edtAppelaterExit(Sender: TObject);
  private
    AMode,AOldCallCode:string;
    procedure SetButtonState(AInsUpd:Boolean);
    procedure SetInterface;
    procedure SaveData;
    { Private declarations }
  public
    procedure OpenData(ACode:string);
    procedure ReportGetValue(const ParName: String; var ParValue: Variant);
    { Public declarations }
  end;

var
  Ser510_02Form: TSer510_02Form;

implementation

uses SYSDATA, HwSelData, CommFun, TasComm, SerComm, Tas510_02;

{$R *.dfm}

//设置按钮状态
procedure TSer510_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;
  gbInfo.Enabled:=AInsUpd;
  gbDetail.Enabled:=AInsUpd;
end;

procedure TSer510_02Form.SetInterface;
begin
  Caption:=GetDBString('SER51002001');  //调查过程记录
  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');  //打印
  ActExit.Caption:=GetDBString('COM00005015');  //退出

  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);  //将数据打印出来
  ActExit.Hint:=GetDBString('COM00005015',2);  //关闭当前窗口

  gbInfo.Caption:=GetDBString('SER51002002');  //基本信息
  gbDetail.Caption:=GetDBString('SER51002003');  //调查内容

  lblCode.Caption:=GetDBString('SER51002004');  //调查单号
  lblCallCode.Caption:=GetDBString('SER51002005');  //来电编号
  lblDate.Caption:=GetDBString('SER51002006');  //来电日期
  lblBillNo.Caption:=GetDBString('SER51002007');  //单据编号
  lblAppelater.Caption:=GetDBString('SER51002008');  //调查人员
  lblCust.Caption:=GetDBString('SER51002009');  //客戶编号
  lblPhone.Caption:=GetDBString('SER51002010');  //电话号码
  lblAddress.Caption:=GetDBString('SER51002011');  //客戶地址
  lblFax.Caption:=GetDBString('SER51002012');  //传真号码
  lblItem.Caption:=GetDBString('SER51002013');  //产品编号
  lblMacNo.Caption:=GetDBString('SER51002014');  //机身编号
  lblCallPerson.Caption:=GetDBString('SER51002015');  //来电人员
  lblDept.Caption:=GetDBString('SER51002016');  //部门名称
  lblPost.Caption:=GetDBString('SER51002017');  //职务名称
  lblTelNo.Caption:=GetDBString('SER51002018');  //联系电话
  lblDetails.Caption:=GetDBString('SER51002019');  //来电内容

  lblRepDate.Caption:=GetDBString('SER51002020');  //调查日期
  lblPerson.Caption:=GetDBString('SER51002021');  //受查人员
  lblDeptName.Caption:=GetDBString('SER51002022');  //部门名称
  lblPosit.Caption:=GetDBString('SER51002023');  //职务名称
  lblContact.Caption:=GetDBString('SER51002024');  //联系电话
  lblReport.Caption:=GetDBString('SER51002025');  //调查内容
  lblCreateDate.Caption:=GetDBString('SER51002026');  //制单日期
  lblCreateBy.Caption:=GetDBString('SER51002027');  //制单人员
  lblUpdateDate.Caption:=GetDBString('SER51002028');  //修改日期
  lblUpdateBy.Caption:=GetDBString('SER51002029');  //修改人员

  qryHrm150.FieldByName('H150_002').DisplayLabel:=GetDBString('SER51002030');  //员工编号
  qryHrm150.FieldByName('H150_003').DisplayLabel:=GetDBString('SER51002031');  //员工姓名

  qrySer500S500_001.DisplayLabel:=GetDBString('SER51002032');  //来电编号
  qrySer500S500_002.DisplayLabel:=GetDBString('SER51002033');  //来电名称
  qrySer500I150_002.DisplayLabel:=GetDBString('SER51002034');  //产品编号
  qrySer500I150_003.DisplayLabel:=GetDBString('SER51002035');  //产品名称
  qrySer500O150_002.DisplayLabel:=GetDBString('SER51002036');  //客戶编号
  qrySer500O150_003.DisplayLabel:=GetDBString('SER51002037');  //客戶名称
  qrySer500S500_011.DisplayLabel:=GetDBString('SER51002038');  //来电人员
  qrySer500S500_012.DisplayLabel:=GetDBString('SER51002039');  //部门名称
  qrySer500S500_013.DisplayLabel:=GetDBString('SER51002040');  //职务名称
  qrySer500S500_014.DisplayLabel:=GetDBString('SER51002041');  //联系电话
  qrySer500S500_016.DisplayLabel:=GetDBString('SER51002042');  //单据编号
  qrySer510S510_001.DisplayLabel:=GetDBString('SER51002043');  //调查单号
  qrySer510S510_002.DisplayLabel:=GetDBString('SER51002044');  //来电编号
  qrySer510S500_002.DisplayLabel:=GetDBString('SER51002045');  //来电名称
  qrySer510S500_007.DisplayLabel:=GetDBString('SER51002046');  //来电日期
  qrySer510S500_016.DisplayLabel:=GetDBString('SER51002047');  //单据编号
12 3 下一页
💿 文件大小 5005 K
👤 上传用户 struggle10000
📂 所属分类企业管理
🏷️ 相关标签

#ERP #代码 #企业信息 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -