thing_base.pas

delphi的一个开发实例

unit Thing_Base;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, Mask, Grids,
  XPMenu, Buttons, DBGrids, ToolWin, ImgList, ExtDlgs,DB,Jpeg;

type
  Tfrm_Thing_Base = class(TForm)
    XPMenu1: TXPMenu;
    ImageList1: TImageList;
    OpenPictureDialog1: TOpenPictureDialog;
    Panel1: TPanel;
    PageControl2: TPageControl;
    TabSh1: TTabSheet;
    Panel9: TPanel;
    Panel10: TPanel;
    ListBox1: TListBox;
    Panel11: TPanel;
    Panel12: TPanel;
    Label12: TLabel;
    Edit1: TLabeledEdit;
    Edit2: TLabeledEdit;
    Edit3: TLabeledEdit;
    Edit_Part_ID: TEdit;
    Panel13: TPanel;
    ToolBar1: TToolBar;
    Cmd_P_Add: TSpeedButton;
    Cmd_P_Delete: TSpeedButton;
    Cmd_P_Edit: TSpeedButton;
    Cmd_P_Save: TSpeedButton;
    Cmd_P_Exit: TSpeedButton;
    Cmd_P_Cancel: TSpeedButton;
    Cmd_P_Tree: TSpeedButton;
    Panel14: TPanel;
    DBGrid1: TDBGrid;
    TabSh2: TTabSheet;
    Panel15: TPanel;
    Panel16: TPanel;
    TreeView2: TTreeView;
    Panel17: TPanel;
    Panel18: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit4: TLabeledEdit;
    Edit5: TLabeledEdit;
    Edit6: TLabeledEdit;
    Edit7: TComboBox;
    Edit10: TLabeledEdit;
    Edit12: TLabeledEdit;
    Edit11: TLabeledEdit;
    Edit14: TLabeledEdit;
    Edit13: TLabeledEdit;
    Edit8: TMaskEdit;
    Edit9: TComboBox;
    Edit15: TMaskEdit;
    Edit16: TComboBox;
    Edit17: TComboBox;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit_employee_ID: TEdit;
    Panel6: TPanel;
    Image1: TImage;
    Panel19: TPanel;
    ToolBar2: TToolBar;
    Cmd_E_Add: TSpeedButton;
    Cmd_E_Delete: TSpeedButton;
    Cmd_E_Edit: TSpeedButton;
    Cmd_E_Save: TSpeedButton;
    Cmd_E_Exit: TSpeedButton;
    Cmd_E_Cancel: TSpeedButton;
    Cmd_E_Treeview: TSpeedButton;
    Panel20: TPanel;
    DBGrid5: TDBGrid;
    TabSh3: TTabSheet;
    Panel21: TPanel;
    ED1: TLabeledEdit;
    ED3: TLabeledEdit;
    ED4: TLabeledEdit;
    ED5: TLabeledEdit;
    ED2: TLabeledEdit;
    ED6: TLabeledEdit;
    ED8: TLabeledEdit;
    ED10: TLabeledEdit;
    ED7: TLabeledEdit;
    ED9: TLabeledEdit;
    ED11: TLabeledEdit;
    ED13: TLabeledEdit;
    ED15: TLabeledEdit;
    ED17: TLabeledEdit;
    ED14: TLabeledEdit;
    ED12: TLabeledEdit;
    ED16: TLabeledEdit;
    Edit_S_ID: TEdit;
    Panel22: TPanel;
    ToolBar3: TToolBar;
    Cmd_S_Add: TSpeedButton;
    Cmd_S_Delete: TSpeedButton;
    Cmd_S_Edit: TSpeedButton;
    Cmd_S_Save: TSpeedButton;
    Cmd_S_Exit: TSpeedButton;
    Cmd_S_Cancel: TSpeedButton;
    DBGrid4: TDBGrid;
    TabSh4: TTabSheet;
    Panel23: TPanel;
    Edit20: TLabeledEdit;
    Edit22: TLabeledEdit;
    Edit23: TLabeledEdit;
    Edit24: TLabeledEdit;
    Edit21: TLabeledEdit;
    LabeledEdit9: TLabeledEdit;
    Edit_YH_ID: TEdit;
    Panel24: TPanel;
    ToolBar4: TToolBar;
    Cmd_Y_Add: TSpeedButton;
    Cmd_Y_Delete: TSpeedButton;
    Cmd_Y_Edit: TSpeedButton;
    Cmd_Y_Save: TSpeedButton;
    Cmd_Y_Rush: TSpeedButton;
    Cmd_Y_Exit: TSpeedButton;
    DBGrid_YHZH: TDBGrid;
    TabSh5: TTabSheet;
    Panel25: TPanel;
    Label10: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label7: TLabel;
    Label11: TLabel;
    Edit25: TLabeledEdit;
    Edit26: TLabeledEdit;
    Edit29: TLabeledEdit;
    Edit33: TLabeledEdit;
    Edit34: TLabeledEdit;
    Edit35: TLabeledEdit;
    Edit27: TComboBox;
    Edit28: TComboBox;
    Edit32: TMaskEdit;
    Edit31: TMaskEdit;
    Edit30: TComboBox;
    Edit36: TLabeledEdit;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Panel26: TPanel;
    ToolBar5: TToolBar;
    SpeedButton22: TSpeedButton;
    SpeedButton23: TSpeedButton;
    SpeedButton24: TSpeedButton;
    SpeedButton25: TSpeedButton;
    SpeedButton26: TSpeedButton;
    SpeedButton27: TSpeedButton;
    Panel27: TPanel;
    P_Type: TPanel;
    P_Seting: TPanel;
    DBGrid7: TDBGrid;
    TabSh6: TTabSheet;
    Panel30: TPanel;
    ToolBar6: TToolBar;
    Cmd_Storge_Add: TSpeedButton;
    Cmd_Storge_Delete: TSpeedButton;
    Cmd_Storge_Edit: TSpeedButton;
    Cmd_Storge_Save: TSpeedButton;
    Cmd_Storge_Exit: TSpeedButton;
    SpeedButton28: TSpeedButton;
    Strorge_ID: TEdit;
    Panel31: TPanel;
    Strorge_area: TLabeledEdit;
    Strorge_Type: TLabeledEdit;
    Strorge_address: TLabeledEdit;
    Strorge_No: TLabeledEdit;
    Strorge_Telphone: TLabeledEdit;
    Strorge_Fax: TLabeledEdit;
    Strorge_volume: TLabeledEdit;
    Strorge_Remark: TLabeledEdit;
    Strorge_Manage: TLabeledEdit;
    Strorge_Name: TLabeledEdit;
    DBGrid2: TDBGrid;
    TabSh7: TTabSheet;
    Panel32: TPanel;
    ToolBar7: TToolBar;
    SpeedButton32: TSpeedButton;
    SpeedButton33: TSpeedButton;
    SpeedButton34: TSpeedButton;
    SpeedButton35: TSpeedButton;
    SpeedButton36: TSpeedButton;
    SpeedButton29: TSpeedButton;
    Panel33: TPanel;
    LabeledEdit20: TLabeledEdit;
    LabeledEdit21: TLabeledEdit;
    LabeledEdit22: TLabeledEdit;
    LabeledEdit23: TLabeledEdit;
    LabeledEdit24: TLabeledEdit;
    DBGrid8: TDBGrid;
    TabSh8: TTabSheet;
    SpeedButton30: TSpeedButton;
    TabSh9: TTabSheet;
    TabSh10: TTabSheet;
    Panel37: TPanel;
    ToolBar9: TToolBar;
    Cmd_G_Add: TSpeedButton;
    Cmd_G_Delete: TSpeedButton;
    Cmd_G_Edit: TSpeedButton;
    Cmd_G_Save: TSpeedButton;
    Cmd_G_Exit: TSpeedButton;
    Cmd_GR: TSpeedButton;
    Cmd_G_Cancel: TSpeedButton;
    Cmd_G_TreeView: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Panel2: TPanel;
    Panel3: TPanel;
    GroupBox4: TGroupBox;
    GroupBox2: TGroupBox;
    Cmd_Color: TSpeedButton;
    Cmd_GG: TSpeedButton;
    EG12: TLabeledEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    EG8: TLabeledEdit;
    EG9: TLabeledEdit;
    EG10: TLabeledEdit;
    EG11: TLabeledEdit;
    EG13: TLabeledEdit;
    Panel4: TPanel;
    Cmd__Modal: TSpeedButton;
    Cmd_Cards: TSpeedButton;
    Cmd_Brand: TSpeedButton;
    EG1: TLabeledEdit;
    EG2: TLabeledEdit;
    EG4: TLabeledEdit;
    EG6: TLabeledEdit;
    EG3: TLabeledEdit;
    EG5: TLabeledEdit;
    EG7: TLabeledEdit;
    Panel5: TPanel;
    EG14: TLabeledEdit;
    EG15: TLabeledEdit;
    EG16: TLabeledEdit;
    EG17: TLabeledEdit;
    EG18: TLabeledEdit;
    EG19: TLabeledEdit;
    EG21: TLabeledEdit;
    EG23: TLabeledEdit;
    EG20: TLabeledEdit;
    EG22: TLabeledEdit;
    Edit_ID: TEdit;
    Panel7: TPanel;
    GroupBox6: TGroupBox;
    TreeView1: TTreeView;
    DBGrid3: TDBGrid;
    TabSheet1: TTabSheet;
    SpeedButton5: TSpeedButton;
    Panel8: TPanel;
    Panel28: TPanel;
    Panel35: TPanel;
    ToolBar8: TToolBar;
    Cmd_SH_Add: TSpeedButton;
    Cmd_SH_Delete: TSpeedButton;
    Cmd_SH_Edit: TSpeedButton;
    Cmd_SH_Save: TSpeedButton;
    Cmd_SH_Rush: TSpeedButton;
    Cmd_SH_Exit: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    DBGrid_ChildShop: TDBGrid;
    Panel34: TPanel;
    SpeedButton3: TSpeedButton;
    Edit_area_Name: TLabeledEdit;
    Edit_shop_Name: TLabeledEdit;
    Edit_shop_NO: TLabeledEdit;
    Edit_address: TLabeledEdit;
    Edit_ZIP: TLabeledEdit;
    Edit_Telphone: TLabeledEdit;
    Edit_Fax: TLabeledEdit;
    Edit_Remark: TLabeledEdit;
    Edit_merchant: TLabeledEdit;
    Edit_area_NO: TLabeledEdit;
    CheckBox5: TCheckBox;
    TreeView3: TTreeView;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure Panel3Click(Sender: TObject);
    procedure P_TypeDblClick(Sender: TObject);
    procedure P_SetingDblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Cmd_P_EditClick(Sender: TObject);
    procedure Cmd_P_DeleteClick(Sender: TObject);
    procedure EG17Change(Sender: TObject);
    procedure Cmd__ModalClick(Sender: TObject);
    procedure Cmd_CardsClick(Sender: TObject);
    procedure SpeedButton52Click(Sender: TObject);
    procedure Cmd_ColorClick(Sender: TObject);
    procedure TreeView1Changing(Sender: TObject; Node: TTreeNode;
      var AllowChange: Boolean);
    procedure Cmd_Storge_AddClick(Sender: TObject);
    procedure Cmd_Storge_ExitClick(Sender: TObject);
    procedure Cmd_Storge_SaveClick(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure Cmd_Storge_EditClick(Sender: TObject);
    procedure Cmd_Storge_DeleteClick(Sender: TObject);
    procedure Cmd_P_CancelClick(Sender: TObject);
    procedure Cmd_E_CancelClick(Sender: TObject);
    procedure Cmd_S_CancelClick(Sender: TObject);
    procedure Cmd_Y_ExitClick(Sender: TObject);
    procedure PageControl2Change(Sender: TObject);
    procedure SpeedButton28Click(Sender: TObject);
    procedure SpeedButton30Click(Sender: TObject);
    procedure Cmd_SH_ExitClick(Sender: TObject);
    procedure Cmd_G_CancelClick(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Cmd_P_AddClick(Sender: TObject);
    procedure Cmd_P_ExitClick(Sender: TObject);
    procedure Cmd_P_SaveClick(Sender: TObject);
    procedure Cmd_P_TreeClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker2Change(Sender: TObject);
    procedure Cmd_G_TreeViewClick(Sender: TObject);