sys910_03.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Sys910_03;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, Mask, wwdbedit, DBCtrls, DB;

type
  TSys910_03Form = class(TForm)
    lblType: TLabel;
    cbType: TComboBox;
    lblTime: TLabel;
    cbTime: TComboBox;
    Bevel1: TBevel;
    bbtnOk: TBitBtn;
    bbtnExit: TBitBtn;
    edtTime: TwwDBEdit;
    lblUser: TLabel;
    edtUser: TDBEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cbTypeChange(Sender: TObject);
    procedure bbtnOkClick(Sender: TObject);
    procedure bbtnExitClick(Sender: TObject);
  private
    ADataSet:TDataSet;
    AWeek:array[0..6] of string;
    AMonth:array[0..28] of string;
    procedure SetInterface;
    { Private declarations }
  public
    procedure OpenData(AUser:String);
    { Public declarations }
  end;

var
  Sys910_03Form: TSys910_03Form;

implementation

uses SYSDATA, CommFun;

{$R *.dfm}

procedure TSys910_03Form.OpenData(AUser:String);
begin
  ADataSet:=edtUser.DataSource.DataSet;
  cbType.ItemIndex:=ADataSet.FieldByName('FType').Value;
  cbTypeChange(cbType);
  cbType.ItemIndex:=ADataSet.FieldByName('FType').Value;
  case cbType.ItemIndex of
    0:edtTime.Text:='';
    1:edtTime.Text:=TimeToString(ADataSet.FieldByName('FTime').Value);
    2:cbTime.ItemIndex:=ADataSet.FieldByName('FTime').Value;
    3:cbTime.ItemIndex:=ADataSet.FieldByName('FTime').Value;
  end;
end;

procedure TSys910_03Form.SetInterface;
begin
  cbType.Clear;
  cbType.Items.Add('即时');
  cbType.Items.Add('每天');
  cbType.Items.Add('每周');
  cbType.Items.Add('每月');
  cbType.ItemIndex:=0;
  AWeek[0]:='星期日';;
  AWeek[1]:='星期一';;
  AWeek[2]:='星期二';;
  AWeek[3]:='星期三';;
  AWeek[4]:='星期四';;
  AWeek[5]:='星期五';;
  AWeek[6]:='星期六';;
  AMonth[0]:='月末';
  AMonth[1]:='01日';
  AMonth[2]:='02日';
  AMonth[3]:='03日';
  AMonth[4]:='04日';
  AMonth[5]:='05日';
  AMonth[6]:='06日';
  AMonth[7]:='07日';
  AMonth[8]:='08日';
  AMonth[9]:='09日';
  AMonth[10]:='10日';
  AMonth[11]:='11日';
  AMonth[12]:='12日';
  AMonth[13]:='13日';
  AMonth[14]:='14日';
  AMonth[15]:='15日';
  AMonth[16]:='16日';
  AMonth[17]:='17日';
  AMonth[18]:='18日';
  AMonth[19]:='19日';
  AMonth[20]:='20日';
  AMonth[21]:='21日';
  AMonth[22]:='22日';
  AMonth[23]:='23日';
  AMonth[24]:='24日';
  AMonth[25]:='25日';
  AMonth[26]:='26日';
  AMonth[27]:='27日';
  AMonth[28]:='28日';
end;

procedure TSys910_03Form.FormCreate(Sender: TObject);
begin
  SetInterface;
end;

procedure TSys910_03Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
//
end;

procedure TSys910_03Form.cbTypeChange(Sender: TObject);
var
  I:Integer;
begin
  cbTime.Clear;
  if cbType.ItemIndex=0 then  //即时
  begin
    edtTime.Text:='';
    edtTime.Visible:=True;
    cbTime.Visible:=False;
  end else
  if cbType.ItemIndex=1 then  //每天
  begin
    edtTime.Text:='00:00';
    edtTime.Visible:=True;
    cbTime.Visible:=False;
  end else
  if cbType.ItemIndex=2 then  //每周
  begin
    for I:=Low(AWeek) to High(AWeek) do cbTime.Items.Add(AWeek[I]);
    cbTime.ItemIndex:=0;
    edtTime.Visible:=False;
    cbTime.Visible:=True;
  end else
  if cbType.ItemIndex=3 then  //每月
  begin
    for I:=Low(AWeek) to High(AMonth) do cbTime.Items.Add(AMonth[I]);
    cbTime.ItemIndex:=0;
    edtTime.Visible:=False;
    cbTime.Visible:=True;
  end;
  edtTime.Enabled:=cbType.ItemIndex<>0;
  if edtTime.Enabled then edtTime.Color:=AEnableColor else edtTime.Color:=ADisableColor;
end;

procedure TSys910_03Form.bbtnOkClick(Sender: TObject);
begin
//确定(&O)
  if (cbType.ItemIndex=1) and (edtTime.Text='') then
  begin
    ShowMsg('UMS10000526');  //发送时间不能为空
    edtTime.SetFocus;
    Abort;
  end;
  ADataSet.Edit;
  ADataSet.FieldByName('FType').Value:=cbType.ItemIndex;
  case cbType.ItemIndex of
    0:ADataSet.FieldByName('FTime').Value:=0;
    1:ADataSet.FieldByName('FTime').Value:=StringToTime(edtTime.Text);
    2:ADataSet.FieldByName('FTime').Value:=cbTime.ItemIndex;
    3:ADataSet.FieldByName('FTime').Value:=cbTime.ItemIndex;
  end;
  case cbType.ItemIndex of
    0:ADataSet.FieldByName('FTimeStr').Value:=cbType.Text;
    1:ADataSet.FieldByName('FTimeStr').Value:=cbType.Text+', '+edtTime.Text;
    2:ADataSet.FieldByName('FTimeStr').Value:=cbType.Text+', '+cbTime.Text;
    3:ADataSet.FieldByName('FTimeStr').Value:=cbType.Text+', '+cbTime.Text;
  end;
  ADataSet.Post;
  ModalResult:=1;
end;

procedure TSys910_03Form.bbtnExitClick(Sender: TObject);
begin
//退出(&X)
  Close;
end;

end.