?? ss_txpkccsh.pas

?? 省級集郵品管理ERP
?? PAS
?? 第 1 頁 / 共 3 頁
字號:
12 3 下一頁
{*******************************************************}
{                                                       }
{                  零枚票庫存初始化                     }
{                                                       }
{            中軟金馬公司版權所有。2002.12前            }
{                                                       }
{            編制：中軟金馬郵資票品項目開發組           }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模塊在省級系統管理模塊里面調用。

*)
unit SS_TXPKCCSH;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, SqlStrings, Db, DBTables, RxQuery, RXCtrls,
  StdCtrls, Buttons, ExtCtrls, ModiPanel, Grids, DBGrids, RXDBCtrl, DBCtrls, ClipBrd,
  FieldComboBox, ComCtrls, EHGrids, DBGridEh, DBGridEhExport;

type
  Tfrm_TXPKCCSH = class(TForm)
    pnl_Init: TPanel;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    edt_Locate: TEdit;
    RxLbl_Title: TRxLabel;
    DWMC: TLabel;
    ds_init: TDataSource;
    pnl_Title: TPanel;
    pnl_Bottom: TPanel;
    bbtn_Cancel: TBitBtn;
    bbtn_Save: TBitBtn;
    bbtn_Edit: TBitBtn;
    bbtn_Find: TBitBtn;
    bbtn_Exit: TBitBtn;
    bbtn_Replace: TBitBtn;
    qry_init: TQuery;
    upSQL_Init: TUpdateSQL;
    qry_Tmp: TQuery;
    fcb_KF: TFieldComboBox;
    pnl_Hint: TPanel;
    lbl_Search: TLabel;
    bbtn_Print: TBitBtn;
    pgb_State: TProgressBar;
    lbl_State: TLabel;
    qry_initZH: TStringField;
    qry_initTMC: TStringField;
    qry_initSL: TFloatField;
    qry_initZK: TFloatField;
    qry_initJSJ: TFloatField;
    qry_initKWH: TStringField;
    qry_initTDM: TStringField;
    qry_initTEMP: TFloatField;
    qry_initFXRQ: TDateTimeField;
    sp_Init: TStoredProc;
    qry_initMZJE: TFloatField;
    qry_initSJJE: TFloatField;
    rxdb_Init: TDBGridEh;
    qry_initJJ: TFloatField;
    qry_initXJ: TFloatField;
    qry_initPPDM: TStringField;
    bbtn_Add: TBitBtn;
    qry_initTPMZ: TFloatField;
    qry_initTPSJ: TFloatField;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure bbtn_CancelClick(Sender: TObject);
    procedure bbtn_FindClick(Sender: TObject);
    procedure qry_initSLChange(Sender: TField);
    procedure rxdb_Init1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure bbtn_EditClick(Sender: TObject);
    procedure bbtn_SaveClick(Sender: TObject);
    procedure qry_initZKChange(Sender: TField);
    procedure qry_initJSJChange(Sender: TField);
    procedure qry_initKWHChange(Sender: TField);
    procedure bbtn_ReplaceClick(Sender: TObject);
    procedure edt_LocateKeyPress(Sender: TObject; var Key: Char);
    procedure qry_initBeforeInsert(DataSet: TDataSet);
    procedure qry_initBeforeDelete(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure qry_initGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure qry_initSetText(Sender: TField; const Text: string);
    procedure bbtn_PrintClick(Sender: TObject);
    procedure fcb_KFChange(Sender: TObject);
    procedure rxdb_InitDrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumnEh; State: TGridDrawState);
    procedure rxdb_InitGetFooterParams(Sender: TObject; DataCol,
      Row: Integer; Column: TColumnEh; AFont: TFont;
      var Background: TColor; var Alignment: TAlignment;
      State: TGridDrawState; var Text: string);
    procedure qry_initXJChange(Sender: TField);
    procedure bbtn_AddClick(Sender: TObject);
    procedure qry_initJJChange(Sender: TField);
  private
    { Private declarations }
    function Init_Public_Data: Boolean; {初始化公共數據}
    function Judge_Modify: Boolean; {判斷是否能夠進入修改狀態，即初始化日期是否設定，以及是否進入已經結束}

    function Show_Data: Boolean; {顯示初始化數據}

    procedure Add_Init_Data; {新增同一票品的不同進價}

    procedure Set_Data; {批量設置進價等}
    procedure Set_ZK(Value: Double); {批量設置折扣}
    procedure Set_JSJ(Value: Double; AGDZ: boolean = true); {批量設置結算價，固定值(true)or進價(false)}
    procedure Set_JJ1(Value: Double; Over_Write: Boolean); {批量設置進價，依據折扣計算}
    procedure Set_JJ2(Value: Double; Over_Write: Boolean); {批量設置進價，直接賦值}
    procedure Set_XJ(Over_Write: Boolean); {批量設置銷價}

    function Save_Init_Data: Boolean; {保存初始化數據}
    function Test_JJ: Boolean; {判斷進價是否存在相同的}
    function Test_XJ: Boolean; {測試銷價，是否在其他庫房中存在不同進價}

    function Update_Record: Boolean; {向數據庫中插入不為0的數據}
    function Delete_Record: Boolean; {從數據庫中刪除為0的記錄}
    function Call_StoreProc: Boolean; {調用存儲過程，更新其他表，本步驟不加在事務內，同時出錯不顯式提示}

    procedure Cancel_Init_Data; {取消保存初始化數據，恢復原來的狀態}
    procedure Set_State(State: Integer); {設置界面控件狀態}

    procedure DisJE(AType: Integer); {設置金額顯示，0－進價金額；1－銷價金額；2－面值金額}
  public
    { Public declarations }
  end;

