?? 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'); //來電匯報維護(hù)
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'); //后續(xù)處理
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'); //機(jī)身編號
ADOQuery1I150_002.DisplayLabel:=GetDBString('SER53001013'); //產(chǎn)品編號
ADOQuery1I150_003.DisplayLabel:=GetDBString('SER53001014'); //產(chǎn)品名稱
ADOQuery1S500_018.DisplayLabel:=GetDBString('SER53001015'); //產(chǎn)品編號
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'); //匯報內(nèi)容
ADOQuery1S530_006.DisplayLabel:=GetDBString('SER53001022'); //后續(xù)處理
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'); //結(jié)束日期不能小于起始日期
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 //后續(xù)處理
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 //機(jī)身編號
else if ParName='I150_002' then ParValue:=ADOQuery1I150_002.DisplayLabel //產(chǎn)品編號
else if ParName='I150_003' then ParValue:=ADOQuery1I150_003.DisplayLabel //產(chǎn)品名稱
else if ParName='S500_018' then ParValue:=ADOQuery1S500_018.DisplayLabel //產(chǎn)品編號
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 //匯報內(nèi)容
else if ParName='S530_006' then ParValue:=ADOQuery1S530_006.DisplayLabel //后續(xù)處理
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+'''');
//更新來電記錄信息(來電狀態(tài))
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.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -