umaijin.~pas

本文阐述了目前CRM（Customer Relationship Management 客户关系管理）的管理方法

unit Umaijin;

interface

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

type
  Tmaijin = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    ADOTable1: TADOTable;
    Edit1: TEdit;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    BitBtn1: TBitBtn;
    ADOTable2: TADOTable;
    procedure DBGrid1CellClick(Column: TColumn);
    procedure BitBtn1Click(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  maijin: Tmaijin;

implementation

uses Ulogin;

{$R *.dfm}

procedure Tmaijin.DBGrid1CellClick(Column: TColumn);
begin
    edit2.Text := ADOTable1.FieldByName('factory').AsString;
    edit1.Text := ADOTable1.FieldByName('commodity').AsString;
    edit3.Text := ADOTable1.FieldByName('price').AsString;
    edit4.Text := ADOTable1.FieldByName('count').AsString;
    edit5.Text := ADOTable1.FieldByName('time').AsString;
    if not ADOTable1.FieldByName('finished').AsBoolean then
    BitBtn1.Enabled := true else
    BitBtn1.Enabled := false;
end;

procedure Tmaijin.BitBtn1Click(Sender: TObject);
begin
  ADOTable1.Edit;
  ADOTable1.FieldByName('finished').AsBoolean := true;
  ADOTable1.Post;
  BitBtn1.Enabled := false;
  ADOTable2.open;
  ADOTable2.Append;
  ADOTable2.FieldByName('commodity').AsString := edit1.Text;
  ADOTable2.FieldByName('count').AsInteger := strtoint(edit4.Text);
  ADOTable2.FieldByName('price').AsInteger := strtoint(edit3.Text);
  ADOTable2.Post;
end;

procedure Tmaijin.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
{
  if ADOTable1.FieldByName('finished').AsBoolean  then
  DBGrid1.Columns[5].Color := clred else
  DBGrid1.Columns[5].Color := clwhite;  }
end;

procedure Tmaijin.FormShow(Sender: TObject);
begin
  BitBtn1.Enabled := false;
  ADOTable1.Close;
  ADOTable1.Open;
end;

end.