clientunit.~pas

如果您在试用或使用过程中认为软件需修改

  try
    case page1.ActivePageIndex of
      0: adodm.client.Cancel; //取消加入新记录
      1: adodm.ttemp.Cancel;
      2: adodm.search1.Cancel;
      3: adodm.ClientFamily.Cancel;
    end;
  except
    showmessage('产生例外错误，请联系我们');
  end;
  close;
end;

procedure TClientForm.Page1Change(Sender: TObject);
begin
  case page1.TabIndex of
    1:
      begin
        with adodm.ttemp do
        begin
          Close;
          CommandText := '';
          CommandText :=
            'SELECT * FROM ClientRoomTable where 住户编号=:住户编号';
          Parameters.ParamByName('住户编号').Value := TS_ID.Text;
          open;
        end; // 设置主要控件数据源
        DBGrid2.DataSource := adodm.dstemp;
        DBEdit9.DataSource := adodm.dstemp;
        DBEdit9.DataField := '住户编号';
        DBEdit10.DataSource := adodm.dstemp;
        DBEdit10.DataField := '住户名称';
      end;
    2:
      begin
        with adodm.search1 do
        begin
          Close;
          CommandText := '';
          CommandText := 'SELECT * FROM ChargeTable where 住户编号=:住户编号';
          Parameters.ParamByName('住户编号').Value := TS_ID.Text;
          open;
        end; // 设置主要控件数据源
        DBGrid4.DataSource := adodm.dssearch1;
        DBEdit12.DataSource := adodm.dssearch1;
        DBEdit12.DataField := '住户编号';
        DBEdit11.DataSource := adodm.dssearch1;
        DBEdit11.DataField := '住户名称';
      end;
    3:
      begin
        with adodm.ClientFamily do
        begin
          Close;
          CommandText := '';
          CommandText :=
            'SELECT * FROM ClientFamilyTable where 住户编号=:住户编号';
          Parameters.ParamByName('住户编号').Value := TS_ID.Text;
          open;
        end; // 设置主要控件数据源
        DBGrid3.DataSource := adodm.dsClientFamily;
        DBEdit14.DataSource := adodm.dsClientFamily;
        DBEdit14.DataField := '住户编号';
        DBEdit13.DataSource := adodm.dsClientFamily;
        DBEdit13.DataField := '住户名称';
      end;
  end;
end;

procedure TClientForm.SpeedButton1Click(Sender: TObject);
begin
  Application.CreateForm(TSelectTextForm, SelectTextForm);
  SelectTextForm.Caption := '房屋使用方式选择'; //显示房屋使用方式窗体
  with SelectTextForm.ComboBox1 do
  begin
    clear; // 添加房屋使用方式数据
     items.Add('购买未住');
    items.Add('购买外租');
    items.Add('购买自用');
    items.Add('已转售');
    items.Add('已退租');
    itemindex := 0;
  end;
  if SelectTextForm.ShowModal = mrOk then
  begin
    DBedit15.Text := ''; //情况控件中原有的数据
    DBedit15.Text := SelectTextForm.combobox1.Text;
  end; //得到房屋使用方式的文本
  SelectTextForm.Free;
end;

procedure TClientForm.SpeedButton2Click(Sender: TObject);
begin
  Application.CreateForm(TdateForm, dateForm);
  if (dateForm.ShowModal = mrOk) then
  begin // 显示日期选择窗体
    DBedit6.Text := '';
    DBedit6.Text := DateTimeToStr(dateForm.date1.date);
  end; //得到当前选择日期
  dateForm.Free;
end;

procedure TClientForm.SpeedButton3Click(Sender: TObject);
begin
  Application.CreateForm(TdateForm, dateForm);
  if (dateForm.ShowModal = mrOk) then
  begin // 显示日期选择窗体
    DBedit7.Text := '';
    DBedit7.Text := DateTimeToStr(dateForm.date1.date);
  end; //得到当前选择日期
  dateForm.Free;
end;

procedure TClientForm.SpeedButton4Click(Sender: TObject);
begin
  Application.CreateForm(TdateForm, dateForm);
  if (dateForm.ShowModal = mrOk) then
  begin // 显示日期选择窗体
    DBedit18.Text := '';
    DBedit18.Text := DateTimeToStr(dateForm.date1.date);
  end; //得到当前选择日期
  dateForm.Free;
end;

procedure TClientForm.SpeedButton6Click(Sender: TObject);
begin
  Application.CreateForm(TSelectDataForm, SelectDataForm);
  SelectDataForm.Caption := '请选择房型';
  with SelectDataForm.DBLookupComboBox1 do
  begin
    with adodm.search3 do
    begin //从数据库中得到所有的房型数据
      Close;
      CommandText := 'SELECT 房型 FROM ModelTable';
      open;
    end;
    ListSource := adodm.dssearch3;
    KeyField := '房型';
    if adodm.search3.RecordCount > 0 then
      ListFieldIndex := 0;
    if adodm.search3.RecordCount = 0 then
      //如果房型资料的数据库为空的话,提示出错信息
      ShowMessage('不能够新增记录,没有房型资料');
  end;
  if SelectDataForm.ShowModal = mrOk then
    DBEdit8.Text := SelectDataForm.DBLookupComboBox1.Text;
  SelectDataForm.Free;
end;

procedure TClientForm.SpeedButton5Click(Sender: TObject);
var
  ChargeNum, // 收费金额
  ChargeUnit, //  收费单位
  ChargePeriod: //  收费周期
  string;
begin
  Application.CreateForm(TSelectDataForm, SelectDataForm);
  SelectDataForm.Caption := '请选择收费名称';
  with SelectDataForm.DBLookupComboBox1 do
  begin
    with adodm.search2 do
    begin //从数据库中得到所有的收费名称数据
      Close;
      CommandText := 'SELECT 收费名称 FROM ChargeItemTable';
      open;
    end;
    ListSource := adodm.dssearch2;
    KeyField := '收费名称';
    if adodm.search2.RecordCount > 0 then
      ListFieldIndex := 0;
    if adodm.search2.RecordCount = 0 then
      ShowMessage('不能够新增记录,没有用户收费项目');
  end;

  if SelectDataForm.ShowModal = mrOk then
    DBEdit20.Text := SelectDataForm.DBLookupComboBox1.Text;
  SelectDataForm.Free;
  with adodm.search2 do
  begin //从数据库中得到所有的收费名称数据
    Close;
    CommandText :=
      'SELECT 收费金额,收费单位,收费周期 FROM ChargeItemTable where 收费名称=:收费名称';
    Parameters.ParamByName('收费名称').Value := DBedit20.Text;
    open;
  end;
  DBEdit21.Text := adodm.search2.FieldByName('收费金额').AsString;
  DBEdit22.Text := adodm.search2.FieldByName('收费单位').AsString;
  DBEdit26.Text := adodm.search2.FieldByName('收费周期').AsString;
end;

procedure TClientForm.SpeedButton7Click(Sender: TObject);
begin
 Application.CreateForm(TSelectDataForm, SelectDataForm);
  SelectDataForm.Caption := '请选择住户名称';
  with SelectDataForm.DBLookupComboBox1 do
  begin
    with adodm.search3 do
    begin //从数据库中得到所有的住户名称
      Close;
      CommandText := 'SELECT 住户名称,住户编号 FROM ClientTable';
      open;
    end;
    ListSource := adodm.dssearch3;
    KeyField := '住户名称';
    if adodm.search3.RecordCount > 0 then
      ListFieldIndex := 0;
    if adodm.search3.RecordCount = 0 then
      //如果房型资料的数据库为空的话,提示出错信息
      ShowMessage('没有住户名称');
  end;
  if SelectDataForm.ShowModal = mrOk then
    DBEdit10.Text := SelectDataForm.DBLookupComboBox1.Text;
  DBEdit9.Text := adodm.search3.FieldByName('住户编号').AsString;
  SelectDataForm.Free;
end;


procedure TClientForm.SpeedButton8Click(Sender: TObject);
begin
 Application.CreateForm(TSelectDataForm, SelectDataForm);
  SelectDataForm.Caption := '请选择住户名称';
  with SelectDataForm.DBLookupComboBox1 do
  begin
    with adodm.search3 do
    begin //从数据库中得到所有的住户名称
      Close;
      CommandText := 'SELECT 住户名称,住户编号 FROM ClientTable';
      open;
    end;
    ListSource := adodm.dssearch3;
    KeyField := '住户名称';
    if adodm.search3.RecordCount > 0 then
      ListFieldIndex := 0;
    if adodm.search3.RecordCount = 0 then
      //如果房型资料的数据库为空的话,提示出错信息
      ShowMessage('没有住户名称');
  end;
  if SelectDataForm.ShowModal = mrOk then
    DBEdit11.Text := SelectDataForm.DBLookupComboBox1.Text;
  DBEdit12.Text := adodm.search3.FieldByName('住户编号').AsString;
  SelectDataForm.Free;
end;

procedure TClientForm.SpeedButton9Click(Sender: TObject);
begin
Application.CreateForm(TSelectDataForm, SelectDataForm);
  SelectDataForm.Caption := '请选择住户名称';
  with SelectDataForm.DBLookupComboBox1 do
  begin
    with adodm.search3 do
    begin //从数据库中得到所有的住户名称
      Close;
      CommandText := 'SELECT 住户名称,住户编号 FROM ClientTable';
      open;
    end;
    ListSource := adodm.dssearch3;
    KeyField := '住户名称';
    if adodm.search3.RecordCount > 0 then
      ListFieldIndex := 0;
    if adodm.search3.RecordCount = 0 then
      //如果房型资料的数据库为空的话,提示出错信息
      ShowMessage('没有住户名称');
  end;
  if SelectDataForm.ShowModal = mrOk then
    DBEdit13.Text := SelectDataForm.DBLookupComboBox1.Text;
  DBEdit14.Text := adodm.search3.FieldByName('住户编号').AsString;
  SelectDataForm.Free;
end;

end.