unit khxxfkgl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, Grids, DBGrids, ExtCtrls;

type
  TForm28 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Shape1: TShape;
    Label4: TLabel;
    Label7: TLabel;
    Shape2: TShape;
    Label10: TLabel;
    Label11: TLabel;
    Edit1: TEdit;
    Memo1: TMemo;
    Memo2: TMemo;
    ListBox1: TListBox;
    DataSource1: TDataSource;
    Panel2: TPanel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label12: TLabel;
    Edit2: TEdit;
    DBGrid1: TDBGrid;
    Label5: TLabel;
    Label6: TLabel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ListBox1DblClick(Sender: TObject);
    procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn3MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form28: TForm28;
implementation
  uses Data2,wlzgl;
{$R *.dfm}
var
  mm: Boolean = False;
procedure TForm28.FormShow(Sender: TObject);
begin
  ListBox1.Clear;
  DataSource1.DataSet := Nil;
  DBGrid1.Visible := False;
  Edit1.Clear;
  Edit2.Clear;
  Memo1.Clear;
  Memo2.Clear;
  Label7.Caption := '';
  with datam.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select Distinct 客戶全稱 From 客戶基礎信息表');
    Open;
  end;
  while Not datam.ADOQuery1.Eof do
  begin
    ListBox1.Items.Add(datam.ADOQuery1.FieldByName('客戶全稱').Value);
    datam.ADOQuery1.Next;
  end;
end;

procedure TForm28.BitBtn3Click(Sender: TObject);
begin
  mm := True;
  Label3.Caption := FormatDateTime('yyyy-mm-dd',Now);
  Edit2.SetFocus;
end;

procedure TForm28.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = Vk_ReTurn then
    if Trim(Edit2.Text)<>'' then
      Edit1.SetFocus;
end;

procedure TForm28.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_Next then
  begin
    ListBox1.Visible := True;
    ListBox1.SetFocus;
  end;
  if Key = VK_ReTurn then
    if Trim(Edit1.Text)<>'' then
    begin
      ListBox1.Visible := False;
      with datam.ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('select * from 客戶基礎信息表 where 客戶全稱 = :a');
        Parameters.ParamByName('a').Value := Trim(Edit1.Text);
        Open;
      end;
      if datam.ADOQuery1.RecordCount>0 then
      begin
        if datam.ADOQuery1.RecordCount>1 then
        begin
          DataSource1.DataSet := datam.ADOQuery1;
          DBGrid1.Visible := True;
          DBGrid1.SetFocus;
        end
        else
        begin
          Label7.Caption := datam.ADOQuery1.FieldByName('客戶編號').Value;
          Memo1.SetFocus ;
        end;
        Edit1.ReadOnly := True;
      end
      else
      begin
        Application.MessageBox('該客戶不存在。','提示',64);
        Edit1.Clear;
      end;
    end;
end;

procedure TForm28.DBGrid1DblClick(Sender: TObject);
begin
  Label7.Caption := datam.ADOQuery1.FieldByName('客戶編號').Value;
  DBGrid1.Visible := False;
  Memo1.SetFocus;
end;

procedure TForm28.DBGrid1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_ReTurn then
    DBGrid1.OnDblClick(Sender);
end;

procedure TForm28.ListBox1DblClick(Sender: TObject);
begin
  Edit1.Text:= ListBox1.Items[ListBox1.ItemIndex];
  Edit1.SetFocus;
  ListBox1.Visible := False;
end;

procedure TForm28.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = Vk_ReTurn then
    ListBox1.OnDblClick(Sender);
end;

procedure TForm28.BitBtn2Click(Sender: TObject);
begin
  Label3.Caption := '';
  Label7.Caption := '';
  Edit1.Clear;
  Memo1.Clear;
  Memo2.Clear;
  ListBox1.Visible := False;
  DBGrid1.Visible := False;
  BitBtn3.SetFocus;
  mm := False;
  Edit1.ReadOnly := False;
  DataSource1.DataSet := Nil;
end;

procedure TForm28.Edit2Change(Sender: TObject);
begin
  if (Trim(Edit2.Text)<>'')and(Trim(Edit1.Text)<>'')and(Trim(Memo1.Text)<>'')and
    (Trim(Memo2.Text)<>'')and(Trim(Label3.Caption)<>'')and(Trim(Label7.Caption)<>'')then
      BitBtn4.Enabled := True
  else
    BitBtn4.Enabled := False;
end;

procedure TForm28.BitBtn4Click(Sender: TObject);
begin
  Try
    with datam.ADOQuery2 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('insert 客戶信息反饋表 values(:a,:b,:c,:d,:e,Default,:f)');
      Parameters.ParamByName('a').Value := Trim(Label7.Caption);
      Parameters.ParamByName('b').Value := Trim(Edit1.Text);
      Parameters.ParamByName('c').Value := Trim(Memo1.Text);
      Parameters.ParamByName('d').Value := Trim(Edit2.Text);
      Parameters.ParamByName('e').Value := Trim(Memo2.Text);
      Parameters.ParamByName('f').Value := Trim(czymc);
      ExecSQL;
    end;
    Application.MessageBox('數據保存成功。','提示',64);
    BitBtn2.OnClick(Sender);
    Edit2.Clear;
  Except
    Application.MessageBox('系統出錯。','提示',64);
    Close;
  end;
end;

procedure TForm28.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_Shift then
    if Trim(Memo1.Text)<>'' then
      Memo2.SetFocus;
end;

procedure TForm28.Memo2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_Shift then
    if (Trim(Memo2.Text)<>'')and(BitBtn4.Enabled = True) then
      BitBtn4.SetFocus;
end;

procedure TForm28.BitBtn3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clRed;
end;

procedure TForm28.BitBtn3MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TBitBtn(Sender).Font.Color := clBlue;
end;

end.