D6HECHUAN/费用模块/u_fee_list.pas

unit u_fee_list;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, RxMemDS, dxExEdtr, dxCntner, dxTL, dxDBCtrl, dxDBGrid,
  BusinessSkinForm, bsSkinCtrls;

type
  Tfrm_fee_list = class(TForm)
    t_fee_list: TRxMemoryData;
    t_fee_list1: TDataSource;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    dxDBGrid1Column3: TdxDBGridMaskColumn;
    dxDBGrid1Column4: TdxDBGridMaskColumn;
    dxDBGrid1Column5: TdxDBGridMaskColumn;
    dxDBGrid1Column6: TdxDBGridMaskColumn;
    dxDBGrid1Column7: TdxDBGridMaskColumn;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    DataSource1: TDataSource;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_fee_list: Tfrm_fee_list;

implementation

uses u_main;

{$R *.dfm}

procedure Tfrm_fee_list.bsSkinButton2Click(Sender: TObject);
begin
  CLOSE;
end;

procedure Tfrm_fee_list.FormShow(Sender: TObject);
var
  book1:Tbookmark;
begin
  t_fee_list.Open;
  book1:=DataSource1.DataSet.GetBookmark;
  try
    DataSource1.DataSet.DisableControls;
    DataSource1.DataSet.First;
    while not DataSource1.DataSet.Eof do
    begin
      t_fee_list.Append;
      t_fee_list['CH_ID']:=DataSource1.DataSet['CH_ID'];
      t_fee_list['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=DataSource1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_fee_list['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=DataSource1.DataSet['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'];
      t_fee_list['<27><><EFBFBD><EFBFBD>']:=DataSource1.DataSet['<27><><EFBFBD><EFBFBD>'];
      t_fee_list['<27>ұ<EFBFBD>']:=DataSource1.DataSet['<27>ұ<EFBFBD>'];
      t_fee_list['<27><><EFBFBD><EFBFBD>']:=DataSource1.DataSet['<27><><EFBFBD><EFBFBD>'];
      t_fee_list['˳<><CBB3>']:=DataSource1.DataSet['˳<><CBB3>'];
      t_fee_list.post;
      DataSource1.DataSet.next;
    end;
  finally
    DataSource1.DataSet.GotoBookmark(book1);
    DataSource1.DataSet.EnableControls;
  end;  
end;

procedure Tfrm_fee_list.bsSkinButton1Click(Sender: TObject);
var
  book1:Tbookmark;
begin
  if t_fee_list.State=dsedit then          
    t_fee_list.post;
  t_fee_list.first;
  try
    modify_all:=true;
    book1:=DataSource1.DataSet.GetBookmark;
    DataSource1.DataSet.DisableControls;
    while not t_fee_list.eof do
    begin
      if DataSource1.DataSet.Locate('CH_ID',t_fee_list['CH_ID'],[])then
      begin
        DataSource1.DataSet.edit;
        DataSource1.DataSet['˳<><CBB3>']:=t_fee_list['˳<><CBB3>'];
        DataSource1.DataSet.post;
      end;
      t_fee_list.next;
    end;
  finally
    modify_all:=false;
    DataSource1.DataSet.GotoBookmark(book1);
    DataSource1.DataSet.EnableControls;
  end;  
  close;
end;

end.