xs.pas

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

    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.BitBtn6Click(Sender: TObject);
begin
  xsForm.ComboBoxxb.Clear;  xsForm.Editdh.Clear;      xsForm.Editdz.Clear;
  xsForm.Editxm.Clear;      xsForm.Editxsjezj.Clear;  xsForm.Editxsqdbh.Clear;
  xsForm.Editsl.Clear;      xsForm.Editjg.Clear;
  xsForm.Editqx.Clear;      xsForm.ComboBoxxh.Clear;
  xsForm.Editcpusl.Clear;   xsForm.Editcpujg.Clear;
  xsForm.Editcpuqx.Clear;   xsForm.ComboBoxcpuxh.Clear;
  xsForm.Editzbsl.Clear;    xsForm.Editzbjg.Clear;
  xsForm.Editzbqx.Clear;    xsForm.ComboBoxzbxh.Clear;
  xsForm.Editypsl.Clear;    xsForm.Editypjg.Clear;
  xsForm.Editypqx.Clear;    xsForm.ComboBoxypxh.Clear;
  xsForm.Editjxsl.Clear;    xsForm.Editjxjg.Clear;
  xsForm.Editjxqx.Clear;    xsForm.ComboBoxjxxh.Clear;
  xsForm.Editxsqsl.Clear;   xsForm.Editxsqjg.Clear;
  xsForm.Editxsqqx.Clear;   xsForm.ComboBoxxsqxh.Clear;
  xsForm.Editdysl.Clear;    xsForm.Editdyjg.Clear;
  xsForm.Editdyqx.Clear;    xsForm.ComboBoxdyxh.Clear;
  xsForm.Editgqsl.Clear;    xsForm.Editgqjg.Clear;
  xsForm.Editgqqx.Clear;    xsForm.ComboBoxgqxh.Clear;
  xsForm.Editjpsl.Clear;    xsForm.Editjpjg.Clear;
  xsForm.Editjpqx.Clear;    xsForm.ComboBoxjpxh.Clear;
  xsForm.Editsbsl.Clear;    xsForm.Editsbjg.Clear;
  xsForm.Editsbqx.Clear;    xsForm.ComboBoxsbxh.Clear;
  xsForm.Editrqsl.Clear;    xsForm.Editrqjg.Clear;
  xsForm.Editrqqx.Clear;    xsForm.ComboBoxrqxh.Clear;
  xsForm.Editsksl.Clear;    xsForm.Editskjg.Clear;
  xsForm.Editskqx.Clear;    xsForm.ComboBoxskxh.Clear;
  xsForm.Editxksl.Clear;    xsForm.Editxkjg.Clear;
  xsForm.Editxkqx.Clear;    xsForm.ComboBoxxkxh.Clear;
  xsForm.Editwksl.Clear;    xsForm.Editwkjg.Clear;
  xsForm.Editwkqx.Clear;    xsForm.ComboBoxwkxh.Clear;
  xsForm.Editsxtsl.Clear;   xsForm.Editsxtjg.Clear;
  xsForm.Editsxtqx.Clear;   xsForm.ComboBoxsxtxh.Clear;
  xsForm.Editupsl.Clear;    xsForm.Editupjg.Clear;
  xsForm.Editupqx.Clear;    xsForm.ComboBoxupxh.Clear;
end;

procedure TxsForm.TabSheet7Enter(Sender: TObject);
begin
  ComboBoxqdbh.Items.Clear;
  with DM.BxQuery0 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select SellerId from Seller');
    Open;
    while not Eof do
    begin
      ComboBoxqdbh.Items.Add(FieldByName('SellerId').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.ComboBoxqdbhChange(Sender: TObject);
begin
  with DM.BxQuery0 do
  begin
    ComboBoxpjmc.Items.Clear;
    Close;
    SQL.Clear;
    SQL.Add('select PartName from SellerParts');
    SQL.Add('where SellerId=:sid');
    Parameters.ParamByName('sid').Value:=Trim(ComboBoxqdbh.Text);
    Open;
    while not Eof do
    begin
      ComboBoxpjmc.Items.Add(FieldByName('PartName').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.ComboBoxpjmcChange(Sender: TObject);
begin
  with DM.BxQuery0 do
  begin
    ComboBoxpjxh.Items.Clear;
    Close;
    SQL.Clear;
    SQL.Add('select PartType from SellerParts');
    SQL.Add('where SellerId=:sid2 and PartName=:ptn2');
    Parameters.ParamByName('sid2').Value:=Trim(ComboBoxqdbh.Text);
    Parameters.ParamByName('ptn2').Value:=Trim(ComboBoxpjmc.Text);
    Open;
    while not Eof do
    begin
      ComboBoxpjxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.BitBtn7Click(Sender: TObject);
//20
begin
  with DM.BxQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select SellerId As 销售编号,PartName As 配件名称,');
    SQL.Add('PartType As 配件型号,DateTime As 购买日期,RepairPeriod As 保修期限,');
    SQL.Add('Remark As 备注 From SellerParts where 1=1');
    if Trim(ComboBoxqdbh.Text)<>'' then
    begin
      SQL.Add('and SellerId=:sid3');
      Parameters.ParamByName('sid3').Value:=Trim(ComboBoxqdbh.Text);
    end;
    if Trim(ComboBoxpjmc.Text)<>'' then
    begin
      SQL.Add('and PartName=:ptn3');
      Parameters.ParamByName('ptn3').Value:=Trim(ComboBoxpjmc.Text);
    end;
    if Trim(ComboBoxpjxh.Text)<>'' then
    begin
      SQL.Add('and PartType=:ptp');
      Parameters.ParamByName('ptp').Value:=Trim(ComboBoxpjxh.Text);
    end;
    Open;
  end;
end;

procedure TxsForm.BitBtn8Click(Sender: TObject);
begin
  ComboBoxpjmc.Clear;
  ComboBoxpjxh.Clear;
  ComboBoxqdbh.Text:='';
end;

procedure TxsForm.BitBtn9Click(Sender: TObject);
begin
  with DM.XscxQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select Seller.Customer as 顾客姓名,Seller.CustSex as 顾客性别,');
    SQL.Add('SellerParts.PartName as 配件名称,SellerParts.PartType as 配件型号,');
    SQL.Add('SellerParts.SellerNumber as 购买数量, SellerParts.SellPrice as 购买价格,');
    SQL.Add('SellerParts.DateTime as 购买日期 From Seller,SellerParts');
    SQL.Add('where Seller.SellerId=SellerParts.SellerId');
    if Trim(Edit13.Text)<>'' then
    begin
      SQL.Add('and Seller.Customer=:cst001');
      Parameters.ParamByName('cst001').Value:=Trim(Edit13.Text);
    end;
    if  Trim(ComboBox3.Text)<>'' then
    begin
      SQL.Add('and Seller.CustSex=:csex001');
      Parameters.ParamByName('csex001').Value:=Trim(ComboBox3.Text);
    end;
    Open;
    if RecordCount=0  then
      showmessage('没有查到符合条件的记录！');
  end;
end;

procedure TxsForm.TabSheet25Exit(Sender: TObject);
begin
  DM.XscxQuery.Close;
end;

procedure TxsForm.TabSheet30Enter(Sender: TObject);
begin
  with DM.XscxQuery1 do
  begin
    ComboBox8.Items.Clear;
    Close;
    SQL.Clear;
    SQL.Add('Select distinct PartName From PartName');
    Open;
    while not Eof do
    begin
      ComboBox8.Items.Add(FieldByName('PartName').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.ComboBox8Change(Sender: TObject);
begin
  with DM.XscxQuery1 do
  begin
    ComboBox7.Items.Clear;
    Close;
    SQL.Clear;
    SQL.Add('Select distinct PartType From PartName');
    SQL.Add('where PartName=:ptn006');
    Parameters.ParamByName('ptn006').Value:=Trim(ComboBox8.Text);
    Open;
    while not Eof do
    begin
      ComboBox7.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.BitBtn10Click(Sender: TObject);
begin
  with DM.XscxQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select Seller.Customer as 顾客姓名,Seller.CustSex as 顾客性别,');
    SQL.Add('SellerParts.PartName as 配件名称,SellerParts.PartType as 配件型号,');
    SQL.Add('SellerParts.SellerNumber as 购买数量, SellerParts.SellPrice as 购买价格,');
    SQL.Add('SellerParts.DateTime as 购买日期 From Seller,SellerParts');
    SQL.Add('where Seller.SellerId=SellerParts.SellerId');
    if Trim(ComboBox8.Text)<>'' then
    begin
      SQL.Add('and SellerParts.PartName=:ptn007');
      Parameters.ParamByName('ptn007').Value:=Trim(ComboBox8.Text);
    end;
    if  Trim(ComboBox7.Text)<>'' then
    begin
      SQL.Add('and SellerParts.PartType=:ptp007');
      Parameters.ParamByName('ptp007').Value:=Trim(ComboBox7.Text);
    end;
    Open;
    if RecordCount=0  then
      showmessage('没有查到符合条件的记录！');
  end;
end;

procedure TxsForm.BitBtn11Click(Sender: TObject);
begin
  with DM.XscxQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select Seller.Customer as 顾客姓名,Seller.CustSex as 顾客性别,');
    SQL.Add('SellerParts.PartName as 配件名称,SellerParts.PartType as 配件型号,');
    SQL.Add('SellerParts.SellerNumber as 购买数量, SellerParts.SellPrice as 购买价格,');
    SQL.Add('SellerParts.DateTime as 购买日期 From Seller,SellerParts');
    SQL.Add('where Seller.SellerId=SellerParts.SellerId');
    SQL.Add('and SellerParts.DateTime>=:dtm007');
    Parameters.ParamByName('dtm007').Value:=DateTimePicker1.Date;
    SQL.Add('and SellerParts.DateTime<=:dtm008');
    Parameters.ParamByName('dtm008').Value:=DateTimePicker2.Date;
    Open;
    if RecordCount=0  then
      showmessage('没有查到符合条件的记录！');
  end;
end;

procedure TxsForm.TabSheet30Exit(Sender: TObject);
begin
  DM.XscxQuery.Close;
end;

procedure TxsForm.TabSheet31Exit(Sender: TObject);
begin
  DM.XscxQuery.Close;
end;

procedure TxsForm.TabSheet32Exit(Sender: TObject);
begin
  DM.XscxQuery.Close;
end;

procedure TxsForm.TabSheet32Enter(Sender: TObject);
begin
  with DM.XscxQuery1 do
  begin
    ComboBox9.Items.Clear;
    Close;
    SQL.Clear;
    SQL.Add('Select EmpId From Employee,Department');
    SQL.Add('where Employee.DepId=Department.DepId and Department.DepName=:bumen');
    Parameters.ParamByName('bumen').Value:='销售部';
    Open;
    while not Eof do
    begin
      ComboBox9.Items.Add(FieldByName('EmpId').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.ComboBox9Change(Sender: TObject);
begin
  with DM.XscxQuery1 do
  begin
    Edit14.Clear;
    Close;
    SQL.Clear;
    SQL.Add('Select distinct EmpName From Employee');
    SQL.Add('where EmpId=:empid007');
    Parameters.ParamByName('empid007').Value:=Trim(ComboBox9.Text);
    Open;
    Edit14.Text:=FieldByName('EmpName').AsString;
  end;
end;

procedure TxsForm.BitBtn12Click(Sender: TObject);
begin
  with DM.XscxQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select Seller.Customer as 顾客姓名,Seller.CustSex as 顾客性别,');
    SQL.Add('Seller.EmpId as 销售员号,');
    SQL.Add('SellerParts.PartName as 配件名称,SellerParts.PartType as 配件型号,');
    SQL.Add('SellerParts.SellerNumber as 购买数量, SellerParts.SellPrice as 购买价格,');
    SQL.Add('SellerParts.DateTime as 购买日期 From Seller,SellerParts');
    SQL.Add('where Seller.SellerId=SellerParts.SellerId');
    SQL.Add('and Seller.EmpId=:empid008');
    Parameters.ParamByName('empid008').Value:=Trim(ComboBox9.Text);
    Open;
    if RecordCount=0  then
      showmessage('没有查到符合条件的记录！');
  end;
end;

procedure TxsForm.BitBtnbaojiaczClick(Sender: TObject);
begin
  ComboBox11.Text:='';
  Edit17.Clear;           Edit18.Clear;
  ComboBox_cpmc.Text:='';
  ComboBox_cpxh.Text:='';
  Edit_cpbh.Clear;
end;

procedure TxsForm.ComboBox11Change(Sender: TObject);
begin
  with DM.CpbjQuery0 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from Employee where EmpId=:empid001');
    Parameters.ParamByName('empid001').Value:=Trim(ComboBox11.Text);
    Open;
    if RecordCount>0 then
      Edit17.Text:=FieldByName('EmpName').AsString;
  end;
end;

procedure TxsForm.BitBtn14Click(Sender: TObject);
begin
  ComboBox12.Text:='';    ComboBox13.Text:='';
  DM.CpbjQuery1.Close;
end;



procedure TxsForm.FormCreate(Sender: TObject);
begin
  xsForm.DateTimePickerRQ.Date:=Date;
  xsForm.DateTimePicker1.Date:=Date;
  xsForm.DateTimePicker2.Date:=Date;
  xsForm.DateTimePickerbjrq.Date:=Date;
  xsForm.DateTimePickerBjrq2.Date:=Date;
end;

procedure TxsForm.Button2Click(Sender: TObject);
begin
  designerForm.Show;
end;

procedure TxsForm.Button3Click(Sender: TObject);
var v:integer;
begin
  v:=messagedlg('真要退出系统吗？',mtconfirmation,[mbOK,mbCancel],0);
  if v=mrok then
    Application.Terminate
  else
    exit;

end;

procedure TxsForm.Edit18KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in['0'..'9',#8,#13]) then
    key:=#0;//若按键非数字、退格和回车则输入无效
end;

end.