detail.pas

客户关系管理系统 客户关系管理系统

unit Detail;

interface

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

type
  TDetailFrm = class(TForm)
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery1DSDesigner: TAutoIncField;
    ADOQuery1ComID: TWideStringField;
    ADOQuery1ComTime: TWideStringField;
    ADOQuery1ComKind: TWideStringField;
    ADOQuery1ComDocument: TWideStringField;
    ADOQuery1ComBeep: TWideStringField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    RadioButton1: TRadioButton;
    Bevel1: TBevel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    DateTimePicker1: TDateTimePicker;
    CheckBox1: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DetailFrm: TDetailFrm;

implementation

uses main, csinfo;

{$R *.dfm}

procedure TDetailFrm.FormShow(Sender: TObject);
begin
      with ADOQuery1 do
      begin
           close;
           sql.Clear;
           sql.Text:='select * from clientdetails where comid ='''+trim(csinfoform.DBEdit2.Text)+'''';
           open;
           if FieldByName('combeep').AsString='1' then CheckBox1.Checked:=true;
      end;
      DBEdit1.Enabled:=false;
       DBEdit2.Text:=trim(csinfoform.DBEdit2.Text);
end;

procedure TDetailFrm.SpeedButton1Click(Sender: TObject);
begin
    ADOQuery1.Prior;
    if ADOQuery1.FieldByName('combeep').AsString='1'  then  CheckBox1.Checked:=true
      else CheckBox1.Checked:=false;

end;

procedure TDetailFrm.SpeedButton2Click(Sender: TObject);
begin
    ADOQuery1.Next;
        if ADOQuery1.FieldByName('combeep').AsString='1'  then  CheckBox1.Checked:=true
      else CheckBox1.Checked:=false;

end;

procedure TDetailFrm.SpeedButton3Click(Sender: TObject);
begin
    ADOQuery1.Append;
    SpeedButton7.Enabled:=true;
    DBEdit4.Enabled:=true;
    DBEdit3.Enabled:=true;
    DBEdit2.Enabled:=true;
    DBEdit5.Enabled:=true;
end;

procedure TDetailFrm.SpeedButton4Click(Sender: TObject);
begin
  ADOQuery1.Delete;
end;

procedure TDetailFrm.SpeedButton6Click(Sender: TObject);
begin
ADOQuery1.Edit;
    SpeedButton7.Enabled:=true;
end;

procedure TDetailFrm.SpeedButton7Click(Sender: TObject);
begin
ADOQuery1.Edit;
if CheckBox1.Checked  then ADOQuery1.FieldByName('combeep').AsString:='1'
   else  ADOQuery1.FieldByName('combeep').AsString:='';
DBEdit3.Text:=datetostr(DateTimePicker1.date);
ADOQuery1.Post;
end;

procedure TDetailFrm.SpeedButton5Click(Sender: TObject);
begin
close;
end;

procedure TDetailFrm.FormCreate(Sender: TObject);
begin
   DateTimePicker1.Date:=date();

end;

end.