partin.pas

大型分布式销售管理系统,DELPHI编写,商业源代码,现在已经商用,下载者严禁出售该代码,只可以自己学习,包含数据库文件

unit partin;

interface

uses
  Windows, Messages, Classes, SysUtils, Graphics, Controls, StdCtrls, Forms,
  Dialogs, DBCtrls, DB, Mask, ComCtrls, DBTables, Grids, DBGrids, ExtCtrls,
  ADODB;

type
  TForm_partin = class(TForm)
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ScrollBox: TScrollBox;
    DBGrid1: TDBGrid;
    ADOQuery1: TADOQuery;
    GroupBox1: TGroupBox;
    Label17: TLabel;
    DBEdit3: TDBEdit;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label18: TLabel;
    DBEdit4: TDBEdit;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    EditDBEdit2: TDBEdit;
    Label5: TLabel;
    EditDBEdit5: TDBEdit;
    Label3: TLabel;
    Label6: TLabel;
    EditDBEdit6: TDBEdit;
    GroupBox4: TGroupBox;
    Label11: TLabel;
    EditDBEdit11: TDBEdit;
    Label12: TLabel;
    EditDBEdit12: TDBEdit;
    Label13: TLabel;
    EditDBEdit13: TDBEdit;
    GroupBox5: TGroupBox;
    Label4: TLabel;
    EditDBEdit4: TDBEdit;
    Label7: TLabel;
    EditDBEdit7: TDBEdit;
    Label15: TLabel;
    DBMemo1: TDBMemo;
    GroupBox3: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label16: TLabel;
    DBComboBox2: TDBComboBox;
    EditDBEdit10: TDBEdit;
    DBEdit2: TDBEdit;
    Panel1: TPanel;
    btn_first: TButton;
    btn_prev: TButton;
    btn_next: TButton;
    btn_last: TButton;
    btn_addnew: TButton;
    btn_delete: TButton;
    btn_edit: TButton;
    btn_save: TButton;
    btn_cancel: TButton;
    Panel2: TPanel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    btn_filterfield: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    Label14: TLabel;
    DBEdit5: TDBEdit;
    editdbedit9: TDBComboBox;
    Label19: TLabel;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure btn_firstClick(Sender: TObject);
    procedure btn_prevClick(Sender: TObject);
    procedure btn_nextClick(Sender: TObject);
    procedure btn_lastClick(Sender: TObject);
    procedure btn_addnewClick(Sender: TObject);
    procedure btn_editClick(Sender: TObject);
    procedure btn_saveClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn_filterfieldClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit3Enter(Sender: TObject);
    procedure ADOQuery1AfterOpen(DataSet: TDataSet);
    procedure EditDBEdit11Exit(Sender: TObject);
    procedure EditDBEdit12Exit(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ADOQuery1AfterPost(DataSet: TDataSet);
    procedure DBComboBox2Exit(Sender: TObject);
    procedure btn_deleteClick(Sender: TObject);
    procedure editdbedit9Exit(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure ADOQuery1AfterDelete(DataSet: TDataSet);
    procedure DBComboBox2Click(Sender: TObject);
    procedure editdbedit9Click(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
  private
    { private declarations }
    procedure DisableBtn;
    //定义过程，用来使某些按钮失效
    procedure EnableBtn;
    //定义过程，用来使某些按钮有效
    procedure AddPartNum();
  public
    { public declarations }
  end;

var
  Form_partin: TForm_partin;
  j:integer;
  myIndex:array[1..10] of integer;
  myValue:array[1..10] of single;
  NotFirst:boolean;

  NumDelete:string;
  StrDelete:string;

implementation

uses wxp_dm, search, Unit_wxp;

{$R *.DFM}

procedure TForm_partin.FormCreate(Sender: TObject);
begin
  ADOQuery1.Open;
  NotFirst:=false;
  if self.ADOQuery1.Recordset.RecordCount =0 then
  begin
          btn_delete.Enabled :=false;
          btn_edit.Enabled :=false;
  end;
  AddPartNum;
end;

procedure TForm_partin.btn_firstClick(Sender: TObject);
begin
     //if not ADOQuery1.Bof then
     ADOQuery1.First ;
end;

procedure TForm_partin.btn_prevClick(Sender: TObject);
begin
     if not ADOQuery1.Bof then
     ADOQuery1.Prior ;     
end;

procedure TForm_partin.btn_nextClick(Sender: TObject);
begin
     if not ADOQuery1.Eof then
        ADOQuery1.Next ;
end;

procedure TForm_partin.btn_lastClick(Sender: TObject);
begin
     ADOQuery1.Last ;
end;

procedure TForm_partin.btn_addnewClick(Sender: TObject);
begin

     groupbox1.Enabled :=true;
     groupbox2.Enabled :=true;
     groupbox3.Enabled :=true;
     groupbox4.Enabled :=true;
     groupbox5.Enabled :=true;     

     DisableBtn;
     btn_delete.Enabled :=false;
     ADOQuery1.Append  ;
     btn_save.Enabled :=true;
     btn_cancel.Enabled :=true;
     dbedit3.Text :=dateToStr(date);
     dbedit4.Text :=unit_wxp.myOffice ;
     editdbedit4.SetFocus ;
     editdbedit4.Text :=dateToStr(date);
     editdbedit7.SetFocus ;
     editdbedit7.Text :=dateToStr(date);
     editdbedit2.SetFocus ;

end;

procedure Tform_partin.DisableBtn ;
begin
    btn_first.Enabled :=false;
    btn_prev.Enabled :=false;
    btn_next.Enabled :=false;
    btn_last.Enabled :=false;

    btn_addnew.Enabled :=false;
    btn_edit.Enabled :=false;

end;


procedure Tform_partin.EnableBtn ;
begin
    btn_first.Enabled :=true;
    btn_prev.Enabled :=true;
    btn_next.Enabled :=true;
    btn_last.Enabled :=true;

    btn_addnew.Enabled :=true;
    btn_edit.Enabled :=true;

end;









procedure TForm_partin.btn_editClick(Sender: TObject);
begin
     DisableBtn;
     btn_delete.Enabled :=false;
     groupbox1.Enabled :=true;
     groupbox2.Enabled :=true;
     groupbox3.Enabled :=true;
     groupbox4.Enabled :=true;
     groupbox5.Enabled :=true;
          
     ADOQuery1.Edit ;
     btn_save.Enabled :=true;
     btn_cancel.Enabled :=true;

end;

procedure TForm_partin.btn_saveClick(Sender: TObject);
begin
        if (DBComboBox2.Text ='') and (editdbedit9.Text ='') then
        begin
          showmessage('  零件编号和名称不能为空，请填写！');
          exit;
        end;
     if EditDBEdit11.Text ='' then
        begin
          showmessage('  零件数量不能为空，请填写！');
          exit;
        end;
        ADOQuery1.Post   ;

     groupbox1.Enabled :=false;
     groupbox2.Enabled :=false;
     groupbox3.Enabled :=false;
     groupbox4.Enabled :=false;
     groupbox5.Enabled :=false;

        btn_save.Enabled :=false;
        btn_cancel.Enabled :=false;
        //锁住所有文本框
        //LockEdit;
        //使按钮有效
        EnableBtn ;
        btn_delete.Enabled :=true;
        label23.Caption :=inttostr(self.ADOQuery1.Recordset.RecordCount);
end;

procedure TForm_partin.btn_cancelClick(Sender: TObject);
begin
        ADOQuery1.Cancel ;

     groupbox1.Enabled :=false;
     groupbox2.Enabled :=false;
     groupbox3.Enabled :=false;
     groupbox4.Enabled :=false;
     groupbox5.Enabled :=false;
        EnableBtn;
        //LockEdit;
        btn_cancel.Enabled :=false;
        btn_save.Enabled :=false;
        btn_edit.Enabled :=false;
        if  ADOQuery1.Recordset.RecordCount <>0 then