📄 tas310_01.pas.svn-base
字号:
unit Tas310_01;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Bas100_01, Menus, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
ExtCtrls, ComCtrls, ToolWin, StdCtrls, wwdbdatetimepicker, Buttons, fr_Class,
ActnList, DB, ADODB, dxDBTL, dxDBTLCl, dxGrClms, Mask, DBCtrls, fr_DSet;
type
TTas310_01Form = class(TBas100_01Form)
Panel1: TPanel;
Panel2: TPanel;
ActionList1: TActionList;
ActFirst: TAction;
ActPrior: TAction;
ActNext: TAction;
ActLast: TAction;
ActRefresh: TAction;
ActLocate: TAction;
ActSearch: TAction;
ActPrint: TAction;
ActExit: TAction;
Panel3: TPanel;
Image1: TImage;
lblDate: TLabel;
sbSearch: TSpeedButton;
lblClass: TLabel;
edtFromDate: TwwDBDateTimePicker;
edtToDate: TwwDBDateTimePicker;
cbClass: TComboBox;
CoolBar1: TCoolBar;
ToolBar2: TToolBar;
tlbFirst: TToolButton;
tlbPrior: TToolButton;
tlbNext: TToolButton;
tlbLast: TToolButton;
ToolButton1: TToolButton;
tlbRefresh: TToolButton;
tlbLocate: TToolButton;
tlbSearch: TToolButton;
tlbPrint: TToolButton;
ToolButton6: TToolButton;
tlbExit: TToolButton;
Splitter1: TSplitter;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
PageControl2: TPageControl;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
Splitter2: TSplitter;
ScrollBox1: TScrollBox;
ScrollBox2: TScrollBox;
lblWorkCode: TLabel;
edtDays: TEdit;
lblDays: TLabel;
lblFactDays: TLabel;
lblFromDate: TLabel;
lblFactFromDate: TLabel;
lblToDate: TLabel;
lblFactToDate: TLabel;
lblPerson: TLabel;
lblResolvent: TLabel;
lblRepCode: TLabel;
lblRepDays: TLabel;
lblSupport: TLabel;
lblRepDate: TLabel;
lblPercent: TLabel;
lblVendor: TLabel;
lblSupportDays: TLabel;
Label9: TLabel;
lblContinue: TLabel;
lblDelay: TLabel;
lblRepMemo: TLabel;
dbgTas510: TdxDBGrid;
dbgTas510T510_001: TdxDBGridColumn;
dbgTas510T510_002: TdxDBGridColumn;
dbgTas510T120_003: TdxDBGridColumn;
dbgTas510T100_002: TdxDBGridColumn;
dbgTas510T510_005: TdxDBGridMaskColumn;
dbgTas510T510_006: TdxDBGridDateColumn;
dbgTas510T510_007: TdxDBGridDateColumn;
dbgTas510T510_008: TdxDBGridMaskColumn;
dbgTas510T510_009: TdxDBGridColumn;
dbgTas510T510_011: TdxDBGridColumn;
dbgTas510T510_012: TdxDBGridCurrencyColumn;
dbgTas510T510_025: TdxDBGridDateColumn;
dbgTas510T510_026: TdxDBGridDateColumn;
dbgTas510T510_013: TdxDBGridCurrencyColumn;
dbgTas510T510_027: TdxDBGridDateColumn;
dbgTas510T510_028: TdxDBGridDateColumn;
dbgTas510T510_014: TdxDBGridCurrencyColumn;
dbgTas510T510_015: TdxDBGridMaskColumn;
dbgTas510O150_002: TdxDBGridColumn;
dbgTas510O150_003: TdxDBGridColumn;
dbgTas510I150_002: TdxDBGridColumn;
dbgTas510I150_003: TdxDBGridColumn;
dbgTas510T510_018: TdxDBGridColumn;
dbgTas510T510_020: TdxDBGridDateColumn;
dbgTas510T510_021: TdxDBGridColumn;
dbgTas510T510_022: TdxDBGridDateColumn;
dbgTas510T510_023: TdxDBGridColumn;
dbgTas510T120_005: TdxDBGridMaskColumn;
dsTas530: TDataSource;
qryTas530: TADOQuery;
qryTas530T530_001: TWideStringField;
qryTas530T530_003: TBCDField;
qryTas530T530_004: TBCDField;
qryTas530T530_007: TWideStringField;
qryTas530T530_005: TDateTimeField;
qryTas530T530_006: TDateTimeField;
qryTas530T530_010: TIntegerField;
dbgTas530: TdxDBGrid;
Panel4: TPanel;
lblTaskCode: TLabel;
lblTaskName: TLabel;
lblTaskStatus: TLabel;
lblTaskClass: TLabel;
qryTas520: TADOQuery;
qryTas520T520_001: TWideStringField;
qryTas520T520_003: TWideStringField;
qryTas520T520_005: TBCDField;
qryTas520T520_006: TDateTimeField;
qryTas520T520_007: TDateTimeField;
qryTas520T520_004: TWideStringField;
qryTas520T520_008: TBCDField;
qryTas520T520_009: TDateTimeField;
qryTas520T520_010: TDateTimeField;
dsTas520: TDataSource;
dbgTas520: TdxDBGrid;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
dbgTas520T520_001: TdxDBGridColumn;
dbgTas520T520_003: TdxDBGridColumn;
dbgTas520T520_004: TdxDBGridColumn;
dbgTas520T520_005: TdxDBGridCurrencyColumn;
dbgTas520T520_006: TdxDBGridDateColumn;
dbgTas520T520_007: TdxDBGridDateColumn;
dbgTas520T520_008: TdxDBGridCurrencyColumn;
dbgTas520T520_009: TdxDBGridDateColumn;
dbgTas520T520_010: TdxDBGridDateColumn;
dbgTas530T530_001: TdxDBGridColumn;
dbgTas530T530_003: TdxDBGridCurrencyColumn;
dbgTas530T530_004: TdxDBGridCurrencyColumn;
dbgTas530T530_007: TdxDBGridColumn;
dbgTas530T530_005: TdxDBGridDateColumn;
dbgTas530T530_006: TdxDBGridDateColumn;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBEdit13: TDBEdit;
DBEdit14: TDBEdit;
DBMemo1: TDBMemo;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
DBEdit24: TDBEdit;
DBEdit25: TDBEdit;
DBEdit26: TDBEdit;
DBMemo2: TDBMemo;
qryTas510: TADOQuery;
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_025: TDateTimeField;
qryTas510T510_026: TDateTimeField;
qryTas510T510_013: TBCDField;
qryTas510T510_027: TDateTimeField;
qryTas510T510_028: TDateTimeField;
qryTas510T510_014: TBCDField;
qryTas510T510_015: TIntegerField;
qryTas510O150_002: TWideStringField;
qryTas510O150_003: TWideStringField;
qryTas510I150_002: TWideStringField;
qryTas510I150_004: 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;
qryTas510T120_005: TIntegerField;
dsTas510: TDataSource;
qryTas520T520_011: TMemoField;
qryTas530T530_008: TMemoField;
qryTas530T530_009: TWideStringField;
qryTas530T530_016: TIntegerField;
qryTas530T530_017: TWideStringField;
qryTas530T530_018: TBCDField;
ToolBar1: TToolBar;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton7: TToolButton;
ToolBar3: TToolBar;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ToolButton12: TToolButton;
PopupMenu1: TPopupMenu;
ActOpen: TAction;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
ActFirst2: TAction;
ActPrior2: TAction;
ActNext2: TAction;
ActLast2: TAction;
ActLocate2: TAction;
ActFirst3: TAction;
ActPrior3: TAction;
ActNext3: TAction;
ActLast3: TAction;
ActLocate3: TAction;
qryOrd150: TADOQuery;
qryTas530W150_002: TStringField;
qryTas530W150_003: TStringField;
qryTas120: TADOQuery;
qryTas530T120_003: TStringField;
dbgTas530T120_003: TdxDBGridColumn;
qryInv150: TADOQuery;
ADOQuery1: TADOQuery;
ADOQuery1T520_001: TWideStringField;
ADOQuery1T520_002: TWideStringField;
ADOQuery1T520_003: TWideStringField;
ADOQuery1T520_004: TWideStringField;
ADOQuery1T520_005: TBCDField;
ADOQuery1T520_006: TDateTimeField;
ADOQuery1T520_007: TDateTimeField;
ADOQuery1T520_008: TBCDField;
ADOQuery1T520_009: TDateTimeField;
ADOQuery1T520_010: TDateTimeField;
ADOQuery1T520_011: TMemoField;
ADOQuery1T520_012: TDateTimeField;
ADOQuery1T520_013: TWideStringField;
ADOQuery1T520_014: TDateTimeField;
ADOQuery1T520_015: TWideStringField;
ADOQuery1T520_016: TIntegerField;
ADOQuery1T520_017: TIntegerField;
ADOQuery2: TADOQuery;
ADOQuery2T530_001: TWideStringField;
ADOQuery2T530_002: TWideStringField;
ADOQuery2T530_003: TBCDField;
ADOQuery2T530_004: TBCDField;
ADOQuery2T530_005: TDateTimeField;
ADOQuery2T530_006: TDateTimeField;
ADOQuery2T530_007: TWideStringField;
ADOQuery2T530_008: TMemoField;
ADOQuery2T530_009: TWideStringField;
ADOQuery2T530_010: TIntegerField;
ADOQuery2T120_003: TStringField;
ADOQuery2T530_011: TDateTimeField;
ADOQuery2T530_012: TWideStringField;
ADOQuery2T530_013: TDateTimeField;
ADOQuery2T530_014: TWideStringField;
ADOQuery2T530_015: TWideStringField;
ADOQuery2T530_016: TIntegerField;
ADOQuery2T530_017: TWideStringField;
ADOQuery2T530_018: TBCDField;
qryTas510O150_001: TAutoIncField;
qryTas510O150_005: TWideStringField;
qryTas510O150_006: TWideStringField;
qryTas510O150_007: TWideStringField;
qryTas510O150_012: TWideStringField;
qryTas510I120_003: TWideStringField;
qryTas510M150_002: TWideStringField;
qryTas510M150_003: TWideStringField;
qryTas510I150_003: TWideStringField;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure dbgTas520BackgroundDrawEvent(Sender: TObject;
ACanvas: TCanvas; ARect: TRect);
procedure sbSearchClick(Sender: TObject);
procedure qryTas510T510_008GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure qryTas510T510_011GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure dbgTas510CustomDrawCell(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 qryTas510FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
procedure cbClassChange(Sender: TObject);
procedure ActFirstExecute(Sender: TObject);
procedure ActPriorExecute(Sender: TObject);
procedure ActNextExecute(Sender: TObject);
procedure ActLastExecute(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 qryTas520T520_003GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure qryTas520T520_004GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure qryTas530T530_007GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure ActOpenExecute(Sender: TObject);
procedure dbgTas510DblClick(Sender: TObject);
procedure ActFirst2Execute(Sender: TObject);
procedure ActPrior2Execute(Sender: TObject);
procedure ActNext2Execute(Sender: TObject);
procedure ActLast2Execute(Sender: TObject);
procedure ActLocate2Execute(Sender: TObject);
procedure ActFirst3Execute(Sender: TObject);
procedure ActPrior3Execute(Sender: TObject);
procedure ActNext3Execute(Sender: TObject);
procedure ActLast3Execute(Sender: TObject);
procedure ActLocate3Execute(Sender: TObject);
procedure ADOQuery1T520_003GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
private
AType:array[0..3] of string;
AUnit:array[0..3] of string;
AStringList:TStringList;
procedure SetButtonState(AInsUpd:Boolean);
procedure SetInterface;
procedure ReportGetValue(const ParName: String; var ParValue: Variant);
procedure FilterDialogSelectField(Sender: TObject;
FieldName: String; var PictureMask: String; ComboList: TStrings);
{ Private declarations }
public
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -