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('添加數(shù)據(jù)產(chǎn)生錯誤');
  end;
end;

procedure TClientAdvanceForm.btokClick(Sender: TObject);
begin
  try
    adodm.ClientAdvance.Post;
  except
    showmessage('添加數(shù)據(jù)產(chǎn)生錯誤');
  end;
end;

procedure TClientAdvanceForm.BtdelClick(Sender: TObject);
begin
  if MessageDlg('您確定要刪除錄入的數(shù)據(jù)嗎？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    try
      adodm.ClientAdvance.Delete;
    except
      showmessage('刪除數(shù)據(jù)產(chǎn)生錯誤');
    end;
  end;
end;

procedure TClientAdvanceForm.btno1Click(Sender: TObject);
begin
  try
    adodm.ClientAdvance.Cancel;
    close;
  except
    showmessage('錯誤產(chǎn)生,請聯(lián)系我們');
  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.