frmjob.pas

来自「一个小型餐饮管理系统,可支持小票打印.还存在一些小问题,希望朋友们帮助完成. 」· PAS 代码 · 共 117 行

unit Frmjob;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, RzEdit, RzPanel, ComCtrls, Grids, DBGrids, DB,
  DBClient, ExtCtrls, RzTabs,Unit_admin,Unit_Job,Unit_Share;

type
  Tfrm_job = class(TForm)
    RzPageControl1: TRzPageControl;
    TabSheet1: TRzTabSheet;
    TabSheet2: TRzTabSheet;
    Panel2: TPanel;
    DataSource1: TDataSource;
    ClientDataSet1: TClientDataSet;
    jbGrid: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    jbtime: TDateTimePicker;
    com_man: TComboBox;
    RzGroupBox1: TRzGroupBox;
    Label3: TLabel;
    WorkTime: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    lab_qb: TLabel;
    lab_xj: TLabel;
    lab_qd: TLabel;
    lab_gz: TLabel;
    lab_ze: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    lab_admin: TLabel;
    lab_jj: TLabel;
    ed_sj: TRzNumericEdit;
    ed_lc: TRzNumericEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ed_sjChange(Sender: TObject);
    procedure ed_lcChange(Sender: TObject);
  private
    { Private declarations }
    Myadmin:TAdmin;
    MyJob:TJob;
    MyShare:Tshare;
    BTime,ETime:TDateTime;
    AdminID:Integer;
    JobMoney:TJobMoney;
  public
    { Public declarations }
  end;

var
  frm_job: Tfrm_job;

implementation

uses FrmMain;

{$R *.dfm}

procedure Tfrm_job.FormCreate(Sender: TObject);
begin
 MyAdmin:=Tadmin.Create;
 MyJob:=TJob.create;
 MyShare:=Tshare.create;

end;

procedure Tfrm_job.FormActivate(Sender: TObject);
begin
 Com_man.Items.Clear;
 Com_man.Items.AddStrings(Myadmin.AllAdminList);
 Com_Man.ItemIndex:=0;
 AdminID:=Frm_Main.AdminID;
 BTime:=MyJob.LoginTime(AdminID);
 ETime:=Now;
 jbTime.DateTime:=ETime;

 WorkTime.Caption:=DateTimeToStr(BTime)+'——'+DateTimeToStr(ETime);
 lab_qb.Caption:=Myshare.DispCurrency(MyJob.Get_JYMoney);

 jobMoney:=Myjob.Get_JObMoney(AdminID,Btime,Etime);
 lab_xj.Caption:=MyShare.DispCurrency(jobMoney.Xj);
 lab_qd.caption:=Myshare.DispCurrency(JobMoney.Qd);
 lab_gz.Caption:=Myshare.DispCurrency(JobMoney.Gz);
 lab_ze.Caption:=MyShare.DispCurrency(MyJob.Get_JYMoney+jobMoney.Xj);
 lab_jj.Caption:=MyShare.DispCurrency(MyJob.Get_JYMoney+jobMoney.Xj-ed_sj.Value+ed_lc.Value);
 lab_admin.Caption:=MyAdmin.AdminName(AdminID);

end;

procedure Tfrm_job.ed_sjChange(Sender: TObject);
begin
lab_jj.Caption:=MyShare.DispCurrency(MyJob.Get_JYMoney+jobMoney.Xj-ed_sj.Value+ed_lc.Value);
end;

procedure Tfrm_job.ed_lcChange(Sender: TObject);
begin
 ed_sjChange(Sender);
end;

end.