📄 ord150_02.pas.svn-base
字号:
qryOrd152O152_006.DisplayLabel:=GetDBString('ORD15001035'); //电话号码
qryOrd152O152_007.DisplayLabel:=GetDBString('ORD15001036'); //传真号码
qryOrd152O152_008.DisplayLabel:=GetDBString('ORD15001037'); //联系人名
qryOrd153I150_002.DisplayLabel:=GetDBString('ORD15001038'); //产品编号
qryOrd153I150_003.DisplayLabel:=GetDBString('ORD15001039'); //产品名称
qryOrd153O153_003.DisplayLabel:=GetDBString('ORD15001040'); //机身编号
qryOrd153O153_004.DisplayLabel:=GetDBString('ORD15001041'); //控制器号
qryOrd153O153_005.DisplayLabel:=GetDBString('ORD15001042'); //系统软件
qryOrd153O153_006.DisplayLabel:=GetDBString('ORD15001043'); //安装日期
qryOrd153O153_007.DisplayLabel:=GetDBString('ORD15001044'); //免费保养开始日期
qryOrd153O153_008.DisplayLabel:=GetDBString('ORD15001045'); //免费保养结束日期
qryOrd153O153_009.DisplayLabel:=GetDBString('ORD15001046'); //收费保养开始日期
qryOrd153O153_010.DisplayLabel:=GetDBString('ORD15001047'); //收费保养结束日期
qryOrd153O153_011.DisplayLabel:=GetDBString('ORD15001048'); //安装地址
qryOrd153O153_012.DisplayLabel:=GetDBString('ORD15001049'); //来源类型
qryOrd153O153_013.DisplayLabel:=GetDBString('ORD15001051'); //产品配置
qryOrd153O153_014.DisplayLabel:=GetDBString('ORD15001052'); //备注说明
lblCofing.Caption:=GetDBString('ORD15001051'); //产品配置
lblRemark.Caption:=GetDBString('ORD15001052'); //备注说明
PageControl1.ActivePageIndex:=0;
end;
procedure TOrd150_02Form.OpenData(ACustNo:Integer);
begin
if ACustNo=0 then
begin
AMode:='ADD';
cbStatus.ItemIndex:=0;
cbType.ItemIndex:=0;
Exit;
end;
qryOrd150.Locate('O150_001',ACustNo,[]);
qryOrd150AfterScroll(qryOrd150);
end;
procedure TOrd150_02Form.FormCreate(Sender: TObject);
begin
inherited;
qryOrd150.Close;
qryOrd150.SQL.Clear;
if ASuper then
qryOrd150.SQL.Add('select * from ORD150 order by O150_002')
else
qryOrd150.SQL.Add('select * from ORD150 where exists(select 1 from SYS500C where S500C_003=''CUS'' and S500C_001='+IntToStr(AUserID)+' and O150_010=S500C_002) order by O150_002');
qryOrd150.Open;
qryOrd110.Open;
qryOrd120.Open;
qryGld100.Open;
qryGld150.Open;
SetInterface;
SetButtonState(False);
SetButtonStateA(False);
SetButtonStateB(False);
SetButtonStateC(False);
PageControl1.ActivePageIndex:=0;
LoadFromReg(Self); //这行一定放在打开数据集后面，否则无效
//会计科目
GroupBox2.Enabled:=GetSetup('GLD');
lblRecNote.Enabled:=GroupBox2.Enabled; //应收票据
edtRecNote.Enabled:=GroupBox2.Enabled;
sbRecNote.Enabled:=GroupBox2.Enabled;
lblReceive.Enabled:=GroupBox2.Enabled; //应收科目
edtReceive.Enabled:=GroupBox2.Enabled;
sbReceive.Enabled:=GroupBox2.Enabled;
lblRecAdv.Enabled:=GroupBox2.Enabled; //预收科目
edtRecAdv.Enabled:=GroupBox2.Enabled;
sbRecAdv.Enabled:=GroupBox2.Enabled;
lblRecEst.Enabled:=GroupBox2.Enabled; //暂估应收
edtRecEst.Enabled:=GroupBox2.Enabled;
sbRecEst.Enabled:=GroupBox2.Enabled;
lblPayNote.Enabled:=GroupBox2.Enabled; //应付票据
edtPayNote.Enabled:=GroupBox2.Enabled;
sbPayNote.Enabled:=GroupBox2.Enabled;
lblPayable.Enabled:=GroupBox2.Enabled; //应付科目
edtPayable.Enabled:=GroupBox2.Enabled;
sbPayable.Enabled:=GroupBox2.Enabled;
lblPayAdv.Enabled:=GroupBox2.Enabled; //预付科目
edtPayAdv.Enabled:=GroupBox2.Enabled;
sbPayAdv.Enabled:=GroupBox2.Enabled;
lblPayEst.Enabled:=GroupBox2.Enabled; //暂估应付
edtPayEst.Enabled:=GroupBox2.Enabled;
sbPayEst.Enabled:=GroupBox2.Enabled;
end;
procedure TOrd150_02Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
if ActSave.Enabled then
begin
if ShowDialog('UMS10000007')=IDNO then //数据尚未保存,现在保存吗?
ActCancel.Execute
else
ActSave.Execute;
end;
qryOrd110.Close;
qryOrd120.Close;
qryGld100.Close;
qryGld150.Close;
PageControl1.ActivePageIndex:=0;
inherited;
end;
procedure TOrd150_02Form.ActFirstExecute(Sender: TObject);
begin
inherited;
//最前
if qryOrd150.IsEmpty then Exit;
qryOrd150.First;
ActFirst.Enabled:=False;
ActPrior.Enabled:=False;
ActNext.Enabled:=True;
ActLast.Enabled:=True;
end;
procedure TOrd150_02Form.ActPriorExecute(Sender: TObject);
begin
inherited;
//上移
if qryOrd150.IsEmpty then Exit;
qryOrd150.Prior;
ActNext.Enabled:=not qryOrd150.Eof;
ActLast.Enabled:=not qryOrd150.Eof;
ActFirst.Enabled:=not qryOrd150.Bof;
ActPrior.Enabled:=not qryOrd150.Bof;
end;
procedure TOrd150_02Form.ActNextExecute(Sender: TObject);
begin
inherited;
//下移
if qryOrd150.IsEmpty then Exit;
qryOrd150.Next;
ActNext.Enabled:=not qryOrd150.Eof;
ActLast.Enabled:=not qryOrd150.Eof;
ActFirst.Enabled:=not qryOrd150.Bof;
ActPrior.Enabled:=not qryOrd150.Bof;
end;
procedure TOrd150_02Form.ActLastExecute(Sender: TObject);
begin
inherited;
//最后
if qryOrd150.IsEmpty then Exit;
qryOrd150.Last;
ActNext.Enabled:=False;
ActLast.Enabled:=False;
ActFirst.Enabled:=True;
ActPrior.Enabled:=True;
end;
procedure TOrd150_02Form.ActInsertExecute(Sender: TObject);
var
ADate:TDateTime;
begin
inherited;
//新增
qryOrd150.Insert;
SetButtonState(True);
cbStatus.ItemIndex:=0;
cbType.ItemIndex:=0;
qryOrd150.FieldByName('O150_027').Value:=12; //币别编号
qryOrd150.FieldByName('O150_030').Value:=0; //信用额度
qryOrd150.FieldByName('O150_031').Value:=0; //信用期限
qryOrd150.FieldByName('O150_032').Value:=0; //单笔信用额度
qryOrd150.FieldByName('O150_033').Value:=50; //优先码
ADate:=GetServerDate;
edtCreateDate.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',ADate);
edtCreateBy.Text:=AUserName;
edtUpdateDate.Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss',ADate);
edtUpdateBy.Text:=AUserName;
AMode:='ADD';
AOldCode:=edtCustNo.Text;
if Active then edtCustNo.SetFocus;
end;
procedure TOrd150_02Form.ActUpdateExecute(Sender: TObject);
begin
inherited;
//修改
if qryOrd150.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
qryOrd150.Edit;
SetButtonState(True);
AMode:='UPD';
AOldCode:=edtCustNo.Text;
if Active then edtCustNo.SetFocus;
end;
procedure TOrd150_02Form.ActDeleteExecute(Sender: TObject);
begin
inherited;
//删除
if qryOrd150.IsEmpty then
begin
ShowMsg('UMS10000002'); //表记录为空，操作无效
Abort;
end;
if IsExists('select 1 from ORD151 where O151_001='+qryOrd150O150_001.AsString) then
begin
ShowMsg('UMS10000352'); //该客戶存在相关的联系人员资料，请先删除联系人员资料
Abort;
end;
if IsExists('select 1 from ORD152 where O152_001='+qryOrd150O150_001.AsString) then
begin
ShowMsg('UMS10000353'); //该客戶存在相关的交货地点资料，请先删除交货地点资料
Abort;
end;
if IsExists('select 1 from ORD153 where O153_001='+qryOrd150O150_001.AsString) then
begin
ShowMsg('UMS10000354'); //该客戶存在相关的产品资料，请先删除产品资料
Abort;
end;
if IsExists('select 1 from ORD500A where O500A_017='+qryOrd150O150_001.AsString) then
begin
ShowMsg('UMS10000506'); //该客戶存在相关的销售定单，请先删除销售定单
Abort;
end;
if IsExists('select 1 from PUR510A where P510A_017='+qryOrd150O150_001.AsString) then
begin
ShowMsg('UMS10000507'); //该客戶存在相关的采购定单，请先删除采购定单
Abort;
end;
if IsExists('select 1 from TAS500 where T500_015='+qryOrd150O150_001.AsString) then
begin
ShowMsg('UMS10000508'); //该客戶存在相关的项目计划，请先删除项目计划
Abort;
end;
if IsExists('select 1 from TAS510 where T510_016='+qryOrd150O150_001.AsString) then
begin
ShowMsg('UMS10000509'); //该客戶存在相关的任务计划，请先删除任务计划
Abort;
end;
if ShowDialog('UMS10000008')=IDYES then //确定要删除此记录吗?
begin
qryOrd150.Delete;
end;
end;
procedure TOrd150_02Form.ActSaveExecute(Sender: TObject);
var
ADate:TDateTime;
begin
inherited;
//保存
if trim(edtCustNo.Text)='' then
begin
ShowMsg('UMS10000180'); //客户编号不能为空
edtCustNo.SetFocus;
Abort;
end else
begin
if AOldCode<>edtCustNo.Text then
begin
SYSDM.qryQuery.Close;
SYSDM.qryQuery.SQL.Clear;
SYSDM.qryQuery.SQL.Add('select 1 from ORD150 where O150_002='+''''+trim(edtCustNo.Text)+'''');
SYSDM.qryQuery.Open;
if not SYSDM.qryQuery.IsEmpty then
begin
ShowMsg('UMS10000187'); //客户编号已存在，请重新输入
edtCustNo.SetFocus;
Abort;
end;
end;
end;
if trim(edtShort.Text)='' then
begin
ShowMsg('UMS10000188'); //客户简称不能为空
edtShort.SetFocus;
Abort;
end;
if trim(edtName.Text)='' then
begin
ShowMsg('UMS10000349'); //客户名称不能为空
edtName.SetFocus;
Abort;
end;
if trim(cbClass.Text)='' then
begin
ShowMsg('UMS10000350'); //客户分类不能为空
cbClass.SetFocus;
Abort;
end;
if trim(cbRegion.Text)='' then
begin
ShowMsg('UMS10000191'); //所属地区不能为空
cbRegion.SetFocus;
Abort;
end;
if trim(cbCurrency.Text)='' then
begin
ShowMsg('UMS10000019'); //币别编号不能为空
cbCurrency.SetFocus;
Abort;
end;
qryOrd150.FieldByName('O150_009').Value:=cbType.ItemIndex; //客户类型
qryOrd150.FieldByName('O150_014').Value:=cbStatus.ItemIndex; //客户状态
if edtEngNm.Text='' then qryOrd150.FieldByName(edtEngNm.DataField).Clear;
if edtAddress.Text='' then qryOrd150.FieldByName(edtAddress.DataField).Clear;
if edtEngAd.Text='' then qryOrd150.FieldByName(edtEngAd.DataField).Clear;
if edtPhone.Text='' then qryOrd150.FieldByName(edtPhone.DataField).Clear;
if edtFax.Text='' then qryOrd150.FieldByName(edtFax.DataField).Clear;
if edtPostalcode.Text='' then qryOrd150.FieldByName(edtPostalcode.DataField).Clear;
if edtEmail.Text='' then qryOrd150.FieldByName(edtEmail.DataField).Clear;
if edtSite.Text='' then qryOrd150.FieldByName(edtSite.DataField).Clear;
if edtBank.Text='' then qryOrd150.FieldByName(edtBank.DataField).Clear;
if edtAccount.Text='' then qryOrd150.FieldByName(edtAccount.DataField).Clear;
if edtTaxCode.Text='' then qryOrd150.FieldByName(edtTaxCode.DataField).Clear;
qryOrd150.FieldByName('O150_036').Value:=memRemark.Text;
if AMode='ADD' then
begin
qryOrd150.FieldByName('O150_037').AsString:=edtCreateDate.Text; //建立日期
qryOrd150.FieldByName('O150_038').AsString:=edtCreateBy.Text; //建立人员
qryOrd150.FieldByName('O150_039').AsString:=edtUpdateDate.Text; //修改日期
qryOrd150.FieldByName('O150_040').AsString:=edtUpdateBy.Text; //修改人员
end else
begin
ADate:=GetServerDate;
qryOrd150.FieldByName('O150_039').Value:=ADate; //修改日期
qryOrd150.FieldByName('O150_040').Value:=AUserName; //修改人员
end;
try
qryOrd150.Post;
except
ShowMsg(SYSDM.ADOC.Errors[0].Description,1);
Abort;
end;
qryOrd150AfterScroll(qryOrd150);
SetButtonState(False);
end;
procedure TOrd150_02Form.ActCancelExecute(Sender: TObject);
begin
inherited;
//取消
qryOrd150.Cancel;
SetButtonState(False);
end;
procedure TOrd150_02Form.ActRefreshExecute(Sender: TObject);
begin
inherited;
//刷新
qryOrd150.Close;
qryOrd150.Open;
end;
procedure TOrd150_02Form.ActLocateExecute(Sender: TObject);
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -