car4ss661.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

unit Car4ss661;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
  StrUtils, ExtDlgs, ComCtrls, math;

type
    Tf_Car4ss661 = class(TForm)
    Button5: TButton;
    Button6: TButton;
    Label2: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edit3: TEdit;
    Label9: TLabel;
    Label11: TLabel;
    DateTimePicker1: TDateTimePicker;
    ComboBox2: TComboBox;
    ComboBox1: TComboBox;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ComboBox2Select(Sender: TObject);
    procedure ComboBox1Select(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
      bOK,bOK2:bool;
      sNum:string;
  end;

var
  f_Car4ss661: Tf_Car4ss661;


implementation

uses data, main,Car4ss66,Car4s931;

{$R *.dfm}

//初始化
procedure Tf_Car4ss661.FormCreate(Sender: TObject);
var
    Query,query1:TADOQuery;
    s:string;
    d:double;

begin
    DateTimePicker1.Date:=date;

    ComboBox1.Items.Add('新增付款方式');
    ComboBox2.Items.Add('新增发票类型');


    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query1:=TADOQuery.Create(nil);
    Query1.Connection:=DataModuleADO.ADOConnection1;
    Query.SQL.Add('select * from 辅助资料 where 类别='''+'付款方式'+'''');
    Query.Open ;
    while not query.Eof do
    begin
        ComboBox1.Items.Add(Query.FieldByName('名称').Value);
        query.Next;
    end;


    query.sql.clear;
    Query.SQL.Add('select * from 辅助资料 where 类别='''+'发票类型'+'''');
    Query.Open ;
    while not query.Eof do
    begin
        ComboBox2.Items.Add(Query.FieldByName('名称').Value);
        query.Next;
    end;

    Edit2.Text:=czy;
end;


//Tab
procedure Tf_Car4ss661.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then
        Begin
            key:=0;
            perform(WM_NEXTDLGCTL,0,0);
        end
    else if key=VK_ESCAPE then close;
end;



//确定
procedure Tf_Car4ss661.Button5Click(Sender: TObject);
var
  i,j:integer;
  s,s1,s2:string;
  Query:TADOQuery;
  d1,d2,d3,d4:double;
begin

     if combobox2.text='' then
     begin
         showmessage('请先选择发票类型。');
        combobox2.setfocus;
        exit;
     end;

     if combobox1.text='' then
     begin
        showmessage('请先选择付款方式。');
        combobox1.setfocus;
        exit;
     end;

     if Edit3.Text='' then Edit3.Text:='-';


    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;

    //生成退款明细
    s:='insert into 退款明细(单号,日期,金额,收款人,发票类型,';
    s:=s+'发票号,付款方式,款项类别,客户名称,付款类别) values(:s1,';
    s:=s+':s2,:s3,:s4,:s5,:s6,:s7,:s8,:s9,:s10)';

    Edit1.Text:=mainform.StdDou2(Edit1.Text);
    query.sql.Clear;
    query.sql.add(s);
    query.Parameters.ParamByName('s1').Value:=f_Car4ss66.listview1.Selected.Caption;
    query.Parameters.ParamByName('s2').Value:=trim(datetostr(DateTimePicker1.date));
    query.Parameters.ParamByName('s3').Value:=strtofloat(Edit1.Text);
    query.Parameters.ParamByName('s4').Value:= edit2.text;
    query.Parameters.ParamByName('s5').Value:= combobox2.Text;
    query.Parameters.ParamByName('s6').Value:= edit3.text;
    query.Parameters.ParamByName('s7').Value:= combobox1.Text;
    query.Parameters.ParamByName('s8').Value:= f_Car4ss66.listview1.Selected.SubItems[9];
    query.Parameters.ParamByName('s9').Value:= f_Car4ss66.listview1.Selected.SubItems[0];
    query.Parameters.ParamByName('s10').Value:= f_Car4ss66.listview1.Selected.SubItems[10];

    DataModuleADO.ADOConnection1.BeginTrans;
    query.execsql;
    DataModuleADO.ADOConnection1.CommitTrans;

    d1:=strtofloat(f_Car4ss66.listview1.Selected.SubItems[2]);  //应收
    d2:=strtofloat(f_Car4ss66.listview1.Selected.SubItems[3]);  //已收
    d3:=strtofloat(f_Car4ss66.listview1.Selected.SubItems[4]);  //已退
    d3:=d3+strtofloat(Edit1.Text);
    d4:=d1-d2+d3;

    f_Car4ss66.listview1.Selected.SubItems[4]:=Format('%.2f',[d3]);
    f_Car4ss66.listview1.Selected.SubItems[5]:=Format('%.2f',[d4]);


    s1:=f_Car4ss66.listview1.Selected.SubItems[4];
    s2:=f_Car4ss66.listview1.Selected.SubItems[5];

    DataModuleADO.ADOConnection1.BeginTrans;
    query.SQL.Text:='update 应收款 set 已退金额='+s1+',未收金额='+s2+' where 单号='''+f_Car4ss66.listview1.Selected.Caption+'''';
    query.execsql;
    DataModuleADO.ADOConnection1.CommitTrans;

    query.Close;
    query.Free ;

    close;
end;

//退出
procedure Tf_Car4ss661.Button6Click(Sender: TObject);
begin
    bOK:=false;
    Close;
end;









procedure Tf_Car4ss661.ComboBox2Select(Sender: TObject);
begin
    if ComboBox2.Text='新增发票类型' then
    begin
        mainform.t1:='发票类型';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            ComboBox2.Items.Add(mainform.t1);
            ComboBox2.ItemIndex:=ComboBox2.Items.IndexOf(mainform.t1);
        end
        else ComboBox2.ItemIndex:=ComboBox2.Items.IndexOf('');
    end;
end;

procedure Tf_Car4ss661.ComboBox1Select(Sender: TObject);
begin
    if ComboBox1.Text='新增付款方式' then
    begin
        mainform.t1:='付款方式';
        f_Car4s931:=Tf_Car4s931.Create(self);
        f_Car4s931.showmodal;

        if f_Car4s931.bOK=true then
        begin
            ComboBox1.Items.Add(mainform.t1);
            ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf(mainform.t1);
        end
        else ComboBox1.ItemIndex:=ComboBox1.Items.IndexOf('');
    end;
end;

procedure Tf_Car4ss661.Edit1Exit(Sender: TObject);
begin
    Edit1.Text:=mainform.StdDou2(Edit1.Text);
end;

end.