📄 ord320_01.pas.svn-base
字号:
unit Ord320_01;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Bas100_01, Menus, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
ExtCtrls, ComCtrls, ToolWin, StdCtrls, wwdbdatetimepicker, Buttons, FR_DBSet,
ActnList, DB, ADODB, dxDBTL, dxDBTLCl, dxGrClms, Mask, DBCtrls, FR_DSet, fr_Class;
type
TOrd320_01Form = class(TBas100_01Form)
Panel1: TPanel;
Panel2: TPanel;
ActionList1: TActionList;
ActFirst: TAction;
ActPrior: TAction;
ActNext: TAction;
ActLast: TAction;
ActRefresh: TAction;
ActLocate: TAction;
ActSearch: TAction;
ActPrint: TAction;
ActExit: TAction;
Panel3: TPanel;
Image1: TImage;
CoolBar1: TCoolBar;
ToolBar2: TToolBar;
tlbFirst: TToolButton;
tlbPrior: TToolButton;
tlbNext: TToolButton;
tlbLast: TToolButton;
ToolButton1: TToolButton;
tlbRefresh: TToolButton;
tlbLocate: TToolButton;
tlbSearch: TToolButton;
tlbPrint: TToolButton;
ToolButton6: TToolButton;
tlbExit: TToolButton;
Splitter1: TSplitter;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
PageControl2: TPageControl;
TabSheet2: TTabSheet;
Splitter2: TSplitter;
dbgOrd510: TdxDBGrid;
dsInv500: TDataSource;
qryInv500: TADOQuery;
dbgInv500: TdxDBGrid;
Panel4: TPanel;
lblTaskCode: TLabel;
lblTaskName: TLabel;
lblTaskStatus: TLabel;
qryPur510: TADOQuery;
dsPur510: TDataSource;
dbgPur510: TdxDBGrid;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
qryOrd510: TADOQuery;
dsOrd510: TDataSource;
PopupMenu1: TPopupMenu;
ActOpen: TAction;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
ActFirst2: TAction;
ActPrior2: TAction;
ActNext2: TAction;
ActLast2: TAction;
ActLocate2: TAction;
ActFirst3: TAction;
ActPrior3: TAction;
ActNext3: TAction;
ActLast3: TAction;
ActLocate3: TAction;
qryHrm150: TADOQuery;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
Label1: TLabel;
DBEdit27: TDBEdit;
lblDate: TLabel;
edtFromDate: TwwDBDateTimePicker;
edtToDate: TwwDBDateTimePicker;
sbSearch: TSpeedButton;
qryOrd510O510A_001: TWideStringField;
qryOrd510O100_002: TWideStringField;
qryOrd510O510A_002: TIntegerField;
qryOrd510O510A_003: TDateTimeField;
qryOrd510O510A_004: TSmallintField;
qryOrd510H150_002: TStringField;
qryOrd510H150_003: TStringField;
qryOrd510O510A_005: TIntegerField;
qryOrd510O510A_006: TIntegerField;
qryOrd510G100_002: TWideStringField;
qryOrd510G100_003: TWideStringField;
qryOrd510O510A_007: TIntegerField;
qryOrd510O510A_008: TBCDField;
qryOrd510G110_002: TWideStringField;
qryOrd510O510A_009: TIntegerField;
qryOrd510O510A_010: TSmallintField;
qryOrd510O510A_011: TWideStringField;
qryOrd510O510A_012: TFloatField;
qryOrd510O510A_013: TBCDField;
qryOrd510O510A_014: TFloatField;
qryOrd510O510A_015: TFloatField;
qryOrd510O510A_016: TFloatField;
qryOrd510O150_002: TWideStringField;
qryOrd510O150_003: TWideStringField;
qryOrd510O150_005: TWideStringField;
qryOrd510O150_006: TWideStringField;
qryOrd510O150_012: TWideStringField;
qryOrd510O510A_017: TIntegerField;
qryOrd510O510A_018: TWideStringField;
qryOrd510O510A_019: TSmallintField;
qryOrd510O510A_020: TMemoField;
qryOrd510O510A_021: TMemoField;
qryOrd510O510A_022: TDateTimeField;
qryOrd510O510A_023: TWideStringField;
qryOrd510O510A_024: TDateTimeField;
qryOrd510O510A_025: TWideStringField;
dbgOrd510O510A_001: TdxDBGridColumn;
dbgOrd510O100_002: TdxDBGridColumn;
dbgOrd510O510A_003: TdxDBGridDateColumn;
dbgOrd510O510A_004: TdxDBGridMaskColumn;
dbgOrd510H150_002: TdxDBGridLookupColumn;
dbgOrd510H150_003: TdxDBGridLookupColumn;
dbgOrd510G100_002: TdxDBGridColumn;
dbgOrd510G100_003: TdxDBGridColumn;
dbgOrd510O510A_008: TdxDBGridCurrencyColumn;
dbgOrd510G110_002: TdxDBGridColumn;
dbgOrd510O510A_010: TdxDBGridMaskColumn;
dbgOrd510O510A_012: TdxDBGridMaskColumn;
dbgOrd510O510A_013: TdxDBGridCurrencyColumn;
dbgOrd510O510A_014: TdxDBGridMaskColumn;
dbgOrd510O510A_015: TdxDBGridMaskColumn;
dbgOrd510O510A_016: TdxDBGridMaskColumn;
dbgOrd510O150_002: TdxDBGridColumn;
dbgOrd510O150_003: TdxDBGridColumn;
dbgOrd510O150_005: TdxDBGridColumn;
dbgOrd510O150_006: TdxDBGridColumn;
dbgOrd510O150_012: TdxDBGridColumn;
dbgOrd510O510A_018: TdxDBGridColumn;
dbgOrd510O510A_019: TdxDBGridMaskColumn;
dbgOrd510O510A_022: TdxDBGridDateColumn;
dbgOrd510O510A_023: TdxDBGridColumn;
dbgOrd510O510A_024: TdxDBGridDateColumn;
dbgOrd510O510A_025: TdxDBGridColumn;
qryPur510P510A_001: TWideStringField;
qryPur510P510A_003: TDateTimeField;
qryPur510I150_002: TWideStringField;
qryPur510I150_003: TWideStringField;
qryPur510I150_004: TWideStringField;
qryPur510I140_002: TWideStringField;
qryPur510I140_003: TWideStringField;
qryPur510P510B_005: TFloatField;
qryPur510P510B_016: TFloatField;
dbgPur510P510A_001: TdxDBGridColumn;
dbgPur510P510A_003: TdxDBGridDateColumn;
dbgPur510I150_002: TdxDBGridColumn;
dbgPur510I150_003: TdxDBGridColumn;
dbgPur510I150_004: TdxDBGridColumn;
dbgPur510I140_003: TdxDBGridColumn;
dbgPur510P510B_005: TdxDBGridMaskColumn;
dbgPur510P510B_016: TdxDBGridMaskColumn;
qryInv500I500A_001: TWideStringField;
qryInv500I500A_004: TDateTimeField;
qryInv500I150_002: TWideStringField;
qryInv500I150_003: TWideStringField;
qryInv500I150_004: TWideStringField;
qryInv500I140_002: TWideStringField;
qryInv500I140_003: TWideStringField;
qryInv500I500B_005: TFloatField;
dbgInv500I500A_001: TdxDBGridColumn;
dbgInv500I500A_004: TdxDBGridDateColumn;
dbgInv500I150_002: TdxDBGridColumn;
dbgInv500I150_003: TdxDBGridColumn;
dbgInv500I150_004: TdxDBGridColumn;
dbgInv500I140_003: TdxDBGridColumn;
dbgInv500I500B_005: TdxDBGridMaskColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure dbgPur510BackgroundDrawEvent(Sender: TObject;
ACanvas: TCanvas; ARect: TRect);
procedure sbSearchClick(Sender: TObject);
procedure dbgOrd510CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
var ADone: Boolean);
procedure cbClassChange(Sender: TObject);
procedure ActFirstExecute(Sender: TObject);
procedure ActPriorExecute(Sender: TObject);
procedure ActNextExecute(Sender: TObject);
procedure ActLastExecute(Sender: TObject);
procedure ActRefreshExecute(Sender: TObject);
procedure ActLocateExecute(Sender: TObject);
procedure ActSearchExecute(Sender: TObject);
procedure ActPrintExecute(Sender: TObject);
procedure ActExitExecute(Sender: TObject);
procedure ActOpenExecute(Sender: TObject);
procedure dbgOrd510DblClick(Sender: TObject);
procedure qryOrd510O510A_004GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure qryOrd510O510A_010GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure qryOrd510O510A_019GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure qryOrd510AfterScroll(DataSet: TDataSet);
private
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
Ord320_01Form: TOrd320_01Form;
implementation
uses SYSDATA, CommFun, HwPrint, Ord510_02, Pur510_02, Inv500_02;
{$R *.dfm}
//设置按钮状态
procedure TOrd320_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 TOrd320_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('ORD32001001'); //销售定单跟踪
lblDate.Caption:=GetDBString('ORD32001002'); //日期
sbSearch.Caption:=GetDBString('ORD32001003'); //查询
TabSheet1.Caption:=GetDBString('ORD32001004'); //采购清单
TabSheet2.Caption:=GetDBString('ORD32001005'); //入库清单
qryOrd510O510A_001.DisplayLabel:=GetDBString('ORD32001006'); //销售单号'
qryOrd510O100_002.DisplayLabel:=GetDBString('ORD32001007'); //销售类型'
qryOrd510O510A_003.DisplayLabel:=GetDBString('ORD32001008'); //销售日期'
qryOrd510O510A_004.DisplayLabel:=GetDBString('ORD32001009'); //定单状态'
qryOrd510H150_002.DisplayLabel:=GetDBString('ORD32001010'); //员工编号'
qryOrd510H150_003.DisplayLabel:=GetDBString('ORD32001011'); //员工姓名'
qryOrd510G100_002.DisplayLabel:=GetDBString('ORD32001012'); //币别编号'
qryOrd510G100_003.DisplayLabel:=GetDBString('ORD32001013'); //币别名称'
qryOrd510O510A_008.DisplayLabel:=GetDBString('ORD32001014'); //币别汇率'
qryOrd510G110_002.DisplayLabel:=GetDBString('ORD32001015'); //付款方式'
qryOrd510O510A_010.DisplayLabel:=GetDBString('ORD32001016'); //来源类型'
qryOrd510O510A_012.DisplayLabel:=GetDBString('ORD32001017'); //金额总计'
qryOrd510O510A_013.DisplayLabel:=GetDBString('ORD32001018'); //折扣比率'
qryOrd510O510A_014.DisplayLabel:=GetDBString('ORD32001019'); //折扣金额'
qryOrd510O510A_015.DisplayLabel:=GetDBString('ORD32001020'); //特殊费用'
qryOrd510O510A_016.DisplayLabel:=GetDBString('ORD32001021'); //应收金额'
qryOrd510O150_002.DisplayLabel:=GetDBString('ORD32001022'); //客户编号'
qryOrd510O150_003.DisplayLabel:=GetDBString('ORD32001023'); //客户名称'
qryOrd510O150_005.DisplayLabel:=GetDBString('ORD32001024'); //电话号码'
qryOrd510O150_006.DisplayLabel:=GetDBString('ORD32001025'); //传真号码'
qryOrd510O150_012.DisplayLabel:=GetDBString('ORD32001026'); //客户址址'
qryOrd510O510A_018.DisplayLabel:=GetDBString('ORD32001027'); //交货地址'
qryOrd510O510A_019.DisplayLabel:=GetDBString('ORD32001028'); //提货方式'
qryOrd510O510A_022.DisplayLabel:=GetDBString('ORD32001029'); //制单日期'
qryOrd510O510A_023.DisplayLabel:=GetDBString('ORD32001030'); //制单人员'
qryOrd510O510A_024.DisplayLabel:=GetDBString('ORD32001031'); //修改日期'
qryOrd510O510A_025.DisplayLabel:=GetDBString('ORD32001032'); //修改人员'
qryPur510P510A_001.DisplayLabel:=GetDBString('ORD32001033'); //采购单号'
qryPur510P510A_003.DisplayLabel:=GetDBString('ORD32001034'); //采购日期'
qryPur510I150_002.DisplayLabel:=GetDBString('ORD32001035'); //产品编号'
qryPur510I150_003.DisplayLabel:=GetDBString('ORD32001036'); //产品名称'
qryPur510I150_004.DisplayLabel:=GetDBString('ORD32001037'); //规格型号'
qryPur510I140_003.DisplayLabel:=GetDBString('ORD32001038'); //计量单位'
qryPur510P510B_005.DisplayLabel:=GetDBString('ORD32001039'); //采购数量'
qryPur510P510B_016.DisplayLabel:=GetDBString('ORD32001040'); //已收货量'
qryInv500I500A_001.DisplayLabel:=GetDBString('ORD32001041'); //进出单号'
qryInv500I500A_004.DisplayLabel:=GetDBString('ORD32001042'); //进出日期'
qryInv500I150_002.DisplayLabel:=GetDBString('ORD32001043'); //产品编号'
qryInv500I150_003.DisplayLabel:=GetDBString('ORD32001044'); //产品名称'
qryInv500I150_004.DisplayLabel:=GetDBString('ORD32001045'); //规格型号'
qryInv500I140_003.DisplayLabel:=GetDBString('ORD32001046'); //计量单位'
qryInv500I500B_005.DisplayLabel:=GetDBString('ORD32001047'); //进出数量'
//定单状态(0=新建，1=执行，2=发货，3=取消，4=锁定，5=完成)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -