src.tmp

来自「DELPHI DFM资源文件内码批量转换程序」· TMP 代码 · 共 58 行

unit rl01p;

interface

uses
  Windows, Messages, SysUtils,DateUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ComCtrls, StdCtrls, Spin, Buttons, ToolWin,
  ExtCtrls, ImgList, DB, DBTables;

type
  Trl01f = class(TForm)
    DBGrid1: TDBGrid;
    StatusBar1: TStatusBar;
    CoolBar1: TCoolBar;
    spexit: TSpeedButton;
    spdele: TSpeedButton;
    Spnew: TSpeedButton;
    DTPicker1: TDateTimePicker;
    SpinButton1: TSpinButton;
    CkBox: TCheckBox;
    procedure DTPicker1Change(Sender: TObject);
    procedure SpinButton1DownClick(Sender: TObject);
    procedure SpinButton1UpClick(Sender: TObject);
    procedure spexitClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CkBoxClick(Sender: TObject);
    procedure SpnewClick(Sender: TObject);
    procedure spdeleClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    fDate:TDateTime;
    fCkDoNothing:boolean;
    procedure RefreshForm;
    { Public declarations }
  end;

var
  rl01f: Trl01f;

implementation
uses datap,global;
{$R *.dfm}

procedure Trl01f.RefreshForm;
begin
  try
    if datamod.f222.State=dsInactive then
      datamod.f222.Open;
    if datamod.f224.State=dsInactive then
    begin
      datamod.f224.ParamByName('DATE').AsString:=DatetoStr(date());
      datamod.f224.Open;
    end;
  except
    PostMessage(self.Handle,WM_CLOSE,0,0);
    ShowMessage('岿粇!ゴ秨计沮畐