arrange.pas

来自「一款不错的商务程序商品管理系统,有简易的窗体皮肤」· PAS 代码 · 共 112 行

unit Arrange;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, StdCtrls, DBCtrls, Grids, DBGrids, DB, ADODB,
  Theme;

type
  TFrm_Arrange = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    DBGrid1: TDBGrid;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ADOArrange: TADODataSet;
    DSArrange: TDataSource;
    GroupBox1: TGroupBox;
    DBMemo1: TDBMemo;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    ToolButton6: TToolButton;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure ToolButton6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Arrange: TFrm_Arrange;

implementation
uses Main,ArrangeSel,DM;
{$R *.dfm}

procedure TFrm_Arrange.FormShow(Sender: TObject);
begin
  ADOArrange.Active:=False;
  ADOArrange.Active:=True;
end;

procedure TFrm_Arrange.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
  ActiveForm:=nil;
end;

procedure TFrm_Arrange.ToolButton1Click(Sender: TObject);
begin
  ADOArrange.Append;
  ADOArrange.FieldByName('MR_Name').AsString:=Operator;
end;

procedure TFrm_Arrange.ToolButton2Click(Sender: TObject);
begin
  if (ADOArrange.RecordCount>0) and (Application.MessageBox('是否要删除此记录！', '明日科技',
    MB_OKCANCEL) = IDOK ) then
  begin
    ADOArrange.Delete;
    ADOArrange.UpdateBatch;
  end;
end;

procedure TFrm_Arrange.ToolButton4Click(Sender: TObject);
begin
  ADOArrange.Edit;
  ADOArrange.FieldByName('MR_Date').AsDateTime:=DateTimePicker1.DateTime;
  ADOArrange.UpdateBatch;
end;

procedure TFrm_Arrange.ToolButton5Click(Sender: TObject);
begin
  Close;
end;

procedure TFrm_Arrange.DBGrid1CellClick(Column: TColumn);
begin
  DateTimePicker1.DateTime:=Column.Field.AsDateTime;
end;

procedure TFrm_Arrange.DBGrid1TitleClick(Column: TColumn);
begin
  if ADOArrange.Sort='' then
    ADOArrange.Sort:=Column.FieldName+' ASC'
  else if ADOArrange.Sort=Column.FieldName+' DESC' then
    ADOArrange.Sort:=Column.FieldName+' ASC'
  else
    ADOArrange.Sort:=Column.FieldName+' DESC'
end;

procedure TFrm_Arrange.ToolButton6Click(Sender: TObject);
begin
  Frm_ArrangeSel.ShowModal;
end;

end.