clientadvanceunit.~pas

小区物业管理系统 运行环境：DELPHI7.0和SQL Server2000 1、将文件DATA里的数据库XQ附加到SQL Server2000企业管理器中

unit ClientAdvanceUnit;

interface

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

type
  TClientAdvanceForm = class(TForm)
    ToolBar1: TToolBar;
    btadd: TBitBtn;
    btok: TBitBtn;
    Btdel: TBitBtn;
    btno1: TBitBtn;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label6: TLabel;
    Label8: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label2: TLabel;
    TS_ID: TDBEdit;
    TS_User: TDBEdit;
    User_ID: TDBEdit;
    TS_date: TDBEdit;
    DBMemo1: TDBMemo;
    DBEdit1: TDBEdit;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure btaddClick(Sender: TObject);
    procedure btokClick(Sender: TObject);
    procedure BtdelClick(Sender: TObject);
    procedure btno1Click(Sender: TObject);
    procedure User_IDChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ClientAdvanceForm: TClientAdvanceForm;

implementation

uses udm, SelectDataUnit, dateUnit;
{$R *.dfm}

procedure TClientAdvanceForm.SpeedButton2Click(Sender: TObject);
begin
  Application.CreateForm(TdateForm, dateForm);
  if (dateForm.ShowModal = mrOk) then
  begin
    TS_Date.Text := '';
    TS_Date.Text := DateTimeToStr(dateForm.date1.date);
  end;
  dateForm.Free;
end;

procedure TClientAdvanceForm.SpeedButton3Click(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;
  end;

  if SelectDataForm.ShowModal = mrOk then
    User_ID.Text := SelectDataForm.DBLookupComboBox1.Text;
end;

procedure TClientAdvanceForm.btaddClick(Sender: TObject);
begin
  try
    adodm.ClientAdvance.Append;
  except
    showmessage('添加数据产生错误');
  end;
end;

procedure TClientAdvanceForm.btokClick(Sender: TObject);
begin
  try
    adodm.ClientAdvance.Post;
  except
    showmessage('添加数据产生错误');
  end;
end;

procedure TClientAdvanceForm.BtdelClick(Sender: TObject);
begin
  if MessageDlg('您确定要删除录入的数据吗？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    try
      adodm.ClientAdvance.Delete;
    except
      showmessage('删除数据产生错误');
    end;
  end;
end;

procedure TClientAdvanceForm.btno1Click(Sender: TObject);
begin
  try
    adodm.ClientAdvance.Cancel;
    close;
  except
    showmessage('错误产生,请与软件供应商联系');
  end;
end;

procedure TClientAdvanceForm.User_IDChange(Sender: TObject);
begin
  with adodm.search2 do
  begin
    Close;
    CommandText := 'SELECT 住户名称 FROM ClientTable where 住户编号=:住户编号';
    Parameters.ParamByName('住户编号').Value := User_ID.Text;
    open;
  end;
  TS_User.DataSource := adodm.dssearch2;
  TS_User.DataField := '住户名称';
end;

end.