?? matin.~pas
字號:
unit MatIN;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, tabFrm, ImgList, ExtCtrls, ComCtrls, StdCtrls, Buttons, Ex2nmedt,
InvDef, EnhLV, GLLV, ComObj, xlsConst, Math, ClipBrd, InvHistory, dpConst;
type
TfrmMatIN = class(TTabForm)
pnlInput: TPanel;
lblindate: TLabel;
lblCode: TLabel;
lblName: TLabel;
lblRemarks: TLabel;
lblpaper: TLabel;
btnMatQry: TSpeedButton;
lblOutType: TLabel;
lblRecieve: TLabel;
lblInVoice: TLabel;
lblUType: TLabel;
lblInGuage: TLabel;
lblunitPrice: TLabel;
lblINQuantity: TLabel;
lblINAmount: TLabel;
lblMold: TLabel;
lblPart: TLabel;
btnOrdDelivery: TSpeedButton;
lblStockID: TLabel;
lblSuplier: TLabel;
lblMaker: TLabel;
lblOrderSerial: TLabel;
edtDate: TEdit;
edtMatCode: TEdit;
edtMatName: TEdit;
edtNote: TEdit;
edtINPaperNo: TEdit;
cbxMatIn: TComboBox;
cbxInput: TComboBox;
edtInputEmpName: TEdit;
edtInputEmpID: TEdit;
edtMatInID: TEdit;
edtInIDName: TEdit;
edtInvoiceNo: TEdit;
edtPrice: TEx2NumEdit;
edtWeight: TEx2NumEdit;
edtMoldID: TEdit;
edtPartID: TEdit;
Panel4: TPanel;
btnNew: TBitBtn;
Panel9: TPanel;
cbxStk: TComboBox;
edtStkID: TEdit;
edtStkName: TEdit;
edtSuplierCode: TEx2NumEdit;
edtMakerCode: TEx2NumEdit;
Panel5: TPanel;
Panel1: TPanel;
btnDelete: TBitBtn;
edtOrderSerial: TEdit;
cbxGuage: TComboBox;
edtGuageID: TEx2NumEdit;
edtGuageName: TEdit;
Panel2: TPanel;
btnSave: TBitBtn;
lblIsspaper: TLabel;
edtIssPaperNO: TEdit;
cbxSuplier: TComboBox;
lblSupplierNM: TEdit;
cbxMaker: TComboBox;
lblMakerNM: TEdit;
Panel3: TPanel;
ckbNew: TCheckBox;
rdoGroupBy: TRadioGroup;
tabsGroup: TTabControl;
Panel11: TPanel;
Panel7: TPanel;
ListViewMatIN: TGradLineListView;
Panel6: TPanel;
btnGuageDef: TSpeedButton;
lblTPrice: TLabel;
edtOrderCode: TEdit;
lblOrderCode: TLabel;
edtMakPrice: TEx2NumEdit;
lblMakerPrice: TLabel;
edtSequalNo: TEdit;
lblSequalNo: TLabel;
btnPaper: TBitBtn;
cbxReportID: TComboBox;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TabControlChanging(Sender: TObject; var AllowChange: Boolean);
procedure ControlChange(Sender: TObject);
procedure ControlExit(Sender: TObject);
procedure edtNoteKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure edtDateKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure btnNewClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject);
procedure ckbNewClick(Sender: TObject);
procedure btnExitClick(Sender: TObject);
procedure rdoGroupByClick(Sender: TObject);
procedure tabsGroupChange(Sender: TObject);
procedure cbxGuageDropDown(Sender: TObject);
procedure cbxStkChange(Sender: TObject);
procedure cbxMatInDropDown(Sender: TObject);
procedure cbxMatInChange(Sender: TObject);
procedure cbxInputDropDown(Sender: TObject);
procedure cbxInputChange(Sender: TObject);
procedure btnPaperClick(Sender: TObject);
procedure btnMatQryClick(Sender: TObject);
procedure btnOrdDeliveryClick(Sender: TObject);
procedure cbxGuageChange(Sender: TObject);
procedure cbxSuplierDropDown(Sender: TObject);
procedure cbxSuplierChange(Sender: TObject);
procedure cbxMakerDropDown(Sender: TObject);
procedure cbxMakerChange(Sender: TObject);
procedure btnCaculateClick(Sender: TObject);
procedure btnGuageDefClick(Sender: TObject);
private
{ Private declarations }
function ReturnValueToVariable(lcP: PINVENTORY; CtrlList: PCONTROL_LIST; Msg: Boolean): Boolean;
procedure SetData(Item: Pointer);
procedure SetNull;
function ErrorCheck(Item: PINVENTORY): Integer;
function UpdateProc(UpdateListList: TList): Boolean;
procedure UpdateCheck;
procedure SetCopy;
//////////////////////////////////////////////////////
//////////////////////////////////////////////////////
//////////////////////////////////////////////////////
procedure Read_IOChangedList;
Function Set_QueryedList(sList: TList): TList;
procedure CreateTabs_ByGroup(rdoIndex: integer; sList: TList);
procedure Set_QryList_FromTabs(iTab: integer; FGroupList: TList);
Function CheckViewData(lcPA: Pointer; rdoTitleIndex,TabIndex: integer): boolean;
procedure SetListView;
function SetListColumn(sListView: TGradLineListView): Integer;
procedure MakeItemCaption(Item: TListItem);
procedure set_tmpdata(i: integer; lcp: PINVENTORY; agp: PUnDeliveryOnTime);
procedure SetMultilingual;
public
{ Public declarations }
default_suplier: integer;
default_issuepaper: string;
default_ioid: string;
default_inmanid: string;
default_stkid: string;
procedure SetNew(Index: Integer);
function RECExists(RecID: LongInt): Boolean;
Procedure Excel_StockInList(sList: TList; iReport: Integer);
protected
{ Protected }
function GetTabCaption(Item: Pointer): string; override;
procedure SetKomoku(Item: Pointer); override;
end;
var
frmMatIN: TfrmMatIN;
FExitSkip: boolean;
MatRID: LongInt;
//////////////////////
FMatIOList,
FQueryList: TList;
FListViewClear,
FOnMakeItemCaption: Boolean;
FSelectedItem: TListItem;
FColCnt: Integer;
/////////////////////
FGroupValue: array[0..120000] of variant; //-- TabControl tabs group value
sFDate,sEDate: TDateTime;
implementation
uses Main, InvDM, QryMaterial, QryOrderDelivery, InSuplier;
{$R *.dfm}
procedure TfrmMatIN.FormCreate(Sender: TObject);
var ix: integer;
View: TINVENTORY;
begin
inherited;
Top := frmMain.Height;
Left := 0;
Width := Screen.Width;
Height := Screen.Height-(frmMain.Height+20);
/////////////////////////////
FMatIOList := TList.Create;
FMatIOList.Clear;
FQueryList := TList.Create;
FQueryList.Clear;
IX := 0;
InitCtrlList(edtIssPaperNO, IX, Longint(@View.ISS_PAPERNO)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtINPaperNo, IX, Longint(@View.PAPERNO)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtDate, IX, Longint(@View.date)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtSuplierCode, IX, Longint(@View.SUP_CD)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtInvoiceNo, IX, Longint(@View.INVOICE_NO)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtMoldID, IX, Longint(@View.ODR_RID)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtPartID, IX, Longint(@View.PAT_RID)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtSequalNo, IX, Longint(@View.SEQUAL_NO)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtMatCode, IX, Longint(@View.MAT_RID)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtMatName, IX, Longint(@View.MAT_NM)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtGuageID, IX, Longint(@View.GUAGE_ID)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtWeight, IX, Longint(@View.QUANTITY)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtPrice, IX, Longint(@View.UNT_PRICE)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtMakPrice, IX, Longint(@View.MAK_PRICE)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtMakerCode, IX, Longint(@View.MAK_CD)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtStkID, IX, Longint(@View.stk_id)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtMatInID, IX, Longint(@View.INOUT_ID)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtInputEmpID, IX, Longint(@View.INPUT_EMPID)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtOrderCode, IX, Longint(@View.HAT_CODE)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtOrderSerial, IX, Longint(@View.HAT_RID)-Longint(@View), nil,nil);
Inc(IX);
InitCtrlList(edtNote, 99, Longint(@View.NOTE)-Longint(@View), nil,nil);
PostCtrlList;
SetMultilingual;
SetNull;
end;
procedure TfrmMatIN.FormShow(Sender: TObject);
begin
Top := frmMain.Height;
Left := 0;
Width := Screen.Width;
Height := Screen.Height-(frmMain.Height+20);
cbxReportID.ItemIndex := 0;
TabControl.Tabs.Clear;
SetNew(-1);
if TabControl.Tabs.Count > 0 then SelectTabIndex(0);
//////////////////////////////////////////////////////
sFDate := Now;
sEDate := Now+1;
dm_Inventory.Read_IOHistory(FMatIOList,trim(edtStkID.Text),0,sFDate,sEDate);
Set_QueryedList(FQueryList);
CreateTabs_ByGroup(rdoGroupBy.ItemIndex,FQueryList);
tabsGroupChange(Self);
end;
procedure TfrmMatIN.FormDestroy(Sender: TObject);
begin
//
end;
procedure TfrmMatIN.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var UpdateListList, List: TList;
begin
UpdateListList := GetUpdateListList;
if (UpdateListList.Count>0)then begin
List := UpdateListList[0];
if (List.Count=0) then Exit;
if ErrorCheck(Selected) <> 0 then begin
CanClose := False;
Exit;
end;
UpdateProc(UpdateListList);
TabControl.Tabs.Clear;
end;
dm_Inventory.Delete_NullMaterial;
end;
procedure TfrmMatIN.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//frmInvHistory.ReReadProc(True);
dm_Inventory.ListFreeMemory(FMatIOList);
Action := caHide;
end;
procedure TfrmMatIN.ControlChange(Sender: TObject);
var CtrlList: PCONTROL_LIST;
lcP: PINVENTORY;
WRID: LongInt;
PInputID: string;
T_price: Double;
begin
if OnTabChange then Exit;
if Selected = nil then Exit;
lcP := Selected;
try CtrlList := GetCtrlListTarget(Sender as TWinControl);
except
Exit;
end;
if CtrlList = nil then Exit;
if not FOnUndo then SetUndoBuffer(Sender as TWinControl);
SetUpdateList(lcP^.REC_ID, CtrlList^.Address, CtrlList^.UpdateIndex, 0, lcP);
//////////////////////////////////
if Sender = edtStkID then begin
edtStkName.Text := dm_Inventory.GetStockName(trim(edtStkID.Text));
end;
if Sender = edtMatInID then begin
edtInIDName.Text := dm_Inventory.Get_IOIDName(trim(edtMatInID.Text),1);
end;
if Sender = edtInputEmpID then begin
edtInputEmpName.Text := dm_Inventory.Get_EmpName(trim(edtInputEmpID.Text));
end;
if Sender = edtMatCode then begin
WRID := dm_Inventory.GetMaterialRID(TEdit(Sender).Text);
edtMatName.Text := dm_Inventory.GetMaterialName(WRID);
lblUType.Caption := dm_Inventory.GetUnitTypeName(WRID);
//////////////////////////
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -