order.~pas

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

~PAS
593 行
字号
12
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.tiLocateClick(Sender: TObject);
begin
  inherited;
oorderquery.show;
end;

procedure Tordermanager.TradeImg1Click(Sender: TObject);
var serial:integer;
begin
  inherited;
  dbgrid2.Enabled:=false;
tradeimg3.Enabled:=false;
  tradeimg4.Enabled:=true;
  tradeimg5.Enabled:=true;
  speedbutton1.Enabled:=true;
  dbedit8.ReadOnly:=false;
dbedit9.ReadOnly:=false;
//dbedit10.ReadOnly:=false;
dbedit11.ReadOnly:=false;
dbedit12.ReadOnly:=false;
dbedit13.ReadOnly:=false;
//dbedit14.ReadOnly:=false;
//dbedit16.ReadOnly:=false;
dbedit8.Color:=clbtnhighlight;
dbedit9.Color:=clbtnhighlight;
//dbedit10.Color:=clbtnhighlight;
dbedit11.Color:=clbtnhighlight;
dbedit12.Color:=clbtnhighlight;
dbedit13.Color:=clbtnhighlight;
dbedit14.Color:=clbtnhighlight;
//dbedit16.Color:=clbtnhighlight;
DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(8); //当前活动记录下移到第三条记录
    Serial := DM.AT_Count['Count_Value'];
    dm.q_list.append;
    dm.q_list['Note_Code'] := Serial+1;
end;

procedure Tordermanager.TradeImg2Click(Sender: TObject);
begin
  inherited;
  tradeimg4.Enabled:=true;
  tradeimg5.Enabled:=true;
  speedbutton1.Enabled:=true;
  dbedit8.ReadOnly:=false;
dbedit9.ReadOnly:=false;
//dbedit10.ReadOnly:=false;
dbedit11.ReadOnly:=false;
dbedit12.ReadOnly:=false;
dbedit13.ReadOnly:=false;
//dbedit14.ReadOnly:=false;
//dbedit16.ReadOnly:=false;
dbedit8.Color:=clbtnhighlight;
dbedit9.Color:=clbtnhighlight;
//dbedit10.Color:=clbtnhighlight;
dbedit11.Color:=clbtnhighlight;
dbedit12.Color:=clbtnhighlight;
dbedit13.Color:=clbtnhighlight;
dbedit14.Color:=clbtnhighlight;
//dbedit16.Color:=clbtnhighlight;
dm.q_list.Edit;
end;

procedure Tordermanager.TradeImg3Click(Sender: TObject);
var    {*****删除工具条快捷按钮单击事件*****}
    Button:integer;
begin
  inherited;

  if dm.q_list.IsEmpty=true then
 showmessage('没有需要删除的记录!') else
      begin
      Button := Application.MessageBox('真的要删除记录吗？','提示对话框',MB_OKCANCEL);  //弹出确认对话框
    if Button = IDOK then  //单击OK按钮

dm.q_list.Delete;
end
end;



procedure Tordermanager.TradeImg4Click(Sender: TObject);
begin
  inherited;
  if(dbedit8.text='') or(dbedit11.text='')
or (dbedit13.text='')
then
showmessage('请把必要信息填完！')
else
begin
dbgrid2.Enabled:=true;
dm.q_list.Edit;
dm.q_list.post;
DM.AT_Count.First;   //移动记录号计数数据表当前活动记录是第一条记录
    DM.AT_Count.MoveBy(8); //当前活动记录下移到第三条记录
    DM.AT_Count.Edit;    //记录号计数数据表处于编辑状态
    DM.AT_Count['Count_Value'] := StrToInt(DBEdit11.Text);
    DM.AT_Count.Post;
 speedbutton1.Enabled:=false;
dbedit9.readonly:=true;
//dbedit10.readonly:=true;
dbedit11.readonly:=true;
dbedit12.readonly:=true;
dbedit13.readonly:=true;
dbedit14.ReadOnly:=true;
dbedit8.readonly:=true;
dbedit16.ReadOnly:=true;

dbedit14.Color:=clSilver;
dbedit8.Color:=clSilver;
dbedit11.Color:=clSilver;
dbedit12.Color:=clSilver;
//dbedit10.Color:=clSilver;
dbedit9.Color:=clSilver;
dbedit13.Color:=clSilver;
dbedit16.Color:=clSilver;
end
end;

procedure Tordermanager.tiDeleteClick(Sender: TObject);
var    {*****删除工具条快捷按钮单击事件*****}
    Button:integer;
begin
  inherited;
ticancel.Enabled:=true;
  if dm.q_order.IsEmpty=true then
 showmessage('没有需要删除的记录!') else
      begin
      Button := Application.MessageBox('真的要删除记录吗？','提示对话框',MB_OKCANCEL);  //弹出确认对话框
    if Button = IDOK then  //单击OK按钮