function Show_TXPKCCSH: Boolean;

var
  frm_TXPKCCSH: Tfrm_TXPKCCSH;

  Edit_State: Integer; {指出當前處于的狀態，0：瀏覽，1：修改}
  Find_SQL: string;

implementation

{$R *.DFM}

{集郵票、零枚票、集郵品、市場購入票 庫存初始化模塊，使用外連接進行數據讀取，使用Query最后保存數據
調用四個查詢模塊進行票品代碼的查詢，使用四個批量設置模塊進行進價、銷價、折扣、結算價等的處理

 涉及數據庫表：
   集郵票品庫存(記帳員)（TYS_JYPPKC）
   集郵品品庫存(記帳員)（TYS_YPPKC）
   零枚票品庫存（TYS_TXPPKC）
   購入票品庫存(記帳員)（TYS_GRPPKC）

   系統基本信息表(郵資票品信息表)(TB_YZPPXXB)
   雜表（TGS_ZB）

   石玉琢 2001.09.26補}

uses
  Pub,SS_TXP_Init_PLSR, SS_TXP_Init_Search;


function Show_TXPKCCSH: Boolean;
begin
  with Tfrm_TXPKCCSH.Create(Application) do
  try
    if Init_Public_Data then
      ShowModal;
  finally
    free;
  end;
  Result := True;
end;

{判斷是否能夠進入修改狀態，即初始化日期是否設定，以及是否進入已經結束}
function Tfrm_TXPKCCSH.Judge_Modify: Boolean;
begin
  with qry_Tmp do
  begin
    Close;
    SQL.Text := 'Select ZFXZ from TGS_ZB where DM=''txp_csh_n''';
    Open;
    if Trim(FieldByName('ZFXZ').AsString) = '' then
    begin
      CHQMsgBox('初始化日期沒有設定！請進行初始化日期設定，然后才能夠進行庫存初始化！');
      Result := False;
      Exit;
    end;

    Close;
    SQL.Text := 'Select ZFXZ from TGS_ZB where DM=''txp_csh_y''';
    Open;
    if Trim(FieldByName('ZFXZ').AsString) = '' then
    begin
      CHQMsgBox('初始化日期沒有設定！請進行初始化日期設定，然后才能夠進行庫存初始化！');
      Result := False;
      Exit;
    end;

    Close;
    SQL.Text := 'Select ZFXZ from TGS_ZB where DM=''txp_csh_js''';
    Open;
    if (UpperCase(Trim(FieldByName('ZFXZ').AsString)) = 'YY') or
      (UpperCase(Trim(FieldByName('ZFXZ').AsString)) = 'Y') then
    begin
      CHQMsgBox('初始化已經完成，現在只能進行查看！');
      Result := False;
      Exit;
    end;
  end;
  Result := True;
end;

