khxxgzgl.pas

delphi开发的完整的客户管理系统（带数据库）

unit khxxgzgl;

interface

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

type
  TForm26 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Shape1: TShape;
    Label4: TLabel;
    Label7: TLabel;
    Shape2: TShape;
    Label8: TLabel;
    Label9: TLabel;
    Shape3: TShape;
    Label10: TLabel;
    Memo1: TMemo;
    Label11: TLabel;
    Memo2: TMemo;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn1: TBitBtn;
    ListBox1: TListBox;
    DataSource1: TDataSource;
    BitBtn2: TBitBtn;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure ListBox1KeyDown(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 Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Memo2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    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
  Form26: TForm26;
  aa: Boolean = False ;//确定保存按钮是否可用
implementation
  uses wlzgl,Data2;
{$R *.dfm}

procedure TForm26.FormShow(Sender: TObject);
begin
  Label9.Caption := czymc;
  Edit1.Clear;
  Label7.Caption := '';
  Memo1.Clear;
  Memo2.Clear;
  ListBox1.Clear;
  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 TForm26.BitBtn3Click(Sender: TObject);
begin
  Memo1.Clear;
  Memo2.Clear;
  Edit1.Clear;
  Label3.Caption := '';
  Label3.Caption := FormatDateTime('yyyy-mm-dd',Now);
  Edit1.SetFocus;
  aa := True;
end;

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

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

procedure TForm26.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_Next then
  begin
    ListBox1.Visible := True;
    ListBox1.SetFocus;
    ListBox1.ItemIndex := 0;
  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 TForm26.DBGrid1DblClick(Sender: TObject);
begin
  Label7.Caption := datam.ADOQuery1.FieldByName('客户编号').Value;
  DBGrid1.Visible := False;
  Memo1.SetFocus;
end;

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

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

procedure TForm26.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 TForm26.BitBtn2Click(Sender: TObject);
begin
  Edit1.Clear;
  Memo1.Clear;
  Memo2.Clear;
  Label3.Caption := '';
  Label7.Caption := '';
  BitBtn4.Enabled := False;
  BitBtn3.SetFocus;
  aa := False;
  DataSource1.DataSet := Nil;
  ListBox1.Visible := False;
  Edit1.ReadOnly := False;
  DBGrid1.Visible := False;
end;

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

procedure TForm26.BitBtn4Click(Sender: TObject);
begin
  Try
    with datam.ADOQuery1 do
    begin         
      Close;
      SQL.Clear;
      SQL.Add('insert 客户信息跟踪表 values (:a ,:b,:c,:d,Default)');
      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(Memo2.Text);
      ExecSQL;
    end;
    Application.MessageBox('客户信息录入成功。','提示',64);
    BitBtn4.Enabled := False;
    BitBtn2.OnClick(Sender);
  Except
    On Exception do
    begin
      Application.MessageBox('系统出错。','提示',64);
      Close;
    end;
  end;
end;

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

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

end.