?? tas520_01.pas.svn-base
字號:
unit Tas520_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, wwdbdatetimepicker, fr_Class;
type
TTas520_01Form = class(TBas200_10Form)
ADOQuery1T520_001: TWideStringField;
ADOQuery1T520_002: TWideStringField;
ADOQuery1T510_002: TWideStringField;
ADOQuery1T100_002: TWideStringField;
ADOQuery1T510_005: TSmallintField;
ADOQuery1T520_005: TBCDField;
ADOQuery1T520_006: TDateTimeField;
ADOQuery1T520_007: TDateTimeField;
ADOQuery1T520_004: TWideStringField;
ADOQuery1T520_008: TBCDField;
ADOQuery1T520_009: TDateTimeField;
ADOQuery1T520_010: TDateTimeField;
ADOQuery1T120_003: TWideStringField;
ADOQuery1O150_002: TWideStringField;
ADOQuery1O150_003: TWideStringField;
ADOQuery1I150_002: TWideStringField;
ADOQuery1I150_003: TWideStringField;
ADOQuery1T510_018: TWideStringField;
ADOQuery1I120_003: TWideStringField;
ADOQuery1T520_012: TDateTimeField;
ADOQuery1T520_013: TWideStringField;
ADOQuery1T520_014: TDateTimeField;
ADOQuery1T520_015: TWideStringField;
dxDBGrid1T520_001: TdxDBGridColumn;
dxDBGrid1T520_002: TdxDBGridColumn;
dxDBGrid1T510_002: TdxDBGridColumn;
dxDBGrid1T100_002: TdxDBGridColumn;
dxDBGrid1T510_005: TdxDBGridMaskColumn;
dxDBGrid1T520_005: TdxDBGridCurrencyColumn;
dxDBGrid1T520_006: TdxDBGridDateColumn;
dxDBGrid1T520_007: TdxDBGridDateColumn;
dxDBGrid1FUnit: TdxDBGridColumn;
dxDBGrid1T520_008: TdxDBGridCurrencyColumn;
dxDBGrid1T520_009: TdxDBGridDateColumn;
dxDBGrid1T520_010: TdxDBGridDateColumn;
dxDBGrid1T120_003: TdxDBGridColumn;
dxDBGrid1O150_002: TdxDBGridColumn;
dxDBGrid1O150_003: TdxDBGridColumn;
dxDBGrid1I150_002: TdxDBGridColumn;
dxDBGrid1I150_003: TdxDBGridColumn;
dxDBGrid1T510_018: TdxDBGridColumn;
dxDBGrid1T520_012: TdxDBGridDateColumn;
dxDBGrid1T520_013: TdxDBGridColumn;
dxDBGrid1T520_014: TdxDBGridDateColumn;
dxDBGrid1T520_015: TdxDBGridColumn;
sbSearch: TSpeedButton;
lblTasks: TLabel;
edtTasks: TEdit;
sbTasks: TSpeedButton;
ADOQuery1O150_001: TIntegerField;
ADOQuery1T520_016: TIntegerField;
qryTas510: TADOQuery;
qryTas510T510_001: TWideStringField;
qryTas510T510_002: TWideStringField;
lblDate: TLabel;
edtFromDate: TwwDBDateTimePicker;
edtToDate: TwwDBDateTimePicker;
dxDBGrid1T520_019: TdxDBGridColumn;
ADOQuery1T510_016: TIntegerField;
ADOQuery1T510_017: TIntegerField;
qryInv150: TADOQuery;
ADOQuery1T510_019: TMemoField;
ADOQuery1I150_004: TWideStringField;
ADOQuery1M150_002: TWideStringField;
ADOQuery1M150_003: TWideStringField;
ADOQuery1T100_001: TAutoIncField;
ADOQuery1T100_003: TIntegerField;
ADOQuery1T520_011: TMemoField;
ADOQuery1FUnit: TStringField;
ADOQuery1T520_019: TWideStringField;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure sbSearchClick(Sender: TObject);
procedure edtTasksExit(Sender: TObject);
procedure sbTasksClick(Sender: TObject);
procedure dxDBGrid1T520_001DrawSummaryFooter(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; var AText: String;
var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
var ADone: Boolean);
procedure ADOQuery1CalcFields(DataSet: TDataSet);
procedure ActPrintExecute(Sender: TObject);
private
AUnit:array[0..3] of string;
{ Private declarations }
public
AField:string;
ARecordCount:Integer;
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
Tas520_01Form: TTas520_01Form;
implementation
uses SYSDATA, CommFun, Tas520_02, TasComm, HwSelData;
{$R *.dfm}
procedure TTas520_01Form.SetInterface;
begin
inherited;
Caption:=GetDBString('TAS52001001'); //任務工單維護
ADOQuery1T520_001.DisplayLabel:=GetDBString('TAS52001002'); //工單編號
ADOQuery1T520_002.DisplayLabel:=GetDBString('TAS52001003'); //任務編號
ADOQuery1T510_002.DisplayLabel:=GetDBString('TAS52001004'); //任務名稱
ADOQuery1T100_002.DisplayLabel:=GetDBString('TAS52001005'); //任務類別
ADOQuery1T510_005.DisplayLabel:=GetDBString('TAS52001006'); //優先級別
ADOQuery1T520_019.DisplayLabel:=GetDBString('TAS52001007'); //執行人員
ADOQuery1T520_005.DisplayLabel:=GetDBString('TAS52001008'); //預計工時
ADOQuery1T520_006.DisplayLabel:=GetDBString('TAS52001009'); //預計開始日期
ADOQuery1T520_007.DisplayLabel:=GetDBString('TAS52001010'); //預計完成日期
ADOQuery1T520_004.DisplayLabel:=GetDBString('TAS52001011'); //時間單位
ADOQuery1T520_008.DisplayLabel:=GetDBString('TAS52001012'); //實際工時
ADOQuery1T520_009.DisplayLabel:=GetDBString('TAS52001013'); //實際開始日期
ADOQuery1T520_010.DisplayLabel:=GetDBString('TAS52001014'); //實際完成日期
ADOQuery1T120_003.DisplayLabel:=GetDBString('TAS52001015'); //任務狀態
ADOQuery1O150_002.DisplayLabel:=GetDBString('TAS52001016'); //客戶編號
ADOQuery1O150_003.DisplayLabel:=GetDBString('TAS52001017'); //客戶名稱
ADOQuery1I150_002.DisplayLabel:=GetDBString('TAS52001023'); //產品編號
ADOQuery1I150_003.DisplayLabel:=GetDBString('TAS52001024'); //產品名稱
ADOQuery1T510_018.DisplayLabel:=GetDBString('TAS52001025'); //機身編號
ADOQuery1I150_004.DisplayLabel:=GetDBString('TAS52001026'); //規格型號
ADOQuery1I120_003.DisplayLabel:=GetDBString('TAS52001027'); //產品類別
ADOQuery1M150_002.DisplayLabel:=GetDBString('TAS52001028'); //制造商號
ADOQuery1M150_003.DisplayLabel:=GetDBString('TAS52001029'); //制造商名
ADOQuery1T510_019.DisplayLabel:=GetDBString('TAS52001030'); //任務說明
// ADOQuery1T520_011.DisplayLabel:=GetDBString('TAS52001031'); //解決方法
ADOQuery1T520_012.DisplayLabel:=GetDBString('TAS52001032'); //制單日期
ADOQuery1T520_013.DisplayLabel:=GetDBString('TAS52001033'); //制單人員
ADOQuery1T520_014.DisplayLabel:=GetDBString('TAS52001034'); //修改日期
ADOQuery1T520_015.DisplayLabel:=GetDBString('TAS52001035'); //修改人員
AUnit[0]:=GetDBString('TAS52001036'); //時
AUnit[1]:=GetDBString('TAS52001037'); //天
AUnit[2]:=GetDBString('TAS52001038'); //周
AUnit[3]:=GetDBString('TAS52001039'); //月
lblTasks.Caption:=GetDBString('TAS52001003'); //任務編號
lblDate.Caption:=GetDBString('TAS52001041'); //日期
sbSearch.Caption:=GetDBString('TAS52001040'); //查詢
qryTas510T510_001.DisplayLabel:=GetDBString('TAS52001003'); //任務編號
qryTas510T510_002.DisplayLabel:=GetDBString('TAS52001004'); //任務名稱
end;
procedure TTas520_01Form.FormCreate(Sender: TObject);
var
ADate:TDateTime;
begin
AField:='T520_006'; //預計開始日期 T520_009 //實際開始日期
inherited;
qryTas510.Open;
ADate:=GetServerDate;
edtFromDate.Date:=GetMonthFirstDate(ADate);
edtToDate.Date:=GetMonthEndDate(ADate);
AReportName:='';
end;
procedure TTas520_01Form.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
inherited;
qryTas510.Close;
end;
procedure TTas520_01Form.sbSearchClick(Sender: TObject);
begin
inherited;
//查詢
if edtTasks.Text<>'' then
begin
if not IsExists('select * from TAS520 where T520_002='+''''+edtTasks.Text+'''') then
begin
ShowMsg('UMS10000285'); //輸入的任務編號無效
edtTasks.SetFocus;
Abort;
end;
end;
if (edtFromDate.Text='') or (edtToDate.Text='') then
begin
ShowMsg('UMS10000319'); //起止日期不可為空
if edtFromDate.Text='' then edtFromDate.SetFocus else edtToDate.SetFocus;
Abort;
end;
if edtFromDate.Date>edtToDate.Date then
begin
ShowMsg('UMS10000320'); //結束日期不能小于起始日期
edtToDate.SetFocus;
Abort;
end;
Screen.Cursor:=crHourGlass;
ADOQuery1.DisableControls;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
if edtTasks.Text='' then
begin
ADOQuery1.SQL.Add('select A.*,B.*,C.T100_001,C.T100_002,C.T100_003,D.T120_003,');
ADOQuery1.SQL.Add(' G.O150_001,G.O150_002,G.O150_003');
ADOQuery1.SQL.Add('from TAS520 A,TAS510 B,TAS100 C,TAS120 D,ORD150 G');
ADOQuery1.SQL.Add('where A.T520_002=B.T510_001 and B.T510_004=C.T100_001 and B.T510_003=D.T120_001 and');
ADOQuery1.SQL.Add(' B.T510_016=G.O150_001 and ');
ADOQuery1.SQL.Add(' '+AField+'>='+GetDateString(edtFromDate.Date)+' and '+AField+'<='+GetDateString(edtToDate.Date));
ADOQuery1.SQL.Add('order by T520_001');
end else
begin
ADOQuery1.SQL.Add('select A.*,B.*,C.T100_001,C.T100_002,C.T100_003,D.T120_003,');
ADOQuery1.SQL.Add(' G.O150_001,G.O150_002,G.O150_003');
ADOQuery1.SQL.Add('from TAS520 A,TAS510 B,TAS100 C,TAS120 D,ORD150 G');
ADOQuery1.SQL.Add('where A.T520_002=B.T510_001 and B.T510_004=C.T100_001 and B.T510_003=D.T120_001 and');
ADOQuery1.SQL.Add(' B.T510_016=G.O150_001 and ');
ADOQuery1.SQL.Add(' A.T520_002='+''''+edtTasks.Text+''''+' and '+AField+'>='+GetDateString(edtFromDate.Date)+' and '+AField+'<='+GetDateString(edtToDate.Date));
ADOQuery1.SQL.Add('order by T520_001');
end;
ADOQuery1.Open;
ADOQuery1.EnableControls;
ARecordCount:=GetDataSetCount(ADOQuery1);
Screen.Cursor:=crDefault;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -