unit clientUnit;

interface

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

type
  TClientForm = class(TForm)
    Panel1: TPanel;
    ToolBar1: TToolBar;
    btadd: TBitBtn;
    btok: TBitBtn;
    Btdel: TBitBtn;
    btno1: TBitBtn;
    Panel2: TPanel;
    Label6: TLabel;
    Label8: TLabel;
    Label4: TLabel;
    Label7: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    TS_ID: TDBEdit;
    TS_User: TDBEdit;
    UserTel: TDBEdit;
    AddRess: TDBEdit;
    chargeItemNum: TDBEdit;
    Com_Person: TDBEdit;
    TS_Memo: TDBMemo;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    Page1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Panel4: TPanel;
    Panel5: TPanel;
    Label2: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    DBGrid2: TDBGrid;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBMemo1: TDBMemo;
    Label19: TLabel;
    DBEdit9: TDBEdit;
    Label20: TLabel;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    Label21: TLabel;
    DBEdit12: TDBEdit;
    Label22: TLabel;
    DBEdit13: TDBEdit;
    Label23: TLabel;
    DBEdit14: TDBEdit;
    Label24: TLabel;
    DBEdit15: TDBEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Label25: TLabel;
    DBEdit16: TDBEdit;
    Label26: TLabel;
    DBEdit17: TDBEdit;
    Label27: TLabel;
    DBEdit18: TDBEdit;
    Label28: TLabel;
    DBEdit19: TDBEdit;
    Label29: TLabel;
    DBMemo2: TDBMemo;
    Panel6: TPanel;
    DBGrid3: TDBGrid;
    SpeedButton4: TSpeedButton;
    Panel7: TPanel;
    DBGrid4: TDBGrid;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label39: TLabel;
    DBEdit20: TDBEdit;
    DBEdit21: TDBEdit;
    DBEdit22: TDBEdit;
    DBEdit23: TDBEdit;
    DBEdit24: TDBEdit;
    DBEdit25: TDBEdit;
    DBEdit26: TDBEdit;
    DBMemo3: TDBMemo;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    procedure CheckStr(Sender: TObject; Name: string);
    procedure FormCreate(Sender: TObject);
    procedure btaddClick(Sender: TObject);
    procedure btokClick(Sender: TObject);
    procedure BtdelClick(Sender: TObject);
    procedure btno1Click(Sender: TObject);
    procedure Page1Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ClientForm: TClientForm;

implementation

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

procedure TClientForm.CheckStr(Sender: TObject; Name: string);
begin
  if Trim((sender as Tdbedit).Text) = '' then
  begin
    ShowMessage(Name + ': 此欄必須填寫信息!');
    (Sender as TDBEdit).SetFocus;
  end;
end;

procedure TClientForm.FormCreate(Sender: TObject);
begin
  caption := '住戶資料錄入';
  page1.TabIndex := 0; // 初始化，選項卡顯示第一個
end;

procedure TClientForm.btaddClick(Sender: TObject);
var
  NewID: string;
begin
  try
    case page1.ActivePageIndex of
      0:
        begin
          adodm.client.Last; //返到記錄的最后一個
          NewID := IntToStr(adodm.client.FieldByName('住戶編號').AsInteger + 1);
            //新記錄的編號
          adodm.client.Append; //增加新記錄
          TS_ID.Text := NewID; //把新記錄的編號
        end;
      1:
        begin
          adodm.ttemp.Append;
            //當追加新記錄的時候，把當前記錄的編號和名稱自動輸入
          DBedit9.Text := adodm.client.FieldByName('住戶編號').AsString;
          DBedit10.Text := adodm.client.FieldByName('住戶名稱').AsString;
        end;
      2:
        begin
          adodm.search1.Append;
            //當追加新記錄的時候，把當前記錄的編號和名稱自動輸入
          DBedit12.Text := adodm.client.FieldByName('住戶編號').AsString;
          DBedit11.Text := adodm.client.FieldByName('住戶名稱').AsString;
        end;
      3:
        begin
          adodm.ClientFamily.Append;
            //當追加新記錄的時候，把當前記錄的編號和名稱自動輸入
          DBedit14.Text := adodm.client.FieldByName('住戶編號').AsString;
          DBedit13.Text := adodm.client.FieldByName('住戶名稱').AsString;
        end;
    end;
  except
    showmessage('產生例外錯誤，請聯系我們');
  end;
end;

procedure TClientForm.btokClick(Sender: TObject);
begin
  try
    case page1.ActivePageIndex of
      0:
        begin
          CheckStr(TS_ID, '住戶編號'); //檢查不能夠為空的項目
          CheckStr(TS_user, '住戶名稱');
          CheckStr(UserTel, '聯系電話');
          CheckStr(Address, '聯系電話'); //檢查不能夠為空的項目
          adodm.client.Post; //提交新記錄
        end;
      1:
        begin
          CheckStr(DBEdit9, '住戶編號'); //檢查不能夠為空的項目
          CheckStr(DBEdit10, '住戶名稱');
          CheckStr(DBEdit15, '使用狀況');
          CheckStr(DBEdit1, '小區名稱'); //檢查不能夠為空的項目
          CheckStr(DBEdit2, '樓宇名稱');
          CheckStr(DBEdit3, '樓層');
          CheckStr(DBEdit4, '房屋號'); //檢查不能夠為空的項目
          CheckStr(DBEdit5, '單元');
          CheckStr(DBEdit6, '遷入日期');
          CheckStr(DBEdit8, '房型'); //檢查不能夠為空的項目
          adodm.ttemp.Post;
        end;
      2:
        begin
          CheckStr(DBEdit12, '住戶編號'); //檢查不能夠為空的項目
          CheckStr(DBEdit11, '住戶名稱');
          CheckStr(DBEdit20, '收費名稱');
          CheckStr(DBEdit23, '定額用量');
          CheckStr(DBEdit24, '定額內價格');
          CheckStr(DBEdit25, '超定額價格'); //檢查不能夠為空的項目
          adodm.search1.Post;
        end;
      3:
        begin
          CheckStr(DBEdit14, '住戶編號'); //檢查不能夠為空的項目
          CheckStr(DBEdit13, '住戶名稱');
          CheckStr(DBEdit16, '姓名');
          CheckStr(DBEdit17, '性別');
          CheckStr(DBEdit18, '生日');
          CheckStr(DBEdit19, '稱謂'); //檢查不能夠為空的項目
          adodm.ClientFamily.Post;
        end;
    end;

  except
    showmessage('產生例外錯誤，請聯系我們');
  end;
end;

procedure TClientForm.BtdelClick(Sender: TObject);
begin
  if MessageDlg('您確定要刪除錄入的數據嗎？', mtConfirmation, [mbYes, mbNo], 0)
    = mrYes then
  begin
    try
      case page1.ActivePageIndex of
        0: adodm.client.Delete; //刪除當前記錄
        1: adodm.Ttemp.Delete;
        2: adodm.search1.Delete;
        3: adodm.ClientFamily.Delete;
      end;
    except
      showmessage('產生例外錯誤，請聯系我們');
    end;
  end;
end;

procedure TClientForm.btno1Click(Sender: TObject);
begin