ucustomeradd.pas

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

unit UcustomerAdd;

interface

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

type
  TfrmCustomerAdd = class(TForm)
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    Label7: TLabel;
    Label13: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label19: TLabel;
    Label5: TLabel;
    Label14: TLabel;
    Label9: TLabel;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit6: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Memo1: TMemo;
    Edit5: TEdit;
    Edit7: TEdit;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Edit8: TEdit;
    bbtnSave: TBitBtn;
    bbtnReset: TBitBtn;
    bbtnExit: TBitBtn;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit10: TEdit;
    Edit11: TEdit;
    ComboBox1: TComboBox;
    Edit9: TEdit;
    procedure FormShow(Sender: TObject);
    procedure bbtnSaveClick(Sender: TObject);
    procedure bbtnResetClick(Sender: TObject);
    procedure ComboBox4DropDown(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmCustomerAdd: TfrmCustomerAdd;

implementation

uses MyData, UlogIn, Ucustom, Umain;

{$R *.dfm}

procedure TfrmCustomerAdd.FormShow(Sender: TObject);
var
  today :string;
  Year, Month, Day :Word;
  letter:string;
  maxstr:string;
  maxvalue:Integer;
begin
    Edit8.Text:=frmLogIn.ComboBox2.Text;
    DecodeDate(Date, Year, Month, Day);
    if Month<10 then
    begin
      today :=floatToStr(Year)+'0'+floatToStr(Month);
      if Day<10 then
        today :=today+'0'+floatToStr(Day)
      else
        today :=today+floatToStr(Day);
    end
    else
    begin
      today :=floatToStr(Year)+floatToStr(Month);
      if Day<10 then
        today :=today+'0'+floatToStr(Day)
      else
        today :=today+floatToStr(Day);
    end;
    with dm.AQSalesman do
    begin
      close;
      sql.Clear;
      sql.Add('select max(CustomerID) as NowMaxID from Customers where CustomerID like '''+today+'_'+'''');
      open;
      if dm.AQSalesman.Fields[0].IsNull then
        today :=today+'A'
      else
      begin
        letter :=RightStr(FieldValues['NowMaxID'],1);
        today := today + Succ(letter[1]);
      end;
    end;
    Edit1.Text :=today;
   with dm.AQItems do
    begin
     close;
     sql.Clear;
     sql.Add('select max(prono) as MaxProNO from projectitem');
     open;
     maxvalue:=dm.AQItems.fieldbyname('MaxProNO').AsInteger;
     maxstr:=IntToStr(maxValue+1);
     if dm.AQItems.Fields.Fields[0].IsNull then
      begin
        maxstr:='000001';
      end
     else
      begin
       if length(maxstr)=1 then
        maxstr:='00000'+maxstr
       else if length(maxstr)=2 then
        maxstr:='0000'+maxstr
       else if length(maxstr)=3 then
        maxstr:='000'+maxstr
       else if length(maxstr)=4 then
        maxstr:='00'+maxstr
       else if Length(maxstr)=5 then
        maxstr:='0'+maxstr;
      end;
      Edit9.Text:=maxstr;
    end;
end;

procedure TfrmCustomerAdd.bbtnSaveClick(Sender: TObject);
begin
  with dm.AQCustInfo do
   begin
    close;
    sql.Clear;
    sql.Add('INSERT INTO Customers(CustomerID,Cusname,Address,Telephone,Email,DeptName,WebSite,Area,SalesmanName,InputDate,OrderDate,Intension,CExpand,Record,Note)');
    sql.Add('values(');
    sql.Add(':CustomerID,:Cusname,:Address,:Telephone,:Email,:DeptName,:WebSite,:Area,:SalesmanName,:InputDate,:OrderDate,:Intension,:CExpand,:Record,:Note');
    sql.Add(')');
    Parameters.ParamByName('CustomerID').Value:=Edit1.Text;
    Parameters.ParamByName('Cusname').Value:=Edit2.Text;
    Parameters.ParamByName('Address').Value:=Edit6.Text;
    Parameters.ParamByName('Telephone').Value:=Edit4.Text;
    Parameters.ParamByName('Email').Value:=Edit5.Text;
    Parameters.ParamByName('DeptName').Value:=Edit3.Text;
    Parameters.ParamByName('WebSite').Value:=Edit7.Text;
    Parameters.ParamByName('Area').Value:=ComboBox4.Text;
    Parameters.ParamByName('SalesmanName').Value:=Edit8.Text;
    Parameters.ParamByName('InputDate').Value:=StrToDate(FormatDateTime('YYYY-MM-DD',DateTimePicker1.Date));
    Parameters.ParamByName('OrderDate').Value:=StrToDate(FormatDateTime('YYYY-MM-DD',DateTimePicker2.Date));
    Parameters.ParamByName('Intension').Value:=ComboBox2.Text;
    Parameters.ParamByName('CExpand').Value:=ComboBox3.Text;
    Parameters.ParamByName('Note').Value:=Memo1.Text;
    ExecSQL;
   end;
    with dm.AQItems do
     begin
      close;
      sql.Clear;
      sql.Add('INSERT INTO ProjectItem(ProNo,ProName,Salesman,Customname,URL,URLType)');
      sql.Add('values(');
      sql.Add(':ProNo,:ProName,:Salesman,:Customname,:URL,:URLType');
      sql.Add(')');
      Parameters.ParamByName('ProNo').Value:=Edit9.Text;
      Parameters.ParamByName('ProName').Value:=Edit10.Text;
      Parameters.ParamByName('Salesman').Value:=Edit8.Text;
      Parameters.ParamByName('Customname').Value:=Edit2.Text;
      Parameters.ParamByName('URL').Value:=Edit11.Text;
      Parameters.ParamByName('URLType').Value:=ComboBox1.Text;
      ExecSQL;
     end;
     ShowMessage('已存盘！');
     bbtnReset.Click;
     frmCustomer.FormShow(Sender);
     frmCustomer.bbtnShowAll.Click;
end;

procedure TfrmCustomerAdd.bbtnResetClick(Sender: TObject);
var
 i:Integer;
begin
 for i:=0 to self.ComponentCount-1 do
  begin
    if self.Components[i] is TEdit then
     TEdit(self.Components[i]).Text:='';
    if self.Components[i] is TComboBox then
     TComboBox(self.Components[i]).Text:='';
    if self.Components[i] is TMemo then
     TMemo(self.Components[i]).Text:='';
  end;
end;

procedure TfrmCustomerAdd.ComboBox4DropDown(Sender: TObject);
begin
 ComboBox4.Items.Clear;
  with dm.AQArea do
   begin
     close;
     sql.Clear;
     sql.Add('select distinct(Area) from Customers');
     open;
    while not dm.AQArea.Eof do
     begin
      ComboBox4.Items.Add(dm.AQArea.FieldValues['Area']);
      dm.AQArea.Next;
     end;
   end;
end;

procedure TfrmCustomerAdd.bbtnExitClick(Sender: TObject);
begin
 close;
end;

end.