unit ClientPayUnit;

interface

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

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

var
  ClientPayForm: TClientPayForm;

implementation

uses udm, SelectDataUnit, SelectTextUnit, DateUnit;
{$R *.dfm}
  function TClientPayForm.checkdata: boolean;
 begin
   result := true;
   if trim(DBedit1.Text) = '' then
  begin
    showmessage('收費人員不能為空!');
    result := false;
    DBedit1.SetFocus;
    exit;
  end;
   if trim(TS_User.Text) = '' then
  begin
    showmessage('用戶名不能為空!');
    result := false;
    TS_User.SetFocus;
    exit;
  end;
  end;
procedure TClientPayForm.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 TClientPayForm.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 TClientPayForm.SpeedButton1Click(Sender: TObject);
begin
  Application.CreateForm(TSelectTextForm, SelectTextForm);
  SelectTextForm.Caption := '繳費方式方式選擇';
  with SelectTextForm.ComboBox1 do
  begin
    clear;
    items.Add('現金');
    items.Add('支票');
    items.Add('信用卡');
    itemindex := 0;
  end;
  if SelectTextForm.ShowModal = mrOk then
  begin
    DBedit2.Text := '';
    DBedit2.Text := SelectTextForm.combobox1.Text;
  end;
  SelectTextForm.Free;
end;
 procedure TClientPayForm.btaddClick(Sender: TObject);
var NewID: string;
begin
  if checkdata then
    adodm.ClientPay.Last; //返到記錄的最后一個
  if adodm.ClientPay.FieldCount = 0 then
  begin
    adodm.ClientPay.Append; //增加新記錄
    TS_ID.Text := '1'; //把新記錄的編號
  end
  else
  begin
    NewID := IntToStr(adodm.ClientPay.FieldByName('單據編號').AsInteger + 1);
      //新記錄的編號
    adodm.ClientPay.Append; //增加新記錄
    TS_ID.Text := NewID; //把新記錄的編號
  end;
end;
{procedure TClientPayForm.btaddClick(Sender: TObject);
begin
  try
    adodm.ClientPay.Append;
  except
    showmessage('添加數據產生錯誤');
  end;
end; }

procedure TClientPayForm.btokClick(Sender: TObject);
begin
  try
     if checkdata then
    adodm.ClientPay.Post;
    close;
  except
    showmessage('添加數據產生錯誤');
  end;
end;

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

procedure TClientPayForm.btno1Click(Sender: TObject);
begin
  try
    adodm.ClientPay.Cancel;
    close;
  except
    showmessage('錯誤產生,請聯系我們');
  end;
end;

procedure TClientPayForm.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.