📄 ord310_01.pas.svn-base
字号:
AQuotePick:array[0..4] of string;
AQuoteFrom:array[0..1] of string;
AOrderStatus:array[0..5] of string;
AOrderPick:array[0..4] of string;
AOrderFrom:array[0..2] of string;
procedure SetButtonState(AInsUpd:Boolean);
procedure SetInterface;
procedure ReportGetValue(const ParName: String; var ParValue: Variant);
{ Private declarations }
public
{ Public declarations }
end;
var
Ord310_01Form: TOrd310_01Form;
implementation
uses SYSDATA, CommFun, HwPrint, Ord500_02, Ord510_02, Pur510_02, Inv500_02;
{$R *.dfm}
//设置按钮状态
procedure TOrd310_01Form.SetButtonState(AInsUpd:Boolean);
begin
ActFirst.Enabled:=not AInsUpd;
ActPrior.Enabled:=not AInsUpd;
ActNext.Enabled:=not AInsUpd;
ActLast.Enabled:=not AInsUpd;
ActLocate.Enabled:=not AInsUpd;
ActSearch.Enabled:=not AInsUpd;
ActPrint.Enabled:=(ARights[5]='Y') and (not AInsUpd);
ActExit.Enabled:=True;
end;
procedure TOrd310_01Form.SetInterface;
begin
Image1.Picture.Bitmap.LoadFromResourceName(AImgHandle,'TOPTITL');
ActFirst.Caption:=GetDBString('COM00005001'); //最前
ActPrior.Caption:=GetDBString('COM00005002'); //上移
ActNext.Caption:=GetDBString('COM00005003'); //下移
ActLast.Caption:=GetDBString('COM00005004'); //最后
ActLocate.Caption:=GetDBString('COM00005011'); //查找
ActSearch.Caption:=GetDBString('COM00005012'); //查询
ActPrint.Caption:=GetDBString('COM00005013'); //打印
ActExit.Caption:=GetDBString('COM00005015'); //退出
ActFirst.Hint:=GetDBString('COM00005001',2); //移到第一条记录
ActPrior.Hint:=GetDBString('COM00005002',2); //移到上一条记录
ActNext.Hint:=GetDBString('COM00005003',2); //移到下一条记录
ActLast.Hint:=GetDBString('COM00005004',2); //移到最后一条记录
ActLocate.Hint:=GetDBString('COM00005011',2); //快速定位记录
ActSearch.Hint:=GetDBString('COM00005012',2); //按条件查询数据
ActPrint.Hint:=GetDBString('COM00005013',2); //将数据打印出来
ActExit.Hint:=GetDBString('COM00005015',2); //关闭当前窗口
ActFirst2.Caption:=ActFirst.Caption; //最前
ActPrior2.Caption:=ActPrior.Caption; //上移
ActNext2.Caption:=ActNext.Caption; //下移
ActLast2.Caption:=ActLast.Caption; //最后
ActLocate2.Caption:=ActLocate.Caption; //查找
ActFirst2.Hint:=ActFirst.Hint; //移到第一条记录
ActPrior2.Hint:=ActPrior.Hint; //移到上一条记录
ActNext2.Hint:=ActNext.Hint; //移到下一条记录
ActLast2.Hint:=ActLast.Hint; //移到最后一条记录
ActLocate2.Hint:=ActLocate.Hint; //快速定位记录
ActFirst3.Caption:=ActFirst.Caption; //最前
ActPrior3.Caption:=ActPrior.Caption; //上移
ActNext3.Caption:=ActNext.Caption; //下移
ActLast3.Caption:=ActLast.Caption; //最后
ActLocate3.Caption:=ActLocate.Caption; //查找
ActFirst3.Hint:=ActFirst.Hint; //移到第一条记录
ActPrior3.Hint:=ActPrior.Hint; //移到上一条记录
ActNext3.Hint:=ActNext.Hint; //移到下一条记录
ActLast3.Hint:=ActLast.Hint; //移到最后一条记录
ActLocate3.Hint:=ActLocate.Hint; //快速定位记录
Caption:=GetDBString('ORD31001001'); //销售报价跟踪
lblDate.Caption:=GetDBString('ORD31001002'); //日期
sbSearch.Caption:=GetDBString('ORD31001003'); //查询
TabSheet1.Caption:=GetDBString('ORD31001004'); //采购清单
TabSheet2.Caption:=GetDBString('ORD31001005'); //入库清单
qryOrd500O500A_001.DisplayLabel:=GetDBString('ORD31001006'); //报价单号'
qryOrd500O100_002.DisplayLabel:=GetDBString('ORD31001007'); //报价类型'
qryOrd500O500A_003.DisplayLabel:=GetDBString('ORD31001008'); //报价日期'
qryOrd500O500A_004.DisplayLabel:=GetDBString('ORD31001009'); //报价状态'
qryOrd500H150_002.DisplayLabel:=GetDBString('ORD31001010'); //员工编号'
qryOrd500H150_003.DisplayLabel:=GetDBString('ORD31001011'); //员工姓名'
qryOrd500G100_002.DisplayLabel:=GetDBString('ORD31001012'); //币别编号'
qryOrd500G100_003.DisplayLabel:=GetDBString('ORD31001013'); //币别名称'
qryOrd500O500A_008.DisplayLabel:=GetDBString('ORD31001014'); //币别汇率'
qryOrd500G110_002.DisplayLabel:=GetDBString('ORD31001015'); //付款方式'
qryOrd500O500A_010.DisplayLabel:=GetDBString('ORD31001016'); //来源类型'
qryOrd500O500A_012.DisplayLabel:=GetDBString('ORD31001017'); //金额总计'
qryOrd500O500A_013.DisplayLabel:=GetDBString('ORD31001018'); //折扣比率'
qryOrd500O500A_014.DisplayLabel:=GetDBString('ORD31001019'); //折扣金额'
qryOrd500O500A_015.DisplayLabel:=GetDBString('ORD31001020'); //特殊费用'
qryOrd500O500A_016.DisplayLabel:=GetDBString('ORD31001021'); //应收金额'
qryOrd500O150_002.DisplayLabel:=GetDBString('ORD31001022'); //客户编号'
qryOrd500O150_003.DisplayLabel:=GetDBString('ORD31001023'); //客户名称'
qryOrd500O150_005.DisplayLabel:=GetDBString('ORD31001024'); //电话号码'
qryOrd500O150_006.DisplayLabel:=GetDBString('ORD31001025'); //传真号码'
qryOrd500O150_012.DisplayLabel:=GetDBString('ORD31001026'); //客户址址'
qryOrd500O500A_018.DisplayLabel:=GetDBString('ORD31001027'); //交货地址'
qryOrd500O500A_019.DisplayLabel:=GetDBString('ORD31001028'); //提货方式'
qryOrd500O500A_022.DisplayLabel:=GetDBString('ORD31001029'); //制单日期'
qryOrd500O500A_023.DisplayLabel:=GetDBString('ORD31001030'); //制单人员'
qryOrd500O500A_024.DisplayLabel:=GetDBString('ORD31001031'); //修改日期'
qryOrd500O500A_025.DisplayLabel:=GetDBString('ORD31001032'); //修改人员'
qryOrd510O510A_001.DisplayLabel:=GetDBString('ORD31001033'); //销售单号'
qryOrd510O100_002.DisplayLabel:=GetDBString('ORD31001034'); //销售类型'
qryOrd510O510A_003.DisplayLabel:=GetDBString('ORD31001035'); //销售日期'
qryOrd510O510A_004.DisplayLabel:=GetDBString('ORD31001036'); //定单状态'
qryOrd510H150_002.DisplayLabel:=GetDBString('ORD31001037'); //员工编号'
qryOrd510H150_003.DisplayLabel:=GetDBString('ORD31001038'); //员工姓名'
qryOrd510G100_002.DisplayLabel:=GetDBString('ORD31001039'); //币别编号'
qryOrd510G100_003.DisplayLabel:=GetDBString('ORD31001040'); //币别名称'
qryOrd510O510A_008.DisplayLabel:=GetDBString('ORD31001041'); //币别汇率'
qryOrd510G110_002.DisplayLabel:=GetDBString('ORD31001042'); //付款方式'
qryOrd510O510A_010.DisplayLabel:=GetDBString('ORD31001043'); //来源类型'
qryOrd510O510A_012.DisplayLabel:=GetDBString('ORD31001044'); //金额总计'
qryOrd510O510A_013.DisplayLabel:=GetDBString('ORD31001045'); //折扣比率'
qryOrd510O510A_014.DisplayLabel:=GetDBString('ORD31001046'); //折扣金额'
qryOrd510O510A_015.DisplayLabel:=GetDBString('ORD31001047'); //特殊费用'
qryOrd510O510A_016.DisplayLabel:=GetDBString('ORD31001048'); //应收金额'
qryOrd510O150_002.DisplayLabel:=GetDBString('ORD31001049'); //客户编号'
qryOrd510O150_003.DisplayLabel:=GetDBString('ORD31001050'); //客户名称'
qryOrd510O150_005.DisplayLabel:=GetDBString('ORD31001051'); //电话号码'
qryOrd510O150_006.DisplayLabel:=GetDBString('ORD31001052'); //传真号码'
qryOrd510O150_012.DisplayLabel:=GetDBString('ORD31001053'); //客户址址'
qryOrd510O510A_018.DisplayLabel:=GetDBString('ORD31001054'); //交货地址'
qryOrd510O510A_019.DisplayLabel:=GetDBString('ORD31001055'); //提货方式'
qryOrd510O510A_022.DisplayLabel:=GetDBString('ORD31001056'); //制单日期'
qryOrd510O510A_023.DisplayLabel:=GetDBString('ORD31001057'); //制单人员'
qryOrd510O510A_024.DisplayLabel:=GetDBString('ORD31001058'); //修改日期'
qryOrd510O510A_025.DisplayLabel:=GetDBString('ORD31001059'); //修改人员'
qryPur510P510A_001.DisplayLabel:=GetDBString('ORD31001060'); //采购单号'
qryPur510P510A_003.DisplayLabel:=GetDBString('ORD31001061'); //采购日期'
qryPur510I150_002.DisplayLabel:=GetDBString('ORD31001062'); //产品编号'
qryPur510I150_003.DisplayLabel:=GetDBString('ORD31001063'); //产品名称'
qryPur510I150_004.DisplayLabel:=GetDBString('ORD31001064'); //规格型号'
qryPur510I140_003.DisplayLabel:=GetDBString('ORD31001065'); //计量单位'
qryPur510P510B_005.DisplayLabel:=GetDBString('ORD31001066'); //采购数量'
qryPur510P510B_016.DisplayLabel:=GetDBString('ORD31001067'); //已收货量'
qryInv500I500A_001.DisplayLabel:=GetDBString('ORD31001068'); //进出单号'
qryInv500I500A_004.DisplayLabel:=GetDBString('ORD31001069'); //进出日期'
qryInv500I150_002.DisplayLabel:=GetDBString('ORD31001070'); //产品编号'
qryInv500I150_003.DisplayLabel:=GetDBString('ORD31001071'); //产品名称'
qryInv500I150_004.DisplayLabel:=GetDBString('ORD31001072'); //规格型号'
qryInv500I140_003.DisplayLabel:=GetDBString('ORD31001073'); //计量单位'
qryInv500I500B_005.DisplayLabel:=GetDBString('ORD31001074'); //进出数量'
//报价状态(0=新建，1=确认，2=报价，3=完成，4=取消)
AQuoteStatus[0]:=GetDBString('ORD31001075'); //新建
AQuoteStatus[1]:=GetDBString('ORD31001076'); //确认
AQuoteStatus[2]:=GetDBString('ORD31001077'); //报价
AQuoteStatus[3]:=GetDBString('ORD31001078'); //完成
AQuoteStatus[4]:=GetDBString('ORD31001079'); //取消
//提货方式(0=自提，1=送货，2=托运，3=邮寄，4=快递)
AQuotePick[0]:=GetDBString('ORD31001080'); //自提
AQuotePick[1]:=GetDBString('ORD31001081'); //送货
AQuotePick[2]:=GetDBString('ORD31001082'); //托运
AQuotePick[3]:=GetDBString('ORD31001083'); //邮寄
AQuotePick[4]:=GetDBString('ORD31001084'); //快递
//来源类型(0=手工输入，1=来电记录)
AQuoteFrom[0]:=GetDBString('ORD31001085'); //手工输入
AQuoteFrom[1]:=GetDBString('ORD31001086'); //来电记录
//定单状态(0=新建，1=执行，2=发货，3=取消，4=锁定，5=完成)
AOrderStatus[0]:=GetDBString('ORD31001087'); //新建
AOrderStatus[1]:=GetDBString('ORD31001088'); //执行
AOrderStatus[2]:=GetDBString('ORD31001089'); //发货
AOrderStatus[3]:=GetDBString('ORD31001090'); //取消
AOrderStatus[4]:=GetDBString('ORD31001091'); //锁定
AOrderStatus[5]:=GetDBString('ORD31001092'); //完成
//提货方式(0=自提，1=送货，2=托运，3=邮寄，4=快递)
AOrderPick[0]:=GetDBString('ORD31001093'); //自提
AOrderPick[1]:=GetDBString('ORD31001094'); //送货
AOrderPick[2]:=GetDBString('ORD31001095'); //托运
AOrderPick[3]:=GetDBString('ORD31001096'); //邮寄
AOrderPick[4]:=GetDBString('ORD31001097'); //快递
//来源类型(0=手工输入，1=销售报价，2=销售合同)
AOrderFrom[0]:=GetDBString('ORD31001098'); //手工输入
AOrderFrom[1]:=GetDBString('ORD31001099'); //销售报价
AOrderFrom[2]:=GetDBString('ORD31001100'); //销售合同
PageControl1.ActivePageIndex:=0;
PageControl2.ActivePageIndex:=0;
end;
procedure TOrd310_01Form.FormCreate(Sender: TObject);
var
ADate:TDateTime;
begin
inherited;
SetInterface;
SetButtonState(False);
LoadFromReg(Self); //这行一定放在打开数据集后面，否则无效
ADate:=GetServerDate;
edtFromDate.Date:=GetMonthFirstDate(ADate);
edtToDate.Date:=GetMonthEndDate(ADate);
sbSearch.Click;
ADOQuery1.Open;
ADOQuery2.Open;
end;
procedure TOrd310_01Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
qryOrd500.Close;
qryOrd510.Close;
qryPur510.Close;
qryInv500.Close;
qryHrm150.Close;
ADOQuery1.Close;
ADOQuery2.Close;
end;
procedure TOrd310_01Form.dbgPur510BackgroundDrawEvent(Sender: TObject;
ACanvas: TCanvas; ARect: TRect);
var
AText:string;
begin
inherited;
ARect.Left:=0;
ARect.Top:=0;
ACanvas.Brush.Color:=TdxDBGrid(Sender).GroupPanelColor;
ACanvas.Font.Color:=TdxDBGrid(Sender).GroupPanelFontColor;
//您可以把列标题拖放到此处使记录按此列进行分组
if TdxDBGrid(Sender).GroupColumnCount=0 then AText:=' '+GetDBString('NOT10001012') else AText:='';
Windows.FillRect(ACanvas.Handle, ARect, 0);
DrawText(ACanvas.Handle, PChar(AText), Length(AText), ARect, DT_LEFT or DT_EXPANDTABS or DT_NOPREFIX or DT_SINGLELINE or DT_VCENTER);
end;
procedure TOrd310_01Form.sbSearchClick(Sender: TObject);
begin
inherited;
//查询
if Assigned(SYSDM.wwFilterDialog1.Form) then SYSDM.wwFilterDialog1.ClearFilter;
qryOrd500.DisableControls;
qryOrd500.Close;
qryOrd500.SQL.Clear;
qryOrd500.SQL.Add('select A.*,');
qryOrd500.SQL.Add(' B.O100_002,');
qryOrd500.SQL.Add(' C.O150_002,C.O150_003,C.O150_005,C.O150_006,C.O150_012,');
qryOrd500.SQL.Add(' D.G100_002,D.G100_003,');
qryOrd500.SQL.Add(' E.G110_002');
qryOrd500.SQL.Add('from ORD500A A,ORD100 B,ORD150 C,GLD100 D,GLD110 E');
qryOrd500.SQL.Add('where A.O500A_002=B.O100_001 and A.O500A_017=C.O150_001 and A.O500A_007=D.G100_001 and A.O500A_009=E.G110_001');
qryOrd500.SQL.Add(' and O500A_003>='+GetDateString(edtFromDate.Date)+' and O500A_003<='+GetDateString(edtToDate.Date));
qryOrd500.SQL.Add('order by A.O500A_001');
qryOrd500.Open;
qryOrd500.EnableControls;
qryOrd510.Close;
qryOrd510.SQL.Clear;
qryOrd510.SQL.Add('select A.*,');
qryOrd510.SQL.Add(' B.O100_002,');
qryOrd510.SQL.Add(' C.O150_002,C.O150_003,C.O150_005,C.O150_006,C.O150_012,');
qryOrd510.SQL.Add(' D.G100_002,D.G100_003,');
qryOrd510.SQL.Add(' E.G110_002');
qryOrd510.SQL.Add('from ORD510A A,ORD100 B,ORD150 C,GLD100 D,GLD110 E');
qryOrd510.SQL.Add('where A.O510A_002=B.O100_001 and A.O510A_017=C.O150_001 and A.O510A_007=D.G100_001 and A.O510A_009=E.G110_001 and');
qryOrd510.SQL.Add(' A.O510A_010=1 and exists(select 1 from ORD510B where O510A_001=O510B_001 and O510B_019=:O500A_001)');
qryOrd510.SQL.Add('order by A.O510A_001');
qryOrd510.Open;
qryPur510.Close;
qryPur510.SQL.Clear;
qryPur510.SQL.Add('select A.P510A_001,A.P510A_003,');
qryPur510.SQL.Add(' C.I150_002,C.I150_003,C.I150_004,');
qryPur510.SQL.Add(' D.I140_002,D.I140_003,');
qryPur510.SQL.Add(' B.P510B_005,B.P510B_016');
qryPur510.SQL.Add('from PUR510A A,PUR510B B,INV150 C,INV140 D');
qryPur510.SQL.Add('where A.P510A_001=B.P510B_001 and A.P510A_006=3 and B.P510B_019=:O510A_001 and');
qryPur510.SQL.Add(' B.P510B_003=C.I150_001 and B.P510B_004=D.I140_001');
qryPur510.SQL.Add('order by A.P510A_001');
qryPur510.Open;
qryInv500.Close;
qryInv500.SQL.Clear;
qryInv500.SQL.Add('select A.I500A_001,A.I500A_004,');
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -