pas_houserent.~pas

比较详细的功能

unit pas_houseRent;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, ComCtrls, Buttons,
  ToolWin;

type
  TForm_constract = class(TForm)
    DBGrid: TDBGrid;
    ToolBar1: TToolBar;
    select: TSpeedButton;
    ToolButton5: TToolButton;
    add: TSpeedButton;
    ToolButton3: TToolButton;
    selecteveryth: TSpeedButton;
    ToolButton7: TToolButton;
    valid: TSpeedButton;
    ToolButton1: TToolButton;
    unValid: TSpeedButton;
    setUnvalid: TSpeedButton;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    cb_ho: TComboBox;
    cb_no: TComboBox;
    cb_dl: TComboBox;
    dtp_start: TDateTimePicker;
    dtp_end: TDateTimePicker;
    edit_rentFee: TEdit;
    cb_unit: TComboBox;
    edit_remarks: TEdit;
    edit_contractNo: TEdit;
    rb_kh: TRadioButton;
    rb_fd: TRadioButton;
    setvalid: TSpeedButton;
    ToolButton6: TToolButton;
    ToolButton8: TToolButton;
    Label10: TLabel;
    Label11: TLabel;
    cb_depart: TComboBox;
    Label12: TLabel;
    cb_seller: TComboBox;
    Label13: TLabel;
    Label14: TLabel;
    srhouse: TSpeedButton;
    srkh: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    Edit_times: TEdit;
    sb_fksj: TSpeedButton;
    Label15: TLabel;
    Label16: TLabel;
    DBGrid1: TDBGrid;
    SpeedButton5: TSpeedButton;
    sp_noT: TSpeedButton;
    Label17: TLabel;
    L_num: TLabel;
    procedure cb_hoDropDown(Sender: TObject);
    procedure cb_noDropDown(Sender: TObject);
    procedure cb_dlDropDown(Sender: TObject);
    procedure addClick(Sender: TObject);
    procedure set1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure rb_khClick(Sender: TObject);
    procedure rb_fdClick(Sender: TObject);
    procedure cb_unitDropDown(Sender: TObject);
    procedure selecteverythClick(Sender: TObject);
    procedure validClick(Sender: TObject);
    procedure unValidClick(Sender: TObject);
    procedure setvalidClick(Sender: TObject);
    procedure setUnvalidClick(Sender: TObject);
    procedure DBGridCellClick(Column: TColumn);
    procedure DBGridDblClick(Sender: TObject);
    procedure cb_departDropDown(Sender: TObject);
    procedure cb_sellerDropDown(Sender: TObject);
    procedure srkhClick(Sender: TObject);
    procedure srhouseClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure selectClick(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure sb_fksjClick(Sender: TObject);
    procedure Edit_timesKeyPress(Sender: TObject; var Key: Char);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton5Click(Sender: TObject);
    procedure sp_noTClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_constract: TForm_constract;

implementation
   uses pas_dm,pas_login, pas_landlord, pas_client, pas_house, pas_deputy,
  pas_depart, pas_seller, pas_inputtimes;
{$R *.dfm}

procedure TForm_constract.cb_hoDropDown(Sender: TObject);
var
   s:string;
begin
  try
   with dm.query_houserent do
   begin
     close;
     sql.Clear;
     s:='select h_no from house ';
     sql.Add(s);
     open;
     cb_ho.Items.Clear;
     while not dm.query_houserent.Eof do
     begin
      cb_ho.Items.Add(fields.Fields[0].asstring);
      next;
    end;
   end;
  except

  end;  
end;

procedure TForm_constract.cb_noDropDown(Sender: TObject);
var
   s:string;
begin
if (rb_kh.Checked) then
begin
  try
   with dm.gg do
   begin
     close;
     sql.Clear;
     s:='select c_no from client ';
     sql.Add(s);
     open;
    cb_no.Items.Clear;
     while not dm.gg.Eof do
     begin
      cb_no.Items.Add(fields.Fields[0].asstring);
      next;
    end;
   end;
  except
  end;
  end
  else
  begin  
    try
   with dm.gg do
   begin
     close;
     sql.Clear;
     s:='select l_no from landlord ';
     sql.Add(s);
     open;
     cb_no.Items.Clear;
     while not dm.gg.Eof do
     begin
      cb_no.Items.Add(fields.Fields[0].asstring);
      next;
    end;
   end;
  except
  end;

  end;
end;

procedure TForm_constract.cb_dlDropDown(Sender: TObject);
var
   s:string;
begin
  try
   with dm.gg do
   begin
     close;
     sql.Clear;
     s:='select d_no from deputy ';
     sql.Add(s);
     open;
    cb_dl.Items.Clear;
     while not dm.gg.Eof do
     begin
      cb_dl.Items.Add(fields.Fields[0].asstring);
      next;
    end;
   end;
  except
  end;
end;

procedure TForm_constract.addClick(Sender: TObject);
var
  s:string;
begin
  if (cb_ho.Text='') or (cb_no.Text='') or (cb_unit.Text='') or
      (edit_contractNo.Text='') or (edit_contractNo.Text='') then
  begin
     showmessage('除备注外不能为空，请重输入！');
     exit;
  end;

if(rb_kh.Checked) then
   begin
   try
    with dm.Query_houserent do
    begin
      close;
      sql.Clear;
      sql.Text:='select ho_no from house_histry where ho_contractno='''+edit_contractNo.Text+'''and ho_rentorno=1';
      open;
      if dm.query_houserent.RecordCount>0 then
      begin
         showmessage('有相同的合同号,请重输入');
         exit;
      end;
      close;
      sql.Clear;
      s:='insert into house_histry(ho_contractno,ho_no,ho_client,ho_deputy,ho_starttime,'+
          'ho_leavetime,ho_releasetime,ho_rent,ho_rentunit,ho_rentorno,ho_operator,'+
           'ho_now,ho_remarks,ho_validorno,ho_depart,ho_seller) values('''+
            trim(edit_contractNo.Text)+''','''+trim(cb_ho.Text)+''','''+trim(cb_no.Text)+''','''+trim(cb_dl.Text)+''','''+
                datetostr(dtp_start.DateTime)+''','''+datetostr(dtp_end.DateTime)+''','''+datetostr(dtp_end.DateTime)+''','''+
                trim(edit_rentfee.Text)+''','''+trim(cb_unit.Text)+''',1,'''+trim(user)+''','''+FormatDateTime('yyyy-mm-dd hh:mm:ss',(now()))+
                ''','''+trim(edit_remarks.Text)+''',1,'''+trim(cb_depart.Text)+
                ''','''+trim(cb_seller.Text)+''')';
      sql.Add(s);
      ExecSQL;
      close;
      sql.Clear;
      sql.Add('update house set h_sign=1 where h_no='''+trim(cb_ho.Text)+'''');//同时房间改为已租房
      ExecSQL;
      showmessage('添加'+edit_contractno.text+'成功');
      select.Click;
    end;
  except
     showmessage('添加失败');
   end;
   exit;
   end;

  if(rb_fd.Checked) then
  begin
   try
    with dm.query_houserent do
    begin
      close;
      sql.Clear;
      sql.Text:='select ho_no from house_histry where ho_contractno='''+edit_contractNo.Text+'''and ho_rentorno=1';
      open;
      if dm.query_houserent.RecordCount>0 then
      begin
         showmessage('有相同的合同号,请重输入');
         exit;
      end;
      close;
      sql.Clear;
      s:='insert into house_histry(ho_contractno,ho_no,ho_landlord,ho_deputy,ho_starttime,'+
          'ho_leavetime,ho_releasetime,ho_rent,ho_rentunit,ho_rentorno,ho_operator,ho_now,ho_remarks,ho_validorno,ho_depart,ho_seller) values('''+
            trim(edit_contractNo.Text)+''','''+trim(cb_ho.Text)+''','''+trim(cb_no.Text)+''','''+trim(cb_dl.Text)+''','''+
                datetostr(dtp_start.DateTime)+''','''+datetostr(dtp_end.DateTime)+''','''+datetostr(dtp_end.DateTime)+''','''+
                trim(edit_rentfee.Text)+''','''+trim(cb_unit.Text)+''',1,'''+trim(user)+''','''+FormatDateTime('yyyy-mm-dd hh:mm:ss',(now()))+
                ''','''+trim(edit_remarks.Text)+''',1,'''+trim(cb_depart.Text)+
                ''','''+trim(cb_seller.Text)+''')';
      sql.Text:=s;
      ExecSQL;
      close;
      sql.Clear;
      sql.Add('update house set h_sign=1 where h_no='''+trim(cb_ho.Text)+'''');//同时房间改为已租房
      ExecSQL;
      showmessage('添加'+edit_contractno.text+'成功');
      select.Click;
    end;
  except
     showmessage('添加失败');
   end;
     exit;
  end; 

end;

procedure TForm_constract.set1Click(Sender: TObject);
var
  s:string;
begin
  if (cb_ho.Text='') or (cb_no.Text='') or (cb_dl.Text='') or (cb_unit.Text='') or
      (edit_contractNo.Text='') or (edit_contractNo.Text='') then
  begin
     showmessage('除备注外不能为空，请重输入！');
     exit;
  end;
  try
     with dm.query_houserent do
     begin
        close;
        sql.Clear;
        s:='update house_histry set ho_no='''+trim(cb_ho.text)+''',ho_client='''+trim(cb_no.text)+
           ''',ho_deputy='''+trim(cb_dl.Text)+''',ho_starttime='''+datetostr(dtp_start.DateTime)+
           ''',ho_leavetime='''+datetostr(dtp_end.DateTime)+''',ho_rent='''+edit_contractNo.Text+
           ''',ho_rentunit='''+trim(cb_unit.Text)+
           ''',ho_remarks='''+trim(edit_remarks.Text)+''' where ho_contractno='''+trim(edit_contractNo.text)+'''and ho_rentorno=1';       
        sql.Add(s);
        execsql;
        showmessage('修改成功');
     end;
  except
      showmessage('修改失败');
  end;

end;

procedure TForm_constract.FormShow(Sender: TObject);
begin
  dtp_start.DateTime:=now();
  dtp_end.DateTime:=now();

  rb_kh.SetFocus;
end;

procedure TForm_constract.rb_khClick(Sender: TObject);
begin
   label2.Caption:='客户编号';
end;

procedure TForm_constract.rb_fdClick(Sender: TObject);
begin
    label2.Caption:='房东编号';
end;

procedure TForm_constract.cb_unitDropDown(Sender: TObject);
var
   s:string;
begin
  try
   with dm.aq1 do
   begin
     close;
     sql.Clear;
     s:='select ru_name from rentunit ';
     sql.Add(s);
     open;