utodayworkrecord.pas

是个办公系统,可以实现财务上的管理和人员的流动

unit UtodayWorkRecord;

interface

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

type
  TfrmTodayRecord = class(TForm)
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    GroupBox3: TGroupBox;
    bbtnOK: TBitBtn;
    bbtnReset: TBitBtn;
    bbtnCancel: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox2: TComboBox;
    Label4: TLabel;
    ComboBox3: TComboBox;
    Label5: TLabel;
    ComboBox4: TComboBox;
    Label6: TLabel;
    DateTimePicker1: TDateTimePicker;
    Edit2: TEdit;
    Edit1: TEdit;
    procedure bbtnCancelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bbtnResetClick(Sender: TObject);
    procedure bbtnOKClick(Sender: TObject);
    procedure ComboBox2DropDown(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmTodayRecord: TfrmTodayRecord;

implementation

uses MyData, UlogIn, UtodayWork;

{$R *.dfm}

procedure TfrmTodayRecord.bbtnCancelClick(Sender: TObject);
begin
  close;
end;

procedure TfrmTodayRecord.FormShow(Sender: TObject);
begin
  DateTimePicker1.Date :=Now;
  Edit1.Text:=dm.AQTodayWork.fieldbyname('OrderDate').AsString;
  Edit2.Text:=dm.AQTodayWork.fieldbyname('SalesmanName').AsString;
end;

procedure TfrmTodayRecord.bbtnResetClick(Sender: TObject);
begin
  ComboBox3.Text :='';
  ComboBox4.Text :='';
  Memo1.Text :='';
end;

procedure TfrmTodayRecord.bbtnOKClick(Sender: TObject);
begin
 with dm.AQTodayWork do
  begin
   Edit;
   FieldByName('Record').Value:=Trim(Memo1.Text);
   FieldByName('OrderDate').Value:=FormatDateTime('YYYY-MM-DD',DateTimePicker1.Date);
   Post;
   ShowMessage('已存盘!');
   Close;
   Open;
  end;

end;

procedure TfrmTodayRecord.ComboBox2DropDown(Sender: TObject);
begin
 ComboBox2.Items.Clear;
 with dm.AQCustName do
  begin
   close;
   sql.Clear;
   sql.Add('select * from Customers where OrderDate='''+FormatDateTime('YYYY-MM-DD',Date)+''' and SalesmanName='''+UserName+'''');
   open;
  while not dm.AQCustName.Eof do
   begin
    ComboBox2.Items.Add(dm.AQCustName.FieldValues['Cusname']);
    dm.AQCustName.Next;
   end;
  end;
end;

procedure TfrmTodayRecord.DateTimePicker1Change(Sender: TObject);
var
 SalesMan,CustomerName,Connection,Effect,NextOrderDate:string;
begin
  SalesMan:=Trim(Edit2.Text);
  CustomerName:=Trim(ComboBox2.Text);
  Connection:=Trim(ComboBox3.Text);
  Effect:=Trim(ComboBox4.Text);
  NextOrderDate:=FormatDateTime('YYYY-MM-DD',DateTimePicker1.Date);
  Memo1.Text:=SalesMan+'在'+FormatDateTime('YYYY-MM-DD',Now)
  +'日,通过'+Connection+'的方式,与'+CustomerName+'联系,取得了'
  +Effect+'的效果,并订了下次联系日期: '+NextOrderDate;
end;

end.