partsell.pas

主要是介绍DELPHI三层应用以及分布式数据库的应用

unit partsell;

interface

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

type
  Tform_partsell = class(TForm)
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label6: TLabel;
    ScrollBox: TScrollBox;
    DBGrid1: TDBGrid;
    Query1: TADOQuery;
    StringGrid1: TStringGrid;
    ADOQuery1: TADOQuery;
    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;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    DBEdit3: TDBEdit;
    Label23: TLabel;
    EditDBEdit12: TDBEdit;
    GroupBox2: TGroupBox;
    Label12: TLabel;
    Label13: TLabel;
    Label1: TLabel;
    DBEdit2: TDBEdit;
    Label14: TLabel;
    EditDBEdit4: TDBEdit;
    GroupBox3: TGroupBox;
    Label16: TLabel;
    EditDBEdit6: TDBEdit;
    Label15: TLabel;
    EditDBEdit5: TDBEdit;
    Label17: TLabel;
    EditDBEdit7: TDBEdit;
    GroupBox4: TGroupBox;
    Label19: TLabel;
    EditDBEdit8: TDBEdit;
    Label21: TLabel;
    EditDBEdit10: TDBEdit;
    Label20: TLabel;
    DBEdit1: TDBEdit;
    Panel2: TPanel;
    Label3: TLabel;
    Label4: TLabel;
    Label24: TLabel;
    btn_filterfield: TButton;
    Button2: TButton;
    btn_filterrecord: TButton;
    DBComboBox2: TDBComboBox;
    EditDBEdit3: TDBComboBox;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    DBMemo1: TDBMemo;
    Label7: TLabel;
    DBCheckBox2: TDBCheckBox;
    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 Button2Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBEdit1Enter(Sender: TObject);
    procedure DBEdit3Enter(Sender: TObject);
    procedure EditDBEdit12Enter(Sender: TObject);
    procedure Query1AfterOpen(DataSet: TDataSet);
    procedure EditDBEdit6Exit(Sender: TObject);
    procedure EditDBEdit5Exit(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure btn_filterrecordClick(Sender: TObject);
    procedure btn_deleteClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBComboBox2Exit(Sender: TObject);
    procedure EditDBEdit3Exit(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure DBComboBox2Click(Sender: TObject);
    procedure EditDBEdit3Click(Sender: TObject);
  private
    { Private declarations }
    procedure DisableBtn;
    //定义过程，用来使某些按钮失效
    procedure EnableBtn;
    //定义过程，用来使某些按钮有效
    procedure AddPartNum();
  public
    { Public declarations }

  end;

var
  form_partsell: Tform_partsell;
  //SellStyle:string;
  j:integer;
  myIndex:array[1..6] of integer;
  myValue:array[1..6] of single;
  NotFirst:boolean;  

implementation

uses Unit_wxp, search, wxp_dm, rp_partsell, rp_partsell2, rp_partsell3;

{$R *.dfm}

procedure Tform_partsell.btn_firstClick(Sender: TObject);
begin
     query1.First ;
end;

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

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

procedure Tform_partsell.btn_lastClick(Sender: TObject);
begin
     query1.Last ;
end;

procedure Tform_partsell.btn_addnewClick(Sender: TObject);
begin
     DisableBtn;
      btn_delete.Enabled :=false;
     groupbox1.Enabled :=true;
     groupbox2.Enabled :=true;
     groupbox3.Enabled :=true;
     groupbox4.Enabled :=true;
     DBCheckBox2.Checked :=false;
     query1.Insert;
     self.DBEdit1.Text :=unit_wxp.SellStyle ;
     btn_save.Enabled :=true;
     btn_cancel.Enabled :=true;
     dbedit3.Text :=dateToStr(date);
     EditDBEdit12.Text :=unit_wxp.myOffice;
     editdbedit10.SetFocus ;
     editdbedit10.Text :=dateToStr(date);
     dbcombobox2.SetFocus ;
end;


procedure Tform_partsell.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_partsell.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_partsell.btn_editClick(Sender: TObject);
begin
     DisableBtn;
     groupbox1.Enabled :=true;
     groupbox2.Enabled :=true;
     groupbox3.Enabled :=true;
     groupbox4.Enabled :=true;     
     query1.Edit ;
     btn_save.Enabled :=true;
     btn_cancel.Enabled :=true;
      btn_delete.Enabled :=false;
end;

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

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

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

procedure Tform_partsell.btn_cancelClick(Sender: TObject);
begin
        query1.Cancel ;
     groupbox1.Enabled :=false;
     groupbox2.Enabled :=false;
     groupbox3.Enabled :=false;
     groupbox4.Enabled :=false;        
        EnableBtn;
        //LockEdit;
        btn_cancel.Enabled :=false;
        btn_save.Enabled :=false;
        btn_edit.Enabled :=false;
        if  Query1.Recordset.RecordCount <>0 then
        begin
          btn_delete.Enabled :=true;
          btn_edit.Enabled :=true;
        end;
end;

procedure Tform_partsell.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     action:=cafree;
end;

procedure Tform_partsell.btn_filterfieldClick(Sender: TObject);
begin
        {query1.close;
        query1.sql.clear;
        query1.sql.add('select * from pub_z_partsell');
        query1.open;}
        Application.CreateForm(TForm_search, Form_search);
        form_search.TransADO  :=self.Query1 ;
        unit_wxp.WhichForm:=5;
        form_search.Showmodal ;
end;

procedure Tform_partsell.Button2Click(Sender: TObject);
begin
     self.Query1.Active :=false;
     self.Query1.SQL.Clear ;
      if unit_wxp.sellstyle ='销售' then
         begin
         self.Query1.SQL.Add('select * from pub_z_partsell where 类型=''销售''');
         unit_wxp.FinalSql := 'select * from pub_z_partsell where 类型=''销售''';
         end
      else if   unit_wxp.sellstyle ='三包' then
           begin
           self.Query1.SQL.Add('select * from pub_z_partsell where 类型=''三包''');
           unit_wxp.FinalSql := 'select * from pub_z_partsell where 类型=''三包''';
           end
      else
           begin
           self.Query1.SQL.Add('select * from pub_z_partsell where 类型=''调拨''');
           unit_wxp.FinalSql :='select * from pub_z_partsell where 类型=''维修''';
           end;