📄 tasw00_01.pas.svn-base
字号:
unit TasW00_01;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, DB, ExtCtrls, ADODB, ActnList, Menus, ImgList,
dxDBCtrl, dxDBGrid, dxTL, dxDBTLCl, dxGrClms, dxCntner, ComCtrls, dxtree,
dxdbtree, Buttons, ToolWin, StdCtrls, ShellApi, wwdbdatetimepicker;
type
TTasW00_01Form = class(TForm)
Splitter1: TSplitter;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
Animate1: TAnimate;
ToolBar2: TToolBar;
Panel2: TPanel;
pnLists: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
dxDBGrid1: TdxDBGrid;
dxDBGrid1S910_002: TdxDBGridDateColumn;
dxDBGrid1S910_003: TdxDBGridMaskColumn;
dxDBGrid1S910_004: TdxDBGridMaskColumn;
MainMenu1: TMainMenu;
mmiFile: TMenuItem;
mmiEdit: TMenuItem;
mmiHelp: TMenuItem;
mmiContents: TMenuItem;
mmiEamil: TMenuItem;
mmiHome: TMenuItem;
mmiUpgrade: TMenuItem;
N9: TMenuItem;
mmiAbout: TMenuItem;
N1: TMenuItem;
mmiRegister: TMenuItem;
imgButton: TImageList;
ActionList1: TActionList;
ActOrd120: TAction;
ActHrm100: TAction;
ActTas500: TAction;
ActOrd150: TAction;
ActTas510: TAction;
ActTas520: TAction;
ActContents: TAction;
ActEmail: TAction;
ActHomePage: TAction;
ActAbout: TAction;
ActReg: TAction;
ActHrm120: TAction;
ActHrm130: TAction;
ActExit: TAction;
ActUpgrade: TAction;
dsLists: TDataSource;
imgPage: TImageList;
PopupMenu5: TPopupMenu;
mmiReaded: TMenuItem;
Panel1: TPanel;
pnReports: TPanel;
Splitter2: TSplitter;
mmiReport: TMenuItem;
ActHrm150: TAction;
ActTas100: TAction;
ActTas120: TAction;
ActTasS00: TAction;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N14: TMenuItem;
mmiTas100: TMenuItem;
N16: TMenuItem;
ActTas300: TAction;
ActTas200: TAction;
ActTas400: TAction;
N19: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
tlbTas100: TToolButton;
ActLongin: TAction;
ActPass: TAction;
N40: TMenuItem;
C1: TMenuItem;
U1: TMenuItem;
X1: TMenuItem;
N41: TMenuItem;
tvReports: TdxDBTreeView;
tlbTas120: TToolButton;
ToolButton4: TToolButton;
tlbTas500: TToolButton;
tlbTas510: TToolButton;
ScrollBox1: TScrollBox;
Panel5: TPanel;
sbSearch: TSpeedButton;
dbgMaster: TdxDBGrid;
Panel6: TPanel;
bbtnRefresh: TBitBtn;
bbtnLocate: TBitBtn;
bbtnSearch: TBitBtn;
dsTas510: TDataSource;
bbtnPrint: TBitBtn;
lblClass: TLabel;
adsReports: TADODataSet;
dsReports: TDataSource;
adsLists: TADODataSet;
adsListsNum: TIntegerField;
adsListsName: TStringField;
adsListsParent: TIntegerField;
adsReportsCode: TStringField;
adsReportsName: TStringField;
imgReports: TImageList;
tlbTas520: TToolButton;
ToolButton13: TToolButton;
tlbExit: TToolButton;
popInsert: TPopupMenu;
miIncome: TMenuItem;
miPayment: TMenuItem;
miTransfer: TMenuItem;
MenuItem1: TMenuItem;
miBorrow: TMenuItem;
miLend: TMenuItem;
MenuItem2: TMenuItem;
miInput: TMenuItem;
miOutput: TMenuItem;
bbtnUpdate: TBitBtn;
bbtnDelete: TBitBtn;
bbtnInsert: TBitBtn;
cbTasClass: TComboBox;
tlbFile: TToolButton;
tlbEdit: TToolButton;
tlbReport: TToolButton;
tlbHelp: TToolButton;
tvLists: TdxDBTreeView;
Image1: TImage;
tlbTas530: TToolButton;
ActTas530: TAction;
N5: TMenuItem;
N17: TMenuItem;
ActTas110: TAction;
ActInv120: TAction;
ActInv140: TAction;
ActInv150: TAction;
ActInv155: TAction;
N18: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N31: TMenuItem;
tlbTas110: TToolButton;
bbtnExcel: TBitBtn;
ActTas410: TAction;
ActTas420: TAction;
ActTas430: TAction;
ActTas440: TAction;
ActTas450: TAction;
ActTas460: TAction;
ActTas470: TAction;
N32: TMenuItem;
N33: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N37: TMenuItem;
N38: TMenuItem;
N39: TMenuItem;
N42: TMenuItem;
N43: TMenuItem;
qryTas510: TADOQuery;
bbtnClose: TBitBtn;
bbtnReturn: TBitBtn;
N48: TMenuItem;
lblDate: TLabel;
edtFromDate: TwwDBDateTimePicker;
edtToDate: TwwDBDateTimePicker;
ActTas210: TAction;
ActTas220: TAction;
N24: TMenuItem;
N36: TMenuItem;
C2: TMenuItem;
T1: TMenuItem;
D1: TMenuItem;
ActInsert: TAction;
ActUpdate: TAction;
ActDelete: TAction;
ActRefresh: TAction;
ActLocate: TAction;
ActSearch: TAction;
ActPrint: TAction;
ActExport: TAction;
ActClose: TAction;
ActReturn: TAction;
ActOpenTask: TAction;
ActNewTask: TAction;
ActOpenReport: TAction;
ActNewReport: TAction;
ActOpen: TAction;
N44: TMenuItem;
ActTas310: TAction;
N45: TMenuItem;
ActTas435: TAction;
N46: TMenuItem;
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_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;
qryTas510T120_005: TIntegerField;
dbgMasterT510_001: TdxDBGridColumn;
dbgMasterT510_002: TdxDBGridColumn;
dbgMasterT120_003: TdxDBGridColumn;
dbgMasterT100_002: TdxDBGridColumn;
dbgMasterT510_005: TdxDBGridMaskColumn;
dbgMasterT510_006: TdxDBGridDateColumn;
dbgMasterT510_007: TdxDBGridDateColumn;
dbgMasterT510_008: TdxDBGridMaskColumn;
dbgMasterT510_009: TdxDBGridColumn;
dbgMasterT510_011: TdxDBGridColumn;
dbgMasterT510_012: TdxDBGridCurrencyColumn;
dbgMasterT510_025: TdxDBGridDateColumn;
dbgMasterT510_026: TdxDBGridDateColumn;
dbgMasterT510_013: TdxDBGridCurrencyColumn;
dbgMasterT510_027: TdxDBGridDateColumn;
dbgMasterT510_028: TdxDBGridDateColumn;
dbgMasterT510_014: TdxDBGridCurrencyColumn;
dbgMasterT510_015: TdxDBGridMaskColumn;
dbgMasterO150_002: TdxDBGridColumn;
dbgMasterO150_003: TdxDBGridColumn;
dbgMasterI150_002: TdxDBGridColumn;
dbgMasterI150_003: TdxDBGridColumn;
dbgMasterT510_018: TdxDBGridColumn;
dbgMasterT510_020: TdxDBGridDateColumn;
dbgMasterT510_021: TdxDBGridColumn;
dbgMasterT510_022: TdxDBGridDateColumn;
dbgMasterT510_023: TdxDBGridColumn;
dbgMasterT120_005: TdxDBGridMaskColumn;
tlbTas130: TToolButton;
ActTas130: TAction;
mmiTas130: TMenuItem;
qryInv150: TADOQuery;
ActTas425: TAction;
N13: TMenuItem;
imgLists: TImageList;
Panel3: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormActivate(Sender: TObject);
procedure dbgMasterBackgroundDrawEvent(Sender: TObject;
ACanvas: TCanvas; ARect: TRect);
procedure ActTasS00Execute(Sender: TObject);
procedure ActOrd120Execute(Sender: TObject);
procedure ActOrd150Execute(Sender: TObject);
procedure ActHrm100Execute(Sender: TObject);
procedure ActHrm120Execute(Sender: TObject);
procedure ActHrm130Execute(Sender: TObject);
procedure ActHrm150Execute(Sender: TObject);
procedure ActTas100Execute(Sender: TObject);
procedure ActTas120Execute(Sender: TObject);
procedure ActPassExecute(Sender: TObject);
procedure ActLonginExecute(Sender: TObject);
procedure ActExitExecute(Sender: TObject);
procedure ActTas500Execute(Sender: TObject);
procedure ActTas510Execute(Sender: TObject);
procedure ActTas520Execute(Sender: TObject);
procedure ActTas530Execute(Sender: TObject);
procedure ActContentsExecute(Sender: TObject);
procedure ActEmailExecute(Sender: TObject);
procedure ActHomePageExecute(Sender: TObject);
procedure ActAboutExecute(Sender: TObject);
procedure ActRegExecute(Sender: TObject);
procedure ActUpgradeExecute(Sender: TObject);
procedure sbSearchClick(Sender: TObject);
procedure tvReportsDblClick(Sender: TObject);
procedure tvListsGetImageIndex(Sender: TObject; Node: TTreeNode);
procedure tvListsDblClick(Sender: TObject);
procedure cbTasClassChange(Sender: TObject);
procedure dbgMasterDblClick(Sender: TObject);
procedure qryTas510T510_008GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure qryTas510T510_011GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure ActTas110Execute(Sender: TObject);
procedure ActTas300Execute(Sender: TObject);
procedure ActTas200Execute(Sender: TObject);
procedure ActTas400Execute(Sender: TObject);
procedure ActTas410Execute(Sender: TObject);
procedure ActTas420Execute(Sender: TObject);
procedure ActTas430Execute(Sender: TObject);
procedure ActTas440Execute(Sender: TObject);
procedure ActTas450Execute(Sender: TObject);
procedure ActTas460Execute(Sender: TObject);
procedure ActTas470Execute(Sender: TObject);
procedure ActInv120Execute(Sender: TObject);
procedure ActInv140Execute(Sender: TObject);
procedure ActInv150Execute(Sender: TObject);
procedure dxDBGrid1CustomDraw(Sender: TObject; ACanvas: TCanvas;
ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxDBTreeListColumn;
const AText: String; AFont: TFont; var AColor: TColor; ASelected,
AFocused: Boolean; var ADone: Boolean);
procedure mmiReadedClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure dbgMasterCustomDrawCell(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 ActTas210Execute(Sender: TObject);
procedure ActTas220Execute(Sender: TObject);
procedure ActOpenExecute(Sender: TObject);
procedure ActInsertExecute(Sender: TObject);
procedure ActUpdateExecute(Sender: TObject);
procedure ActDeleteExecute(Sender: TObject);
procedure ActRefreshExecute(Sender: TObject);
procedure ActLocateExecute(Sender: TObject);
procedure ActSearchExecute(Sender: TObject);
procedure ActPrintExecute(Sender: TObject);
procedure ActExportExecute(Sender: TObject);
procedure ActCloseExecute(Sender: TObject);
procedure ActReturnExecute(Sender: TObject);
procedure ActOpenTaskExecute(Sender: TObject);
procedure ActNewTaskExecute(Sender: TObject);
procedure ActOpenReportExecute(Sender: TObject);
procedure ActNewReportExecute(Sender: TObject);
procedure ActTas310Execute(Sender: TObject);
procedure ActTas435Execute(Sender: TObject);
procedure ActTas130Execute(Sender: TObject);
procedure ActTas425Execute(Sender: TObject);
procedure dbgMasterT510_001DrawSummaryFooter(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; var AText: String;
var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
var ADone: Boolean);
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure dxDBGrid1BackgroundDrawEvent(Sender: TObject;
ACanvas: TCanvas; ARect: TRect);
private
AType:array[0..3] of string;
AUnit:array[0..3] of string;
AIsColor:Boolean;
ARecordCount:Integer;
procedure SetInterface;
procedure ReportGetValue(const ParName: String; var ParValue: Variant);
procedure FilterDialogSelectField(Sender: TObject;
FieldName: String; var PictureMask: String; ComboList: TStrings);
{ Private declarations }
public
{ Public declarations }
end;
var
TasW00_01Form: TTasW00_01Form;
implementation
uses CommFun, SYSDATA, HwRegister, Welcome, Sys600_01, Sys700_01,
Tas510_02, Tas520_02, Tas530_02, ErpMain, TasComm, HwExport;
{$R *.dfm}
procedure TTasW00_01Form.SetInterface;
begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -