📄 unit_productmanage.pas
字号:
unit Unit_ProductManage;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, XPMan, cxGraphics, cxControls, dxStatusBar, Grids,
DBGrids, cxFilterControl, cxDBFilterControl, cxStyles, cxCustomData,
cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel,
cxClasses, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxGrid, dxBarExtDBItems, dxBar, ToolWin, ComCtrls,
dxExEdtr, dxDBGrid, dxTL, dxDBCtrl, dxCntner, StdCtrls, Buttons,
cxContainer, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, ExtCtrls, cxRadioGroup, cxGroupBox,
XPMenu;
type
TForm_ProductManage = class(TForm)
Main_Menu: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
StatusBar_Sys: TdxStatusBar;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
ToolBar1: TToolBar;
PopupMenu_Plan: TPopupMenu;
N15: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N18: TMenuItem;
N19: TMenuItem;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
N23: TMenuItem;
N24: TMenuItem;
N25: TMenuItem;
N26: TMenuItem;
N27: TMenuItem;
N28: TMenuItem;
N29: TMenuItem;
N30: TMenuItem;
N31: TMenuItem;
N32: TMenuItem;
N33: TMenuItem;
N34: TMenuItem;
N35: TMenuItem;
N36: TMenuItem;
N37: TMenuItem;
GroupBox_Login: TGroupBox;
Label_User: TLabel;
Label_Pass: TLabel;
Edit_Pass: TEdit;
BitBtn_OK: TBitBtn;
BitBtn_Cancel: TBitBtn;
N38: TMenuItem;
N39: TMenuItem;
N40: TMenuItem;
N41: TMenuItem;
LCB_User: TcxLookupComboBox;
DBGrid_Plan: TdxDBGrid;
DBGrid_PlanColumn1: TdxDBGridMaskColumn;
DBGrid_PlanColumn2: TdxDBGridMaskColumn;
DBGrid_PlanColumn3: TdxDBGridMaskColumn;
DBGrid_PlanColumn4: TdxDBGridMaskColumn;
DBGrid_PlanColumn5: TdxDBGridColumn;
DBGrid_PlanColumn6: TdxDBGridMaskColumn;
DBGrid_PlanColumn7: TdxDBGridMaskColumn;
DBGrid_PlanColumn8: TdxDBGridMaskColumn;
DBGrid_PlanColumn9: TdxDBGridMaskColumn;
DBGrid_PlanColumn10: TdxDBGridMaskColumn;
DBGrid_PlanColumn11: TdxDBGridMaskColumn;
DBGrid_PlanColumn12: TdxDBGridMaskColumn;
DBGrid_PlanColumn13: TdxDBGridMaskColumn;
DBGrid_PlanColumn14: TdxDBGridMaskColumn;
DBGrid_PlanColumn15: TdxDBGridMaskColumn;
DBGrid_PlanColumn16: TdxDBGridMaskColumn;
DBGrid_PlanColumn17: TdxDBGridMaskColumn;
DBGrid_PlanColumn18: TdxDBGridMaskColumn;
DBGrid_PlanColumn19: TdxDBGridMaskColumn;
N42: TMenuItem;
N43: TMenuItem;
XPMenu1: TXPMenu;
procedure N3Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N19Click(Sender: TObject);
procedure N26Click(Sender: TObject);
procedure N12Click(Sender: TObject);
procedure N13Click(Sender: TObject);
procedure N33Click(Sender: TObject);
procedure PopupMenu_PlanPopup(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure N35Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N37Click(Sender: TObject);
procedure BitBtn_CancelClick(Sender: TObject);
procedure BitBtn_OKClick(Sender: TObject);
procedure N41Click(Sender: TObject);
procedure N39Click(Sender: TObject);
procedure N43Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_ProductManage: TForm_ProductManage;
implementation
uses Unit_OrderCheck, Unit_Data, Unit_ProductForCust, Unit_ProductAppend, Unit_PlanAppend,
Unit_PlanChang,Unit_PlansManage, Unit_ReturnCheck,Unit_PlanCustList,Unit_SalePrint,
Unit_PrintSetup, Unit_InvManage, Unit_UserManage;
{$R *.dfm}
procedure TForm_ProductManage.N3Click(Sender: TObject);
begin
Try
Form_Data.Conn_UF.Connected := True;
except
ShowMessage('数据库连接不成功,请检查网络配置!');
exit;
end;
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');
Form_Data.SQL.SQL.Add('WHERE dEndDate < CONVERT (nvarchar(10), GETDATE() , 102)');
Form_Data.SQL.SQL.Add('AND dStartDate Is Null');
Form_Data.SQL.ExecSQL;
Form_Data.SQL.Close;
Form_Data.SQL.SQL.Clear;
Form_Data.SQL.SQL.Add('UPDATE SA_CusUPrice');
Form_Data.SQL.SQL.Add('SET bRetrun = 0');
Form_Data.SQL.SQL.Add('WHERE dRetrunDate < CONVERT (nvarchar(10), GETDATE() , 102)');
Form_Data.SQL.ExecSQL;
Form_Data.Table__Productlable.Active := True ;
Form_Data.Table__ProductSupply.Active := True ;
Form_Data.Table__ProductType.Active := True ;
Form_Data.Table__Inventory.Active := True ;
Form_Data.Table__SA_CusUPrice.Active := True ;
Form_Data.Table__ComputationGroup.Active := True ;
Form_Data.Table__ComputationUnit.Active := True ;
Form_Data.Table__Plan.Active := True ;
Form_Data.Table__Plans.Active := True ;
Form_Data.SQL_Plan.Active := True ;
Form_Data.SQL_Plans.Active := True ;
Form_Data.SQL_Person.Active := True ;
Form_Data.Table__WeiSDJ.Active := True ;
Form_Data.Table__WeiSDJs.Active := True ;
Form_Data.Table__WeiSRD.Active := True ;
Form_Data.Table__WeiSRDs.Active := True ;
Form_Data.Table__PlanPerson.Active := True ;
Form_Data.Table__PlanCustLevel.Active := True ;
Form_Data.SQL_PlanCustList.Active := True ;
Form_Data.SQL_PlanCustLists.Active := True ;
// Form_Data.Table__SaleSUM.Active := True ;
Form_Data.Table__ListType.Active := True ;
Form_Data.Table_SalePrint.Active := True ;
Form_Data.Table_SalePrints.Active := True ;
Form_Data.Table__InventoryForCust.Active := True ;
Form_Data.SQL_Price.Active := True ;
Form_Data.Table__ProductForCust.Active := True ;
Form_Data.Table__Price.Active := True ;
Form_Data.Table__Prices.Active := True ;
Form_Data.Table_User.Active := True ;
Form_Data.Table_Manage.Active := True ;
Form_Data.tPriceType.Active := True ;
GroupBox_Login.Visible := True;
StatusBar_Sys.Panels[0].Text := '数据库连接成功!请登陆商品管理系统';
end;
procedure TForm_ProductManage.N5Click(Sender: TObject);
begin
Form_ProductForCust.show;
end;
procedure TForm_ProductManage.N7Click(Sender: TObject);
begin
IF Form_Data.Table_Manage.Lookup('MName',UserName,'M010') = 0 Then
Begin
Showmessage('你无权执行此项操作,请咨询系统管理员!');
Exit;
End;
Form_ProductAppend.Show;
end;
procedure TForm_ProductManage.N8Click(Sender: TObject);
begin
IF Form_Data.Table_Manage.Lookup('MName',UserName,'M000') = 0 Then
Begin
Showmessage('你无权执行此项操作,请咨询系统管理员!');
Exit;
End;
Form_PlanAppend.Show;
end;
procedure TForm_ProductManage.FormShow(Sender: TObject);
begin
StatusBar_Sys.Panels[0].Width := StatusBar_Sys.Width - 340;
end;
procedure TForm_ProductManage.FormResize(Sender: TObject);
begin
StatusBar_Sys.Panels[0].Width := StatusBar_Sys.Width - 340;
end;
procedure TForm_ProductManage.N17Click(Sender: TObject);
begin
IF Form_Data.Table_Manage.Lookup('MName',UserName,'M002') = 0 Then
Begin
Showmessage('你无权执行此项操作,请咨询系统管理员!');
Exit;
End;
IF Form_Data.SQL_Plan.FieldByName('已计划').AsInteger = 0 Then
Begin
IF MessageDlg('确认要删除此计划?',mtInformation,[mbOK,mbCancel],0) = mrOk Then
Begin
Form_Data.SQL.Close;
Form_Data.SQL.SQL.Clear;
Form_Data.SQL.SQL.Add('Delete a__Plan');
Form_Data.SQL.SQL.Add('WHERE PBName = '''+ Form_Data.SQL_Plan.FieldByName('计划单号').AsString +'''');
Form_Data.SQL.ExecSQL;
End Else Exit;
End Else Begin
Showmessage('该计划已有明细信息, 不能删除!');
Exit;
End;
Form_Data.SQL_Plan.Active := False ;
Form_Data.SQL_Plan.Active := True ;
end;
procedure TForm_ProductManage.N15Click(Sender: TObject);
begin
IF Form_Data.Table_Manage.Lookup('MName',UserName,'M000') = 0 Then
Begin
Showmessage('你无权执行此项操作,请咨询系统管理员!');
Exit;
End;
Form_PlanAppend.Show;
end;
procedure TForm_ProductManage.N16Click(Sender: TObject);
begin
IF Form_Data.Table_Manage.Lookup('MName',UserName,'M001') = 0 Then
Begin
Showmessage('你无权执行此项操作,请咨询系统管理员!');
Exit;
End;
Form_PlanChang.Show;
end;
procedure TForm_ProductManage.N20Click(Sender: TObject);
begin
IF Form_Data.Table_Manage.Lookup('MName',UserName,'M001') = 0 Then
Begin
Showmessage('你无权执行此项操作,请咨询系统管理员!');
Exit;
End;
Form_PlanChang.Show;
end;
procedure TForm_ProductManage.N24Click(Sender: TObject);
begin
Form_Data.SQL_Plan.Active := False ;
Form_Data.SQL_Plan.Active := True ;
end;
procedure TForm_ProductManage.N19Click(Sender: TObject);
begin
IF Form_Data.Table_Manage.Lookup('MName',UserName,'M004') = 0 Then
Begin
Showmessage('你无权执行此项操作,请咨询系统管理员!');
Exit;
End;
Form_PlansManage.Show;
end;
procedure TForm_ProductManage.N26Click(Sender: TObject);
Var
PBNO: Integer;
dStartDate,dEndDate,cProductCode,cCustCode: string;
begin
IF Form_Data.Table_Manage.Lookup('MName',UserName,'M003') = 0 Then
Begin
Showmessage('你无权执行此项操作,请咨询系统管理员!');
Exit;
End;
PBNO := Form_Data.SQL_Plan.FieldValues['计划序号'];
dStartDate := Form_Data.SQL_Plan.FieldValues['计划起日'];
dEndDate := Form_Data.SQL_Plan.FieldValues['计划止日'];
cProductCode := Form_Data.SQL_Plan.FieldValues['商品代码'];
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -