?? unit_productmanage.pas
字號(hào):
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('數(shù)據(jù)庫(kù)連接不成功,請(qǐng)檢查網(wǎng)絡(luò)配置!');
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 := '數(shù)據(jù)庫(kù)連接成功!請(qǐng)登陸商品管理系統(tǒng)';
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('你無(wú)權(quán)執(zhí)行此項(xiàng)操作,請(qǐng)咨詢系統(tǒng)管理員!');
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('你無(wú)權(quán)執(zhí)行此項(xiàng)操作,請(qǐng)咨詢系統(tǒng)管理員!');
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('你無(wú)權(quán)執(zhí)行此項(xiàng)操作,請(qǐng)咨詢系統(tǒng)管理員!');
Exit;
End;
IF Form_Data.SQL_Plan.FieldByName('已計(jì)劃').AsInteger = 0 Then
Begin
IF MessageDlg('確認(rèn)要?jiǎng)h除此計(jì)劃?',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('計(jì)劃單號(hào)').AsString +'''');
Form_Data.SQL.ExecSQL;
End Else Exit;
End Else Begin
Showmessage('該計(jì)劃已有明細(xì)信息, 不能刪除!');
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('你無(wú)權(quán)執(zhí)行此項(xiàng)操作,請(qǐng)咨詢系統(tǒng)管理員!');
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('你無(wú)權(quán)執(zhí)行此項(xiàng)操作,請(qǐng)咨詢系統(tǒng)管理員!');
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('你無(wú)權(quán)執(zhí)行此項(xiàng)操作,請(qǐng)咨詢系統(tǒng)管理員!');
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('你無(wú)權(quán)執(zhí)行此項(xiàng)操作,請(qǐng)咨詢系統(tǒng)管理員!');
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('你無(wú)權(quán)執(zhí)行此項(xiàng)操作,請(qǐng)咨詢系統(tǒng)管理員!');
Exit;
End;
PBNO := Form_Data.SQL_Plan.FieldValues['計(jì)劃序號(hào)'];
dStartDate := Form_Data.SQL_Plan.FieldValues['計(jì)劃起日'];
dEndDate := Form_Data.SQL_Plan.FieldValues['計(jì)劃止日'];
cProductCode := Form_Data.SQL_Plan.FieldValues['商品代碼'];
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -