buyinfounit.pas

客户关系管理系统,可以进行一些简单的客户关系管理

unit BuyInfoUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons;

type
  TBuyInfo_Form = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    ComboBox1: TComboBox;
    Label6: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Label7: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    Edit6: TEdit;
    Label9: TLabel;
    Edit7: TEdit;
    Label10: TLabel;
    Edit8: TEdit;
    Label11: TLabel;
    Edit9: TEdit;
    Label12: TLabel;
    Edit10: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Edit12: TEdit;
    Label15: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label19: TLabel;
    Edit13: TEdit;
    Label20: TLabel;
    Edit15: TEdit;
    Label21: TLabel;
    Edit16: TEdit;
    Label22: TLabel;
    Edit17: TEdit;
    Label23: TLabel;
    Edit18: TEdit;
    Label24: TLabel;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    Label25: TLabel;
    Memo1: TMemo;
    Edit4: TEdit;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label26: TLabel;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit12KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit13KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit15KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit16KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit17KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit18KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DateTimePicker2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ComboBox1Exit(Sender: TObject);
    procedure ComboBox2Exit(Sender: TObject);
    procedure ComboBox3Exit(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3Enter(Sender: TObject);
  private
    { Private declarations }
    procedure AddMacInfo;
    procedure AddShopInfo;
    procedure AddComInfo;
    procedure ClearEdit;
    procedure SaveAllData;  
  public
    { Public declarations }
    procedure LoadAllInfo(In_Bar: string);
  end;

var
  BuyInfo_Form: TBuyInfo_Form;

implementation
uses Datamodule_Unit, ADODB, DB, BrowBuyInfo_Unit;

{$R *.dfm}





procedure TBuyInfo_Form.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    if Tedit(Sender).Text = '' then
    begin
      Application.MessageBox('不能为空!', '提示', Mb_Ok or Mb_IconError);
    end
    else
    begin
      LoadAllInfo(Edit1.Text);
      Perform(WM_NEXTDLGCTL, 0, 0);
    end;
  end;
end;

procedure TBuyInfo_Form.Edit3KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    if Tedit(Sender).Text = '' then
    begin
      Application.MessageBox('不能为空!', '提示', Mb_Ok or Mb_IconError);
    end
    else
    begin
      if pos ('￥',Tedit(Sender).Text) = 0 then
      begin
        Tedit(Sender).Text := '￥'+ Tedit(Sender).Text;
      end;
      Perform(WM_NEXTDLGCTL, 0, 0);
    end;
  end;
end;

procedure TBuyInfo_Form.Edit4KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    if Tedit(Sender).Text = '' then
    begin
      Application.MessageBox('不能为空!', '提示', Mb_Ok or Mb_IconError);
    end
    else
    begin
      Perform(WM_NEXTDLGCTL, 0, 0);
    end;
  end;
end;

procedure TBuyInfo_Form.Edit5KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    if Tedit(Sender).Text = '' then
    begin
      Application.MessageBox('不能为空!', '提示', Mb_Ok or Mb_IconError);
    end
    else
    begin
      Perform(WM_NEXTDLGCTL, 0, 0);
    end;
  end;
end;

procedure TBuyInfo_Form.Edit6KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    if Tedit(Sender).Text = '' then
    begin
      Application.MessageBox('不能为空!', '提示', Mb_Ok or Mb_IconError);
    end
    else
    begin
      Perform(WM_NEXTDLGCTL, 0, 0);
    end;
  end;
end;

procedure TBuyInfo_Form.Edit7KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    if Tedit(Sender).Text = '' then
    begin
      Application.MessageBox('不能为空!', '提示', Mb_Ok or Mb_IconError);
    end
    else
    begin
      Perform(WM_NEXTDLGCTL, 0, 0);
    end;
  end;
end;

procedure TBuyInfo_Form.Edit8KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

procedure TBuyInfo_Form.Edit9KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

procedure TBuyInfo_Form.Edit10KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

procedure TBuyInfo_Form.Edit12KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

procedure TBuyInfo_Form.Edit13KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    if Tedit(Sender).Text = '' then
    begin
      Application.MessageBox('不能为空!', '提示', Mb_Ok or Mb_IconError);
    end
    else
    begin
      Perform(WM_NEXTDLGCTL, 0, 0);
    end;
  end;
end;

procedure TBuyInfo_Form.Edit15KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

procedure TBuyInfo_Form.Edit16KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

procedure TBuyInfo_Form.Edit17KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    if Tedit(Sender).Text = '' then
    begin
      Application.MessageBox('不能为空!', '提示', Mb_Ok or Mb_IconError);
    end
    else
    begin
      Perform(WM_NEXTDLGCTL, 0, 0);
    end;
  end;
end;

procedure TBuyInfo_Form.Edit18KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

procedure TBuyInfo_Form.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_RETURN then
  begin
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

procedure TBuyInfo_Form.AddMacInfo;
begin
  with Datamodule_Unit.DM.Aq_MacInfo do
  begin
    Close;
    Sql.Clear;
    Sql.Add('Select * from 机器型号表');
    try
      Open;
    except
    end;
    First;
    ComboBox1.Items.Clear;
    while not Eof do
    begin
      ComboBox1.Items.Add(FieldByName('name').AsString);
      Next;
    end;
    ComboBox1.ItemIndex := 0;
  end;
end;

procedure TBuyInfo_Form.AddComInfo;
begin
  with Datamodule_Unit.DM.Aq_MacInfo do
  begin
    Close;
    Sql.Clear;
    Sql.Add('Select * from 分公司信息表');
    try
      Open;
    except
    end;
    First;
    ComboBox3.Items.Clear;
    while not Eof do
    begin