📄 ser510_01.pas.svn-base
字号:
unit Ser510_01;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Bas200_10, dxExEdtr, ActnList, DB, ADODB, Menus, dxCntner, dxTL,
dxDBCtrl, dxDBGrid, ExtCtrls, ComCtrls, ToolWin, dxDBTLCl, dxGrClms,
Buttons, StdCtrls, wwdbdatetimepicker;
type
TSer510_01Form = class(TBas200_10Form)
qryInv150: TADOQuery;
qryInv150I150_001: TAutoIncField;
qryInv150I150_002: TWideStringField;
qryInv150I150_003: TWideStringField;
ADOQuery1S510_001: TWideStringField;
ADOQuery1S510_002: TWideStringField;
ADOQuery1S510_003: TDateTimeField;
ADOQuery1S510_005: TWideStringField;
ADOQuery1S510_006: TWideStringField;
ADOQuery1S510_007: TWideStringField;
ADOQuery1S510_008: TWideStringField;
ADOQuery1S510_009: TMemoField;
ADOQuery1S510_010: TDateTimeField;
ADOQuery1S510_011: TWideStringField;
ADOQuery1S510_012: TDateTimeField;
ADOQuery1S510_013: TWideStringField;
ADOQuery1S500_002: TWideStringField;
ADOQuery1H150_002: TWideStringField;
ADOQuery1H150_003: TWideStringField;
ADOQuery1O150_002: TWideStringField;
ADOQuery1O150_003: TWideStringField;
ADOQuery1O150_005: TWideStringField;
ADOQuery1O150_006: TWideStringField;
ADOQuery1O150_012: TWideStringField;
ADOQuery1S500_007: TDateTimeField;
ADOQuery1S500_011: TWideStringField;
ADOQuery1S500_012: TWideStringField;
ADOQuery1S500_013: TWideStringField;
ADOQuery1S500_014: TWideStringField;
ADOQuery1S500_016: TWideStringField;
ADOQuery1I150_002: TStringField;
ADOQuery1I150_003: TStringField;
ADOQuery1S500_019: TWideStringField;
ADOQuery1S500_033: TMemoField;
ADOQuery1S500_018: TIntegerField;
ADOQuery1S500_017: TIntegerField;
ADOQuery1O150_001: TAutoIncField;
ADOQuery1S510_004: TIntegerField;
dxDBGrid1S510_001: TdxDBGridColumn;
dxDBGrid1S510_002: TdxDBGridColumn;
dxDBGrid1S510_003: TdxDBGridDateColumn;
dxDBGrid1S510_005: TdxDBGridColumn;
dxDBGrid1S510_006: TdxDBGridColumn;
dxDBGrid1S510_007: TdxDBGridColumn;
dxDBGrid1S510_008: TdxDBGridColumn;
dxDBGrid1S510_009: TdxDBGridMemoColumn;
dxDBGrid1S510_010: TdxDBGridDateColumn;
dxDBGrid1S510_011: TdxDBGridColumn;
dxDBGrid1S510_012: TdxDBGridDateColumn;
dxDBGrid1S510_013: TdxDBGridColumn;
dxDBGrid1S500_002: TdxDBGridColumn;
dxDBGrid1H150_002: TdxDBGridColumn;
dxDBGrid1H150_003: TdxDBGridColumn;
dxDBGrid1O150_002: TdxDBGridColumn;
dxDBGrid1O150_003: TdxDBGridColumn;
dxDBGrid1O150_005: TdxDBGridColumn;
dxDBGrid1O150_006: TdxDBGridColumn;
dxDBGrid1O150_012: TdxDBGridColumn;
dxDBGrid1S500_007: TdxDBGridDateColumn;
dxDBGrid1S500_011: TdxDBGridColumn;
dxDBGrid1S500_012: TdxDBGridColumn;
dxDBGrid1S500_013: TdxDBGridColumn;
dxDBGrid1S500_014: TdxDBGridColumn;
dxDBGrid1S500_016: TdxDBGridColumn;
dxDBGrid1I150_002: TdxDBGridLookupColumn;
dxDBGrid1I150_003: TdxDBGridLookupColumn;
dxDBGrid1S500_019: TdxDBGridColumn;
lblDate: TLabel;
edtFromDate: TwwDBDateTimePicker;
edtToDate: TwwDBDateTimePicker;
sbSearch: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure sbSearchClick(Sender: TObject);
private
{ Private declarations }
public
procedure SetInterface; override;
procedure InsertEvent; override;
procedure UpdateEvent; override;
procedure DeleteEvent; override;
procedure BrowseEvent; override;
procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
{ Public declarations }
end;
var
Ser510_01Form: TSer510_01Form;
implementation
uses SYSDATA, CommFun, SerComm, Ser510_02;
{$R *.dfm}
procedure TSer510_01Form.SetInterface;
begin
inherited;
Caption:=GetDBString('SER51001001'); //调查过程维护
ADOQuery1S510_001.DisplayLabel:=GetDBString('SER51001035'); //调查单号
ADOQuery1S510_002.DisplayLabel:=GetDBString('SER51001002'); //来电编号
ADOQuery1S500_002.DisplayLabel:=GetDBString('SER51001003'); //来电名称
ADOQuery1S510_003.DisplayLabel:=GetDBString('SER51001004'); //调查日期
ADOQuery1S510_005.DisplayLabel:=GetDBString('SER51001005'); //受调查人
ADOQuery1S510_006.DisplayLabel:=GetDBString('SER51001006'); //部门名称
ADOQuery1S510_007.DisplayLabel:=GetDBString('SER51001007'); //职务名称
ADOQuery1S510_008.DisplayLabel:=GetDBString('SER51001008'); //联系电话
ADOQuery1S510_009.DisplayLabel:=GetDBString('SER51001009'); //调查内容
ADOQuery1S510_010.DisplayLabel:=GetDBString('SER51001010'); //制单日期
ADOQuery1S510_011.DisplayLabel:=GetDBString('SER51001011'); //制单人员
ADOQuery1S510_012.DisplayLabel:=GetDBString('SER51001012'); //修改日期
ADOQuery1S510_013.DisplayLabel:=GetDBString('SER51001013'); //修改人员
ADOQuery1H150_002.DisplayLabel:=GetDBString('SER51001014'); //调查人号
ADOQuery1H150_003.DisplayLabel:=GetDBString('SER51001015'); //调查人名
ADOQuery1O150_002.DisplayLabel:=GetDBString('SER51001016'); //客戶编号
ADOQuery1O150_003.DisplayLabel:=GetDBString('SER51001017'); //客戶名称
ADOQuery1O150_005.DisplayLabel:=GetDBString('SER51001018'); //电话号码
ADOQuery1O150_006.DisplayLabel:=GetDBString('SER51001019'); //传真号码
ADOQuery1O150_012.DisplayLabel:=GetDBString('SER51001020'); //客戶地址
ADOQuery1S500_007.DisplayLabel:=GetDBString('SER51001021'); //来电日期
ADOQuery1S500_011.DisplayLabel:=GetDBString('SER51001022'); //来电人员
ADOQuery1S500_012.DisplayLabel:=GetDBString('SER51001023'); //部门名称
ADOQuery1S500_013.DisplayLabel:=GetDBString('SER51001024'); //职务名称
ADOQuery1S500_014.DisplayLabel:=GetDBString('SER51001025'); //联系电话
ADOQuery1S500_016.DisplayLabel:=GetDBString('SER51001026'); //单据编号
ADOQuery1I150_002.DisplayLabel:=GetDBString('SER51001027'); //产品编号
ADOQuery1I150_003.DisplayLabel:=GetDBString('SER51001028'); //产品名称
ADOQuery1S500_019.DisplayLabel:=GetDBString('SER51001029'); //机身编号
ADOQuery1S500_018.DisplayLabel:=GetDBString('SER51001030'); //产品编号
ADOQuery1S500_017.DisplayLabel:=GetDBString('SER51001031'); //客戶编号
ADOQuery1S510_004.DisplayLabel:=GetDBString('SER51001032'); //调查人员
lblDate.Caption:=GetDBString('SER51001033'); //日期
sbSearch.Caption:=GetDBString('SER51001034'); //查询
end;
procedure TSer510_01Form.FormCreate(Sender: TObject);
var
ADate:TDateTime;
begin
inherited;
ADate:=GetServerDate;
edtFromDate.Date:=GetMonthFirstDate(ADate);
edtToDate.Date:=GetMonthEndDate(ADate);
sbSearch.Click;
end;
procedure TSer510_01Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
qryInv150.Close;
end;
procedure TSer510_01Form.sbSearchClick(Sender: TObject);
begin
inherited;
//查询
if (edtFromDate.Text='') or (edtToDate.Text='') then
begin
ShowMsg('UMS10000319'); //起止日期不可为空
if edtFromDate.Text='' then edtFromDate.SetFocus else edtToDate.SetFocus;
Abort;
end;
if edtFromDate.Date>edtToDate.Date then
begin
ShowMsg('UMS10000320'); //结束日期不能小于起始日期
edtToDate.SetFocus;
Abort;
end;
Screen.Cursor:=crHourGlass;
ADOQuery1.DisableControls;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select A.*,');
ADOQuery1.SQL.Add(' B.S500_002,B.S500_007,B.S500_011,B.S500_012,B.S500_013,B.S500_014,B.S500_016,B.S500_017,B.S500_018,B.S500_019,B.S500_033,');
ADOQuery1.SQL.Add(' C.H150_002,C.H150_003,');
ADOQuery1.SQL.Add(' D.O150_001,D.O150_002,D.O150_003,D.O150_005,D.O150_006,D.O150_012');
ADOQuery1.SQL.Add('from SER510 A, SER500 B, HRM150 C, ORD150 D');
ADOQuery1.SQL.Add('where A.S510_002=B.S500_001 and A.S510_004=C.H150_001 and');
ADOQuery1.SQL.Add(' B.S500_017=D.O150_001 and A.S510_003>='+GetDateString(edtFromDate.Date)+' and A.S510_003<='+GetDateString(edtToDate.Date));
ADOQuery1.SQL.Add('order by S500_001');
ADOQuery1.Open;
ADOQuery1.EnableControls;
Screen.Cursor:=crDefault;
end;
procedure TSer510_01Form.ReportGetValue(const ParName: String; var ParValue: Variant);
begin
inherited;
if ParName='ADate' then ParValue:=lblDate.Caption //日期
else if ParName='AFromDate' then ParValue:=edtFromDate.Text //
else if ParName='AToDate' then ParValue:=edtToDate.Text //
else if ParName='S510_001' then ParValue:=ADOQuery1S510_001.DisplayLabel //调查单号
else if ParName='S510_002' then ParValue:=ADOQuery1S510_002.DisplayLabel //来电编号
else if ParName='S510_003' then ParValue:=ADOQuery1S510_003.DisplayLabel //调查日期
else if ParName='S510_004' then ParValue:=ADOQuery1S510_004.DisplayLabel //调查人员
else if ParName='S510_005' then ParValue:=ADOQuery1S510_005.DisplayLabel //调查客戶
else if ParName='S510_006' then ParValue:=ADOQuery1S510_006.DisplayLabel //受调查人
else if ParName='S510_007' then ParValue:=ADOQuery1S510_007.DisplayLabel //部门名称
else if ParName='S510_008' then ParValue:=ADOQuery1S510_008.DisplayLabel //职位名称
else if ParName='S510_009' then ParValue:=ADOQuery1S510_009.DisplayLabel //调查内容
else if ParName='S510_010' then ParValue:=ADOQuery1S510_010.DisplayLabel //制单日期
else if ParName='S510_011' then ParValue:=ADOQuery1S510_011.DisplayLabel //制单人员
else if ParName='S510_012' then ParValue:=ADOQuery1S510_012.DisplayLabel //修改日期
else if ParName='S510_013' then ParValue:=ADOQuery1S510_013.DisplayLabel //修改人员
else if ParName='H150_002' then ParValue:=ADOQuery1H150_002.DisplayLabel //调查人号
else if ParName='H150_003' then ParValue:=ADOQuery1H150_003.DisplayLabel //调查人名
else if ParName='O150_002' then ParValue:=ADOQuery1O150_002.DisplayLabel //客戶编号
else if ParName='O150_003' then ParValue:=ADOQuery1O150_003.DisplayLabel //客戶名称
else if ParName='O150_005' then ParValue:=ADOQuery1O150_005.DisplayLabel //电话号码
else if ParName='O150_006' then ParValue:=ADOQuery1O150_006.DisplayLabel //传真号码
else if ParName='O150_012' then ParValue:=ADOQuery1O150_012.DisplayLabel //客戶地址
else if ParName='S500_007' then ParValue:=ADOQuery1S500_007.DisplayLabel //来电日期
else if ParName='S500_011' then ParValue:=ADOQuery1S500_011.DisplayLabel //来电人员
else if ParName='S500_012' then ParValue:=ADOQuery1S500_012.DisplayLabel //部门名称
else if ParName='S500_013' then ParValue:=ADOQuery1S500_013.DisplayLabel //职务名称
else if ParName='S500_014' then ParValue:=ADOQuery1S500_014.DisplayLabel //联系电话
else if ParName='S500_016' then ParValue:=ADOQuery1S500_016.DisplayLabel //单据编号
else if ParName='S500_019' then ParValue:=ADOQuery1S500_019.DisplayLabel //机身编号
else if ParName='S500_033' then ParValue:=ADOQuery1S500_033.DisplayLabel //来电内容
else if ParName='S500_018' then ParValue:=ADOQuery1S500_018.DisplayLabel //产品编号
else if ParName='S500_017' then ParValue:=ADOQuery1S500_017.DisplayLabel //客戶编号
else if ParName='S510_004' then ParValue:=ADOQuery1S510_004.DisplayLabel //调查人员
end;
procedure TSer510_01Form.BrowseEvent;
begin
inherited;
Ser510_02Form:=TSer510_02Form.Create(Application);
Ser510_02Form.OpenData(ADOQuery1S510_001.Value);
Ser510_02Form.ShowModal;
end;
procedure TSer510_01Form.DeleteEvent;
var
ACode,ACallCode:string;
begin
inherited;
//删除
//仅未汇报的调查记录可删除
if ADOQuery1S510_009.AsString<>'' then
begin
ShowMsg('UMS10000370'); //不允许删除已汇报的调查记录
Abort;
end;
try
ACode:=ADOQuery1S510_001.AsString;
ACallCode:=ADOQuery1S510_002.AsString;
DeleteTableRecord(ADOQuery1,'SER510','S510_001='+''''+ACode+'''');
//更新来电记录信息(来电状态)
UpdateSolution(ACallCode);
except
ShowMsg(SYSDM.ADOC.Errors[0].Description+#13+SYSDM.qryQuery.SQL.Text,1);
Abort;
end;
end;
procedure TSer510_01Form.InsertEvent;
begin
inherited;
//新增
Ser510_02Form:=TSer510_02Form.Create(Application);
Ser510_02Form.OpenData('');
Ser510_02Form.ActInsert.Execute;
Ser510_02Form.ShowModal;
end;
procedure TSer510_01Form.UpdateEvent;
begin
inherited;
//修改
{ if ADOQuery1S510_009.AsString<>'' then
begin
ShowMsg('UMS10000369'); //不允许修改已汇报的调查记录
Abort;
end;}
Ser510_02Form:=TSer510_02Form.Create(Application);
Ser510_02Form.OpenData(ADOQuery1S510_001.Value);
Ser510_02Form.ActUpdate.Execute;
Ser510_02Form.ShowModal;
end;
initialization
RegisterClass(TSer510_01Form);
finalization
UnRegisterClass(TSer510_01Form);
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -