📄 ser530_01.pas.svn-base
字号:
unit Ser530_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
TSer530_01Form = class(TBas200_10Form)
qryInv150: TADOQuery;
qryInv150I150_001: TAutoIncField;
qryInv150I150_002: TWideStringField;
qryInv150I150_003: TWideStringField;
ADOQuery1S530_001: TWideStringField;
ADOQuery1S530_002: TWideStringField;
ADOQuery1S500_002: TWideStringField;
ADOQuery1S530_003: TWideStringField;
ADOQuery1S530_004: TDateTimeField;
ADOQuery1S110_003: TWideStringField;
ADOQuery1S530_007: TDateTimeField;
ADOQuery1S530_008: TWideStringField;
ADOQuery1S530_009: TDateTimeField;
ADOQuery1S530_010: TWideStringField;
ADOQuery1S500_019: TWideStringField;
ADOQuery1I150_002: TStringField;
ADOQuery1I150_003: TStringField;
ADOQuery1S500_018: TIntegerField;
ADOQuery1O150_002: TWideStringField;
ADOQuery1O150_003: TWideStringField;
ADOQuery1O150_005: TWideStringField;
ADOQuery1O150_006: TWideStringField;
ADOQuery1O150_012: TWideStringField;
ADOQuery1O150_001: TAutoIncField;
ADOQuery1S530_005: TMemoField;
ADOQuery1S530_006: TIntegerField;
dxDBGrid1S530_001: TdxDBGridColumn;
dxDBGrid1S530_002: TdxDBGridColumn;
dxDBGrid1S500_002: TdxDBGridColumn;
dxDBGrid1S530_003: TdxDBGridColumn;
dxDBGrid1S530_004: TdxDBGridDateColumn;
dxDBGrid1S110_003: TdxDBGridColumn;
dxDBGrid1S530_007: TdxDBGridDateColumn;
dxDBGrid1S530_008: TdxDBGridColumn;
dxDBGrid1S530_009: TdxDBGridDateColumn;
dxDBGrid1S530_010: TdxDBGridColumn;
dxDBGrid1S500_019: TdxDBGridColumn;
dxDBGrid1I150_002: TdxDBGridLookupColumn;
dxDBGrid1I150_003: TdxDBGridLookupColumn;
dxDBGrid1S500_018: TdxDBGridMaskColumn;
dxDBGrid1O150_002: TdxDBGridColumn;
dxDBGrid1O150_003: TdxDBGridColumn;
dxDBGrid1O150_005: TdxDBGridColumn;
dxDBGrid1O150_006: TdxDBGridColumn;
dxDBGrid1O150_012: 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
Ser530_01Form: TSer530_01Form;
implementation
uses SYSDATA, CommFun, SerComm, Ser530_02;
{$R *.dfm}
procedure TSer530_01Form.SetInterface;
begin
inherited;
Caption:=GetDBString('SER53001001'); //来电汇报维护
ADOQuery1S530_001.DisplayLabel:=GetDBString('SER53001002'); //汇报编号
ADOQuery1S530_002.DisplayLabel:=GetDBString('SER53001003'); //来电编号
ADOQuery1S500_002.DisplayLabel:=GetDBString('SER53001004'); //来电名称
ADOQuery1S530_003.DisplayLabel:=GetDBString('SER53001005'); //汇报人员
ADOQuery1S530_004.DisplayLabel:=GetDBString('SER53001006'); //汇报日期
ADOQuery1S110_003.DisplayLabel:=GetDBString('SER53001007'); //后续处理
ADOQuery1S530_007.DisplayLabel:=GetDBString('SER53001008'); //制单日期
ADOQuery1S530_008.DisplayLabel:=GetDBString('SER53001009'); //制单人员
ADOQuery1S530_009.DisplayLabel:=GetDBString('SER53001010'); //修改日期
ADOQuery1S530_010.DisplayLabel:=GetDBString('SER53001011'); //修改人员
ADOQuery1S500_019.DisplayLabel:=GetDBString('SER53001012'); //机身编号
ADOQuery1I150_002.DisplayLabel:=GetDBString('SER53001013'); //产品编号
ADOQuery1I150_003.DisplayLabel:=GetDBString('SER53001014'); //产品名称
ADOQuery1S500_018.DisplayLabel:=GetDBString('SER53001015'); //产品编号
ADOQuery1O150_002.DisplayLabel:=GetDBString('SER53001016'); //客戶编号
ADOQuery1O150_003.DisplayLabel:=GetDBString('SER53001017'); //客戶名称
ADOQuery1O150_005.DisplayLabel:=GetDBString('SER53001018'); //电话号码
ADOQuery1O150_006.DisplayLabel:=GetDBString('SER53001019'); //传真号码
ADOQuery1O150_012.DisplayLabel:=GetDBString('SER53001020'); //客戶地址
ADOQuery1S530_005.DisplayLabel:=GetDBString('SER53001021'); //汇报内容
ADOQuery1S530_006.DisplayLabel:=GetDBString('SER53001022'); //后续处理
lblDate.Caption:=GetDBString('SER53001023'); //日期
sbSearch.Caption:=GetDBString('SER53001024'); //查询
end;
procedure TSer530_01Form.FormCreate(Sender: TObject);
var
ADate:TDateTime;
begin
inherited;
ADate:=GetServerDate;
edtFromDate.Date:=GetMonthFirstDate(ADate);
edtToDate.Date:=GetMonthEndDate(ADate);
sbSearch.Click;
end;
procedure TSer530_01Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
qryInv150.Close;
end;
procedure TSer530_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_018,B.S500_019,');
ADOQuery1.SQL.Add(' C.O150_001,C.O150_002,C.O150_003,C.O150_005,C.O150_006,C.O150_012,');
ADOQuery1.SQL.Add(' D.S110_003');
ADOQuery1.SQL.Add('from SER530 A, SER500 B, ORD150 C, SER110 D');
ADOQuery1.SQL.Add('where A.S530_002=B.S500_001 and B.S500_017=C.O150_001 and A.S530_006=D.S110_001');
ADOQuery1.SQL.Add('order by S530_001');
ADOQuery1.Open;
ADOQuery1.EnableControls;
Screen.Cursor:=crDefault;
end;
procedure TSer530_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='S530_001' then ParValue:=ADOQuery1S530_001.DisplayLabel //汇报编号
else if ParName='S530_002' then ParValue:=ADOQuery1S530_002.DisplayLabel //来电编号
else if ParName='S500_002' then ParValue:=ADOQuery1S500_002.DisplayLabel //来电名称
else if ParName='S530_003' then ParValue:=ADOQuery1S530_003.DisplayLabel //汇报人员
else if ParName='S530_004' then ParValue:=ADOQuery1S530_004.DisplayLabel //汇报日期
else if ParName='S110_003' then ParValue:=ADOQuery1S110_003.DisplayLabel //后续处理
else if ParName='S530_007' then ParValue:=ADOQuery1S530_007.DisplayLabel //制单日期
else if ParName='S530_008' then ParValue:=ADOQuery1S530_008.DisplayLabel //制单人员
else if ParName='S530_009' then ParValue:=ADOQuery1S530_009.DisplayLabel //修改日期
else if ParName='S530_010' then ParValue:=ADOQuery1S530_010.DisplayLabel //修改人员
else if ParName='S500_019' then ParValue:=ADOQuery1S500_019.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_018' then ParValue:=ADOQuery1S500_018.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='S530_005' then ParValue:=ADOQuery1S530_005.DisplayLabel //汇报内容
else if ParName='S530_006' then ParValue:=ADOQuery1S530_006.DisplayLabel //后续处理
end;
procedure TSer530_01Form.BrowseEvent;
begin
inherited;
Ser530_02Form:=TSer530_02Form.Create(Application);
Ser530_02Form.OpenData(ADOQuery1S530_001.Value);
Ser530_02Form.ShowModal;
end;
procedure TSer530_01Form.DeleteEvent;
var
ACode,ACallCode:string;
begin
inherited;
//删除
ACode:=ADOQuery1S530_001.AsString;
ACallCode:=ADOQuery1S530_002.AsString;
DeleteTableRecord(ADOQuery1,'SER530','S530_001='+''''+ACode+'''');
//更新来电记录信息(来电状态)
UpdateReport(ACallCode);
end;
procedure TSer530_01Form.InsertEvent;
begin
inherited;
//新增
Ser530_02Form:=TSer530_02Form.Create(Application);
Ser530_02Form.OpenData('');
Ser530_02Form.ActInsert.Execute;
Ser530_02Form.ShowModal;
end;
procedure TSer530_01Form.UpdateEvent;
begin
inherited;
//修改
Ser530_02Form:=TSer530_02Form.Create(Application);
Ser530_02Form.OpenData(ADOQuery1S530_001.Value);
Ser530_02Form.ActUpdate.Execute;
Ser530_02Form.ShowModal;
end;
initialization
RegisterClass(TSer530_01Form);
finalization
UnRegisterClass(TSer530_01Form);
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -