📄 tas500_02.pas.svn-base
字号:
unit Tas500_02;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Bas100_01, StdCtrls, Buttons, wwdbdatetimepicker, ComCtrls,
Menus, DB, ADODB, ActnList, ToolWin, dxdbtrel;
type
TTas500_02Form = class(TBas100_01Form)
gbInfo: TGroupBox;
lblCode: TLabel;
lblName: TLabel;
lblStatus: TLabel;
lblPriority: TLabel;
lblFrom: TLabel;
lblOrder: TLabel;
lblDate: TLabel;
lblUnit: TLabel;
lblDays: TLabel;
lblFactDays: TLabel;
lblPercent: TLabel;
sbOrder: TSpeedButton;
edtCode: TEdit;
edtName: TEdit;
edtStatus: TEdit;
edtPriority: TEdit;
udPriority: TUpDown;
cbFrom: TComboBox;
edtOrder: TEdit;
edtDate: TwwDBDateTimePicker;
edtDays: TEdit;
edtFactDays: TEdit;
edtPercent: TEdit;
cbUnit: TComboBox;
gbCust: TGroupBox;
lblCust: TLabel;
lblAddress: TLabel;
lblPhone: TLabel;
lblContact: TLabel;
lblPost: TLabel;
lblEmail: TLabel;
lblItem: TLabel;
lblItemClass: TLabel;
lblModel: TLabel;
lblMacNo: TLabel;
lblMaker: TLabel;
lblMakerName: TLabel;
sbCust: TSpeedButton;
sbItem: TSpeedButton;
edtCust: TEdit;
edtCustName: TEdit;
edtAddress: TEdit;
edtPhone: TEdit;
edtContact: TEdit;
edtPost: TEdit;
edtEmail: TEdit;
edtItem: TEdit;
edtItemName: TEdit;
edtModel: TEdit;
edtMaker: TEdit;
edtMacNo: TEdit;
edtMakerName: TEdit;
edtItemClass: TEdit;
gbDetail: TGroupBox;
lblDetails: TLabel;
memDetails: TMemo;
qryOrd510: TADOQuery;
sbMacNo: TSpeedButton;
qryOrd150: TADOQuery;
qryOrd153: TADOQuery;
lblCreateDate: TLabel;
lblCreateBy: TLabel;
lblUpdateDate: TLabel;
lblUpdateBy: TLabel;
edtCreateBy: TEdit;
edtUpdateBy: TEdit;
qryOrd150O150_002: TStringField;
qryOrd150O150_003: TStringField;
qryOrd150O150_004: TStringField;
lblManager: TLabel;
edtManager: TEdit;
sbManager: TSpeedButton;
edtManagerName: TEdit;
qryTas500: TADOQuery;
qryHrm150: TADOQuery;
qryHrm150H150_001: TAutoIncField;
qryHrm150H150_002: TWideStringField;
qryHrm150H150_003: TWideStringField;
qryOrd150O150_005: TWideStringField;
qryOrd150O150_007: TWideStringField;
qryOrd150O150_012: TWideStringField;
qryOrd150O150_001: TAutoIncField;
qryOrd153I150_002: TWideStringField;
qryOrd153O153_003: TWideStringField;
qryOrd153I150_003: TWideStringField;
qryOrd153I150_004: TWideStringField;
qryOrd153I120_003: TWideStringField;
qryOrd153O150_002: TWideStringField;
qryOrd153O150_003: TWideStringField;
qryOrd153I150_001: TAutoIncField;
edtFromDate: TwwDBDateTimePicker;
lblFromDate: TLabel;
edtToDate: TwwDBDateTimePicker;
lblToDate: TLabel;
lblFactFromDate: TLabel;
edtFactFromDate: TwwDBDateTimePicker;
lblFactToDate: TLabel;
edtFactToDate: TwwDBDateTimePicker;
CoolBar1: TCoolBar;
ToolBar2: TToolBar;
tlbFirst: TToolButton;
tlbPrior: TToolButton;
tlbNext: TToolButton;
tlbLast: TToolButton;
ToolButton1: TToolButton;
tlbInsert: TToolButton;
tlbUpdate: TToolButton;
tlbDelete: TToolButton;
ToolButton2: TToolButton;
tlbSave: TToolButton;
tlbCancel: TToolButton;
ToolButton3: TToolButton;
tlbRefresh: TToolButton;
tlbLocate: TToolButton;
tlbSearch: TToolButton;
tlbPrint: TToolButton;
ToolButton6: TToolButton;
tlbExit: TToolButton;
ActionList1: TActionList;
ActFirst: TAction;
ActPrior: TAction;
ActNext: TAction;
ActLast: TAction;
ActInsert: TAction;
ActUpdate: TAction;
ActDelete: TAction;
ActSave: TAction;
ActCancel: TAction;
ActRefresh: TAction;
ActLocate: TAction;
ActSearch: TAction;
ActPrint: TAction;
ActExit: TAction;
dsTas500: TDataSource;
qryOrd151: TADOQuery;
qryTas500T500_001: TWideStringField;
qryTas500T500_002: TWideStringField;
qryTas500T120_003: TWideStringField;
qryTas500T500_005: TSmallintField;
qryTas500T500_006: TDateTimeField;
qryTas500T500_007: TSmallintField;
qryTas500T500_008: TWideStringField;
qryTas500T500_010: TWideStringField;
qryTas500T500_011: TBCDField;
qryTas500T500_012: TBCDField;
qryTas500T500_013: TBCDField;
qryTas500T500_014: TIntegerField;
qryTas500O150_002: TWideStringField;
qryTas500O150_003: TWideStringField;
qryTas500O150_005: TWideStringField;
qryTas500O150_012: TWideStringField;
qryTas500O151_002: TWideStringField;
qryTas500O151_004: TWideStringField;
qryTas500O150_007: TWideStringField;
qryTas500I150_002: TWideStringField;
qryTas500I150_003: TWideStringField;
qryTas500I150_004: TWideStringField;
qryTas500I120_003: TWideStringField;
qryTas500M150_002: TWideStringField;
qryTas500M150_003: TWideStringField;
qryTas500T500_017: TWideStringField;
qryTas500T500_018: TMemoField;
qryTas500T500_019: TDateTimeField;
qryTas500T500_020: TWideStringField;
qryTas500T500_021: TDateTimeField;
qryTas500T500_022: TWideStringField;
qryTas500H150_002: TWideStringField;
qryTas500H150_003: TWideStringField;
qryTas500T500_003: TIntegerField;
qryTas500T500_009: TIntegerField;
qryTas500T500_015: TIntegerField;
qryTas500T500_016: TIntegerField;
qryTas500T500_023: TIntegerField;
qryTas500T500_024: TDateTimeField;
qryTas500T500_025: TDateTimeField;
qryTas500T500_026: TDateTimeField;
qryTas500T500_027: TDateTimeField;
edtCreateDate: TEdit;
edtUpdateDate: TEdit;
qryTas500T500_004: TIntegerField;
dsTas130: TDataSource;
qryTas130: TADOQuery;
qryTas500T130_002: TWideStringField;
qryTas500T130_006: TBooleanField;
qryInv150: TADOQuery;
cbClass: TdxLookupTreeView;
lblClass: TLabel;
qrySer500: TADOQuery;
qrySer500S500_001: TWideStringField;
qrySer500S500_002: TWideStringField;
qrySer500S100_002: TWideStringField;
qrySer500S500_017: TIntegerField;
qrySer500S500_018: TIntegerField;
qrySer500S500_019: TWideStringField;
qryOrd150O151_002: TWideStringField;
qryOrd150O151_004: TWideStringField;
qryOrd510O510A_001: TWideStringField;
qryOrd510O510A_003: TDateTimeField;
qryOrd510O150_002: TWideStringField;
qryOrd510O150_003: TWideStringField;
qryOrd510I150_002: TWideStringField;
qryOrd510I150_003: TWideStringField;
qryOrd510O510A_011: TWideStringField;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure cbFromChange(Sender: TObject);
procedure sbOrderClick(Sender: TObject);
procedure sbCustClick(Sender: TObject);
procedure sbItemClick(Sender: TObject);
procedure sbMacNoClick(Sender: TObject);
procedure sbManagerClick(Sender: TObject);
procedure edtOrderExit(Sender: TObject);
procedure edtManagerExit(Sender: TObject);
procedure edtCustExit(Sender: TObject);
procedure edtItemExit(Sender: TObject);
procedure edtMacNoExit(Sender: TObject);
procedure edtDaysKeyPress(Sender: TObject; var Key: Char);
procedure ActFirstExecute(Sender: TObject);
procedure ActPriorExecute(Sender: TObject);
procedure ActNextExecute(Sender: TObject);
procedure ActLastExecute(Sender: TObject);
procedure ActInsertExecute(Sender: TObject);
procedure ActUpdateExecute(Sender: TObject);
procedure ActDeleteExecute(Sender: TObject);
procedure ActSaveExecute(Sender: TObject);
procedure ActCancelExecute(Sender: TObject);
procedure ActRefreshExecute(Sender: TObject);
procedure ActLocateExecute(Sender: TObject);
procedure ActSearchExecute(Sender: TObject);
procedure ActPrintExecute(Sender: TObject);
procedure ActExitExecute(Sender: TObject);
procedure qryTas500AfterScroll(DataSet: TDataSet);
procedure qryTas500T500_007GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure qryTas500T500_010GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure edtDaysExit(Sender: TObject);
procedure edtFromDateExit(Sender: TObject);
procedure qryTas500CalcFields(DataSet: TDataSet);
procedure qryOrd150CalcFields(DataSet: TDataSet);
procedure cbClassCloseUp(Sender: TObject; Accept: Boolean);
private
AMode,AOldOrder,AOldCode:string;
AOldFrom:Integer;
AOldCustNo,AOldItemNo:Integer;
AOldMacNo:string;
AType:array[0..2] of string;
AUnit:array[0..3] of string;
AIsAutoCode:Boolean;
procedure SetButtonState(AInsUpd:Boolean);
procedure SetInterface;
procedure SaveData;
procedure ReportGetValue(const ParName: String; var ParValue: Variant);
{ Private declarations }
public
procedure OpenData(ACode:string);
{ Public declarations }
end;
var
Tas500_02Form: TTas500_02Form;
implementation
uses SYSDATA, HwSelData, CommFun, TasComm;
{$R *.dfm}
//设置按钮状态
procedure TTas500_02Form.SetButtonState(AInsUpd:Boolean);
begin
ActFirst.Enabled:=not AInsUpd;
ActPrior.Enabled:=not AInsUpd;
ActNext.Enabled:=not AInsUpd;
ActLast.Enabled:=not AInsUpd;
ActInsert.Enabled:=(ARights[2]='Y') and (not AInsUpd);
ActUpdate.Enabled:=(ARights[3]='Y') and (not AInsUpd);
ActDelete.Enabled:=(ARights[4]='Y') and (not AInsUpd);
ActSave.Enabled:=AInsUpd;
ActCancel.Enabled:=AInsUpd;
ActRefresh.Enabled:=not AInsUpd;
ActLocate.Enabled:=not AInsUpd;
ActSearch.Enabled:=not AInsUpd;
ActPrint.Enabled:=(ARights[5]='Y') and (not AInsUpd);
ActExit.Enabled:=True;
gbInfo.Enabled:=AInsUpd;
gbCust.Enabled:=AInsUpd;
gbDetail.Enabled:=AInsUpd;
end;
procedure TTas500_02Form.SetInterface;
var
S:string;
begin
Caption:=GetDBString('TAS50002001'); //项目计划维护
ActFirst.Caption:=GetDBString('COM00005001'); //最前
ActPrior.Caption:=GetDBString('COM00005002'); //上移
ActNext.Caption:=GetDBString('COM00005003'); //下移
ActLast.Caption:=GetDBString('COM00005004'); //最后
ActInsert.Caption:=GetDBString('COM00005005'); //新增
ActUpdate.Caption:=GetDBString('COM00005006'); //修改
ActDelete.Caption:=GetDBString('COM00005007'); //删除
ActSave.Caption:=GetDBString('COM00005008'); //保存
ActCancel.Caption:=GetDBString('COM00005009'); //取消
ActRefresh.Caption:=GetDBString('COM00005010'); //刷新
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); //移到最后一条记录
ActInsert.Hint:=GetDBString('COM00005005',2); //新增一条记录
ActUpdate.Hint:=GetDBString('COM00005006',2); //修改当前记录
ActDelete.Hint:=GetDBString('COM00005007',2); //删除当前记录
ActSave.Hint:=GetDBString('COM00005008',2); //保存编辑的记录
ActCancel.Hint:=GetDBString('COM00005009',2); //取消编辑的记录
ActRefresh.Hint:=GetDBString('COM00005010',2); //取得最新的数据
ActLocate.Hint:=GetDBString('COM00005011',2); //快速定位记录
ActSearch.Hint:=GetDBString('COM00005012',2); //按条件查询数据
ActPrint.Hint:=GetDBString('COM00005013',2); //将数据打印出来
ActExit.Hint:=GetDBString('COM00005015',2); //关闭当前窗口
gbInfo.Caption:=GetDBString('TAS50002002'); //基本信息
gbCust.Caption:=GetDBString('TAS50002003'); //客户产品
gbDetail.Caption:=GetDBString('TAS50002004'); //详细说明
lblCode.Caption:=GetDBString('TAS50002005'); //项目编号
lblName.Caption:=GetDBString('TAS50002006'); //项目名称
lblStatus.Caption:=GetDBString('TAS50002007'); //项目状态
lblPriority.Caption:=GetDBString('TAS50002008'); //优先级别
lblPercent.Caption:=GetDBString('TAS50002009'); //完工比率
lblDate.Caption:=GetDBString('TAS50002010'); //申报日期
lblFrom.Caption:=GetDBString('TAS50002011'); //来源类型
lblOrder.Caption:=GetDBString('TAS50002012'); //来源单号
lblUnit.Caption:=GetDBString('TAS50002013'); //时间单位
lblDays.Caption:=GetDBString('TAS50002014'); //预计工时
lblFactDays.Caption:=GetDBString('TAS50002015'); //实际工时
lblManager.Caption:=GetDBString('TAS50002016'); //责任人员
lblCust.Caption:=GetDBString('TAS50002017'); //客户编号
lblPhone.Caption:=GetDBString('TAS50002018'); //电话号码
lblAddress.Caption:=GetDBString('TAS50002019'); //客户地址
lblContact.Caption:=GetDBString('TAS50002020'); //联系人员
lblPost.Caption:=GetDBString('TAS50002021'); //职务名称
lblEmail.Caption:=GetDBString('TAS50002022'); //电子邮箱
lblItem.Caption:=GetDBString('TAS50002023'); //产品编号
lblMacNo.Caption:=GetDBString('TAS50002024'); //机身编号
lblModel.Caption:=GetDBString('TAS50002025'); //规格型号
lblItemClass.Caption:=GetDBString('TAS50002026'); //产品类别
lblMaker.Caption:=GetDBString('TAS50002027'); //制造商号
lblMakerName.Caption:=GetDBString('TAS50002028'); //制造商名
lblDetails.Caption:=GetDBString('TAS50002029'); //项目说明
lblCreateDate.Caption:=GetDBString('TAS50002030'); //制单日期
lblCreateBy.Caption:=GetDBString('TAS50002031'); //制单人员
lblUpdateDate.Caption:=GetDBString('TAS50002032'); //修改日期
lblUpdateBy.Caption:=GetDBString('TAS50002033'); //修改人员
lblFromDate.Caption:=GetDBString('TAS50002047'); //预计开始
lblToDate.Caption:=GetDBString('TAS50002048'); //预计完成
lblFactFromDate.Caption:=GetDBString('TAS50002049'); //实际开始
lblFactToDate.Caption:=GetDBString('TAS50002050'); //实际完成
AIsAutoCode:=GetAutoCoding('TAS500');
edtCode.Enabled:=GetIsModifyCoding('TAS500');
if edtCode.Enabled then edtCode.Color:=AEnableColor else edtCode.Color:=ADisableColor;
cbFrom.Clear;
cbFrom.Items.Add(GetDBString('TAS50002036')); //销售订单
cbFrom.Items.Add(GetDBString('TAS50002037')); //手工输入
cbFrom.Items.Add(GetDBString('TAS50002087')); //来电记录
cbFrom.ItemIndex:=1; //手工输入
cbUnit.Clear;
cbUnit.Items.Add(GetDBString('TAS50002038')); //时
cbUnit.Items.Add(GetDBString('TAS50002039')); //天
cbUnit.Items.Add(GetDBString('TAS50002040')); //周
cbUnit.Items.Add(GetDBString('TAS50002041')); //月
cbUnit.ItemIndex:=1; //天
AType[0]:=GetDBString('TAS50002036'); //销售订单
AType[1]:=GetDBString('TAS50002037'); //手工输入
AType[2]:=GetDBString('TAS50002087'); //来电记录
AUnit[0]:=GetDBString('TAS50002038'); //时
AUnit[1]:=GetDBString('TAS50002039'); //天
AUnit[2]:=GetDBString('TAS50002040'); //周
AUnit[3]:=GetDBString('TAS50001041'); //月
qryHrm150.FieldByName('H150_002').DisplayLabel:=GetDBString('TAS50002042'); //员工编号
qryHrm150.FieldByName('H150_003').DisplayLabel:=GetDBString('TAS50002043'); //员工姓名
qryOrd150.FieldByName('O150_002').DisplayLabel:=GetDBString('TAS50002017'); //客户编号
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -