📄 inv150_02.pas.svn-base
字号:
unit Inv150_02;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Bas200_15, DBCtrls, StdCtrls, dxdbtrel, Buttons, DB, ADODB,
ActnList, Menus, ComCtrls, ToolWin, ExtCtrls, ExtDlgs, Clipbrd, dxCntner,
dxEditor, dxExEdtr, dxDBEdtr, dxDBELib;
type
TInv150_02Form = class(TBas200_15Form)
gbUnit: TGroupBox;
lblInvUnit: TLabel;
lblPurUnit: TLabel;
lblPurToInv: TLabel;
lblOrdToInv: TLabel;
lblOrdUnit: TLabel;
sbInvUnit: TSpeedButton;
sbPurUnit: TSpeedButton;
sbOrdUnit: TSpeedButton;
edtInvUnit: TEdit;
edtPurUnit: TEdit;
edtPurToInv: TEdit;
edtOrdUnit: TEdit;
edtOrdToInv: TEdit;
edtInvUnitName: TEdit;
edtPurUnitName: TEdit;
edtOrdUnitName: TEdit;
gbPackage: TGroupBox;
lblVolume: TLabel;
lblWeight: TLabel;
lblPack: TLabel;
lblLong: TLabel;
lblWidth: TLabel;
lblHeight: TLabel;
edtVolume: TEdit;
edtWeight: TEdit;
cbVolUnit: TComboBox;
cbWetUnit: TComboBox;
cbLongUnit: TComboBox;
edtLong: TEdit;
edtWidth: TEdit;
edtHeight: TEdit;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
GroupBox4: TGroupBox;
lblName1: TLabel;
lblCode1: TLabel;
edtCode1: TEdit;
edtName1: TEdit;
ScrollBox2: TScrollBox;
gbWhs: TGroupBox;
lblWhs: TLabel;
lblLoc: TLabel;
sbWhsID: TSpeedButton;
sbLocID: TSpeedButton;
edtWhsID: TEdit;
edtLocID: TEdit;
edtWhsName: TEdit;
edtLocName: TEdit;
gbInv: TGroupBox;
lblABC: TLabel;
lblDate: TLabel;
lblLowInv: TLabel;
lblHighInv: TLabel;
lblLowPrice: TLabel;
lblHighPrice: TLabel;
cbABC: TComboBox;
edtDate: TEdit;
edtLowInv: TEdit;
edtHighInv: TEdit;
edtLowPrice: TEdit;
edtHighPrice: TEdit;
gbCount: TGroupBox;
lblCount: TLabel;
lblDays: TLabel;
lblCountDate: TLabel;
edtCount: TEdit;
edtDays: TEdit;
edtCountDate: TEdit;
GroupBox2: TGroupBox;
lblCode2: TLabel;
lblName2: TLabel;
edtCode2: TEdit;
edtName2: TEdit;
ScrollBox3: TScrollBox;
gbVend: TGroupBox;
lblVend1: TLabel;
lblVend2: TLabel;
sbVendID1: TSpeedButton;
sbVendID2: TSpeedButton;
edtVendID1: TEdit;
edtVendID2: TEdit;
edtVendName1: TEdit;
edtVendName2: TEdit;
gbPur: TGroupBox;
lblPur: TLabel;
lblLots: TLabel;
lblAdd: TLabel;
lblAvgLot: TLabel;
lblLead: TLabel;
lblOrderDays: TLabel;
lblCost: TLabel;
lblMRP: TLabel;
cbPur: TComboBox;
edtLots: TEdit;
edtAdd: TEdit;
edtAvgLot: TEdit;
edtLead: TEdit;
edtOrderDays: TEdit;
edtCost: TEdit;
cbMRP: TComboBox;
memRemark: TMemo;
GroupBox3: TGroupBox;
lblCode3: TLabel;
lblName3: TLabel;
edtCode3: TEdit;
edtName3: TEdit;
ScrollBox4: TScrollBox;
ToolBar1: TToolBar;
tbFirst: TToolButton;
tbPrior: TToolButton;
tbNext: TToolButton;
tbLast: TToolButton;
ToolButton9: TToolButton;
tbInsert: TToolButton;
tbUpdate: TToolButton;
tbDelete: TToolButton;
qryQuery: TADOQuery;
lblName: TLabel;
lblBarcode: TLabel;
lblType: TLabel;
lblClass: TLabel;
lblMaker: TLabel;
lblStatues: TLabel;
lblEngName: TLabel;
sbMakeID: TSpeedButton;
edtBarcode: TEdit;
edtName: TEdit;
edtEngName: TEdit;
edtMakeID: TEdit;
edtMakeName: TEdit;
lblSpec: TLabel;
edtSpec: TEdit;
lblBuyer: TLabel;
edtBuyer: TEdit;
sbBuyer: TSpeedButton;
lblPlanner: TLabel;
edtPlanner: TEdit;
sbPlanner: TSpeedButton;
OpenPictureDialog1: TOpenPictureDialog;
edtBuyerName: TEdit;
edtPlannerName: TEdit;
gbLot: TGroupBox;
cbIsLot: TCheckBox;
cbIsSale: TCheckBox;
dsPicture: TDataSource;
cbClass: TdxLookupTreeView;
dsInv120: TDataSource;
qryInv120: TADOQuery;
qryInv140: TADOQuery;
cbTimeUnit: TComboBox;
qryInv140I140_001: TAutoIncField;
qryInv140I140_002: TWideStringField;
qryInv140I140_003: TWideStringField;
qryInv140I140_004: TSmallintField;
qryOrd150: TADOQuery;
qryInv100: TADOQuery;
qryInv110: TADOQuery;
ADOQuery1I150_001: TAutoIncField;
ADOQuery1I150_002: TWideStringField;
ADOQuery1I150_003: TWideStringField;
ADOQuery1I150_004: TWideStringField;
ADOQuery1I150_005: TIntegerField;
ADOQuery1I150_006: TIntegerField;
ADOQuery1I150_007: TIntegerField;
ADOQuery1I150_008: TWideStringField;
ADOQuery1I150_009: TWideStringField;
ADOQuery1I150_010: TIntegerField;
ADOQuery1I150_011: TIntegerField;
ADOQuery1I150_012: TIntegerField;
ADOQuery1I150_013: TBCDField;
ADOQuery1I150_014: TIntegerField;
ADOQuery1I150_015: TBCDField;
ADOQuery1I150_016: TBCDField;
ADOQuery1I150_017: TIntegerField;
ADOQuery1I150_018: TBCDField;
ADOQuery1I150_019: TIntegerField;
ADOQuery1I150_020: TIntegerField;
ADOQuery1I150_021: TBCDField;
ADOQuery1I150_022: TBCDField;
ADOQuery1I150_023: TBCDField;
ADOQuery1I150_024: TIntegerField;
ADOQuery1I150_025: TIntegerField;
ADOQuery1I150_026: TBooleanField;
ADOQuery1I150_027: TBooleanField;
ADOQuery1I150_028: TSmallintField;
ADOQuery1I150_029: TDateTimeField;
ADOQuery1I150_030: TIntegerField;
ADOQuery1I150_031: TIntegerField;
ADOQuery1I150_032: TFloatField;
ADOQuery1I150_033: TFloatField;
ADOQuery1I150_034: TFloatField;
ADOQuery1I150_035: TFloatField;
ADOQuery1I150_036: TIntegerField;
ADOQuery1I150_037: TIntegerField;
ADOQuery1I150_038: TDateTimeField;
ADOQuery1I150_039: TIntegerField;
ADOQuery1I150_040: TIntegerField;
ADOQuery1I150_041: TSmallintField;
ADOQuery1I150_042: TSmallintField;
ADOQuery1I150_043: TFloatField;
ADOQuery1I150_044: TFloatField;
ADOQuery1I150_045: TFloatField;
ADOQuery1I150_046: TIntegerField;
ADOQuery1I150_047: TIntegerField;
ADOQuery1I150_048: TFloatField;
ADOQuery1I150_049: TDateTimeField;
ADOQuery1I150_050: TWideStringField;
ADOQuery1I150_051: TDateTimeField;
ADOQuery1I150_052: TWideStringField;
ADOQuery1I120_002: TStringField;
ADOQuery1I120_003: TStringField;
ADOQuery1M150_002: TStringField;
ADOQuery1M150_003: TStringField;
ADOQuery1V150_002: TStringField;
ADOQuery1V150_003: TStringField;
ADOQuery1O150_002: TStringField;
ADOQuery1O150_003: TStringField;
qryHrm150: TADOQuery;
qryHrm150H150_001: TAutoIncField;
qryHrm150H150_002: TWideStringField;
qryHrm150H150_003: TWideStringField;
qryOrd150O150_001: TAutoIncField;
qryOrd150O150_002: TWideStringField;
qryOrd150O150_003: TWideStringField;
ADOQuery1P150_002: TStringField;
ADOQuery1P150_003: TStringField;
ADOQuery1H150_002: TStringField;
ADOQuery1H150_003: TStringField;
ADOQuery1I100_002: TStringField;
ADOQuery1I100_003: TStringField;
ADOQuery1I110_003: TStringField;
ADOQuery1I110_004: TStringField;
ADOQuery1O140_002: TStringField;
ADOQuery1O140_003: TStringField;
ADOQuery1I140_002: TStringField;
ADOQuery1I140_003: TStringField;
ADOQuery1P140_002: TStringField;
ADOQuery1P140_003: TStringField;
ADOQuery1W140_003: TStringField;
ADOQuery1L140_003: TStringField;
ADOQuery1T140_003: TStringField;
ADOQuery1V140_003: TStringField;
ADOQuery1I150_053: TIntegerField;
qryInv100I100_001: TAutoIncField;
qryInv100I100_002: TWideStringField;
qryInv100I100_003: TWideStringField;
qryInv110I110_001: TAutoIncField;
qryInv110I110_002: TIntegerField;
qryInv110I110_003: TWideStringField;
qryInv110I110_004: TWideStringField;
adsInv151: TADODataSet;
qryPicture: TADOQuery;
imgPicture: TDBImage;
lblPage: TLabel;
qryUpdate: TADOQuery;
cbType: TComboBox;
cbStatues: TComboBox;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure tbFirstClick(Sender: TObject);
procedure tbPriorClick(Sender: TObject);
procedure tbNextClick(Sender: TObject);
procedure tbLastClick(Sender: TObject);
procedure tbInsertClick(Sender: TObject);
procedure tbUpdateClick(Sender: TObject);
procedure tbDeleteClick(Sender: TObject);
procedure edtCodeChange(Sender: TObject);
procedure sbMakeIDClick(Sender: TObject);
procedure sbInvUnitClick(Sender: TObject);
procedure sbPurUnitClick(Sender: TObject);
procedure sbOrdUnitClick(Sender: TObject);
procedure sbWhsIDClick(Sender: TObject);
procedure sbLocIDClick(Sender: TObject);
procedure sbBuyerClick(Sender: TObject);
procedure sbPlannerClick(Sender: TObject);
procedure sbVendID1Click(Sender: TObject);
procedure sbVendID2Click(Sender: TObject);
procedure edtMakeIDExit(Sender: TObject);
procedure edtInvUnitExit(Sender: TObject);
procedure edtPurUnitExit(Sender: TObject);
procedure edtOrdUnitExit(Sender: TObject);
procedure edtWhsIDExit(Sender: TObject);
procedure edtLocIDExit(Sender: TObject);
procedure edtBuyerExit(Sender: TObject);
procedure edtPlannerExit(Sender: TObject);
procedure edtVendID1Exit(Sender: TObject);
procedure edtVendID2Exit(Sender: TObject);
procedure edtNameChange(Sender: TObject);
procedure cbPurChange(Sender: TObject);
procedure edtVolumeKeyPress(Sender: TObject; var Key: Char);
procedure cbIsSaleClick(Sender: TObject);
procedure edtLeadKeyPress(Sender: TObject; var Key: Char);
procedure adsInv151AfterScroll(DataSet: TDataSet);
procedure ADOQuery1I150_006GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure ADOQuery1I150_007GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
private
ABusy:Boolean;
ARecNo:Integer;
ADelNo:String;
AStatues:array[0..2] of string;
AType:array[0..6] of string;
ATimeUnit:array[0..1] of string;
{ Private declarations }
public
procedure OpenData(AItemNo:Integer);
procedure SetInterface; override;
procedure GetDataInfo; override;
procedure InsertEvent; override;
procedure UpdateEvent; override;
procedure DeleteEvent; override;
procedure SetEmptyInit; override;
procedure TableBeforePost; override;
procedure TableAfterPost; override;
procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
{ Public declarations }
end;
var
Inv150_02Form: TInv150_02Form;
implementation
uses SYSDATA, CommFun, HwSelData;
{$R *.dfm}
procedure TInv150_02Form.OpenData(AItemNo:Integer);
begin
ABusy:=True;
if AItemNo=0 then AMode:='ADD' else AMode:='UPD';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from INV150 order by I150_002');
ADOQuery1.Open;
ADOQuery1.Locate('I150_001',AItemNo,[]);
ABusy:=False;
ADOQuery1AfterScroll(ADOQuery1);
end;
procedure TInv150_02Form.FormCreate(Sender: TObject);
begin
inherited;
ATableName:='INV150';
AFieldName:='I150_002';
qryInv100.Open;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -