D6HECHUAN/复件 业务统计/u_rp_dui_format.pas

unit u_rp_dui_format;

interface

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

type
  Tfrm_rp_dui_format = class(TForm)
    t_ch_dui_format: TADOQuery;
    t_ch_dui_format1: TDataSource;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    dxDBGrid1Column2: TdxDBGridMaskColumn;
    bsSkinPanel5: TbsSkinPanel;
    bsSkinPanel6: TbsSkinPanel;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton12: TbsSkinButton;
    bsSkinPanel7: TbsSkinPanel;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinListBox1: TbsSkinListBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    dxDBGrid3: TdxDBGrid;
    dxDBGrid3Column1: TdxDBGridMaskColumn;
    bsSkinButton5: TbsSkinButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    Memo4: TMemo;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton8: TbsSkinButton;
    DBListBox1: TListBox;
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure t_ch_dui_formatAfterInsert(DataSet: TDataSet);
    procedure t_ch_dui_formatBeforePost(DataSet: TDataSet);
    procedure t_ch_dui_formatDeleteError(DataSet: TDataSet;
      E: EDatabaseError; var Action: TDataAction);
    procedure t_ch_dui_format_detailBeforeInsert(DataSet: TDataSet);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton11Click(Sender: TObject);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton8Click(Sender: TObject);
    procedure t_ch_dui_formatAfterScroll(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_rp_dui_format: Tfrm_rp_dui_format;
  dui_format_type:integer;

implementation

uses u_main, u_data_share, my_sys_function;

{$R *.dfm}

procedure Tfrm_rp_dui_format.bsSkinButton1Click(Sender: TObject);
begin
  t_ch_dui_format.Insert;
end;

procedure Tfrm_rp_dui_format.bsSkinButton2Click(Sender: TObject);
begin
  table_post(t_ch_dui_format);
end;

procedure Tfrm_rp_dui_format.bsSkinButton4Click(Sender: TObject);
begin
  table_delete(t_ch_dui_format);
end;

procedure Tfrm_rp_dui_format.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(t_ch_dui_format);
end;

procedure Tfrm_rp_dui_format.t_ch_dui_formatAfterInsert(DataSet: TDataSet);
begin
  t_ch_dui_format['<27><><EFBFBD><EFBFBD>']:=dui_format_type;
end;

procedure Tfrm_rp_dui_format.t_ch_dui_formatBeforePost(DataSet: TDataSet);
begin
  t_ch_dui_format['<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>']:=DBListBox1.Items.Text;
  table_before_post(t_ch_dui_format,'ģ<><C4A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  table_before_post(t_ch_dui_format,'<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_rp_dui_format.t_ch_dui_formatDeleteError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  showmessage('<27>ʵ<EFBFBD>ģ<EFBFBD><C4A3><EFBFBD>Ѿ<EFBFBD>ʹ<EFBFBD>ã<EFBFBD><C3A3><EFBFBD><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
  abort;
end;

procedure Tfrm_rp_dui_format.t_ch_dui_format_detailBeforeInsert(
  DataSet: TDataSet);
begin
  table_post(t_ch_dui_format);
end;

procedure Tfrm_rp_dui_format.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_rp_dui_format.FormShow(Sender: TObject);
begin
  t_ch_dui_format.Parameters[0].value:=dui_format_type;
  t_ch_dui_format.open;
  case dui_format_type of
    1,2,3,4:
    begin
      frm_data_share.t_code_fee.Requery();
      frm_data_share.t_code_fee.Filtered:=false;
      frm_data_share.t_code_fee.Filter:='<27><><EFBFBD><EFBFBD>=1';
      frm_data_share.t_code_fee.Filtered:=true;
    end;
    5,6,7,8:
    begin
      frm_data_share.t_code_fee.Requery();
      frm_data_share.t_code_fee.Filtered:=false;
      frm_data_share.t_code_fee.Filter:='<27><><EFBFBD><EFBFBD>=1';
      frm_data_share.t_code_fee.Filtered:=true;
    end;
  end;
  case dui_format_type of
    1,2:
    begin
      bsSkinListBox1.Items.Text:=memo1.text;
    end;
    3,4:
    begin
      bsSkinListBox1.Items.Text:=memo2.text;
    end;
    5,6:
    begin
      bsSkinListBox1.Items.Text:=memo3.text;
    end;
    7,8:
    begin
      bsSkinListBox1.Items.Text:=memo4.text;
    end;
  end;  
end;

procedure Tfrm_rp_dui_format.bsSkinButton6Click(Sender: TObject);
var
  if_find:boolean;
  i:integer;
begin
  if t_ch_dui_format.IsEmpty then
    exit;
  if bsSkinListBox1.ItemIndex=-1 then
    exit;
  for i:=0 to DBListBox1.Items.Count-1 do
  begin
    if copy(DBListBox1.Items[i],2,length(DBListBox1.Items[i])-1)=bsSkinListBox1.Items[bsSkinListBox1.ItemIndex] then
      exit;
  end;
  t_ch_dui_format.edit;
  DBListBox1.Items.Add('0'+bsSkinListBox1.Items[bsSkinListBox1.ItemIndex]);
  t_ch_dui_format.post;
end;

procedure Tfrm_rp_dui_format.bsSkinButton10Click(Sender: TObject);
begin
  if DBListBox1.ItemIndex=-1 then
    exit;
  t_ch_dui_format.edit;
  DBListBox1.Items.Delete(DBListBox1.ItemIndex);
  t_ch_dui_format.post;
end;

procedure Tfrm_rp_dui_format.bsSkinButton11Click(Sender: TObject);
var
  if_find:boolean;
  i:integer;
begin
  if t_ch_dui_format.IsEmpty then
    exit;
  if bsSkinListBox1.ItemIndex=-1 then
    exit;
  for i:=0 to DBListBox1.Items.Count-1 do
  begin
    if copy(DBListBox1.Items[i],2,length(DBListBox1.Items[i])-1)=frm_data_share.t_code_fee.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring then
      exit;
  end;
  t_ch_dui_format.edit;
  DBListBox1.Items.Add('1'+frm_data_share.t_code_fee.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring);
  t_ch_dui_format.post;
end;

procedure Tfrm_rp_dui_format.bsSkinButton7Click(Sender: TObject);
var
  i:integer;
begin
  if t_ch_dui_format.IsEmpty then
    exit;
  if DBListBox1.ItemIndex=-1 then
    exit;
  if DBListBox1.ItemIndex=0 then
    exit;

  t_ch_dui_format.edit;
  i:=DBListBox1.ItemIndex-1;
  DBListBox1.Items.Move(DBListBox1.ItemIndex,DBListBox1.ItemIndex-1);
  t_ch_dui_format.post;
  DBListBox1.ItemIndex:=i;
end;

procedure Tfrm_rp_dui_format.bsSkinButton8Click(Sender: TObject);
var
  i:integer;
begin
  if t_ch_dui_format.IsEmpty then
    exit;
  if DBListBox1.ItemIndex=-1 then
    exit;
  if DBListBox1.ItemIndex=DBListBox1.Items.Count-1 then
    exit;

  t_ch_dui_format.edit;
  i:=DBListBox1.ItemIndex+1;
  DBListBox1.Items.Move(DBListBox1.ItemIndex,DBListBox1.ItemIndex+1);
  t_ch_dui_format.post;
  DBListBox1.ItemIndex:=i;
end;

procedure Tfrm_rp_dui_format.t_ch_dui_formatAfterScroll(DataSet: TDataSet);
begin
  DBListBox1.Items.Text:=t_ch_dui_format.fieldbyname('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>').asstring;
end;

end.