⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 xs.pas

📁 电脑公司销售、财务管理子系统 本文重点研究的是电脑公司管理信息系统
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
        FieldByName('PartName').Value:='鼠标';
        FieldByName('PartType').Value:=ComboBoxsbxh.Text;
        FieldByName('SellerNumber').Value:=Editsbsl.Text;
        FieldByName('SellPrice').Value:=Editsbjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editsbqx.Text;
        Post;
      end;
      if (Editrqsl.Text<>'') and (Editrqsl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='软驱';
        FieldByName('PartType').Value:=ComboBoxrqxh.Text;
        FieldByName('SellerNumber').Value:=Editrqsl.Text;
        FieldByName('SellPrice').Value:=Editrqjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editrqqx.Text;
        Post;
      end;
      if (Editsksl.Text<>'') and (Editsksl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='声卡';
        FieldByName('PartType').Value:=ComboBoxskxh.Text;
        FieldByName('SellerNumber').Value:=Editsksl.Text;
        FieldByName('SellPrice').Value:=Editskjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editskqx.Text;
        Post;
      end;
      if (Editxksl.Text<>'') and (Editxksl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='显卡';
        FieldByName('PartType').Value:=ComboBoxxkxh.Text;
        FieldByName('SellerNumber').Value:=Editxksl.Text;
        FieldByName('SellPrice').Value:=Editxkjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editxkqx.Text;
        Post;
      end;
      if (Editwksl.Text<>'') and (Editwksl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='网卡';
        FieldByName('PartType').Value:=ComboBoxwkxh.Text;
        FieldByName('SellerNumber').Value:=Editwksl.Text;
        FieldByName('SellPrice').Value:=Editwkjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editwkqx.Text;
        Post;
      end;
      if (Editsxtsl.Text<>'') and (Editsxtsl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='摄像头';
        FieldByName('PartType').Value:=ComboBoxsxtxh.Text;
        FieldByName('SellerNumber').Value:=Editsxtsl.Text;
        FieldByName('SellPrice').Value:=Editsxtjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editsxtqx.Text;
        Post;
      end;
      if (Editupsl.Text<>'') and (Editupsl.Text<>'0') then
      begin
        Open;
        Append;
        FieldByName('SellerId').Value:=Editxsqdbh.Text;
        FieldByName('PartName').Value:='优盘';
        FieldByName('PartType').Value:=ComboBoxupxh.Text;
        FieldByName('SellerNumber').Value:=Editupsl.Text;
        FieldByName('SellPrice').Value:=Editupjg.Text;
        FieldByName('DateTime').Value:=DateTimePickerRQ.Date;
        FieldByName('RepairPeriod').Value:=Editupqx.Text;
        Post;
      end;
    end;
    showmessage('销售清单全部提交成功！');
  end;
end;

procedure TxsForm.BitBtn1Click(Sender: TObject);
//18顾客资料页面的开始查找按钮的OnClick事件
begin
  with DM.GkQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select Customer As 顾客姓名,CustSex As 顾客性别,');
    SQL.Add('CustAddress As 顾客地址,CustPhone As 顾客电话,DateTime As 购买日期');
    SQL.Add('from Seller where 1=1');
    if Trim(Edit1.Text)<>'' then
    begin
      SQL.Add('and Customer=:cname');
      Parameters.ParamByName('cname').Value:=Trim(Edit1.Text);
    end;
    if Trim(ComboBox4.Text)<>'' then
    begin
      SQL.Add('and CustSex=:csex');
      Parameters.ParamByName('csex').Value:=Trim(ComboBox4.Text);
    end;
    if Trim(Edit2.Text)<>'' then
    begin
      SQL.Add('and CustAddress=:caddress');
      Parameters.ParamByName('caddress').Value:=Trim(Edit2.Text);
    end;
    if Trim(Edit3.Text)<>'' then
    begin
      SQL.Add('and CustPhone=:cphone');
      Parameters.ParamByName('cphone').Value:=Trim(Edit3.Text);
    end;
    Open;
  end;
end;

procedure TxsForm.BitBtn3Click(Sender: TObject);
//19顾客资料页面的提交修改按钮的OnClick事件
begin
  if DM.GkQuery.Active=True then
  begin
    if Trim(DBEditCustomer.Text)='' then
    begin
      showmessage('顾客姓名不能为空！');
      DBEditCustomer.SetFocus;
    end
    else if Trim(DBComboBoxCustSex.Text)='' then
    begin
      showmessage('顾客性别不能为空！');
      DBEditCustomer.SetFocus;
    end
    else
      DM.GkQuery.Post;
  end;
end;

procedure TxsForm.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
    key:=#0;//若按键非数字、退格和回车则输入无效
end;




procedure TxsForm.BitBtn2Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Edit4.Clear;
  ComboBox4.Text:='';
  DM.GkQuery.Close;
end;



procedure TxsForm.BitBtn4Click(Sender: TObject);
begin
  DM.GkQuery.Cancel;
end;

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

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

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

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

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

procedure TxsForm.TabSheet29Exit(Sender: TObject);
begin
  ComboBoxxh.Items.Clear;
end;

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

procedure TxsForm.TabSheet10Exit(Sender: TObject);
begin
  ComboBoxcpuxh.Items.Clear;
end;

procedure TxsForm.TabSheet11Enter(Sender: TObject);
begin
  with DM.PjQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select * From PartName where PartName=:pname003');
    Parameters.ParamByName('pname003').Value:='主板';
    Open;
    while not Eof do
    begin
      ComboBoxzbxh.Items.Add(FieldByName('PartType').AsString);
      Next;
    end;
  end;
end;

procedure TxsForm.TabSheet11Exit(Sender: TObject);
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
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -