?? 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 + -