{-------------------------------------------------------------------------------}
{初始化公共數據}
function Tfrm_TXPKCCSH.Init_Public_Data: Boolean;
begin
  {添加庫房}
  with qry_Tmp do
  begin
    Close;
    SQL.Text := 'select a.KFDM,a.KFMC from TGS_KFB a,TGS_KFRYDZB b where a.KFDM=b.KFDM and b.YGDM=''' + VG_UserID + ''' order by a.KFDM';
    Open;

    if IsEmpty then
    begin
      CHQMsgBox('當前用戶沒有操作庫房的權限！');
      Result := False;
      Exit;
    end;

    fcb_KF.ClearAll;
    while not eof do
    begin
      fcb_KF.Items.Add(FieldByName('KFMC').AsString);
      fcb_KF.FieldItems.Add(FieldByName('KFDM').AsString);
      Next;
    end;
    fcb_KF.ItemIndex := 0
  end;
  Result := True;
end;

{設置界面控件狀態}
procedure Tfrm_TXPKCCSH.Set_State(State: Integer);
begin
  Edit_State := State;
  case State of
    0: {瀏覽} {}
      begin
        fcb_KF.Enabled := True;
        rxdb_Init.ReadOnly := True;
        bbtn_Find.Enabled := True;
        bbtn_Edit.Enabled := True;
        bbtn_Replace.Enabled := False;
        bbtn_Add.Enabled := False;
        bbtn_Save.Enabled := False;
        bbtn_Cancel.Enabled := False;
      end;
    1: {修改} {}
      begin
        fcb_KF.Enabled := False;
        rxdb_Init.ReadOnly := False;
        bbtn_Find.Enabled := False;
        bbtn_Edit.Enabled := False;
        bbtn_Replace.Enabled := True;
        bbtn_Add.Enabled := True;
        bbtn_Save.Enabled := True;
        bbtn_Cancel.Enabled := True;
      end;
    2: {只能看，不能進入任何修改狀態} {}
      begin
        fcb_KF.Enabled := True;
        rxdb_Init.ReadOnly := True;
        bbtn_Find.Enabled := True;
        bbtn_Edit.Enabled := False;
        bbtn_Replace.Enabled := False;
        bbtn_Add.Enabled := False;
        bbtn_Save.Enabled := False;
        bbtn_Cancel.Enabled := False;
      end;
  end;
end;

{-------------------------------------------------------------------------------}
{顯示初始化數據}
{其中PPDM讀出用來判斷以前在數據庫中是否存在該記錄，Temp用來判斷是否修改，決定是否保存}
function Tfrm_TXPKCCSH.Show_Data: Boolean;
var
  l_kfdm: string;
begin
  l_kfdm := fcb_KF.FieldString;

  with qry_init do
  begin
    Close;
    SQL.Text := 'select b.ZH, b.TMC, b.TPMZ, b.TPSJ, a.JJ, a.XJ, a.TS, a.ZK, a.JSJ, a.KWH, b.TDM, 0 Temp, a.PPDM, b.FXRQ, '#13#10 +
      'a.JJ*a.TS JJJE,a.XJ*a.TS XJJE from (Select KFDM,PPDM,JJ,XJ,TS,ZK,JSJ,KWH from TYS_TXPPKC where KFDM = ''' + l_kfdm + ''') a, TB_YZPPXXB b'#13#10 +
      'where a.PPDM(+) = b.TDM ' + Find_SQL + ' order by b.TDM';
    Open;
  end;
  Result := True;
end;

{-------------------------------------------------------------------------------}
{繪制DBGrid顏色，當庫存大于0，則改變顏色}
procedure Tfrm_TXPKCCSH.rxdb_Init1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
end;

{==========================輸入時實時控制輸入選項===============================}
{屏蔽DBGrid自動增加記錄的功能}
procedure Tfrm_TXPKCCSH.qry_initBeforeInsert(DataSet: TDataSet);
begin
  Abort;
end;

{屏蔽DBGrid自動刪除記錄的功能}
procedure Tfrm_TXPKCCSH.qry_initBeforeDelete(DataSet: TDataSet);
begin
  Abort;
end;

{-------------------------------------------------------------------------------}
{庫存改變的時候，如果大于0，則設置當前行為空色}
procedure Tfrm_TXPKCCSH.qry_initSLChange(Sender: TField);
var
  Old_Value: Integer;
begin
  if qry_initSL.AsInteger < 0 then
  begin
    CHQMsgBox('庫存數量不能為負！');
    Old_Value := 0;
    if qry_init.FieldByName('TDM').AsString <> '' then
    try
      Old_Value := qry_initSL.OldValue;
    except
    end;
    qry_initSL.AsInteger := Old_Value;
    Abort;
  end;
  qry_init.FieldByName('TEMP').AsInteger := 1;
  Qry_init.FieldByName('JJJE').AsFloat := Qry_init.FieldByName('JJ').AsFloat * Qry_init.FieldByName('TS').AsFloat;
  Qry_init.FieldByName('XJJE').AsFloat := Qry_init.FieldByName('XJ').AsFloat * Qry_init.FieldByName('TS').AsFloat;

end;

{-------------------------------------------------------------------------------}
{折扣}
procedure Tfrm_TXPKCCSH.qry_initZKChange(Sender: TField);
var
  Old_Value: Double;
begin
  {判斷折扣是否合法}
  if (qry_initZK.AsFloat < 0) or (qry_initZK.AsFloat > 100) then
  begin
    CHQMsgBox('折扣必須在0～100之間！');
    Old_Value := 0;
    if qry_init.FieldByName('PPDM').AsString <> '' then
    try
      Old_Value := qry_initZK.OldValue;
    except
    end;
    qry_initZK.OnChange := nil;
    qry_initZK.AsFloat := Old_Value;
    qry_initZK.OnChange := qry_initZKChange;
    Abort;
  end;

  qry_initJSJ.OnChange := nil;
  qry_init.FieldByName('JSJ').AsFloat := 0;
  qry_initJSJ.OnChange := qry_initJSJChange;

  qry_init.FieldByName('TEMP').AsInteger := 1;
end;
{-------------------------------------------------------------------------------}
{結算價}
procedure Tfrm_TXPKCCSH.qry_initJSJChange(Sender: TField);
var
  Old_Value: Double;
begin
  {判斷結算價是否合法}
  if qry_initJSJ.AsFloat < 0 then
  begin
    CHQMsgBox('結算價不能為負！');
    Old_Value := 0;
    if qry_init.FieldByName('PPDM').AsString <> '' then
    try
      Old_Value := qry_initJSJ.OldValue;
    except
    end;
    qry_initJSJ.OnChange := nil;
    qry_initJSJ.AsFloat := Old_Value;
    qry_initJSJ.OnChange := qry_initJSJChange;
    Abort;
  end;

  qry_initZK.OnChange := nil;
  qry_init.FieldByName('ZK').AsFloat := 0;
  qry_initZK.OnChange := qry_initZKChange;

  qry_init.FieldByName('TEMP').AsInteger := 1;
end;
{-------------------------------------------------------------------------------}
{顯示面值、售價、進價、銷價、結算價}
procedure Tfrm_TXPKCCSH.qry_initGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
  try
    Sender.AsFloat;
    if not Sender.IsNull then
      if Sender.Name = 'qry_initJJ' then
        Text := FormatFloat('#,##0.0000##', Sender.AsFloat / 100)
      else
        Text := FormatFloat('#,##0.00##', Sender.AsFloat / 100);
  except
  end;
end;
{保存進價、銷價、結算價}
procedure Tfrm_TXPKCCSH.qry_initSetText(Sender: TField;
  const Text: string);
begin
  Sender.AsFloat := strToFloat(Text) * 100;
end;

{-------------------------------------------------------------------------------}
{庫位號}
procedure Tfrm_TXPKCCSH.qry_initKWHChange(Sender: TField);
begin
  qry_init.FieldByName('TEMP').AsInteger := 1;
end;

{-------------------------------------------------------------------------------}
{新增同一票品的不同進價}
procedure Tfrm_TXPKCCSH.Add_Init_Data;
var
  l_ZH, l_TMC, l_KWH, l_TDM: string;
  l_TPMZ, l_TPSJ, l_XJ, l_ZK, l_JSJ: Double;
  //  l_JJ,l_TS,
  Before_Insert: TDataSetNotifyEvent;
begin
  with qry_Init do
  begin
    l_ZH := FieldByName('ZH').AsString;
    l_TMC := FieldByName('TMC').AsString;
    l_KWH := FieldByName('KWH').AsString;
    l_TDM := FieldByName('TDM').AsString;
    l_TPMZ := FieldByName('TPMZ').AsFloat;
    l_TPSJ := FieldByName('TPSJ').AsFloat;
    //  l_JJ := FieldByName('JJ').AsInteger;
    l_XJ := FieldByName('XJ').AsFloat;
    //  l_TS := FieldByName('TS').AsInteger;
    l_ZK := FieldByName('ZK').AsFloat;
    l_JSJ := FieldByName('JSJ').AsFloat;

    DisableControls;
12 3 下一頁
?? 文件大小 4913 K
?? 上傳用戶 ljw128
?? 所屬分類企業管理
??? 相關標簽

#ERP
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? ss_txpkccsh.pas

?? 快捷鍵說明
