📄 tas510_02.pas.svn-base
字号:
unit Tas510_02;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Bas100_01, StdCtrls, Buttons, wwdbdatetimepicker, ComCtrls,
Menus, DB, ADODB, dxdbtrel, ToolWin, ActnList;
type
TTas510_02Form = class(TBas100_01Form)
gbInfo: TGroupBox;
lblCode: TLabel;
lblName: TLabel;
lblStatus: TLabel;
lblClass: TLabel;
lblPriority: TLabel;
lblFrom: TLabel;
lblOrder: TLabel;
lblDate: TLabel;
lblReqDate: 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;
edtReqDate: 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;
sbMacNo: TSpeedButton;
qryTas500: TADOQuery;
qryTas510: TADOQuery;
lblManager: TLabel;
edtManager: TEdit;
sbManager: TSpeedButton;
edtManagerName: TEdit;
qryHrm150: TADOQuery;
qryHrm150H150_001: TAutoIncField;
qryHrm150H150_002: TWideStringField;
qryHrm150H150_003: TWideStringField;
qryOrd150: TADOQuery;
qryOrd150O150_002: TStringField;
qryOrd150O150_003: TStringField;
qryOrd150O150_004: TStringField;
qryOrd150O150_005: TWideStringField;
qryOrd150O150_012: TWideStringField;
qryOrd150O150_007: TWideStringField;
qryOrd150O150_001: TAutoIncField;
qryOrd153: TADOQuery;
qryOrd153I150_002: TWideStringField;
qryOrd153O153_003: TWideStringField;
qryOrd153I150_003: TWideStringField;
qryOrd153I150_004: TWideStringField;
qryOrd153I120_003: TWideStringField;
qryOrd153O150_002: TWideStringField;
qryOrd153O150_003: TWideStringField;
qryOrd153I150_001: TAutoIncField;
cbClass: TdxLookupTreeView;
qryTas100: TADOQuery;
dsTas100: TDataSource;
qryTas500T500_001: TWideStringField;
qryTas500T500_002: TWideStringField;
qryTas500T500_015: TIntegerField;
qryTas500T500_016: TIntegerField;
qryTas500T500_017: TWideStringField;
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;
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;
lblFromDate: TLabel;
lblFactFromDate: TLabel;
edtFactFromDate: TwwDBDateTimePicker;
edtFromDate: TwwDBDateTimePicker;
lblToDate: TLabel;
lblFactToDate: TLabel;
edtFactToDate: TwwDBDateTimePicker;
edtToDate: TwwDBDateTimePicker;
dsTas510: TDataSource;
qryTas510T510_001: TWideStringField;
qryTas510T510_002: TWideStringField;
qryTas510T120_003: TWideStringField;
qryTas510T100_002: TWideStringField;
qryTas510T510_005: TSmallintField;
qryTas510T510_006: TDateTimeField;
qryTas510T510_007: TDateTimeField;
qryTas510T510_008: TSmallintField;
qryTas510T510_009: TWideStringField;
qryTas510T510_011: TWideStringField;
qryTas510T510_012: TBCDField;
qryTas510T510_013: TBCDField;
qryTas510T510_014: TBCDField;
qryTas510T510_015: TIntegerField;
qryTas510O150_002: TWideStringField;
qryTas510O150_003: TWideStringField;
qryTas510O150_005: TWideStringField;
qryTas510O150_012: TWideStringField;
qryTas510O151_002: TWideStringField;
qryTas510O151_004: TWideStringField;
qryTas510O150_007: TWideStringField;
qryTas510I150_002: TWideStringField;
qryTas510I150_003: TWideStringField;
qryTas510I150_004: TWideStringField;
qryTas510I120_003: TWideStringField;
qryTas510M150_002: TWideStringField;
qryTas510M150_003: TWideStringField;
qryTas510T510_018: TWideStringField;
qryTas510T510_019: TMemoField;
qryTas510T510_020: TDateTimeField;
qryTas510T510_021: TWideStringField;
qryTas510T510_022: TDateTimeField;
qryTas510T510_023: TWideStringField;
qryTas510T510_003: TIntegerField;
qryTas510T510_004: TIntegerField;
qryTas510T510_010: TIntegerField;
qryTas510T510_016: TIntegerField;
qryTas510T510_017: TIntegerField;
qryTas510T510_024: TIntegerField;
qryTas510H150_002: TStringField;
qryTas510H150_003: TStringField;
qryTas510T510_025: TDateTimeField;
qryTas510T510_026: TDateTimeField;
qryTas510T510_027: TDateTimeField;
qryTas510T510_028: TDateTimeField;
lblCreateDate: TLabel;
edtCreateDate: TEdit;
lblCreateBy: TLabel;
edtCreateBy: TEdit;
lblUpdateDate: TLabel;
edtUpdateDate: TEdit;
lblUpdateBy: TLabel;
edtUpdateBy: TEdit;
qrySer500: TADOQuery;
qrySer500S500_001: TWideStringField;
qrySer500S500_002: TWideStringField;
qrySer500S100_002: TWideStringField;
qryTas510T100_006: TBooleanField;
qryInv150: TADOQuery;
qrySer500S500_017: TIntegerField;
qrySer500S500_018: TIntegerField;
qrySer500S500_019: TWideStringField;
qryOrd150O151_002: TWideStringField;
qryOrd150O151_004: TWideStringField;
qryOrd510: TADOQuery;
qryOrd510O510A_001: TWideStringField;
qryOrd510O510A_003: TDateTimeField;
qryOrd510O150_002: TWideStringField;
qryOrd510O150_003: TWideStringField;
qryOrd510I150_002: TWideStringField;
qryOrd510I150_003: TWideStringField;
qryOrd510O510A_011: TWideStringField;
qryOrd510O100_002: 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 edtOrderExit(Sender: TObject);
procedure sbManagerClick(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 qryTas510AfterScroll(DataSet: TDataSet);
procedure qryTas510T510_008GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure qryTas510T510_011GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure edtDaysExit(Sender: TObject);
procedure edtFromDateExit(Sender: TObject);
procedure qryTas510CalcFields(DataSet: TDataSet);
procedure qryOrd150CalcFields(DataSet: TDataSet);
procedure cbClassCloseUp(Sender: TObject; Accept: Boolean);
private
AType:array[0..3] of string;
AUnit:array[0..3] of string;
AMode,AOldOrder,AOldCode:string;
AOldFrom:Integer;
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
Tas510_02Form: TTas510_02Form;
implementation
uses SYSDATA, HwSelData, CommFun, TasComm;
{$R *.dfm}
//设置按钮状态
procedure TTas510_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 TTas510_02Form.SetInterface;
var
S:string;
begin
Caption:=GetDBString('TAS51002001'); //任务计划维护
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); //移到下一条记录
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -