xs.~pas

电脑公司销售、财务管理子系统 本文重点研究的是电脑公司管理信息系统

begin
  ComboBoxzbxh.Items.Clear;
end;

procedure TxsForm.TabSheet12Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname004');
    Parameters.ParamByName('pname004').Value:='硬盘';
    Open;
    while not Eof do
    begin
      ComboBoxypxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet12Exit(Sender: TObject);
begin
  ComboBoxypxh.Items.Clear;
end;

procedure TxsForm.TabSheet13Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname005');
    Parameters.ParamByName('pname005').Value:='机箱';
    Open;
    while not Eof do
    begin
      ComboBoxjxxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet13Exit(Sender: TObject);
begin
  ComboBoxjxxh.Items.Clear;
end;

procedure TxsForm.TabSheet14Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname006');
    Parameters.ParamByName('pname006').Value:='显示器';
    Open;
    while not Eof do
    begin
      ComboBoxxsqxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet14Exit(Sender: TObject);
begin
  ComboBoxxsqxh.Items.Clear;
end;

procedure TxsForm.TabSheet15Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname007');
    Parameters.ParamByName('pname007').Value:='电源';
    Open;
    while not Eof do
    begin
      ComboBoxdyxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet15Exit(Sender: TObject);
begin
  ComboBoxdyxh.Items.Clear;
end;

procedure TxsForm.TabSheet16Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname008');
    Parameters.ParamByName('pname008').Value:='光驱';
    Open;
    while not Eof do
    begin
      ComboBoxgqxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet16Exit(Sender: TObject);
begin
  ComboBoxgqxh.Items.Clear;
end;

procedure TxsForm.TabSheet17Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname009');
    Parameters.ParamByName('pname009').Value:='键盘';
    Open;
    while not Eof do
    begin
      ComboBoxjpxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet17Exit(Sender: TObject);
begin
  ComboBoxjpxh.Items.Clear;
end;

procedure TxsForm.TabSheet18Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname010');
    Parameters.ParamByName('pname010').Value:='鼠标';
    Open;
    while not Eof do
    begin
      ComboBoxsbxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet18Exit(Sender: TObject);
begin
  ComboBoxsbxh.Items.Clear;
end;

procedure TxsForm.TabSheet19Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname011');
    Parameters.ParamByName('pname011').Value:='软驱';
    Open;
    while not Eof do
    begin
      ComboBoxrqxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet19Exit(Sender: TObject);
begin
  ComboBoxrqxh.Items.Clear;
end;

procedure TxsForm.TabSheet20Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname012');
    Parameters.ParamByName('pname012').Value:='声卡';
    Open;
    while not Eof do
    begin
      ComboBoxskxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet20Exit(Sender: TObject);
begin
  ComboBoxskxh.Items.Clear;
end;


procedure TxsForm.TabSheet21Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname013');
    Parameters.ParamByName('pname013').Value:='显卡';
    Open;
    while not Eof do
    begin
      ComboBoxxkxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet21Exit(Sender: TObject);
begin
  ComboBoxxkxh.Items.Clear;
end;

procedure TxsForm.TabSheet22Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname014');
    Parameters.ParamByName('pname014').Value:='网卡';
    Open;
    while not Eof do
    begin
      ComboBoxwkxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet22Exit(Sender: TObject);
begin
  ComboBoxwkxh.Items.Clear;
end;

procedure TxsForm.TabSheet23Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname015');
    Parameters.ParamByName('pname015').Value:='摄像头';
    Open;
    while not Eof do
    begin
      ComboBoxsxtxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet23Exit(Sender: TObject);
begin
  ComboBoxsxtxh.Items.Clear;
end;

procedure TxsForm.TabSheet24Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname016');
    Parameters.ParamByName('pname016').Value:='优盘';
    Open;
    while not Eof do
    begin
      ComboBoxupxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet24Exit(Sender: TObject);
begin
  ComboBoxupxh.Items.Clear;
end;



procedure TxsForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Terminate;
end;

