ucomputersale.pas

Delphi+SQL SEVER开发的电脑销售管理系统

unit uComputerSale;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ExtCtrls, ImgList, DB, ADODB, ComCtrls, ToolWin,
  DBCtrls, Grids, DBGrids, Mask, XPBarMenu, XPMenu;

type
  TfrmComputerSale = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N38: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N9: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N10: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    O1: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    Panel1: TPanel;
    Label3: TLabel;
    DBEdit1: TDBEdit;
    Label4: TLabel;
    DBEdit2: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit3: TDBEdit;
    Edit1: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label11: TLabel;
    Edit4: TEdit;
    Label9: TLabel;
    Edit5: TEdit;
    Panel2: TPanel;
    DBGrid2: TDBGrid;
    StatusBar: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton4: TToolButton;
    ToolButton3: TToolButton;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton9: TToolButton;
    ToolButton10: TToolButton;
    ADOConnection1: TADOConnection;
    LeaveTable: TADOTable;
    DataSource1: TDataSource;
    ImageList1: TImageList;
    ImageList2: TImageList;
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
    Panel3: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    ComboBox2: TComboBox;
    Button3: TButton;
    DBNavigator1: TDBNavigator;
    Bevel1: TBevel;
    TimerStatus: TTimer;
    procedure ComboBox1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure N35Click(Sender: TObject);
    procedure DBGrid2DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
  private
    procedure ShowHint(Sender:Tobject);
    procedure ShowStatus(strStatus: string);
    { Private declarations }
  public
    procedure ShowMsgBox(const Msg: string);
    { Public declarations }
  end;

var
  frmComputerSale: TfrmComputerSale;

implementation

{$R *.dfm}

uses uBuyDevice;

{===============================================================================
==================================过程定义======================================
===============================================================================}
procedure TfrmComputerSale.ShowMsgBox(const Msg: string);
begin
  Application.MessageBox(PChar(Msg), '信息提示', MB_OK+MB_ICONINFORMATION);
end;

procedure TfrmComputerSale.ShowStatus(strStatus: string);
begin
  StatusBar.Panels[1].Text := strStatus;
  StatusBar.Refresh;
end;

procedure TfrmComputerSale.ShowHint(Sender: Tobject);
begin
  StatusBar.Panels[0].Text := Application.Hint;
end;
{==============================================================================}
procedure TfrmComputerSale.FormCreate(Sender: TObject);
begin
  Application.OnHint := ShowHint;  //显示hint
  ShowStatus('欢迎使用《电脑销售管理系统》软件制作:刀剑如梦');
end;

procedure TfrmComputerSale.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.Text = '整机类'  then
  begin
    ComboBox2.Text := '';
    ComboBox2.Items.Clear;
    ComboBox2.Items.Insert(0, '组装机');
    ComboBox2.Items.Insert(1, '品牌机');
    ComboBox2.Items.Insert(2, '笔记本');
   end;

  if ComboBox1.Text = '配件类'  then
  begin
    ComboBox2.Text := '';
    ComboBox2.Items.Clear;
    ComboBox2.Items.Insert(0, 'CPU');
    ComboBox2.Items.Insert(1, '内存');
    ComboBox2.Items.Insert(2, '硬盘');
    ComboBox2.Items.Insert(3, '主板');
    ComboBox2.Items.Insert(4, '显卡');
    ComboBox2.Items.Insert(5, '声卡');
    ComboBox2.Items.Insert(6, 'CD-ROM');
    ComboBox2.Items.Insert(7, 'DVD-ROM');
    ComboBox2.Items.Insert(8, '刻录机');
    ComboBox2.Items.Insert(9, '键盘');
    ComboBox2.Items.Insert(10, '鼠标');
    ComboBox2.Items.Insert(11, '音箱');
    ComboBox2.Items.Insert(12, '机箱');
  end;

  if ComboBox1.Text = '外设类'  then
  begin
    ComboBox2.Text := '';
    ComboBox2.Items.Clear;
    ComboBox2.Items.Insert(0, 'LCD显示器');
    ComboBox2.Items.Insert(1, 'CRT显示器');
    ComboBox2.Items.Insert(2, '视频产品');
    ComboBox2.Items.Insert(3, '打印机');
    ComboBox2.Items.Insert(4, '扫描仪');
  end;

  if ComboBox1.Text = '网络类'  then
  begin
    ComboBox2.Text := '';
    ComboBox2.Items.Clear;
    ComboBox2.Items.Insert(0, '网卡');
    ComboBox2.Items.Insert(1, '集线器');
  end;

  if ComboBox1.Text = '数码类'  then
  begin
    ComboBox2.Text := '';
    ComboBox2.Items.Clear;
    ComboBox2.Items.Insert(0, '移动存储');
    ComboBox2.Items.Insert(1, '数码相机');
    ComboBox2.Items.Insert(2, '数码摄象机');
    ComboBox2.Items.Insert(3, '摄象头');
    ComboBox2.Items.Insert(4, 'MP3');
  end;

  if ComboBox1.Text = '耗材类'  then
  begin
    ComboBox2.Text := '';
    ComboBox2.Items.Clear;
    ComboBox2.Items.Insert(0, '针式打印机');
    ComboBox2.Items.Insert(1, '喷墨打印机');
    ComboBox2.Items.Insert(2, '激光打印机');
  end;

  if ComboBox1.Text = '软件类'  then
  begin
    ComboBox2.Text := '';
    ComboBox2.Items.Clear;
    ComboBox2.Items.Insert(0, '杀毒软件');
  end;

  if ComboBox1.Text = '其它'  then
  begin
    ComboBox2.Text := '';
    ComboBox2.Items.Clear;
  end;
end;

procedure TfrmComputerSale.Button3Click(Sender: TObject);
begin
  if (ComboBox1.Text<>'') and (ComboBox2.Text='') then
  begin
  LeaveTable.Close;
  LeaveTable.Open;
  LeaveTable.Filtered:=false;
  LeaveTable.Filter:='Type='''+ComboBox1.Text+'''';
  LeaveTable.Filtered:=True;
  LeaveTable.Refresh;
  end;
  if (ComboBox1.Text<>'') and (ComboBox2.Text<>'') then
  begin
  LeaveTable.Close;
  LeaveTable.Open;
  LeaveTable.Filtered:=false;
  LeaveTable.Filter:='GoodsName='''+ComboBox2.Text+'''';
  LeaveTable.Filtered:=True;
  LeaveTable.Refresh;
  end;
end;


procedure TfrmComputerSale.ToolButton3Click(Sender: TObject);
begin
  frmBuyDevice := TfrmBuyDevice.Create(Application);
  frmBuyDevice.ShowModal;
end;

procedure TfrmComputerSale.ToolButton8Click(Sender: TObject);
begin
  ShowMsgBox('本程序经刀剑如梦整理' + #13#10 + '  刀剑如梦软件创作室');
end;

procedure TfrmComputerSale.ToolButton10Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TfrmComputerSale.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TfrmComputerSale.FormDestroy(Sender: TObject);
begin
  frmComputerSale := nil;
end;

procedure TfrmComputerSale.N35Click(Sender: TObject);
begin
  ShowMsgBox('本程序经刀剑如梦整理' + #13#10 + '  刀剑如梦软件创作室');
end;

procedure TfrmComputerSale.DBGrid2DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
  if gdSelected in State then
  begin
   //字体
   DBGrid2.Canvas.Font.Color := clRed;//字体色
   //背景
   DBGrid2.Canvas.Brush.Color := clBlue;//背景色
   DBGrid2.Canvas.FillRect(Rect);
  end;
  DBGrid2.DefaultDrawDataCell(Rect, Field, State);
end;

end.