uneworder.pas

相关的销售服务管理行业的一个软件

unit Uneworder;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, ToolWin, DBCtrls, Grids, DBGridEh, Mask,
  ExtCtrls, Impstringgrid;

type
  TFrmneworder = class(TForm)
    ToolBar1: TToolBar;
    BitBtn10: TBitBtn;
    BitBtn1: TBitBtn;
    ToolButton4: TToolButton;
    ToolButton3: TToolButton;
    BitBtn4: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    BitBtn9: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn8: TBitBtn;
    ToolButton1: TToolButton;
    BtnFind: TBitBtn;
    ToolButton2: TToolButton;
    BitBtn11: TBitBtn;
    BitBtn5: TBitBtn;
    Panel1: TPanel;
    Label25: TLabel;
    Label27: TLabel;
    DBEdit1_1: TDBEdit;
    DBEdit1_2: TDBEdit;
    DTP1: TDateTimePicker;
    DBLookupComboBox1: TDBLookupComboBox;
    Panel2: TPanel;
    DBGridEh1: TDBGridEh;
    Panel3: TPanel;
    BitBtn12: TBitBtn;
    Label26: TLabel;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    BitBtn13: TBitBtn;
    BitBtn14: TBitBtn;
    Splitter1: TSplitter;
    Panel4: TPanel;
    Panel5: TPanel;
    DBImage2: TDBImage;
    Label19: TLabel;
    DBImage1: TDBImage;
    Label22: TLabel;
    ImpStringgrid1: TImpStringgrid;
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn12Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frmneworder: TFrmneworder;

implementation

uses Umain, Uorder, USize;

{$R *.DFM}

procedure TFrmneworder.FormShow(Sender: TObject);
begin
  frmmain.Outlook1.Visible:=False;
  frmmain.Panel1.Visible:=true;
  frmmain.Panel2.Visible:=false;
end;

procedure TFrmneworder.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 Frmmain.Outlook1.Visible :=true;
  frmmain.Panel1.Visible:=true;
  Frmmain.Panel2.Visible:=True;
  frmmain.LTitle.Caption:='';
  Frmneworder:=nil;
  action:=cafree;
end;

procedure TFrmneworder.BitBtn5Click(Sender: TObject);
begin
Close;
end;

procedure TFrmneworder.BitBtn12Click(Sender: TObject);
var i,j,z:integer;
begin
  frmsize:=TFrmsize.create(nil);
  Frmsize.showmodal;
  if Frmsize.ModalResult =mrok then
  begin
      with Frmsize do
      begin
          for i:=0 to  Lstset.Items.Count-1 do
          begin
              if LstSet.Checked[i]=true then
              begin
                j:=j+1;
              end;
          end

      end;
  end;
  Frmsize.free;
end;

procedure TFrmneworder.FormCreate(Sender: TObject);
var
   i,j:integer;
begin
ImpStringgrid1.Columns.Grid.ColWidths[0]:=10;
for   i:=0 to   ImpStringgrid1.Columns.Grid.RowCount-1 do
begin
 ImpStringgrid1.Columns.Grid.RowHeights[i]:=19;
end;
for i:=0 to  ImpStringgrid1.Columns.Grid.colCount-1 do
begin
ImpStringgrid1.Columns.Items[i].Title.Alignment :=taCenter;
ImpStringgrid1.Columns.Items[I].Alignment :=taCenter;
end;
end;

end.