DONGSHENG6/复件 财务管理/u_ch_check_do.pas

unit u_ch_check_do;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, bsSkinCtrls, StdCtrls, BusinessSkinForm, DBCtrls, Mask, RxLookup;

type
  Tfrm_ch_check_do = class(TForm)
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
    Label1: TLabel;
    Edit1: TEdit;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
    Label6: TLabel;
    RxDBLookupCombo3: TRxDBLookupCombo;
    Label7: TLabel;
    Label10: TLabel;
    Edit2: TEdit;
    Memo1: TMemo;
    bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
    bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ch_check_do: Tfrm_ch_check_do;

implementation

uses u_main, u_ch_balance_pay;

{$R *.dfm}

procedure Tfrm_ch_check_do.bsSkinButton2Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_ch_check_do.bsSkinButton1Click(Sender: TObject);
var
  str:string;
begin
  if bsSkinCheckRadioBox1.Checked then
    str:=bsSkinCheckRadioBox1.Caption;
  if bsSkinCheckRadioBox2.Checked then
    str:=bsSkinCheckRadioBox2.Caption;
  if bsSkinCheckRadioBox3.Checked then
    str:=bsSkinCheckRadioBox3.Caption;
  if bsSkinCheckRadioBox4.Checked then
    str:=bsSkinCheckRadioBox4.Caption;
  if bsSkinCheckRadioBox6.Checked then
    str:=bsSkinCheckRadioBox6.Caption;
  if bsSkinCheckRadioBox7.Checked then
    str:=bsSkinCheckRadioBox7.Caption;
  if bsSkinCheckRadioBox5.Checked then
    str:=bsSkinCheckRadioBox5.Caption;
  if bsSkinCheckRadioBox8.Checked then
    str:=bsSkinCheckRadioBox8.Caption;
  with frm_ch_balance_pay do
  begin
    t_ch_balance.Insert;
    t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD><EFBFBD>';
    t_ch_balance['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_check['<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>'];
    t_ch_balance['<27><><EFBFBD>㷽ʽ']:=str;
    t_ch_balance['<27>ұ<EFBFBD>']:=t_ch_check['<27>ұ<EFBFBD>'];
    t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
    t_ch_balance['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_check['ʵ<>ʽ<EFBFBD><CABD><EFBFBD>'];
    t_ch_balance['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_check['<27>鿪<EFBFBD><E9BFAA><EFBFBD><EFBFBD>'];
    t_ch_balance['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=edit1.text;
    t_ch_balance['<27><><EFBFBD><EFBFBD>']:=frm_ch_check_do.RxDBLookupCombo3.DisplayValue;
    t_ch_balance['ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>']:=frm_ch_check_do.Edit2.text;
    t_ch_balance['<27><>ע']:=frm_ch_check_do.Memo1.text;
    t_ch_balance.Post;

    t_ch_fee_do_check.first;
    while not t_ch_fee_do_check.eof do
    begin
      t_ch_fee_do.insert;
      t_ch_fee_do['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring;
      t_ch_fee_do['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_fee_do_check['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
      t_ch_fee_do['CH_ID']:=t_ch_fee_do_check['CH_ID'];
      t_ch_fee_do['<27>ұ<EFBFBD>']:=t_ch_fee_do_check['<27>ұ<EFBFBD>'];
      t_ch_fee_do['<27><><EFBFBD><EFBFBD>']:=t_ch_fee_do_check['<27><><EFBFBD><EFBFBD>'];
      t_ch_fee_do['ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>']:=t_ch_fee_do_check['ԭʼ<D4AD><CABC><EFBFBD><EFBFBD>'];
      t_ch_fee_do['<27><><EFBFBD><EFBFBD>']:='4';
      t_ch_fee_do.Post;
      t_ch_fee_do_check.next;
    end;
    t_ch_check.Edit;
    t_ch_check['<27><><EFBFBD><EFBFBD>״̬']:='֧<><D6A7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
    t_ch_check['<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>']:=t_ch_balance.fieldbyname('<27>ʵ<EFBFBD><CAB5><EFBFBD><EFBFBD><EFBFBD>').asstring;
    t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
    t_ch_check['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=now;
    t_ch_check['֧<><D6A7><EFBFBD><EFBFBD>ʽ']:=str;
    t_ch_check['<27><><EFBFBD>غ<EFBFBD><D8BA><EFBFBD>']:=edit1.text;
    t_ch_check.post;
    t_ch_check.requery;
    t_ch_check_detail.requery;
    t_ch_balance.edit;
    t_ch_balance.post;
  end;
  close;
end;

end.