sellinfoadd.pas

双鱼林网店销售管理系统+ 想轻松管理你的网店客户信息吗? 想轻松统计每个月的销售情况吗? 想随时随意查询某个地区的销售情况吗? 双鱼林自己也在网上开了自己的网点

unit SellInfoAdd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;

type
  TSellInfoAddForm = class(TForm)
    Label1: TLabel;
    CB_GoodClassName: TComboBox;
    Label2: TLabel;
    CB_GoodName: TComboBox;
    Label3: TLabel;
    CB_SellWay: TComboBox;
    Label4: TLabel;
    Edt_SellMoney: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    CB_Year: TComboBox;
    CB_Day: TComboBox;
    CB_Month: TComboBox;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Edt_customerName: TEdit;
    Label11: TLabel;
    Edt_customerQQ: TEdit;
    Label12: TLabel;
    Edt_customerTelephone: TEdit;
    Label13: TLabel;
    Label14: TLabel;
    Edt_customerEmail: TEdit;
    Edt_customerAddress: TEdit;
    Label15: TLabel;
    Memo: TMemo;
    Btn_AddInfo: TButton;
    Btn_Cancle: TButton;
    SellInfoADOQuery: TADOQuery;
    GoodClassADOQuery: TADOQuery;
    GoodNameADOQuery: TADOQuery;
    procedure Btn_AddInfoClick(Sender: TObject);
    procedure Btn_CancleClick(Sender: TObject);
    procedure CB_GoodClassNameChange(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SellInfoAddForm: TSellInfoAddForm;

implementation

uses MainForm;

{$R *.dfm}


procedure TSellInfoAddForm.Btn_AddInfoClick(Sender: TObject);
begin
  self.SellInfoADOQuery.SQL.Clear;
  self.SellInfoADOQuery.SQL.Add('select * from sellInfo');
  if self.SellInfoADOQuery.Active then
    self.SellInfoADOQuery.Close;
  self.SellInfoADOQuery.Open;
  self.SellInfoADOQuery.Insert;
  self.SellInfoADOQuery.FieldByName('goodName').AsString := self.CB_GoodName.Text;
  self.SellInfoADOQuery.FieldByName('goodClassName').AsString := self.CB_GoodClassName.Text;
  self.SellInfoADOQuery.FieldByName('customerName').AsString := self.Edt_customerName.Text;
  self.SellInfoADOQuery.FieldByName('customerAddress').AsString := self.Edt_customerAddress.Text;
  self.SellInfoADOQuery.FieldByName('customerTelephone').AsString := self.Edt_customerTelephone.Text;
  self.SellInfoADOQuery.FieldByName('customerQQ').AsString := self.Edt_customerQQ.Text;
  self.SellInfoADOQuery.FieldByName('customerEmail').AsString := self.Edt_customerEmail.Text;
  self.SellInfoADOQuery.FieldByName('sellWay').AsString := self.CB_SellWay.Text;
  self.SellInfoADOQuery.FieldByName('sellYear').AsInteger := StrToInt(self.CB_Year.Text);
  self.SellInfoADOQuery.FieldByName('sellMonth').AsInteger := StrToInt(self.CB_Month.Text);
  self.SellInfoADOQuery.FieldByName('sellDay').AsInteger := StrToInt(self.CB_Day.Text);
  self.SellInfoADOQuery.FieldByName('sellMoney').AsFloat := StrToFloat(self.Edt_SellMoney.Text);
  self.SellInfoADOQuery.FieldByName('memo').AsString := self.Memo.Text;
  self.SellInfoADOQuery.Post;
  showMessage('销售信息添加成功!');

  self.Edt_SellMoney.Text := '0';
  self.Edt_customerName.Text := '';
  self.Edt_customerQQ.Text := '';
  self.Edt_customerTelephone.Text := '';
  self.Edt_customerEmail.Text := '';
  self.Edt_customerAddress.Text := '';
  self.Memo.Lines.Clear;

  SellMainForm.ADOQuery1.SQL.Clear;
  SellMainForm.ADOQuery1.SQL.Add('select * from sellInfo');
  if sellMainForm.ADOQuery1.Active then
    sellMainForm.ADOQuery1.Close;
  sellMainForm.ADOQuery1.Open;
  sellMainForm.CalulateTotalMoney;
end;

procedure TSellInfoAddForm.Btn_CancleClick(Sender: TObject);
begin
  self.Edt_SellMoney.Text := '0';
  self.Edt_customerName.Text := '';
  self.Edt_customerQQ.Text := '';
  self.Edt_customerTelephone.Text := '';
  self.Edt_customerEmail.Text := '';
  self.Edt_customerAddress.Text := '';
  self.Memo.Lines.Clear;
end;

procedure TSellInfoAddForm.CB_GoodClassNameChange(Sender: TObject);
begin
  self.GoodNameADOQuery.SQL.Clear;
  self.GoodNameADOQuery.SQL.Add('select goodName from goodInfo where goodClassName = ''' + self.CB_GoodClassName.Text + '''');
  if self.GoodNameADOQuery.Active then
    self.GoodNameADOQuery.Close;
  self.GoodNameADOQuery.Open;
  self.CB_GoodName.Items.Clear;
  while not(self.GoodNameADOQuery.Eof) do
  begin
    self.CB_GoodName.Items.Add(self.GoodNameADOQuery.FieldByName('goodName').AsString);
    self.GoodNameADOQuery.Next;
  end;
  self.CB_GoodName.ItemIndex := 0;
end;

procedure TSellInfoAddForm.FormShow(Sender: TObject);
var i: Integer;
begin
  self.Left := Trunc((screen.Width - self.Width)/2);
  self.Top := Trunc((screen.Height - self.Height)/2);
  for i  := 2007 to 2020 do
    self.CB_Year.Items.Add(IntToStr(i));
  self.CB_Year.ItemIndex := 0;
  for i := 1 to 12 do
    self.CB_Month.Items.Add(IntToStr(i));
  self.CB_Month.ItemIndex := 0;
  for i := 1 to 31 do
    self.CB_Day.Items.Add(IntToStr(i));
  self.CB_Day.ItemIndex := 0;

  self.GoodClassADOQuery.SQL.Clear;
  self.GoodClassADOQuery.SQL.Add('select goodClassName from goodClassInfo');
  if self.GoodClassADOQuery.Active then
    self.GoodClassADOQuery.Close;
  self.GoodClassADOQuery.Open;
  while not(self.GoodClassADOQuery.Eof) do
  begin
    self.CB_GoodClassName.Items.Add(self.GoodClassADOQuery.FieldByName('goodClassName').AsString);
    self.GoodClassADOQuery.Next;
  end;
  self.CB_GoodClassName.ItemIndex := 0;

  self.GoodNameADOQuery.SQL.Clear;
  self.GoodNameADOQuery.SQL.Add('select goodName from goodInfo where goodClassName = ''' + self.CB_GoodClassName.Text + '''');
  if self.GoodNameADOQuery.Active then
    self.GoodNameADOQuery.Close;
  self.GoodNameADOQuery.Open;
  while not(self.GoodNameADOQuery.Eof) do
  begin
    self.CB_GoodName.Items.Add(self.GoodNameADOQuery.FieldByName('goodName').AsString);
    self.GoodNameADOQuery.Next;
  end;
  self.CB_GoodName.ItemIndex := 0;
  

end;

end.