order.~pas

来自「这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不」· ~PAS 代码 · 共 593 行 · 第 1/2 页

unit order;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ttemplate, Grids, DBGrids, StdCtrls, Mask, DBCtrls, Buttons,
  LabelButton, TradeImage, ExtCtrls, ComCtrls, ToolWin;

type
  Tordermanager = class(Ttemplate2)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Label15: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBGrid1: TDBGrid;
    DBEdit15: TDBEdit;
    GroupBox2: TGroupBox;
    Panel1: TPanel;
    TradeImg1: TTradeImg;
    LabelBtn21: TLabelBtn;
    TradeImg2: TTradeImg;
    LabelBtn23: TLabelBtn;
    TradeImg3: TTradeImg;
    LabelBtn24: TLabelBtn;
    TradeImg4: TTradeImg;
    LabelBtn25: TLabelBtn;
    TradeImg5: TTradeImg;
    LabelBtn26: TLabelBtn;
    Panel2: TPanel;
    DBGrid2: TDBGrid;
    Label8: TLabel;
    DBEdit8: TDBEdit;
    Label9: TLabel;
    DBEdit9: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    DBEdit11: TDBEdit;
    Label12: TLabel;
    DBEdit12: TDBEdit;
    Label13: TLabel;
    DBEdit13: TDBEdit;
    Label14: TLabel;
    DBEdit14: TDBEdit;
    Label16: TLabel;
    DBEdit16: TDBEdit;
    SpeedButton1: TSpeedButton;
    DBLookupComboBox1: TDBLookupComboBox;
    Label17: TLabel;
    DBLookupComboBox2: TDBLookupComboBox;
    DBLookupComboBox3: TDBLookupComboBox;
    procedure tiNewClick(Sender: TObject);
    procedure tiEditClick(Sender: TObject);
    procedure tiPrintClick(Sender: TObject);
    procedure tiFirstClick(Sender: TObject);
    procedure tiPriorClick(Sender: TObject);
    procedure tiNextClick(Sender: TObject);
    procedure tiLastClick(Sender: TObject);
    procedure tiLocateClick(Sender: TObject);
    procedure TradeImg1Click(Sender: TObject);
    procedure TradeImg2Click(Sender: TObject);
    procedure TradeImg3Click(Sender: TObject);
    procedure TradeImg4Click(Sender: TObject);
    procedure tiDeleteClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure ticancelClick(Sender: TObject);
    procedure TradeImg5Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ordermanager: Tordermanager;

implementation

uses datamodule, orderquery, Date;

{$R *.dfm}

procedure Tordermanager.tiNewClick(Sender: TObject);
var serial:integer;
begin
  inherited;
dbgrid1.Enabled:=false;
  ticancel.Enabled:=true;
  speedbutton4.Enabled:=true;
speedbutton2.Enabled:=true;
speedbutton3.Enabled:=true;
  dbedit1.ReadOnly:=false;
dbedit2.ReadOnly:=false;
//dbedit3.ReadOnly:=false;
//dbedit4.ReadOnly:=false;
//dbedit5.ReadOnly:=false;
//dbedit6.ReadOnly:=false;
dbedit7.ReadOnly:=false;
//dbedit15.ReadOnly:=false;
dbedit1.Color:=clbtnhighlight;
dbedit2.Color:=clbtnhighlight;
dbedit3.Color:=clbtnhighlight;
dbedit4.Color:=clbtnhighlight;
//dbedit5.Color:=clbtnhighlight;
dbedit6.Color:=clbtnhighlight;
dbedit7.Color:=clbtnhighlight;
//dbedit15.Color:=clbtnhighlight;
DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(7); //当前活动记录下移到第三条记录
    Serial := DM.AT_Count['Count_Value'];
    dm.q_order.append;
    dm.q_order['Note_Code'] := Serial+1;
end;

procedure Tordermanager.tiEditClick(Sender: TObject);
begin
  inherited;
ticancel.Enabled:=true;
  speedbutton4.Enabled:=true;
speedbutton2.Enabled:=true;
speedbutton3.Enabled:=true;
  dbedit1.ReadOnly:=false;
dbedit2.ReadOnly:=false;
//dbedit3.ReadOnly:=false;
//dbedit4.ReadOnly:=false;
//dbedit5.ReadOnly:=false;
//dbedit6.ReadOnly:=false;
dbedit7.ReadOnly:=false;
//dbedit15.ReadOnly:=false;
dbedit1.Color:=clbtnhighlight;
dbedit2.Color:=clbtnhighlight;
dbedit3.Color:=clbtnhighlight;
dbedit4.Color:=clbtnhighlight;
//dbedit5.Color:=clbtnhighlight;
dbedit6.Color:=clbtnhighlight;
dbedit7.Color:=clbtnhighlight;
//dbedit15.Color:=clbtnhighlight;
dm.q_order.edit;
end;

procedure Tordermanager.tiPrintClick(Sender: TObject);
begin
  inherited;
  if(dbedit1.text='') or(dbedit3.text='')
or (dbedit4.text='') or (dbedit6.text='')
then
showmessage('请把必要信息填完！')
else
begin
dbgrid1.Enabled:=true;
  dm.q_order.Edit;
dm.q_order.post;
DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(7); //当前活动记录下移到第三条记录
    DM.AT_Count.Edit;    //记录号计数数据表处于编辑状态
    DM.AT_Count['Count_Value'] := StrToInt(DBEdit15.Text);
    DM.AT_Count.Post;
 speedbutton2.Enabled:=false;
 speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=false;
 dbedit1.readonly:=true;
dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.ReadOnly:=true;
dbedit8.readonly:=true;
dbedit15.ReadOnly:=true;

dbedit7.Color:=clSilver;
dbedit8.Color:=clSilver;
dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;
dbedit3.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
dbedit6.Color:=clSilver;
dbedit15.Color:=clSilver;
end
end;

procedure Tordermanager.tiFirstClick(Sender: TObject);
begin
  inherited;
dm.q_order.First;
speedbutton2.Enabled:=false;
 speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=false;
 dbedit1.readonly:=true;
dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.ReadOnly:=true;
dbedit8.readonly:=true;
dbedit15.ReadOnly:=true;

dbedit7.Color:=clSilver;
dbedit8.Color:=clSilver;
dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;
dbedit3.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
dbedit6.Color:=clSilver;
dbedit15.Color:=clSilver;
end;

procedure Tordermanager.tiPriorClick(Sender: TObject);
begin
  inherited;
dm.q_order.prior;
speedbutton2.Enabled:=false;
 speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=false;
 dbedit1.readonly:=true;
dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.ReadOnly:=true;
dbedit8.readonly:=true;
dbedit15.ReadOnly:=true;

dbedit7.Color:=clSilver;
dbedit8.Color:=clSilver;
dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;
dbedit3.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
dbedit6.Color:=clSilver;
dbedit15.Color:=clSilver;
end;

procedure Tordermanager.tiNextClick(Sender: TObject);
begin
  inherited;
dm.q_order.next;
speedbutton2.Enabled:=false;
 speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=false;
 dbedit1.readonly:=true;
dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;
dbedit6.readonly:=true;
dbedit7.ReadOnly:=true;
dbedit8.readonly:=true;
dbedit15.ReadOnly:=true;

dbedit7.Color:=clSilver;
dbedit8.Color:=clSilver;
dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;
dbedit3.Color:=clSilver;
dbedit4.Color:=clSilver;
//dbedit5.Color:=clSilver;
dbedit6.Color:=clSilver;
dbedit15.Color:=clSilver;
end;

procedure Tordermanager.tiLastClick(Sender: TObject);
begin
  inherited;
dm.q_order.last;
speedbutton2.Enabled:=false;
 speedbutton3.Enabled:=false;
  speedbutton4.Enabled:=false;
 dbedit1.readonly:=true;
dbedit2.readonly:=true;
dbedit3.readonly:=true;
dbedit4.readonly:=true;
//dbedit5.readonly:=true;