dm.q_order.Delete;
end
end;

procedure Tordermanager.SpeedButton2Click(Sender: TObject);
begin
  inherited;
// F_Date.Left := F_Order.Left+SpeedButton1.Left; //控件日期选择窗口显示位置
   // F_Date.Top := F_Order.Top+SpeedButton1.Top;
   dbedit4.ReadOnly:=false;
    F_Date.ShowModal;   //弹出日期选择窗口
    if F_Date.ModalResult = mrOk then  //用户确定选择的日期
    DM.Q_order['Order_ReplyTime'] := F_Date.MC.Date; //选择的日期赋建档日期字段
end;

procedure Tordermanager.SpeedButton3Click(Sender: TObject);
begin
  inherited;
 //F_Date.Left := F_Order.Left+SpeedButton1.Left; //控件日期选择窗口显示位置
    //F_Date.Top := F_Order.Top+SpeedButton1.Top;
    dbedit6.ReadOnly:=false;
    F_Date.ShowModal;   //弹出日期选择窗口
    if F_Date.ModalResult = mrOk then  //用户确定选择的日期
    DM.Q_order['Order_DeliverTime'] := F_Date.MC.Date; //选择的日期赋建档日期字段
end;

procedure Tordermanager.SpeedButton1Click(Sender: TObject);
begin
  inherited;
 //F_Date.Left := F_Order.Left+SpeedButton1.Left; //控件日期选择窗口显示位置
   // F_Date.Top := F_Order.Top+SpeedButton1.Top;
    dbedit14.ReadOnly:=false;
    F_Date.ShowModal;   //弹出日期选择窗口
    if F_Date.ModalResult = mrOk then  //用户确定选择的日期
    DM.Q_list['Delivery_Time'] := F_Date.MC.Date; //选择的日期赋建档日期字段
end;

procedure Tordermanager.SpeedButton4Click(Sender: TObject);
begin
  inherited;
dbedit3.ReadOnly:=false;
 F_Date.ShowModal;   //弹出日期选择窗口
    if F_Date.ModalResult = mrOk then  //用户确定选择的日期
    DM.Q_order['Order_SubscribeTime'] := F_Date.MC.Date; //选择的日期赋建档日期字段
end;

procedure Tordermanager.ticancelClick(Sender: TObject);
begin
  inherited;
dm.q_order.Cancel;
dbgrid1.Enabled:=true;
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.TradeImg5Click(Sender: TObject);
begin
  inherited;
dm.q_list.Cancel;
dbgrid2.Enabled:=true;
tradeimg4.Enabled:=false;
speedbutton1.Enabled:=false;
dbedit9.readonly:=true;
//dbedit10.readonly:=true;
dbedit11.readonly:=true;
dbedit12.readonly:=true;
dbedit13.readonly:=true;
dbedit14.ReadOnly:=true;
dbedit8.readonly:=true;
dbedit16.ReadOnly:=true;

dbedit14.Color:=clSilver;
dbedit8.Color:=clSilver;
dbedit11.Color:=clSilver;
dbedit12.Color:=clSilver;
//dbedit10.Color:=clSilver;
dbedit9.Color:=clSilver;
dbedit13.Color:=clSilver;
dbedit16.Color:=clSilver;
end;

procedure Tordermanager.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
dm.q_order.Cancel;
dm.q_list.Cancel;
end;

procedure Tordermanager.FormCreate(Sender: TObject);
begin
inherited;
with dm.q_order do
begin
close;
sql.clear;
sql.add('select * from orderinfo');
//prepare;
open;
end;
  if strtoint(trim(dm.q_maintenance.fieldbyname('user_popedom').value))=0 then
   begin
   tradeimg1.Enabled:=true;
             tradeimg2.Enabled:=true;
             tradeimg3.Enabled:=true;
             tradeimg4.Enabled:=true;
             tradeimg5.Enabled:=true;
        
            end
              else if strtoint(trim(dm.q_maintenance.fieldbyname('user_popedom').value))=1 then
               begin
               tradeimg1.Enabled:=true;
             tradeimg2.Enabled:=true;
             tradeimg3.Enabled:=true;
             tradeimg4.Enabled:=true;
             tradeimg5.Enabled:=true;
            end
            else if strtoint(trim(dm.q_maintenance.fieldbyname('user_popedom').value))=2 then
            begin
             tradeimg1.Enabled:=false;
             tradeimg2.Enabled:=false;
             tradeimg3.Enabled:=false;
             tradeimg4.Enabled:=false;
             tradeimg5.Enabled:=false;
            end
end;

end.
12

order.~pas - 源码说明

本页面展示了「这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不过是可以用来答辩的,完整的毕业设计,有源代码,可爱执行文件,文档资料.」中的 order.~pas 源码文件，采用 ~PAS 编程语言编写，共 593 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与毕业设计相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?