sy_plqp.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{                   出库计划单批量签批                  }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{            编制：中软金马邮资票品项目开发组           }
{                                                       }
{                                                       }
{*******************************************************}
(*
省级集邮票管理  ，地市集邮票

*)
unit SY_PLQP;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Spin, ExtCtrls, ActnList, Grids, DBGrids, RXCtrls, Db,
  DBTables, RXDBCtrl, Mask, DBCtrls;

type
  TFrmY_PLQP = class(TForm)
    Panel1: TPanel;
    DWMC: TLabel;
    Label3: TLabel;
    ND: TSpinEdit;
    Panel2: TPanel;
    Panel3: TPanel;
    Label2: TLabel;
    BBt_Quit: TBitBtn;
    BBt_DG: TBitBtn;
    Qry_Main: TQuery;
    DataSource1: TDataSource;
    Qry_MainCKJHDH: TStringField;
    Qry_MainKFDM: TStringField;
    Qry_MainDWDM: TStringField;
    Qry_MainPPDM: TStringField;
    Qry_MainJJ: TFloatField;
    Qry_MainDWMC: TStringField;
    Qry_MainKWH: TStringField;
    Qry_MainPPMC: TStringField;
    Qry_MainYJ: TFloatField;
    Qry_MainXJ: TFloatField;
    Qry_MainJSJ: TFloatField;
    Qry_MainZK: TFloatField;
    Qry_MainFPSL: TFloatField;
    Qry_MainSDATE: TDateTimeField;
    Qry_YZPPTXXB: TQuery;
    Qry_YZPPTXXBZH: TStringField;
    Qry_YZPPTXXBPPDM: TStringField;
    Qry_MainZH: TStringField;
    DataSource2: TDataSource;
    Qry_Second: TQuery;
    UpdateSQL1: TUpdateSQL;
    RG_ZT: TRadioGroup;
    BBt_CancelDG: TBitBtn;
    Panel4: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit2: TDBEdit;
    DBEdit4: TDBEdit;
    DBGrid1: TRxDBGrid;
    RxDBGrid1: TRxDBGrid;
    CheckBox1: TCheckBox;
    XttxTitle: TRxLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Qry_SecondAfterScroll(DataSet: TDataSet);
    procedure BBt_DGClick(Sender: TObject);
    procedure RG_ZTClick(Sender: TObject);
    procedure BBt_CancelDGClick(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Qry_MainJJGetText(Sender: TField; var Text: string;
      DisplayText: Boolean);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
  public
  end;

var
  FrmY_PLQP: TFrmY_PLQP;

implementation
uses
  pub;


{$R *.DFM}




procedure TFrmY_PLQP.FormCreate(Sender: TObject);
begin
  DWMC.Caption := '使用单位：' + VG_UnitName;
  ND.Value := VG_Year;
//  CheckRight(self);
  GetAllColWidth(self);
end;

procedure TFrmY_PLQP.Qry_SecondAfterScroll(DataSet: TDataSet);
begin
  with Qry_Main do
  begin
    Close;
    Prepare;
    Params[0].AsString := Qry_Second.FieldByName('CKJHDH').AsString;
    Open;
  end;
end;

procedure TFrmY_PLQP.BBt_DGClick(Sender: TObject);
begin
  if RG_ZT.ItemIndex <> 0 then Exit;
  if Qry_Second.IsEmpty then Exit;
  if CHQMsgBox('确实要全部签批吗？', 2) = IDNO then Exit;
  with Qry_Second do
  begin
    DisableControls;
    First;
    while not Eof do
    begin
      if DBGrid1.SelectedRows.CurrentRowSelected then
      begin
        Edit;
        FieldByName('PZR').AsString := VG_UserName;
        FieldByName('ZT').AsString := CG_DG;
      end;
      Next;
    end;
    EnableControls;
    ApplyUpdates;
    CommitUpdates;
  end;
  RG_ZTClick(nil);
end;

procedure TFrmY_PLQP.RG_ZTClick(Sender: TObject);
begin
  if RG_ZT.ItemIndex = 0 then
  begin
    BBt_DG.Enabled := True;
    BBt_CancelDG.Enabled := False;
  end
  else if RG_ZT.ItemIndex = 1 then
  begin
    BBt_DG.Enabled := False;
    BBt_CancelDG.Enabled := True;
  end
  else
  begin
    BBt_DG.Enabled := False;
    BBt_CancelDG.Enabled := False;
  end;
  Qry_Main.Close;
  with Qry_Second do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from TYS_JYCKJHDB ');
    SQL.Add('where TO_CHAR(ZDRQ,''YYYY'') = ''' + IntToStr(ND.Value) + '''');
    case RG_ZT.ItemIndex of
      0: SQL.Add(' and ZT =''' + CG_WCL + '''');
      1: SQL.Add(' and ZT =''' + CG_DG + '''');
      2: SQL.Add(' and ZT =''' + CG_YCL + '''');
    end;
    SQL.Add('order by CKJHDH DESC ');
    Open;
  end;
  DBGrid1.SelectedRows.CurrentRowSelected := True;
end;

procedure TFrmY_PLQP.BBt_CancelDGClick(Sender: TObject);
begin
{  if not CheckRight_Bool(CG_JNDG) then
  begin
    CHQMsgBox('你没有取消签批的权限！');
    Exit;
  end;  }
  if RG_ZT.ItemIndex <> 1 then Exit;
  if Qry_Second.IsEmpty then Exit;
  if CHQMsgBox('确实要全部取消签批吗？', 2) = IDNO then Exit;
  with Qry_Second do
  begin
    DisableControls;
    First;
    while not Eof do
    begin
      if DBGrid1.SelectedRows.CurrentRowSelected then
      begin
        Edit;
        FieldByName('PZR').AsString := '';
        FieldByName('ZT').AsString := CG_WCL;
      end;
      Next;
    end;
    EnableControls;
    ApplyUpdates;
    CommitUpdates;
  end;
  RG_ZTClick(nil);

end;

procedure TFrmY_PLQP.CheckBox1Click(Sender: TObject);
begin
  if TCheckBox(Sender).Checked then
    DBGrid1.SelectAll
  else
    DBGrid1.UnselectAll;
end;

procedure TFrmY_PLQP.Qry_MainJJGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  CurrGetText(Sender, Text, DisplayText);
end;

procedure TFrmY_PLQP.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  SaveAllColWidth(self);
end;

end.