unit ZHTSUnit;

interface

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

type
  TZHTSForm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    ToolBar1: TToolBar;
    DBGrid1: TDBGrid;
    TS_ID: TDBEdit;
    TS_User: TDBEdit;
    User_ID: TDBEdit;
    TS_date: TDBEdit;
    TS_JD: TDBEdit;
    TS_Com: TDBEdit;
    Com_Person: TDBEdit;
    TS_Memo: TDBMemo;
    Com_Memo: TDBMemo;
    Label1: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    btadd: TBitBtn;
    btno1: TBitBtn;
    btok: TBitBtn;
    Btdel: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    SpeedButton1: TSpeedButton;
    procedure btno1Click(Sender: TObject);
    procedure btaddClick(Sender: TObject);
    procedure btokClick(Sender: TObject);
    procedure BtdelClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
   { Private declarations }
  public
    function checkdata: boolean; //檢查輸入的數(shù)據(jù)是否符合要求
    { Public declarations }
  end;

var
  ZHTSForm: TZHTSForm;

implementation

uses Umain, Udm, dateUnit, SelectDataUnit;

{$R *.dfm}



function TZHTSForm.checkdata: boolean;
begin
  result := true;
  if trim(TS_ID.Text) = '' then
  begin
    showmessage('投訴編號不能為空!');
    result := false;
    TS_ID.SetFocus;
    exit;
  end;

  if trim(TS_User.Text) = '' then
  begin
    showmessage('投訴用戶不能為空!');
    result := false;
    TS_User.SetFocus;
    exit;
  end;

  if trim(User_ID.Text) = '' then
  begin
    showmessage('住戶編號不能為空!');
    result := false;
    User_ID.SetFocus;
    exit;
  end;
  if trim(TS_date.Text) = '' then
  begin
    showmessage('投訴日期不能為空!');
    result := false;
    TS_date.SetFocus;
    exit;
  end;
  if trim(TS_JD.Text) = '' then
  begin
    showmessage('接待人員不能為空!');
    result := false;
    TS_JD.SetFocus;
    exit;
  end;
   {if trim(TS_Com.Text)='' then
   begin
   showmessage('處理日期不能為空!');
   result:=false;
   TS_Com.SetFocus;
   exit;
   end; }
 {    if trim(Com_Person.Text)='' then
   begin
   showmessage('處理人員不能為空!');
   result:=false;
   Com_Person.SetFocus;
   exit;
   end;}

  if trim(TS_Memo.Text) = '' then
  begin
    showmessage('投訴內(nèi)容不能為空!');
    result := false;
    TS_Memo.SetFocus;
    exit;
  end;
end;

procedure TZHTSForm.btno1Click(Sender: TObject);
begin
  try
    adodm.YHTS.Cancel;
    close;
  except
    showmessage('產(chǎn)生例外錯誤，請聯(lián)系我們');
  end;
end;


procedure TZHTSForm.btaddClick(Sender: TObject);
var NewID: string;
begin
  if checkdata then
    adodm.YHTS.Last; //返到記錄的最后一個
  if adodm.YHTS.FieldCount = 0 then
  begin
    adodm.YHTS.Append; //增加新記錄
    TS_ID.Text := '1'; //把新記錄的編號
  end
  else
  begin
    NewID := IntToStr(adodm.YHTS.FieldByName('投訴編號').AsInteger + 1);
      //新記錄的編號
    adodm.YHTS.Append; //增加新記錄
    TS_ID.Text := NewID; //把新記錄的編號
  end;
end;
procedure TZHTSForm.btokClick(Sender: TObject);
begin
  try
    if checkdata then
      adodm.YHTS.Post;
    close;
  except
    showmessage('產(chǎn)生例外錯誤，請聯(lián)系我們');
  end;
end;
{procedure TZHTSForm.SpeedButton1Click(Sender: TObject);
begin
  Application.CreateForm(TSelectDataForm, SelectDataForm);
  SelectDataForm.Caption := '請選擇住戶名稱';
  with SelectDataForm.DBLookupComboBox1 do
  begin
    with adodm.search3 do
    begin //從數(shù)據(jù)庫中得到所有的住戶名稱
      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
      //如果房型資料的數(shù)據(jù)庫為空的話,提示出錯信息
      ShowMessage('沒有住戶名稱');
  end;    }
procedure TZHTSForm.BtdelClick(Sender: TObject);
begin
  if MessageDlg('您確定要刪除錄入的數(shù)據(jù)嗎？', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    try
      adodm.YHTS.Delete;
    except
      showmessage('產(chǎn)生例外錯誤，請聯(lián)系我們');
    end;
  end;
end;

procedure TZHTSForm.BitBtn1Click(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 TZHTSForm.BitBtn2Click(Sender: TObject);
begin
  Application.CreateForm(TdateForm, dateForm);
  if (dateForm.ShowModal = mrOk) then
  begin
    TS_com.Text := '';
    TS_com.Text := DateTimeToStr(dateForm.date1.date);
  end;
  dateForm.Free;
end;

procedure TZHTSForm.SpeedButton1Click(Sender: TObject);
begin
   Application.CreateForm(TSelectDataForm, SelectDataForm);
  SelectDataForm.Caption := '請選擇住戶名稱';
  with SelectDataForm.DBLookupComboBox1 do
  begin
    with adodm.search3 do
    begin //從數(shù)據(jù)庫中得到所有的住戶名稱
      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
      //如果房型資料的數(shù)據(jù)庫為空的話,提示出錯信息
      ShowMessage('沒有住戶名稱');
  end;
  if SelectDataForm.ShowModal = mrOk then
    TS_User.Text := SelectDataForm.DBLookupComboBox1.Text;
  User_ID.Text := adodm.search3.FieldByName('住戶編號').AsString;
  SelectDataForm.Free;
end;

end.