📄 unit_invmanage.pas
字号:
unit Unit_InvManage;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, dxExEdtr, dxDBTLCl, dxGrClms, dxDBCtrl, dxDBGrid, dxTL, dxCntner,
cxGraphics, cxControls, cxContainer, cxEdit, cxTextEdit, cxMaskEdit,
cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, cxLabel,
cxDBLabel, cxGroupBox, cxRadioGroup, Menus, StdCtrls, Buttons, cxPC, DB,
ADODB, ExtCtrls, TeeProcs, TeEngine, Chart, DbChart, Grids, DBGrids,
ComCtrls, cxCheckBox, cxCheckComboBox, cxMemo, cxCheckListBox, cxListBox,
dxfOutlookBar, cxCalendar, RzPanel, RzTabs
;
type
TForm_Inventory = class(TForm)
PopupMenu: TPopupMenu;
N1: TMenuItem;
N4: TMenuItem;
N2: TMenuItem;
N5: TMenuItem;
N3: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N11: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N12: TMenuItem;
PC_Basic: TPageControl;
dsQueryInv: TDataSource;
QueryInv: TADOQuery;
Price_PM: TPopupMenu;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
TranData: TADODataSet;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
DS_TranData: TDataSource;
RzPanel1: TRzPanel;
GroupBox2: TGroupBox;
RB_QT: TcxRadioButton;
RB_HK: TcxRadioButton;
RB_NK: TcxRadioButton;
RB_WX: TcxRadioButton;
RzPanel2: TRzPanel;
GroupBox3: TGroupBox;
LCB_ProductCode: TcxLookupComboBox;
cxDBLabel1: TcxDBLabel;
cxDBLabel2: TcxDBLabel;
cxDBLabel3: TcxDBLabel;
cxDBLabel4: TcxDBLabel;
cxDBLabel5: TcxDBLabel;
cxDBLabel6: TcxDBLabel;
cxDBLabel7: TcxDBLabel;
cxDBLabel8: TcxDBLabel;
cxDBLabel9: TcxDBLabel;
cxDBLabel10: TcxDBLabel;
cxDBLabel11: TcxDBLabel;
cxDBLabel12: TcxDBLabel;
cxDBLabel14: TcxDBLabel;
cxDBLabel15: TcxDBLabel;
LSPrice_Label: TcxDBLabel;
cxLabel1: TcxLabel;
cxLabel2: TcxLabel;
cxLabel3: TcxLabel;
cxLabel4: TcxLabel;
cxLabel5: TcxLabel;
cxLabel6: TcxLabel;
cxLabel7: TcxLabel;
cxLabel8: TcxLabel;
cxLabel9: TcxLabel;
cxLabel10: TcxLabel;
cxLabel11: TcxLabel;
cxLabel12: TcxLabel;
cxLabel13: TcxLabel;
cxLabel14: TcxLabel;
cxLabel15: TcxLabel;
cxLabel16: TcxLabel;
ColorListBox: TcxListBox;
SizeListBox: TcxListBox;
RzPageControl1: TRzPageControl;
TabSheet1: TRzTabSheet;
CustStateList: TdxfOutlookBar;
AllowSaleCust: TdxfOutlookGroup;
AllowSaleCustList: TcxCheckListBox;
ReturnCust: TdxfOutlookGroup;
ReturnCustlist: TcxCheckListBox;
ForbidSaleCust: TdxfOutlookGroup;
ForbidSaleCustList: TcxCheckListBox;
NoSaleCust: TdxfOutlookGroup;
NoSaleCustList: TcxCheckListBox;
TabSheet2: TRzTabSheet;
GroupBox4: TGroupBox;
TotalSdate: TcxDateEdit;
cxLabel17: TcxLabel;
TotalEdate: TcxDateEdit;
cxLabel18: TcxLabel;
dxDBGrid1: TdxDBGrid;
dxDBGrid1Column1: TdxDBGridColumn;
dxDBGrid1Column2: TdxDBGridColumn;
dxDBGrid1Column3: TdxDBGridColumn;
dxDBGrid1Column4: TdxDBGridColumn;
dxDBGrid1Column6: TdxDBGridMaskColumn;
dxDBGrid1Column5: TdxDBGridMaskColumn;
dxDBGrid1Column7: TdxDBGridMaskColumn;
dxDBGrid1Column8: TdxDBGridMaskColumn;
dxDBGrid1Column9: TdxDBGridCurrencyColumn;
dxDBGrid1Column10: TdxDBGridMaskColumn;
dxDBGrid1Column11: TdxDBGridCurrencyColumn;
dxDBGrid1Column14: TdxDBGridMaskColumn;
dxDBGrid1Column12: TdxDBGridMaskColumn;
dxDBGrid1Column13: TdxDBGridCurrencyColumn;
dxDBGrid1Column15: TdxDBGridCurrencyColumn;
dxDBGrid1Column16: TdxDBGridMaskColumn;
dxDBGrid1Column17: TdxDBGridCurrencyColumn;
dxDBGrid1Column18: TdxDBGridMaskColumn;
dxDBGrid1Column19: TdxDBGridMaskColumn;
GroupBox1: TGroupBox;
GroupBox5: TGroupBox;
cxCheckBox1: TcxCheckBox;
cxCheckBox2: TcxCheckBox;
cxCheckBox3: TcxCheckBox;
cxCheckBox4: TcxCheckBox;
cxCheckBox5: TcxCheckBox;
cxCheckBox6: TcxCheckBox;
cxCheckBox7: TcxCheckBox;
cxCheckBox8: TcxCheckBox;
cxCheckBox9: TcxCheckBox;
cxCheckBox10: TcxCheckBox;
cxDateEdit1: TcxDateEdit;
cxCheckBox11: TcxCheckBox;
cxListBox1: TcxListBox;
procedure LCB_ProductCodePropertiesChange(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure cxTabSheet1Show(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure QueryInvAfterOpen(DataSet: TDataSet);
procedure FormCreate(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure AllowSaleCustListDblClick(Sender: TObject);
procedure ForbidSaleCustListDblClick(Sender: TObject);
procedure N22Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_Inventory: TForm_Inventory;
implementation
uses
DataUnit, PublicUnit;
{$R *.dfm}
procedure TForm_Inventory.LCB_ProductCodePropertiesChange(Sender: TObject);
begin
IF LCB_ProductCode.Text <> '' Then
Begin
QueryInv.Locate('cInvCode',LCB_ProductCode.Text,[]);
ColorListBox.Clear ;
ColorListBox.Items.AddStrings(GetColor(LCB_ProductCode.Text));
SizeListBox.Clear ;
SizeListBox.Items.AddStrings(GetSize(LCB_ProductCode.Text));
AllowSaleCustList.Items := GetAllowSale(LCB_ProductCode.Text).Items;
AllowSaleCust.Caption := '在销客户 (' + IntToStr(AllowSaleCustList.Items.count)+')' ;
ReturnCustList.Items := GetReturnCust(LCB_ProductCode.Text).items;
ReturnCust.Caption := '调货客户 (' + IntToStr(ReturnCustList.Items.count)+')' ;
NoSaleCustList.Items := GetNoSlaeCust(LCB_ProductCode.Text).Items;
NoSaleCust.Caption := '未销客户 (' + IntToStr(NoSaleCustList.Items.count)+')' ;
ForbidSaleCustList.Items := GetForbidCust(LCB_ProductCode.Text).Items;
ForbidSaleCust.Caption := '失效客户 (' + IntToStr(ForbidSaleCustList.Items.count)+')' ;
End;
end;
procedure TForm_Inventory.CheckBox1Click(Sender: TObject);
begin
IF Form_Data.Table_Manage.Lookup('MName',UserName,'M011') = 0 Then
Begin
Showmessage('你无权执行此项操作,请咨询系统管理员!');
Exit;
End;
end;
procedure TForm_Inventory.N1Click(Sender: TObject);
Var
AutoID:String;
begin
IF Form_Data.Table_Manage.Lookup('MName',UserName,'M012') = 0 Then
Begin
Showmessage('你无权执行此项操作,请咨询系统管理员!');
Exit;
End;
AutoID := Form_Data.Table__InventoryForCust.FieldByName('AutoID').AsString;
Form_Data.SQL.Close;
Form_Data.SQL.SQL.Clear;
Form_Data.SQL.SQL.Add('UPDATE SA_CusUPrice');
Form_Data.SQL.SQL.Add('SET dStartDate = dCreateDate,dEndDate = GetDate(),cMemo = CONVERT(nvarchar(10), GETDATE() -1, 102)+ ''强制限销!''+'''+ UserName +'''');
Form_Data.SQL.SQL.Add('WHERE AutoID = '+ AutoID +'');
Form_Data.SQL.ExecSQL;
Form_Data.Table__SA_CusUPrice.Active := False;
Form_Data.Table__SA_CusUPrice.Active := True;
Form_Data.Table__InventoryForCust.Active := False;
Form_Data.Table__InventoryForCust.Active := True;
Form_Data.Table__InventoryForCust.Locate('AutoID',AutoID,[])
end;
procedure TForm_Inventory.N2Click(Sender: TObject);
Var
sInvCode:String;
begin
IF Form_Data.Table_Manage.Lookup('MName',UserName,'M012') = 0 Then
Begin
Showmessage('你无权执行此项操作,请咨询系统管理员!');
Exit;
End;
sInvCode := Form_Data.Table__Inventory.FieldByName('cInvCode').AsString;
Form_Data.SQL.Close;
Form_Data.SQL.SQL.Clear;
Form_Data.SQL.SQL.Add('UPDATE SA_CusUPrice');
Form_Data.SQL.SQL.Add('SET dStartDate = dCreateDate,dEndDate = GetDate(),cMemo = CONVERT(nvarchar(10), GETDATE() -1, 102)+ ''强制限销!''+'''+ UserName +'''');
Form_Data.SQL.SQL.Add('WHERE cInvCode = '''+ sInvCode +'''');
Form_Data.SQL.ExecSQL;
Form_Data.Table__SA_CusUPrice.Active := False;
Form_Data.Table__SA_CusUPrice.Active := True;
Form_Data.Table__InventoryForCust.Active := False;
Form_Data.Table__InventoryForCust.Active := True;
end;
procedure TForm_Inventory.N3Click(Sender: TObject);
Var
sInvCode:String;
begin
IF Form_Data.Table_Manage.Lookup('MName',UserName,'M012') = 0 Then
Begin
Showmessage('你无权执行此项操作,请咨询系统管理员!');
Exit;
End;
sInvCode := Form_Data.Table__Inventory.FieldByName('cInvCode').AsString;
Form_Data.SQL.Close;
Form_Data.SQL.SQL.Clear;
Form_Data.SQL.SQL.Add('UPDATE SA_CusUPrice');
Form_Data.SQL.SQL.Add('SET dStartDate = dCreateDate,dEndDate = GetDate(),cMemo = CONVERT(nvarchar(10), GETDATE() -1, 102)+ ''强制限销!''+'''+ UserName +'''');
Form_Data.SQL.SQL.Add('WHERE cInvCode = '''+ sInvCode +'''');
Form_Data.SQL.ExecSQL;
Form_Data.Table__InventoryForCust.Active := False;
Form_Data.Table__InventoryForCust.Active := True;
Form_Data.SQL.Close;
Form_Data.SQL.SQL.Clear;
Form_Data.SQL.SQL.Add('UPDATE Inventory');
Form_Data.SQL.SQL.Add('SET bSale = 0');
Form_Data.SQL.SQL.Add('WHERE cInvCode = '''+ sInvCode +'''');
Form_Data.SQL.ExecSQL;
Form_Data.Table__SA_CusUPrice.Active := False;
Form_Data.Table__SA_CusUPrice.Active := True;
Form_Data.Table__Inventory.Active := False;
Form_Data.Table__Inventory.Active := True;
Form_Data.Table__InventoryForCust.Active := False;
Form_Data.Table__InventoryForCust.Active := True;
Form_Data.Table__Inventory.Locate('cInvCode',sInvCode,[])
end;
procedure TForm_Inventory.N7Click(Sender: TObject);
Var
AutoID:String;
begin
IF Form_Data.Table_Manage.Lookup('MName',UserName,'M012') = 0 Then
Begin
Showmessage('你无权执行此项操作,请咨询系统管理员!');
Exit;
End;
AutoID := Form_Data.Table__InventoryForCust.FieldByName('AutoID').AsString;
Form_Data.SQL.Close;
Form_Data.SQL.SQL.Clear;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -