xs.pas

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

unit xs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, DBCtrls, jpeg, ExtCtrls, Mask, Grids,
  DBGrids, ExtDlgs, Calendar, Buttons;

type
  TxsForm = class(TForm)
    Label1: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    DBImage1: TDBImage;
    Button1: TButton;
    Image1: TImage;
    DBNavigator1: TDBNavigator;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label11: TLabel;
    DBImage2: TDBImage;
    DBGrid1: TDBGrid;
    OpenPictureDialog1: TOpenPictureDialog;
    Image2: TImage;
    Bevel1: TBevel;
    Button2: TButton;
    Button3: TButton;
    Label12: TLabel;
    TabSheet8: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    ComboBox4: TComboBox;
    Label17: TLabel;
    Edit4: TEdit;
    BitBtn1: TBitBtn;
    DBGrid2: TDBGrid;
    Label18: TLabel;
    BitBtn2: TBitBtn;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DBEditCustomer: TDBEdit;
    DBEditCustAddress: TDBEdit;
    DBEditCustPhone: TDBEdit;
    DBEditDateTime: TDBEdit;
    DBComboBoxCustSex: TDBComboBox;
    Label24: TLabel;
    DBGrid3: TDBGrid;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Labelxm: TLabel;
    Labelxb: TLabel;
    Labeldz: TLabel;
    Labeldh: TLabel;
    Labelrq: TLabel;
    Editxm: TEdit;
    Editdz: TEdit;
    Editdh: TEdit;
    ComboBoxxb: TComboBox;
    DateTimePickerRQ: TDateTimePicker;
    GroupBox5: TGroupBox;
    PageControl2: TPageControl;
    TabSheet10: TTabSheet;
    TabSheet11: TTabSheet;
    TabSheet12: TTabSheet;
    TabSheet13: TTabSheet;
    TabSheet14: TTabSheet;
    TabSheet15: TTabSheet;
    TabSheet16: TTabSheet;
    TabSheet17: TTabSheet;
    TabSheet18: TTabSheet;
    TabSheet19: TTabSheet;
    TabSheet20: TTabSheet;
    TabSheet21: TTabSheet;
    TabSheet22: TTabSheet;
    TabSheet23: TTabSheet;
    TabSheet24: TTabSheet;
    TabSheet26: TTabSheet;
    TabSheet27: TTabSheet;
    TabSheet28: TTabSheet;
    TabSheet29: TTabSheet;
    Label25: TLabel;
    Label26: TLabel;
    Label59: TLabel;
    Editxsqdbh: TEdit;
    Editxsjezj: TEdit;
    Label60: TLabel;
    Label61: TLabel;
    Label62: TLabel;
    Label67: TLabel;
    Editsl: TEdit;
    Editjg: TEdit;
    Editqx: TEdit;
    ComboBoxxh: TComboBox;
    Label68: TLabel;
    ComboBoxcpuxh: TComboBox;
    Editcpusl: TEdit;
    Label69: TLabel;
    Label70: TLabel;
    Editcpujg: TEdit;
    Label71: TLabel;
    Editcpuqx: TEdit;
    Label31: TLabel;
    ComboBoxzbxh: TComboBox;
    Editzbsl: TEdit;
    Label32: TLabel;
    Label33: TLabel;
    Editzbjg: TEdit;
    Label34: TLabel;
    Editzbqx: TEdit;
    Label35: TLabel;
    ComboBoxypxh: TComboBox;
    Editypsl: TEdit;
    Label36: TLabel;
    Label37: TLabel;
    Editypjg: TEdit;
    Label38: TLabel;
    Editypqx: TEdit;
    Label72: TLabel;
    ComboBoxjxxh: TComboBox;
    Editjxsl: TEdit;
    Label73: TLabel;
    Label74: TLabel;
    Editjxjg: TEdit;
    Label75: TLabel;
    Editjxqx: TEdit;
    Label76: TLabel;
    ComboBoxxsqxh: TComboBox;
    Editxsqsl: TEdit;
    Label77: TLabel;
    Label78: TLabel;
    Editxsqjg: TEdit;
    Label79: TLabel;
    Editxsqqx: TEdit;
    Label39: TLabel;
    ComboBoxdyxh: TComboBox;
    Editdysl: TEdit;
    Label40: TLabel;
    Label41: TLabel;
    Editdyjg: TEdit;
    Label42: TLabel;
    Editdyqx: TEdit;
    Label27: TLabel;
    ComboBoxgqxh: TComboBox;
    Editgqsl: TEdit;
    Label28: TLabel;
    Label29: TLabel;
    Editgqjg: TEdit;
    Label30: TLabel;
    Editgqqx: TEdit;
    Label43: TLabel;
    ComboBoxjpxh: TComboBox;
    Editjpsl: TEdit;
    Label44: TLabel;
    Label45: TLabel;
    Editjpjg: TEdit;
    Label46: TLabel;
    Editjpqx: TEdit;
    Label47: TLabel;
    ComboBoxsbxh: TComboBox;
    Editsbsl: TEdit;
    Label48: TLabel;
    Label49: TLabel;
    Editsbjg: TEdit;
    Label50: TLabel;
    Editsbqx: TEdit;
    Label51: TLabel;
    ComboBoxrqxh: TComboBox;
    Editrqsl: TEdit;
    Label52: TLabel;
    Label53: TLabel;
    Editrqjg: TEdit;
    Label54: TLabel;
    Editrqqx: TEdit;
    Label80: TLabel;
    ComboBoxskxh: TComboBox;
    Editsksl: TEdit;
    Label81: TLabel;
    Label82: TLabel;
    Editskjg: TEdit;
    Label83: TLabel;
    Editskqx: TEdit;
    Label84: TLabel;
    ComboBoxxkxh: TComboBox;
    Editxksl: TEdit;
    Label85: TLabel;
    Label86: TLabel;
    Editxkjg: TEdit;
    Label87: TLabel;
    Editxkqx: TEdit;
    Label55: TLabel;
    ComboBoxwkxh: TComboBox;
    Editwksl: TEdit;
    Label56: TLabel;
    Label57: TLabel;
    Editwkjg: TEdit;
    Label58: TLabel;
    Editwkqx: TEdit;
    Label88: TLabel;
    ComboBoxsxtxh: TComboBox;
    Editsxtsl: TEdit;
    Label89: TLabel;
    Label90: TLabel;
    Editsxtjg: TEdit;
    Label91: TLabel;
    Editsxtqx: TEdit;
    Label63: TLabel;
    ComboBoxupxh: TComboBox;
    Editupsl: TEdit;
    Label64: TLabel;
    Label65: TLabel;
    Editupjg: TEdit;
    Label66: TLabel;
    Editupqx: TEdit;
    Label92: TLabel;
    ComboBoxpj1xh: TComboBox;
    Editpj1sl: TEdit;
    Label93: TLabel;
    Label94: TLabel;
    Editpj1jg: TEdit;
    Label95: TLabel;
    Editpj1qx: TEdit;
    Editpj1mc: TEdit;
    Label96: TLabel;
    Label97: TLabel;
    Edit5: TEdit;
    Label98: TLabel;
    Edit6: TEdit;
    Label99: TLabel;
    ComboBox5: TComboBox;
    Label100: TLabel;
    Edit7: TEdit;
    Label101: TLabel;
    Edit8: TEdit;
    Label102: TLabel;
    Edit9: TEdit;
    Label103: TLabel;
    Edit10: TEdit;
    Label104: TLabel;
    ComboBox6: TComboBox;
    Label105: TLabel;
    Edit11: TEdit;
    Label106: TLabel;
    Edit12: TEdit;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    RichEdit1: TRichEdit;
    Image3: TImage;
    GroupBox6: TGroupBox;
    Label109: TLabel;
    Label110: TLabel;
    Label111: TLabel;
    Label112: TLabel;
    BitBtn7: TBitBtn;
    DBGrid4: TDBGrid;
    BitBtn8: TBitBtn;
    GroupBox7: TGroupBox;
    Label113: TLabel;
    Label115: TLabel;
    Label117: TLabel;
    Label118: TLabel;
    DBEdit5: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBGrid5: TDBGrid;
    ComboBoxpjmc: TComboBox;
    ComboBoxpjxh: TComboBox;
    ComboBoxqdbh: TComboBox;
    DBNavigator2: TDBNavigator;
    GroupBox8: TGroupBox;
    DBGrid6: TDBGrid;
    PageControl3: TPageControl;
    TabSheet25: TTabSheet;
    TabSheet30: TTabSheet;
    TabSheet31: TTabSheet;
    TabSheet32: TTabSheet;
    Label107: TLabel;
    Edit13: TEdit;
    Label108: TLabel;
    ComboBox3: TComboBox;
    BitBtn9: TBitBtn;
    Label114: TLabel;
    Label116: TLabel;
    ComboBox7: TComboBox;
    BitBtn10: TBitBtn;
    ComboBox8: TComboBox;
    Label119: TLabel;
    Label120: TLabel;
    BitBtn11: TBitBtn;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label121: TLabel;
    Label122: TLabel;
    BitBtn12: TBitBtn;
    ComboBox9: TComboBox;
    Edit14: TEdit;
    GroupBox9: TGroupBox;
    GroupBox10: TGroupBox;
    Label123: TLabel;
    Label124: TLabel;
    Label125: TLabel;
    Label126: TLabel;
    Label127: TLabel;
    ComboBox_cpmc: TComboBox;
    ComboBox11: TComboBox;
    Edit17: TEdit;
    Edit18: TEdit;
    Label128: TLabel;
    Label129: TLabel;
    DateTimePickerbjrq: TDateTimePicker;
    BitBtnbaojiacz: TBitBtn;
    BitBtnlurubaojia: TBitBtn;
    DBGrid7: TDBGrid;
    DBNavigator3: TDBNavigator;
    Label130: TLabel;
    Label131: TLabel;
    Label132: TLabel;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    ComboBox12: TComboBox;
    ComboBox13: TComboBox;
    DateTimePickerBjrq2: TDateTimePicker;
    Label133: TLabel;
    Edit19: TEdit;
    Label5: TLabel;
    Label134: TLabel;
    ComboBox_cpxh: TComboBox;
    Edit_cpbh: TEdit;
    DateTimePickerBjrq3: TDateTimePicker;
    Label135: TLabel;
    Label136: TLabel;
    TabSheet33: TTabSheet;
    ComboBoxxsygbh: TComboBox;
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Label10Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure DBEditCustPhoneKeyPress(Sender: TObject; var Key: Char);
    procedure DBEditDateTimeKeyPress(Sender: TObject; var Key: Char);
    procedure TabSheet29Enter(Sender: TObject);
    procedure TabSheet10Enter(Sender: TObject);
    procedure TabSheet29Exit(Sender: TObject);
    procedure TabSheet10Exit(Sender: TObject);
    procedure TabSheet11Enter(Sender: TObject);
    procedure TabSheet11Exit(Sender: TObject);
    procedure TabSheet12Enter(Sender: TObject);
    procedure TabSheet12Exit(Sender: TObject);
    procedure TabSheet13Enter(Sender: TObject);
    procedure TabSheet13Exit(Sender: TObject);
    procedure TabSheet14Enter(Sender: TObject);
    procedure TabSheet14Exit(Sender: TObject);
    procedure TabSheet15Enter(Sender: TObject);
    procedure TabSheet15Exit(Sender: TObject);
    procedure TabSheet16Enter(Sender: TObject);
    procedure TabSheet16Exit(Sender: TObject);
    procedure TabSheet17Enter(Sender: TObject);
    procedure TabSheet17Exit(Sender: TObject);
    procedure TabSheet18Enter(Sender: TObject);
    procedure TabSheet18Exit(Sender: TObject);
    procedure TabSheet19Enter(Sender: TObject);
    procedure TabSheet19Exit(Sender: TObject);
    procedure TabSheet20Enter(Sender: TObject);
    procedure TabSheet20Exit(Sender: TObject);
    procedure TabSheet21Enter(Sender: TObject);
    procedure TabSheet21Exit(Sender: TObject);
    procedure TabSheet22Enter(Sender: TObject);
    procedure TabSheet22Exit(Sender: TObject);
    procedure TabSheet23Enter(Sender: TObject);
    procedure TabSheet23Exit(Sender: TObject);
    procedure TabSheet24Enter(Sender: TObject);
    procedure TabSheet24Exit(Sender: TObject);
    procedure TabSheet1Enter(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure TabSheet7Enter(Sender: TObject);
    procedure ComboBoxqdbhChange(Sender: TObject);
    procedure ComboBoxpjmcChange(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
    procedure TabSheet25Exit(Sender: TObject);
    procedure TabSheet30Enter(Sender: TObject);
    procedure ComboBox8Change(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
    procedure BitBtn11Click(Sender: TObject);
    procedure TabSheet30Exit(Sender: TObject);
    procedure TabSheet31Exit(Sender: TObject);
    procedure TabSheet32Exit(Sender: TObject);
    procedure TabSheet32Enter(Sender: TObject);
    procedure ComboBox9Change(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure TabSheet3Enter(Sender: TObject);
    procedure BitBtnbaojiaczClick(Sender: TObject);
    procedure ComboBox11Change(Sender: TObject);
    procedure BitBtnlurubaojiaClick(Sender: TObject);
    procedure BitBtn14Click(Sender: TObject);
    procedure BitBtn13Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBEdit3Exit(Sender: TObject);
    procedure ComboBox_cpmcChange(Sender: TObject);
    procedure ComboBox_cpxhChange(Sender: TObject);
    procedure Edit18KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xsForm: TxsForm;

implementation

uses login, DataModule, designer;

{$R *.dfm}

procedure TxsForm.TabSheet1Enter(Sender: TObject);
//1库存查询页面的OnEnter事件,主要完成在ComboBox1的Items里添加产品名称的功能
begin
  ComboBox1.Text:='请选择';
  ComboBox1.Items.Clear;
  with DM.ADOStoredProc_PartName do
  begin
    Close;
    Open;
    while not Eof do
    begin