frame_dataedit.pas

来自「用Delphi编写的生产管理系统源码」· PAS 代码 · 共 135 行

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, ImgList;

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;
    ImageList1: TImageList;
    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('计沮方ぃ