📄 pur510_01.pas.svn-base
字号:
unit Pur510_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,
Buttons, StdCtrls, dxdbtrel, wwdbdatetimepicker;
type
TPur510_01Form = class(TBas200_10Form)
lblDate: TLabel;
edtFromDate: TwwDBDateTimePicker;
edtToDate: TwwDBDateTimePicker;
sbSearch: TSpeedButton;
qryHrm150: TADOQuery;
qryHrm150H150_001: TAutoIncField;
qryHrm150H150_002: TWideStringField;
qryHrm150H150_003: TWideStringField;
ADOQuery1P510A_001: TWideStringField;
ADOQuery1P100_002: TWideStringField;
ADOQuery1P510A_002: TIntegerField;
ADOQuery1P510A_003: TDateTimeField;
ADOQuery1P510A_004: TSmallintField;
ADOQuery1H150_002: TStringField;
ADOQuery1H150_003: TStringField;
ADOQuery1P510A_005: TIntegerField;
ADOQuery1G100_002: TWideStringField;
ADOQuery1G100_003: TWideStringField;
ADOQuery1P510A_007: TIntegerField;
ADOQuery1P510A_008: TBCDField;
ADOQuery1G110_002: TWideStringField;
ADOQuery1P510A_009: TIntegerField;
ADOQuery1P510A_010: TDateTimeField;
ADOQuery1P510A_011: TWideStringField;
ADOQuery1P510A_012: TFloatField;
ADOQuery1P510A_013: TBCDField;
ADOQuery1P510A_014: TFloatField;
ADOQuery1P510A_015: TFloatField;
ADOQuery1P510A_016: TFloatField;
ADOQuery1O150_002: TWideStringField;
ADOQuery1O150_003: TWideStringField;
ADOQuery1O150_005: TWideStringField;
ADOQuery1O150_006: TWideStringField;
ADOQuery1O150_012: TWideStringField;
ADOQuery1P510A_017: TIntegerField;
ADOQuery1P510A_018: TWideStringField;
ADOQuery1P510A_020: TMemoField;
ADOQuery1P510A_021: TMemoField;
ADOQuery1P510A_022: TDateTimeField;
ADOQuery1P510A_023: TWideStringField;
ADOQuery1P510A_024: TDateTimeField;
ADOQuery1P510A_025: TWideStringField;
dxDBGrid1P510A_001: TdxDBGridColumn;
dxDBGrid1P100_002: TdxDBGridColumn;
dxDBGrid1P510A_003: TdxDBGridDateColumn;
dxDBGrid1P510A_004: TdxDBGridMaskColumn;
dxDBGrid1H150_002: TdxDBGridLookupColumn;
dxDBGrid1H150_003: TdxDBGridLookupColumn;
dxDBGrid1P510A_006: TdxDBGridMaskColumn;
dxDBGrid1G100_002: TdxDBGridColumn;
dxDBGrid1G100_003: TdxDBGridColumn;
dxDBGrid1P510A_008: TdxDBGridCurrencyColumn;
dxDBGrid1G110_002: TdxDBGridColumn;
dxDBGrid1P510A_010: TdxDBGridDateColumn;
dxDBGrid1P510A_011: TdxDBGridColumn;
dxDBGrid1P510A_012: TdxDBGridMaskColumn;
dxDBGrid1P510A_013: TdxDBGridCurrencyColumn;
dxDBGrid1P510A_014: TdxDBGridMaskColumn;
dxDBGrid1P510A_015: TdxDBGridMaskColumn;
dxDBGrid1P510A_016: TdxDBGridMaskColumn;
dxDBGrid1O150_002: TdxDBGridColumn;
dxDBGrid1O150_003: TdxDBGridColumn;
dxDBGrid1O150_005: TdxDBGridColumn;
dxDBGrid1O150_006: TdxDBGridColumn;
dxDBGrid1O150_012: TdxDBGridColumn;
dxDBGrid1P510A_018: TdxDBGridColumn;
dxDBGrid1P510A_019: TdxDBGridMaskColumn;
dxDBGrid1P510A_022: TdxDBGridDateColumn;
dxDBGrid1P510A_023: TdxDBGridColumn;
dxDBGrid1P510A_024: TdxDBGridDateColumn;
dxDBGrid1P510A_025: TdxDBGridColumn;
ADOQuery1P510A_006: TSmallintField;
ADOQuery1P510A_019: TSmallintField;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure sbSearchClick(Sender: TObject);
procedure dxDBGrid1CustomDrawCell(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 ADOQuery1P510A_004GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure ADOQuery1P510A_006GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure ADOQuery1P510A_019GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure dxDBGrid1P510A_001DrawSummaryFooter(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; var AText: String;
var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
var ADone: Boolean);
procedure Action1Execute(Sender: TObject);
procedure Action2Execute(Sender: TObject);
procedure Action3Execute(Sender: TObject);
private
AStatus:array[0..5] of string;
APick:array[0..4] of string;
AFrom:array[0..3] of string;
{ Private declarations }
public
AField:string;
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
Pur510_01Form: TPur510_01Form;
implementation
uses SYSDATA, CommFun, Pur510_02;
{$R *.dfm}
procedure TPur510_01Form.SetInterface;
begin
inherited;
Caption:=GetDBString('PUR51001001'); //采购定单维护
lblDate.Caption:=GetDBString('PUR51001002'); //日期
sbSearch.Caption:=GetDBString('PUR51001003'); //查询
ADOQuery1P510A_001.DisplayLabel:=GetDBString('PUR51001004'); //采购单号
ADOQuery1P100_002.DisplayLabel:=GetDBString('PUR51001005'); //采购类型
ADOQuery1P510A_003.DisplayLabel:=GetDBString('PUR51001006'); //采购日期
ADOQuery1P510A_004.DisplayLabel:=GetDBString('PUR51001007'); //定单状态
ADOQuery1H150_002.DisplayLabel:=GetDBString('PUR51001008'); //采购员号
ADOQuery1H150_003.DisplayLabel:=GetDBString('PUR51001009'); //采购员名
ADOQuery1P510A_006.DisplayLabel:=GetDBString('PUR51001010'); //来源类型
ADOQuery1G100_002.DisplayLabel:=GetDBString('PUR51001011'); //币别编号
ADOQuery1G100_003.DisplayLabel:=GetDBString('PUR51001012'); //币别名称
ADOQuery1P510A_008.DisplayLabel:=GetDBString('PUR51001013'); //币别汇率
ADOQuery1G110_002.DisplayLabel:=GetDBString('PUR51001014'); //付款方式
ADOQuery1P510A_010.DisplayLabel:=GetDBString('PUR51001015'); //审核日期
ADOQuery1P510A_011.DisplayLabel:=GetDBString('PUR51001016'); //审核人员
ADOQuery1P510A_012.DisplayLabel:=GetDBString('PUR51001017'); //金额总计
ADOQuery1P510A_013.DisplayLabel:=GetDBString('PUR51001018'); //折扣比率
ADOQuery1P510A_014.DisplayLabel:=GetDBString('PUR51001019'); //折扣金额
ADOQuery1P510A_015.DisplayLabel:=GetDBString('PUR51001020'); //特殊费用
ADOQuery1P510A_016.DisplayLabel:=GetDBString('PUR51001021'); //应付金额
ADOQuery1O150_002.DisplayLabel:=GetDBString('PUR51001022'); //厂商编号
ADOQuery1O150_003.DisplayLabel:=GetDBString('PUR51001023'); //厂商名称
ADOQuery1O150_005.DisplayLabel:=GetDBString('PUR51001024'); //电话号码
ADOQuery1O150_006.DisplayLabel:=GetDBString('PUR51001025'); //传真号码
ADOQuery1O150_012.DisplayLabel:=GetDBString('PUR51001026'); //厂商址址
ADOQuery1P510A_018.DisplayLabel:=GetDBString('PUR51001027'); //交货地址
ADOQuery1P510A_019.DisplayLabel:=GetDBString('PUR51001028'); //提货方式
ADOQuery1P510A_020.DisplayLabel:=GetDBString('PUR51001029'); //采购条款
ADOQuery1P510A_021.DisplayLabel:=GetDBString('PUR51001030'); //备注说明
ADOQuery1P510A_022.DisplayLabel:=GetDBString('PUR51001031'); //制单日期
ADOQuery1P510A_023.DisplayLabel:=GetDBString('PUR51001032'); //制单人员
ADOQuery1P510A_024.DisplayLabel:=GetDBString('PUR51001033'); //修改日期
ADOQuery1P510A_025.DisplayLabel:=GetDBString('PUR51001034'); //修改人员
//定单状态(0=新建，1=核准，2=执行，3=收货，4=完成，5=取消)
AStatus[0]:=GetDBString('PUR51001035'); //新建
AStatus[1]:=GetDBString('PUR51001036'); //核准
AStatus[2]:=GetDBString('PUR51001037'); //执行
AStatus[3]:=GetDBString('PUR51001038'); //收货
AStatus[4]:=GetDBString('PUR51001039'); //完成
AStatus[5]:=GetDBString('PUR51001040'); //取消
//提货方式(0=自提，1=送货，2=托运，3=邮寄，4=快递)
APick[0]:=GetDBString('PUR51001041'); //自提
APick[1]:=GetDBString('PUR51001042'); //送货
APick[2]:=GetDBString('PUR51001043'); //托运
APick[3]:=GetDBString('PUR51001044'); //邮寄
APick[4]:=GetDBString('PUR51001045'); //快递
//来源类型(0=手工输入，1=采购申请，2=采购合同，3=销售定单)
AFrom[0]:=GetDBString('PUR51001046'); //手工输入
AFrom[1]:=GetDBString('PUR51001047'); //采购申请
AFrom[2]:=GetDBString('PUR51001048'); //采购合同
AFrom[3]:=GetDBString('PUR51001049'); //销售定单
Action1.Caption:=GetDBString('PUR51001050'); //核准
Action2.Caption:=GetDBString('PUR51001051'); //执行
Action3.Caption:=GetDBString('PUR51001052'); //取消
end;
procedure TPur510_01Form.FormCreate(Sender: TObject);
var
ADate:TDateTime;
begin
inherited;
ADate:=GetServerDate;
edtFromDate.Date:=GetMonthFirstDate(ADate);
edtToDate.Date:=GetMonthEndDate(ADate);
sbSearch.Click;
end;
procedure TPur510_01Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
//
end;
procedure TPur510_01Form.sbSearchClick(Sender: TObject);
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -