DS6JIEFENG/海运业务/u_op_card.pas

unit u_op_card;

interface

uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DB, ADODB, bsSkinCtrls, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  dxDBTLCl, dxGrClms, XPMenu, Menus, Grids, Wwdbigrd, Wwdbgrid, StdCtrls,
  wwdblook;

type
  Tfra_op_card = class(TFrame)
    bsSkinGroupBox1: TbsSkinGroupBox;
    t_op_card: TADOQuery;
    t_op_card1: TDataSource;
    XPMenu1: TXPMenu;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    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;
    wwDBGrid1: TwwDBGrid;
    wwDBLookupCombo2: TwwDBLookupCombo;
    wwDBLookupCombo1: TwwDBLookupCombo;
    wwDBLookupCombo3: TwwDBLookupCombo;
    procedure t_op_cardAfterInsert(DataSet: TDataSet);
    procedure t_op_cardBeforePost(DataSet: TDataSet);
    procedure N1Click(Sender: TObject);
    procedure dxDBGrid1Column1ButtonClick(Sender: TObject;
      AbsoluteIndex: Integer);
    procedure N3Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N28Click(Sender: TObject);
    procedure t_op_cardBeforeInsert(DataSet: TDataSet);
    procedure FrameEnter(Sender: TObject);
  private
    procedure t_op_carddjoncharge(Sender: TField);
    procedure t_op_cardhmoncharge(Sender: TField);

    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses u_main, my_sys_function, u_op_card_add, u_data_share;

{$R *.dfm}

procedure Tfra_op_card.t_op_cardAfterInsert(DataSet: TDataSet);
begin
  t_op_card['<27><><EFBFBD><EFBFBD>']:=t_op_card.DataSource.DataSet['<27><><EFBFBD><EFBFBD>'];
  t_op_card['<27>Ƿ<EFBFBD><C7B7>ص<EFBFBD>']:=0;
  t_op_card['<27>Ƿ񻹵<C7B7>']:=0;
end;

procedure Tfra_op_card.t_op_cardBeforePost(DataSet: TDataSet);
begin
  table_before_post(t_op_card,'<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>');
end;

procedure Tfra_op_card.N1Click(Sender: TObject);
begin
  if t_op_card.DataSource.DataSet=nil then
    exit;
  if t_op_card.DataSource.DataSet.state=dsinsert then
    t_op_card.DataSource.DataSet.post;  
  try
    frm_op_card_add:=tfrm_op_card_add.Create (self);
    frm_op_card_add.bsSkinCheckRadioBox2.Checked:=true;
    frm_op_card_add.DataSource1.Enabled:=false;
    frm_op_card_add.DataSource1.DataSet:=t_op_card;
    frm_op_card_add.DataSource1.Enabled:=true;
    frm_op_card_add.ShowModal;
  finally
    frm_op_card_add.Free;
    frm_op_card_add:=nil;
  end;
  
end;

procedure Tfra_op_card.dxDBGrid1Column1ButtonClick(Sender: TObject;
  AbsoluteIndex: Integer);
begin
  try
    frm_op_card_add:=tfrm_op_card_add.Create (self);
    frm_op_card_add.bsSkinCheckRadioBox1.Checked:=true;
    frm_op_card_add.DataSource1.DataSet:=t_op_card;
    frm_op_card_add.ShowModal;
  finally
    frm_op_card_add.Free;
    frm_op_card_add:=nil;
  end;
end;

procedure Tfra_op_card.N3Click(Sender: TObject);
begin
  table_post(t_op_card);
end;

procedure Tfra_op_card.N4Click(Sender: TObject);
var
  i:integer;
begin
  if t_op_card.isempty then
    exit;
  if application.MessageBox('<27><>ȷ<EFBFBD><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>?','<27><><EFBFBD><EFBFBD>:',MB_OKCANCEL)<>IDOK then
    exit; 
  if wwDBGrid1.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid1.SelectedList.Count-1 do
    begin
      t_op_card.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
      t_op_card.delete;
    end;
  end
  else
  begin
    t_op_card.delete;
  end;
end;

procedure Tfra_op_card.N7Click(Sender: TObject);
begin
  table_cancel(t_op_card);
end;

procedure Tfra_op_card.N14Click(Sender: TObject);
begin
  if t_op_card.isempty then
    exit;
  t_op_card.Edit;
  t_op_card['<27>͵<EFBFBD><CDB5><EFBFBD><EFBFBD><EFBFBD>']:=date;
  t_op_card.post;
end;

procedure Tfra_op_card.N15Click(Sender: TObject);
var
  i:integer;
begin
  if t_op_card.isempty then
    exit;
  if wwDBGrid1.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid1.SelectedList.Count-1 do
    begin
      t_op_card.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
      t_op_card.Edit;
      t_op_card['<27>͵<EFBFBD><CDB5><EFBFBD><EFBFBD><EFBFBD>']:=date;
      t_op_card.post;
    end;
  end
  else
  begin
    t_op_card.Edit;
    t_op_card['<27>͵<EFBFBD><CDB5><EFBFBD><EFBFBD><EFBFBD>']:=date;
    t_op_card.post;
  end;
end;

procedure Tfra_op_card.N19Click(Sender: TObject);
begin
  if t_op_card.isempty then
    exit;
  t_op_card.Edit;
  t_op_card['<27>Ƿ<EFBFBD><C7B7>ص<EFBFBD>']:=1;
  t_op_card['<27>ص<EFBFBD><D8B5><EFBFBD><EFBFBD><EFBFBD>']:=date;
  t_op_card.post;
end;

procedure Tfra_op_card.N24Click(Sender: TObject);
begin
  if t_op_card.isempty then
    exit;
  t_op_card.Edit;
  t_op_card['<27>Ƿ<EFBFBD><C7B7>ص<EFBFBD>']:=1;
  t_op_card['<27>Ƿ񻹵<C7B7>']:=1;
  t_op_card['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
  t_op_card.post;
end;

procedure Tfra_op_card.N21Click(Sender: TObject);
var
  i:integer;
begin
  if t_op_card.isempty then
    exit;
  if wwDBGrid1.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid1.SelectedList.Count-1 do
    begin
      t_op_card.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
      t_op_card.Edit;
      t_op_card['<27>Ƿ<EFBFBD><C7B7>ص<EFBFBD>']:=1;
      t_op_card['<27>ص<EFBFBD><D8B5><EFBFBD><EFBFBD><EFBFBD>']:=date;
      t_op_card.post;
    end;
  end
  else
  begin
    t_op_card.Edit;
    t_op_card['<27>Ƿ<EFBFBD><C7B7>ص<EFBFBD>']:=1;
    t_op_card['<27>ص<EFBFBD><D8B5><EFBFBD><EFBFBD><EFBFBD>']:=date;
    t_op_card.post;
  end;
end;

procedure Tfra_op_card.N26Click(Sender: TObject);
var
  i:integer;
begin
  if t_op_card.isempty then
    exit;
  if wwDBGrid1.SelectedList.Count>=1 then
  begin
    for i:=0 to wwDBGrid1.SelectedList.Count-1 do
    begin
      t_op_card.GotoBookmark(pointer(wwDBGrid1.SelectedList[i]));
      t_op_card.Edit;
      t_op_card['<27>Ƿ<EFBFBD><C7B7>ص<EFBFBD>']:=1;
      t_op_card['<27>Ƿ񻹵<C7B7>']:=1;
      t_op_card['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
      t_op_card.post;
    end;
  end
  else
  begin
    t_op_card.Edit;
    t_op_card['<27>Ƿ<EFBFBD><C7B7>ص<EFBFBD>']:=1;
    t_op_card['<27>Ƿ񻹵<C7B7>']:=1;
    t_op_card['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
    t_op_card.post;
  end;
end;

procedure Tfra_op_card.N16Click(Sender: TObject);
begin
  if t_op_card.isempty then
    exit;
  t_op_card.first;
  while not t_op_card.eof do
  begin
    t_op_card.Edit;
    t_op_card['<27>͵<EFBFBD><CDB5><EFBFBD><EFBFBD><EFBFBD>']:=date;
    t_op_card.post;
    t_op_card.next;
  end;
end;

procedure Tfra_op_card.N23Click(Sender: TObject);
begin
  if t_op_card.isempty then
    exit;
  t_op_card.first;
  while not t_op_card.eof do
  begin
    t_op_card.Edit;
    t_op_card['<27>Ƿ<EFBFBD><C7B7>ص<EFBFBD>']:=1;
    t_op_card['<27>ص<EFBFBD><D8B5><EFBFBD><EFBFBD><EFBFBD>']:=date;
    t_op_card.post;
    t_op_card.next;
  end;
end;

procedure Tfra_op_card.N28Click(Sender: TObject);
begin
  if t_op_card.isempty then
    exit;
  t_op_card.first;
  while not t_op_card.eof do
  begin
    t_op_card.Edit;
    t_op_card['<27>Ƿ<EFBFBD><C7B7>ص<EFBFBD>']:=1;
    t_op_card['<27>Ƿ񻹵<C7B7>']:=1;
    t_op_card['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
    t_op_card.post;
    t_op_card.next;
  end;
end;

procedure Tfra_op_card.t_op_cardBeforeInsert(DataSet: TDataSet);
begin
  if t_op_card.DataSource.DataSet.State=dsinsert then
    t_op_card.DataSource.DataSet.post;
end;

procedure Tfra_op_card.t_op_carddjoncharge(Sender: TField);
begin
  if t_op_card.DataSource.DataSet.FindField(Sender.AsString+'<27><>')<>nil then begin
    if t_op_card.DataSource.DataSet.Fieldbyname(Sender.AsString+'<27><>').AsString<>'' then begin
      t_op_card.Edit;
      t_op_card.fieldbyname('<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>').AsString:=t_op_card.DataSource.DataSet.Fieldbyname(t_op_card.fieldbyname('<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>').AsString+'<27><>').AsString;
      t_op_card.Post;
    end;
  end;
end;

procedure Tfra_op_card.FrameEnter(Sender: TObject);
begin
  t_op_card.FieldByName('<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>').OnChange:=t_op_carddjoncharge;
  t_op_card.FieldByName('<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>').OnChange:=t_op_cardhmoncharge;
end;

procedure Tfra_op_card.t_op_cardhmoncharge(Sender: TField);
var
  dname,dno:string;
begin
{
  dname:=sender.DataSet.fieldbyname('<27><>֤<EFBFBD><D6A4><EFBFBD><EFBFBD>').AsString+'<27><>';
  dno:=sender.AsString;
  if t_op_card.DataSource.DataSet.FindField(dname)<>nil then begin
    t_op_card.DataSource.DataSet.Edit;
    t_op_card.DataSource.DataSet.Fieldbyname(dname).Value:=dno;
    t_op_card.DataSource.DataSet.Post;
  end;
 }
end;

end.