📄 ser500_02.pas
字号:
unit Ser500_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;
type
TSer500_02Form = class(TBas100_01Form)
gbInfo: TGroupBox;
lblCode: TLabel;
lblName: TLabel;
lblStatus: TLabel;
lblPriority: TLabel;
lblFrom: TLabel;
lblDate: TLabel;
lblMiniue: TLabel;
lblClass: TLabel;
edtCode: TEdit;
edtName: TEdit;
edtStatus: TEdit;
edtPriority: TEdit;
udPriority: TUpDown;
cbFrom: TComboBox;
edtDate: TwwDBDateTimePicker;
edtMiniue: TEdit;
gbCust: TGroupBox;
lblCust: TLabel;
lblAddress: TLabel;
lblPhone: TLabel;
lblFax: TLabel;
lblItem: TLabel;
lblMacNo: TLabel;
sbCust: TSpeedButton;
sbItem: TSpeedButton;
edtCust: TEdit;
edtCustName: TEdit;
edtAddress: TEdit;
edtPhone: TEdit;
edtFax: TEdit;
edtItem: TEdit;
edtItemName: TEdit;
edtMacNo: TEdit;
gbDetail: TGroupBox;
lblDetails: TLabel;
memDetails: TMemo;
sbMacNo: TSpeedButton;
qryOrd150: TADOQuery;
qryOrd153: TADOQuery;
lblCreateDate: TLabel;
lblCreateBy: TLabel;
lblUpdateDate: TLabel;
lblUpdateBy: TLabel;
edtCreateBy: TEdit;
edtUpdateBy: TEdit;
qryOrd150O150_002: TStringField;
qryOrd150O150_003: TStringField;
qryOrd150O150_004: TStringField;
lblAppelater: TLabel;
edtAppelater: TEdit;
sbAppelater: TSpeedButton;
edtAppelateName: TEdit;
qrySer500: TADOQuery;
qryHrm150: TADOQuery;
qryHrm150H150_001: TAutoIncField;
qryHrm150H150_002: TWideStringField;
qryHrm150H150_003: TWideStringField;
qryOrd150O150_005: TWideStringField;
qryOrd150O150_012: TWideStringField;
qryOrd150O150_001: TAutoIncField;
qryOrd153I150_002: TWideStringField;
qryOrd153O153_003: TWideStringField;
qryOrd153I150_003: TWideStringField;
qryOrd153I150_004: TWideStringField;
qryOrd153I120_003: TWideStringField;
qryOrd153O150_002: TWideStringField;
qryOrd153O150_003: TWideStringField;
qryOrd153I150_001: TAutoIncField;
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;
dsSer500: TDataSource;
qryInv150: TADOQuery;
edtCreateDate: TEdit;
edtUpdateDate: TEdit;
cbClass: TdxLookupTreeView;
lblMin: TLabel;
lblCallName: TLabel;
edtCallName: TEdit;
lblDeptName: TLabel;
edtDeptName: TEdit;
lblPosit: TLabel;
edtPosit: TEdit;
lblContact: TLabel;
edtContact: TEdit;
lblBillNo: TLabel;
edtBillNo: TEdit;
sbBillNo: TSpeedButton;
gbPrice: TGroupBox;
cbPrice: TCheckBox;
lblDate1: TLabel;
edtFromDate1: TwwDBDateTimePicker;
edtToDate1: TwwDBDateTimePicker;
lblDate2: TLabel;
edtFromDate2: TwwDBDateTimePicker;
edtToDate2: TwwDBDateTimePicker;
lblItemFrom: TLabel;
cbItemFrom: TComboBox;
lblType: TLabel;
cbType: TComboBox;
qryOrd150O150_006: TWideStringField;
qrySer500S500_001: TWideStringField;
qrySer500S500_002: TWideStringField;
qrySer500S500_003: TIntegerField;
qrySer500S500_004: TIntegerField;
qrySer500S500_005: TSmallintField;
qrySer500S500_006: TSmallintField;
qrySer500S500_007: TDateTimeField;
qrySer500S500_008: TIntegerField;
qrySer500S500_009: TBCDField;
qrySer500S500_010: TIntegerField;
qrySer500S500_011: TWideStringField;
qrySer500S500_012: TWideStringField;
qrySer500S500_013: TWideStringField;
qrySer500S500_014: TWideStringField;
qrySer500S500_015: TSmallintField;
qrySer500S500_016: TWideStringField;
qrySer500S500_017: TIntegerField;
qrySer500S500_018: TIntegerField;
qrySer500S500_019: TWideStringField;
qrySer500S500_027: TBooleanField;
qrySer500S500_028: TDateTimeField;
qrySer500S500_029: TDateTimeField;
qrySer500S500_030: TDateTimeField;
qrySer500S500_031: TDateTimeField;
qrySer500S500_032: TSmallintField;
qrySer500S500_033: TMemoField;
qrySer500S500_034: TDateTimeField;
qrySer500S500_035: TWideStringField;
qrySer500S500_036: TDateTimeField;
qrySer500S500_037: TWideStringField;
qrySer500S100_002: TWideStringField;
qrySer500S110_003: TWideStringField;
qrySer500H150_001: TAutoIncField;
qrySer500H150_002: TWideStringField;
qrySer500H150_003: TWideStringField;
qrySer500O150_001: TAutoIncField;
qrySer500O150_002: TWideStringField;
qrySer500O150_003: TWideStringField;
qrySer500O150_005: TWideStringField;
qrySer500O150_006: TWideStringField;
qrySer500O150_012: TWideStringField;
qryInv150I150_001: TAutoIncField;
qryInv150I150_002: TWideStringField;
qryInv150I150_003: TWideStringField;
qrySer500I150_002: TStringField;
qrySer500I150_003: TStringField;
dsSer100: TDataSource;
qrySer100: TADOQuery;
edtTime: TdxTimeEdit;
cbSend: TCheckBox;
qrySer500S500_020: TBooleanField;
qryTas500: TADOQuery;
qryTas500T500_001: TWideStringField;
qryTas500T500_002: TWideStringField;
qryTas500T500_015: TIntegerField;
qryTas500T500_016: TIntegerField;
qryTas500T500_017: TWideStringField;
qryTas510: TADOQuery;
qryTas510T510_001: TWideStringField;
qryTas510T510_002: TWideStringField;
qryTas510T510_003: TIntegerField;
qryTas510T510_004: TIntegerField;
qryTas510T510_005: TSmallintField;
qryTas510T510_007: TDateTimeField;
qryTas510T510_012: TBCDField;
qryTas510T510_016: TIntegerField;
qryTas510T510_017: TIntegerField;
qryTas510T510_018: TWideStringField;
qryOrd153O153_007: TDateTimeField;
qryOrd153O153_008: TDateTimeField;
qryOrd153O153_009: TDateTimeField;
qryOrd153O153_010: TDateTimeField;
qryOrd153O153_012: TSmallintField;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure sbCustClick(Sender: TObject);
procedure sbItemClick(Sender: TObject);
procedure sbMacNoClick(Sender: TObject);
procedure sbAppelaterClick(Sender: TObject);
procedure edtAppelaterExit(Sender: TObject);
procedure edtCustExit(Sender: TObject);
procedure edtItemExit(Sender: TObject);
procedure edtMacNoExit(Sender: TObject);
procedure edtMiniueKeyPress(Sender: TObject; var Key: Char);
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 qrySer500AfterScroll(DataSet: TDataSet);
procedure edtMiniueExit(Sender: TObject);
procedure qryOrd150CalcFields(DataSet: TDataSet);
procedure cbTypeChange(Sender: TObject);
procedure qrySer500S500_006GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure qrySer500S500_015GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure sbBillNoClick(Sender: TObject);
procedure qrySer500CalcFields(DataSet: TDataSet);
procedure cbSendClick(Sender: TObject);
procedure cbClassCloseUp(Sender: TObject; Accept: Boolean);
private
AMode:string;
AType:array[0..2] of string;
AFrom:array[0..3] of string;
procedure SetButtonState(AInsUpd:Boolean);
procedure SetInterface;
procedure SaveData;
procedure ReportGetValue(const ParName: String; var ParValue: Variant);
{ Private declarations }
public
procedure OpenData(ACode:string);
{ Public declarations }
end;
var
Ser500_02Form: TSer500_02Form;
implementation
uses SYSDATA, HwSelData, CommFun, TasComm, Tas510_02;
{$R *.dfm}
//设置按钮状态
procedure TSer500_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;
gbCust.Enabled:=AInsUpd;
gbDetail.Enabled:=AInsUpd;
end;
procedure TSer500_02Form.SetInterface;
var
S:string;
begin
Caption:=GetDBString('SER50002001'); //来电记录维护
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('SER50002002'); //基本信息
gbCust.Caption:=GetDBString('SER50002003'); //客户产品
cbSend.Caption:=GetDBString('SER50002004'); //是否派工
cbPrice.Caption:=GetDBString('SER50002005'); //是否报价
gbDetail.Caption:=GetDBString('SER50002006'); //详细说明
lblCode.Caption:=GetDBString('SER50002007'); //来电编号
lblName.Caption:=GetDBString('SER50002008'); //来电名称
lblStatus.Caption:=GetDBString('SER50002009'); //来电状态
lblClass.Caption:=GetDBString('SER50002010'); //服务类别
lblPriority.Caption:=GetDBString('SER50002011'); //优先级别
lblFrom.Caption:=GetDBString('SER50002012'); //来源类型
lblDate.Caption:=GetDBString('SER50002013'); //来电日期
lblMiniue.Caption:=GetDBString('SER50002014'); //接听
lblMin.Caption:=GetDBString('SER50002015'); //分钟
lblAppelater.Caption:=GetDBString('SER50002016'); //受理人员
lblCallName.Caption:=GetDBString('SER50002017'); //来电人员
lblDeptName.Caption:=GetDBString('SER50002018'); //部门名称
lblPosit.Caption:=GetDBString('SER50002019'); //职务名称
lblContact.Caption:=GetDBString('SER50002020'); //联系电话
lblType.Caption:=GetDBString('SER50002021'); //单据类型
lblBillNo.Caption:=GetDBString('SER50002022'); //单据编号
lblCust.Caption:=GetDBString('SER50002023'); //客户编号
lblPhone.Caption:=GetDBString('SER50002024'); //电话号码
lblAddress.Caption:=GetDBString('SER50002025'); //客户地址
lblFax.Caption:=GetDBString('SER50002026'); //传真号码
lblItem.Caption:=GetDBString('SER50002027'); //产品编号
lblMacNo.Caption:=GetDBString('SER50002028'); //机身编号
lblDate1.Caption:=GetDBString('SER50002034'); //保养日期
lblDate2.Caption:=GetDBString('SER50002035'); //续保日期
lblItemFrom.Caption:=GetDBString('SER50002036'); //来源类型
lblDetails.Caption:=GetDBString('SER50002037'); //来电内容
lblCreateDate.Caption:=GetDBString('SER50002038'); //制单日期
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -