unit ParkUnit;

interface

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

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

var
  ParkForm: TParkForm;

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

procedure TParkForm.FormCreate(Sender: TObject);
begin
  ParkForm.Caption := '住戶停車車位管理';
end;
  function TParkForm.checkdata: boolean;
begin
  result := true;

  end;
{procedure TParkForm.btaddClick(Sender: TObject);
begin
  try
    adodm.Part.Append;
  except
    showmessage('添加數據產生錯誤');
  end;
end; }
 procedure TParkForm.btaddClick(Sender: TObject);
var NewID: string;
begin
  if checkdata then
    adodm.Part.Last; //返到記錄的最后一個
  if adodm.Part.FieldCount = 0 then
  begin
    adodm.Part.Append; //增加新記錄
    TS_ID.Text := '1'; //把新記錄的編號
  end
  else
  begin
    NewID := IntToStr(adodm.Part.FieldByName('車位編號').AsInteger + 1);
      //新記錄的編號
    adodm.Part.Append; //增加新記錄
    TS_ID.Text := NewID; //把新記錄的編號
  end;
end;
procedure TParkForm.btokClick(Sender: TObject);
begin
  try
    adodm.Part.Post;
    close;
  except
    showmessage('添加數據產生錯誤');
  end;
end;

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

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

procedure TParkForm.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 TParkForm.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;

procedure TParkForm.SpeedButton1Click(Sender: TObject);
begin
  Application.CreateForm(TSelectDataForm, SelectDataForm);
  SelectDataForm.Caption := '請選擇車位編號';
  with SelectDataForm.DBLookupComboBox1 do
  begin
    with adodm.search1 do
    begin
      Close;
      CommandText := 'SELECT 車位編號 FROM PartTable';
      open;
    end;
    ListSource := adodm.dssearch1;
    KeyField := '車位編號';
    if adodm.search1.RecordCount > 0 then ListFieldIndex := 0;
  end;

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

procedure TParkForm.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;
    if adodm.search3.RecordCount = 0 then
      //如果房型資料的數據庫為空的話,提示出錯信息
      ShowMessage('沒有住戶名稱');
  end;
  if SelectDataForm.ShowModal = mrOk then
 TS_User.Text := SelectDataForm.DBLookupComboBox1.Text;
  User_ID.Text := adodm.search3.FieldByName('住戶編號').AsString;
  SelectDataForm.Free;
  end;
end.