frame_dataedit.~pas

用Delphi编写的生产管理系统源码

unit Frame_DataEdit;

interface

uses
  Windows, db, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, TFlatTabControlUnit, TFlatSplitterUnit, Grids, DBGrids, ADODB,
  ExtCtrls, TFlatPanelUnit, TFlatButtonUnit, TFlatGroupBoxUnit,
  TFlatCheckListBoxUnit, variants, TFlatListBoxUnit, Valedit, TFlatMemoUnit, ComCtrls,
  TFlatCheckBoxUnit, TFlatRadioButtonUnit, WNADOCQuery;

type
  TFrameDataEdit = class(TFrame)
    MainDataSource: TDataSource;
    FlatTabControl1: TFlatTabControl;
    FlatPanelBrowser: TFlatPanel;
    ADODataSet1: TADODataSet;
    DBGrid1: TDBGrid;
    FlatPanelEnd: TFlatPanel;
    FlatButton1: TFlatButton;
    FlatButton2: TFlatButton;
    FlatButton3: TFlatButton;
    FlatButton4: TFlatButton;
    FlatButton5: TFlatButton;
    FlatButton6: TFlatButton;
    FlatSplitter1: TFlatSplitter;
    FlatPanelEdit: TFlatPanel;
    FlatButton7: TFlatButton;
    FlatButton8: TFlatButton;
    FlatPanelTop: TFlatPanel;
    FlatButton9: TFlatButton;
    FlatButton10: TFlatButton;
    FlatButton11: TFlatButton;
    FlatButton12: TFlatButton;
    FlatButton13: TFlatButton;
    FlatButton14: TFlatButton;
    FlatPanelSort: TFlatPanel;
    FlatPanelLookup: TFlatPanel;
    FlatPanelSUM: TFlatPanel;
    FlatCheckListBox1: TFlatCheckListBox;
    FlatGroupBox1: TFlatGroupBox;
    FlatPanelNONE: TFlatPanel;
    FlatGroupBox2: TFlatGroupBox;
    FlatCheckListBoxSelected: TFlatCheckListBox;
    FlatPanel1: TFlatPanel;
    Label1: TLabel;
    FlatButton15: TFlatButton;
    FlatButton16: TFlatButton;
    FlatButton17: TFlatButton;
    FlatListBox1: TFlatListBox;
    FlatGroupBox3: TFlatGroupBox;
    FlatPanel2: TFlatPanel;
    FlatButton19: TFlatButton;
    FlatButton20: TFlatButton;
    FlatPanel3: TFlatPanel;
    ValueListEditor1: TValueListEditor;
    FlatButton21: TFlatButton;
    FlatButton22: TFlatButton;
    FlatGroupBox4: TFlatGroupBox;
    FlatPanel4: TFlatPanel;
    FlatPanel5: TFlatPanel;
    FlatRadioButton1: TFlatRadioButton;
    FlatRadioButton2: TFlatRadioButton;
    FlatPanel6: TFlatPanel;
    FlatCheckBox1: TFlatCheckBox;
    FlatCheckBox2: TFlatCheckBox;
    FlatCheckBox3: TFlatCheckBox;
    FlatCheckBox4: TFlatCheckBox;
    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton2Click(Sender: TObject);
    procedure FlatButton6Click(Sender: TObject);
    procedure FlatButton3Click(Sender: TObject);
    procedure FlatButton4Click(Sender: TObject);
    procedure FlatButton5Click(Sender: TObject);
    procedure FlatButton7Click(Sender: TObject);
    procedure FlatButton8Click(Sender: TObject);
    procedure FlatButton9Click(Sender: TObject);
    procedure FlatButton14Click(Sender: TObject);
    procedure FlatButton10Click(Sender: TObject);
    procedure FlatButton11Click(Sender: TObject);
    procedure FlatButton12Click(Sender: TObject);
    procedure FlatButton13Click(Sender: TObject);
    procedure FlatTabControl1TabChanged(Sender: TObject);
    procedure FlatCheckListBox1Click(Sender: TObject);
    procedure FlatButton15Click(Sender: TObject);
    procedure FlatButton17Click(Sender: TObject);
    procedure FlatButton16Click(Sender: TObject);
    procedure FlatCheckListBoxSelectedClick(Sender: TObject);
    procedure FlatSplitter1Moved(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FillFieldNames;
    procedure FlatButton19Click(Sender: TObject);
    procedure FlatButton20Click(Sender: TObject);
    procedure FlatButton21Click(Sender: TObject);
    procedure FlatButton22Click(Sender: TObject);
    procedure FlatCheckBox1Click(Sender: TObject);
    procedure ADODataSet1FilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
    procedure FlatRadioButton1Click(Sender: TObject);
    procedure FlatRadioButton2Click(Sender: TObject);
    procedure FlatCheckBox4Click(Sender: TObject);

  private
    { Private declarations }

  public
    { Public declarations }
  published
    property DataSource: TDataSource read MainDataSource write MainDataSource;
  end;
var
  FbookMark: TBookMark;
  CunR: integer;

const
  PageNumber = 10;

implementation

uses AdoDataMoudle, MainForm;

{$R *.dfm}

procedure TFrameDataEdit.FlatButton1Click(Sender: TObject);
begin
  with MainDataSource.DataSet do
    if Active then
      begin
        DisableControls;
        First;
        EnableControls;
      end
    else
      showmessage('计沮方ぃ