machineset.pas

来自「用户名：SYSTEM 密码：空 第一次运行请先恢复数据库 DATABAS」· PAS 代码 · 共 98 行

unit MachineSet;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseChildForm, StdCtrls, Spin, ExtCtrls, Buttons,Star, ComCtrls,Datamod,
  wwSpeedButton, wwDBNavigator, wwclearpanel, Grids, Wwdbigrd, Wwdbgrid,
  DB, ADODB;

type
  TfMachineSet = class(TfBaseChildForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Panel1: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    RadioGroup1: TRadioGroup;
    speMachineStart: TSpinEdit;
    speMachineEnd: TSpinEdit;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    SpinEdit1: TSpinEdit;
    BitBtn3: TBitBtn;
    TabSheet3: TTabSheet;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    wwDBGrid1: TwwDBGrid;
    ADOQuery1iMachineNo: TIntegerField;
    ADOQuery1cMachineAddress: TStringField;
    ADOQuery1cFunction: TStringField;
    ADOQuery1cUser: TStringField;
    ADOQuery1tUpdateTime: TDateTimeField;
    ADOQuery1cAction: TStringField;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ADOQuery1BeforePost(DataSet: TDataSet);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fMachineSet: TfMachineSet;

implementation

uses MachineSetEditForm;

{$R *.dfm}

procedure TfMachineSet.FormCreate(Sender: TObject);
var
  temMachineInfo:TMachineInfo;
begin
  inherited;
  temMachineInfo:=Star.GetMachineSet ;
  RadioGroup1.ItemIndex :=RadioGroup1.Items.IndexOf(temMachineInfo.Com);
  speMachineStart.Value :=temMachineInfo.MachineStart ;
  speMachineend.Value :=temMachineinfo.MachineEnd ;
  self.PageControl1.ActivePageIndex :=0;
end;

procedure TfMachineSet.FormClose(Sender: TObject;
  var Action: TCloseAction);
var
  temMachineInfo:TMachineInfo;
begin
  inherited;
  temMachineInfo.Com :=RadioGroup1.Items[RadioGroup1.itemindex];
  temMachineInfo.MachineStart:=speMachineStart.Value ;
  temMachineInfo.MachineEnd:=speMachineEnd.Value ;
  star.SetMachine(temMachineInfo);
end;

procedure TfMachineSet.BitBtn1Click(Sender: TObject);
var
   I:Integer;
begin
   Memo1.Lines.Clear;
   Star.SetComA(Radiogroup1.ItemIndex+1);
   for I:=speMachineStart.Value to speMachineEnd.Value do
       if star.SetCallNoA(I) And Star.QryStatusA then
           Memo1.Lines.Add(IntTostr(i)+'腹诀硄癟Θ