procedure TxsForm.BitBtn5Click(Sender: TObject);
//17销售录入页面的全部提交按钮的OnClick事件
begin
  if Editxm.Text='' then
  begin
    showmessage('顾客姓名不能为空！');
    Editxm.SetFocus;
  end
  else if ComboBoxxb.Text='' then
  begin
    showmessage('顾客性别不能为空！');
    ComboBoxxb.SetFocus;
  end
  else if Editxsqdbh.Text='' then
  begin
    showmessage('销售清单编号不能为空！');
    Editxsqdbh.SetFocus;
  end
  else if ComboBoxxsygbh.Text=''  then
  begin
    showmessage('销售员工编号不能为空！');
    ComboBoxxsygbh.SetFocus;
  end
  else
  begin
    with DM.SellerTable do
    //对销售总单表添加记录
    begin
      Open;
      Append;
      FieldByName('SellerId').Value:=Editxsqdbh.Text;
      FieldByName('EmpId').Value:=ComboBoxxsygbh.Text;
      FieldByName('Customer').Value:=Editxm.Text;
      FieldByName('CustSex').Value:=ComboBoxxb.Text;
      FieldByName('CustPhone').Value:=Editdh.Text;
      FieldByName('CustAddress').Value:=Editdz.Text;
      FieldByName('Total').Value:=Editxsjezj.Text;
      FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
      Post;
    end;
    with DM.SellerPartsTable do
    //对销售明细表添加记录
    begin
      if (Editsl.Text<>'') and (Editsl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='品牌机';
        FieldByName('PartType').Value:=ComboBoxxh.Text;
        FieldByName('SellerNumber').Value:=Editsl.Text;
        FieldByName('SellPrice').Value:=Editjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editqx.Text;
        Post;
      end;
      if (Editcpusl.Text<>'') and (Editcpusl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='CPU';
        FieldByName('PartType').Value:=ComboBoxcpuxh.Text;
        FieldByName('SellerNumber').Value:=Editcpusl.Text;
        FieldByName('SellPrice').Value:=Editcpujg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editcpuqx.Text;
        Post;
      end;
      if (Editzbsl.Text<>'') and (Editzbsl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='主板';
        FieldByName('PartType').Value:=ComboBoxzbxh.Text;
        FieldByName('SellerNumber').Value:=Editzbsl.Text;
        FieldByName('SellPrice').Value:=Editzbjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editzbqx.Text;
        Post;
      end;
      if (Editypsl.Text<>'') and (Editypsl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='硬盘';
        FieldByName('PartType').Value:=ComboBoxypxh.Text;
        FieldByName('SellerNumber').Value:=Editypsl.Text;
        FieldByName('SellPrice').Value:=Editypjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editypqx.Text;
        Post;
      end;
      if (Editjxsl.Text<>'') and (Editjxsl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='机箱';
        FieldByName('PartType').Value:=ComboBoxjxxh.Text;
        FieldByName('SellerNumber').Value:=Editjxsl.Text;
        FieldByName('SellPrice').Value:=Editjxjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editjxqx.Text;
        Post;
      end;
      if (Editxsqsl.Text<>'') and (Editxsqsl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='显示器';
        FieldByName('PartType').Value:=ComboBoxxsqxh.Text;
        FieldByName('SellerNumber').Value:=Editxsqsl.Text;
        FieldByName('SellPrice').Value:=Editxsqjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editxsqqx.Text;
        Post;
      end;
      if (Editdysl.Text<>'') and (Editdysl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='电源';
        FieldByName('PartType').Value:=ComboBoxdyxh.Text;
        FieldByName('SellerNumber').Value:=Editdysl.Text;
        FieldByName('SellPrice').Value:=Editdyjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editdyqx.Text;
        Post;
      end;
      if (Editgqsl.Text<>'') and (Editgqsl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='光驱';
        FieldByName('PartType').Value:=ComboBoxgqxh.Text;
        FieldByName('SellerNumber').Value:=Editgqsl.Text;
        FieldByName('SellPrice').Value:=Editgqjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editgqqx.Text;
        Post;
      end;
      if (Editjpsl.Text<>'') and (Editjpsl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='键盘';
        FieldByName('PartType').Value:=ComboBoxjpxh.Text;
        FieldByName('SellerNumber').Value:=Editjpsl.Text;
        FieldByName('SellPrice').Value:=Editjpjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editjpqx.Text;
        Post;
      end;
      if (Editsbsl.Text<>'') and (Editsbsl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='鼠标';
        FieldByName('PartType').Value:=ComboBoxsbxh.Text;
        FieldByName('SellerNumber').Value:=Editsbsl.Text;
        FieldByName('SellPrice').Value:=Editsbjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;