uservicing.pas

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

unit Uservicing;

interface

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

type
  TfrmServicing = class(TForm)
    GroupBox1: TGroupBox;
    Label12: TLabel;
    Label9: TLabel;
    Label3: TLabel;
    Label10: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label1: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Memo1: TMemo;
    ComboBox3: TComboBox;
    bbtn_serverchg: TBitBtn;
    bbtn_serverchgcalcle: TBitBtn;
    Label2: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    procedure FormShow(Sender: TObject);
    procedure ComboBox3DropDown(Sender: TObject);
    procedure bbtn_serverchgcalcleClick(Sender: TObject);
    procedure bbtn_serverchgClick(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmServicing: TfrmServicing;

implementation

uses MyData;

{$R *.dfm}

procedure TfrmServicing.FormShow(Sender: TObject);
begin
  Edit1.Text:=dm.ATService.FieldValues['ProName'];
  Edit2.Text:=dm.ATService.FieldValues['Sername'];
  Edit3.Text:=dm.ATService.FieldValues['Questions'];
  Edit4.Text:=FormatDateTime('YYYY-MM-DD',Date);
end;

procedure TfrmServicing.ComboBox3DropDown(Sender: TObject);
begin
  ComboBox3.Items.Clear;
  with dm.AQCustName do
   begin
    close;
    sql.Clear;
    sql.Add('select * from Employees where Department='''+'客服部'+'''');
    open;
    while not dm.AQCustName.Eof do
     begin
       ComboBox3.Items.Add(dm.AQCustName.FieldValues['EmpName']);
       dm.AQCustName.Next;
     end;
   end;
end;

procedure TfrmServicing.bbtn_serverchgcalcleClick(Sender: TObject);
begin
  close;
end;

procedure TfrmServicing.bbtn_serverchgClick(Sender: TObject);
begin
    with dm.ATService do
     begin
      Edit;
      FieldByName('Keeper').Value:=Trim(ComboBox3.Text);
      FieldByName('KeepDate').Value:=Trim(Edit4.Text);
      FieldByName('IsSolved').Value:=Trim(ComboBox2.Text);
      FieldByName('KeepRecords').Value:=Trim(Memo1.Text);
      Post;
      ShowMessage('已存盘！');
     end;
     Edit1.Text:='';
     Edit2.Text:='';
     Edit3.Text:='';
     ComboBox1.Text:='';
     ComboBox2.Text:='';
     ComboBox3.Text:='';
     Memo1.Text:='';
end;

procedure TfrmServicing.ComboBox3Change(Sender: TObject);
var
  ServiceWay,ServiceDate,IsSolved,Server:string;
begin
 ServiceWay:=Trim(ComboBox1.Text);
 ServiceDate:=Trim(Edit4.Text);
 IsSolved:=Trim(ComboBox2.Text);
 Server:=Trim(ComboBox3.Text);
 if Server='' then Exit;
 Memo1.Text:=Server+'在'+ServiceDate+'日'+'通过'+Serviceway+'的方式，维护了该项目，问题解决状态为：'+IsSolved;
end;

end.