📄 ser520_01.pas.svn-base
字号:
unit Ser520_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,
StdCtrls, wwdbdatetimepicker, Buttons;
type
TSer520_01Form = class(TBas200_10Form)
qryInv150: TADOQuery;
qryInv150I150_001: TAutoIncField;
qryInv150I150_002: TWideStringField;
qryInv150I150_003: TWideStringField;
ADOQuery1S520_001: TWideStringField;
ADOQuery1S520_002: TWideStringField;
ADOQuery1S500_002: TWideStringField;
ADOQuery1S520_003: TSmallintField;
ADOQuery1S520_004: TDateTimeField;
ADOQuery1S520_005: TWideStringField;
ADOQuery1S520_006: TDateTimeField;
ADOQuery1S520_007: TWideStringField;
ADOQuery1S520_008: TDateTimeField;
ADOQuery1S520_009: TWideStringField;
ADOQuery1S520_012: TDateTimeField;
ADOQuery1S520_013: TWideStringField;
ADOQuery1S520_014: TDateTimeField;
ADOQuery1S520_015: 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;
ADOQuery1O150_001: TAutoIncField;
ADOQuery1O150_002: TWideStringField;
ADOQuery1O150_003: TWideStringField;
ADOQuery1S520_010: TMemoField;
ADOQuery1S520_011: TMemoField;
ADOQuery1S500_017: TIntegerField;
ADOQuery1S500_018: TIntegerField;
ADOQuery1S500_033: TMemoField;
dxDBGrid1S520_001: TdxDBGridColumn;
dxDBGrid1S520_002: TdxDBGridColumn;
dxDBGrid1S500_002: TdxDBGridColumn;
dxDBGrid1S520_003: TdxDBGridMaskColumn;
dxDBGrid1S520_004: TdxDBGridDateColumn;
dxDBGrid1S520_005: TdxDBGridColumn;
dxDBGrid1S520_006: TdxDBGridDateColumn;
dxDBGrid1S520_007: TdxDBGridColumn;
dxDBGrid1S520_008: TdxDBGridDateColumn;
dxDBGrid1S520_009: TdxDBGridColumn;
dxDBGrid1S520_012: TdxDBGridDateColumn;
dxDBGrid1S520_013: TdxDBGridColumn;
dxDBGrid1S520_014: TdxDBGridDateColumn;
dxDBGrid1S520_015: 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;
dxDBGrid1O150_002: TdxDBGridColumn;
dxDBGrid1O150_003: TdxDBGridColumn;
lblDate: TLabel;
sbSearch: TSpeedButton;
edtFromDate: TwwDBDateTimePicker;
edtToDate: TwwDBDateTimePicker;
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
Ser520_01Form: TSer520_01Form;
implementation
uses SYSDATA, CommFun, SerComm, Ser520_02;
{$R *.dfm}
procedure TSer520_01Form.SetInterface;
begin
inherited;
Caption:=GetDBString('SER52001001'); //解决方案程维护
ADOQuery1S520_001.DisplayLabel:=GetDBString('SER52001002'); //方案编号
ADOQuery1S520_002.DisplayLabel:=GetDBString('SER52001003'); //来电编号
ADOQuery1S500_002.DisplayLabel:=GetDBString('SER52001004'); //来电名称
ADOQuery1S500_007.DisplayLabel:=GetDBString('SER52001005'); //来电日期
ADOQuery1S500_011.DisplayLabel:=GetDBString('SER52001006'); //来电人员
ADOQuery1S500_012.DisplayLabel:=GetDBString('SER52001007'); //部门名称
ADOQuery1S500_013.DisplayLabel:=GetDBString('SER52001008'); //职务名称
ADOQuery1S500_014.DisplayLabel:=GetDBString('SER52001009'); //联系电话
ADOQuery1S500_016.DisplayLabel:=GetDBString('SER52001010'); //单据编号
ADOQuery1S500_033.DisplayLabel:=GetDBString('SER52001011'); //来电内容
ADOQuery1O150_002.DisplayLabel:=GetDBString('SER52001012'); //客戶编号
ADOQuery1O150_003.DisplayLabel:=GetDBString('SER52001013'); //客戶名称
ADOQuery1I150_002.DisplayLabel:=GetDBString('SER52001014'); //产品编号
ADOQuery1I150_003.DisplayLabel:=GetDBString('SER52001015'); //产品名称
ADOQuery1S500_019.DisplayLabel:=GetDBString('SER52001016'); //机身编号
ADOQuery1S520_012.DisplayLabel:=GetDBString('SER52001017'); //制单日期
ADOQuery1S520_013.DisplayLabel:=GetDBString('SER52001018'); //制单人员
ADOQuery1S520_014.DisplayLabel:=GetDBString('SER52001019'); //修改日期
ADOQuery1S520_015.DisplayLabel:=GetDBString('SER52001020'); //修改人员
lblDate.Caption:=GetDBString('SER52001021'); //日期
sbSearch.Caption:=GetDBString('SER52001022'); //查询
end;
procedure TSer520_01Form.FormCreate(Sender: TObject);
var
ADate:TDateTime;
begin
inherited;
AReportName:='SER520A.frf';
ADate:=GetServerDate;
edtFromDate.Date:=GetMonthFirstDate(ADate);
edtToDate.Date:=GetMonthEndDate(ADate);
sbSearch.Click;
end;
procedure TSer520_01Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
qryInv150.Close;
end;
procedure TSer520_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.O150_001,C.O150_002,C.O150_003');
ADOQuery1.SQL.Add('from SER520 A, SER500 B, ORD150 C');
ADOQuery1.SQL.Add('where A.S520_002=B.S500_001 and B.S500_017=C.O150_001');
ADOQuery1.SQL.Add('order by S520_001');
ADOQuery1.Open;
ADOQuery1.EnableControls;
Screen.Cursor:=crDefault;
end;
procedure TSer520_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='S520_001' then ParValue:=ADOQuery1S520_001.DisplayLabel //方案编号
else if ParName='S520_002' then ParValue:=ADOQuery1S520_002.DisplayLabel //来电编号
else if ParName='S500_002' then ParValue:=ADOQuery1S500_002.DisplayLabel //来电名称
else if ParName='S520_004' then ParValue:=ADOQuery1S520_004.DisplayLabel //提交日期
else if ParName='S520_005' then ParValue:=ADOQuery1S520_005.DisplayLabel //提交人员
else if ParName='S520_006' then ParValue:=ADOQuery1S520_006.DisplayLabel //审核日期
else if ParName='S520_007' then ParValue:=ADOQuery1S520_007.DisplayLabel //审核人员
else if ParName='S520_008' then ParValue:=ADOQuery1S520_008.DisplayLabel //确认日期
else if ParName='S520_009' then ParValue:=ADOQuery1S520_009.DisplayLabel //确认人员
else if ParName='S520_012' then ParValue:=ADOQuery1S520_012.DisplayLabel //制单日期
else if ParName='S520_013' then ParValue:=ADOQuery1S520_013.DisplayLabel //制单人员
else if ParName='S520_014' then ParValue:=ADOQuery1S520_014.DisplayLabel //修改日期
else if ParName='S520_015' then ParValue:=ADOQuery1S520_015.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='I150_002' then ParValue:=ADOQuery1I150_002.DisplayLabel //产品编号
else if ParName='I150_003' then ParValue:=ADOQuery1I150_003.DisplayLabel //产品名称
else if ParName='S500_019' then ParValue:=ADOQuery1S500_019.DisplayLabel //机身编号
else if ParName='O150_002' then ParValue:=ADOQuery1O150_002.DisplayLabel //客戶编号
else if ParName='O150_003' then ParValue:=ADOQuery1O150_003.DisplayLabel //客戶名称
else if ParName='S520_010' then ParValue:=ADOQuery1S520_010.DisplayLabel //批注信息
else if ParName='S520_011' then ParValue:=ADOQuery1S520_011.DisplayLabel //解决方法
else if ParName='S500_017' then ParValue:=ADOQuery1S500_017.DisplayLabel //客戶编号
else if ParName='S500_018' then ParValue:=ADOQuery1S500_018.DisplayLabel //产品编号
else if ParName='S500_033' then ParValue:=ADOQuery1S500_033.DisplayLabel //来电内容
end;
procedure TSer520_01Form.BrowseEvent;
begin
inherited;
Ser520_02Form:=TSer520_02Form.Create(Application);
Ser520_02Form.OpenData(ADOQuery1S520_001.Value);
Ser520_02Form.ShowModal;
end;
procedure TSer520_01Form.DeleteEvent;
var
ACode,ACallCode:string;
begin
inherited;
//删除
ACode:=ADOQuery1S520_001.AsString;
ACallCode:=ADOQuery1S520_002.AsString;
DeleteTableRecord(ADOQuery1,'SER520','S520_001='+''''+ACode+'''');
//更新来电记录信息(来电状态)
UpdateSolution(ACallCode);
end;
procedure TSer520_01Form.InsertEvent;
begin
inherited;
//新增
Ser520_02Form:=TSer520_02Form.Create(Application);
Ser520_02Form.OpenData('');
Ser520_02Form.ActInsert.Execute;
Ser520_02Form.ShowModal;
end;
procedure TSer520_01Form.UpdateEvent;
begin
inherited;
//修改
Ser520_02Form:=TSer520_02Form.Create(Application);
Ser520_02Form.OpenData(ADOQuery1S520_001.Value);
Ser520_02Form.ActUpdate.Execute;
Ser520_02Form.ShowModal;
end;
initialization
RegisterClass(TSer520_01Form);
finalization
UnRegisterClass(TSer520_01Form);
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -