?? 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 + -