Perl MySQL Cruddy！幫助

我對數據庫編程相當陌生，並且試圖獲得一個基本的CRUD應用程序。使用Cruddy!我有一個非常有限的應用程序，它讀取數據字典並基於每個表創建表單。Perl MySQL Cruddy！幫助

由於幾個表都有大量的外鍵條目，我希望我的應用程序執行連接操作，這些連接操作對於每個外鍵列顯示爲鍵引用的條目都是必需的。眉頭！聲稱擁有這種能力 - 它使用CGI::AutoForm進行表單創建。要獲得表格並運行，您必須逐列提供條目到參考表ui_table_column。

與其爲所有表格及其附屬列編寫SQL語句，我試圖讓該過程適用於單列。

從我DDL此表：

CONSTRAINT `fk_Holder_Sample1` 
FOREIGN KEY (`sample_id`) 
REFERENCES `sample` (`sample_id`) 
ON DELETE NO ACTION 
ON UPDATE NO ACTION,

而且我在設置了自動SQL條目的嘗試：

INSERT INTO ui_table_column (
    table_name, field_name, appear_order, heading, searchable, updatable, insertable, input_control_type, multi_insert_delimiter, 
    search_control_type, search_mult_select, use_data_dict, datatype, default_value, required, input_size, input_maxlength, brief_heading, 
    alt_mask_field, mask_table_name, mask_field_name, id_field_name, no_cache, radio_checkbox_cols, field_group, element_attrs, help_summary) 
VALUES (
    'SAMPLE', 'SAMPLE_ID', 10, 'ID', 'Y', 'N', 'N', 'TEXT', NULL, 
    'SELECT', 4, 'Y', NULL, NULL, NULL, NULL, NULL, NULL, 
    NULL, 'sample', 'name', 'sample_id', 'Y', NULL, NULL, NULL, NULL); 

INSERT INTO ui_table_column (
    table_name, field_name, appear_order, heading, searchable, updatable, insertable, input_control_type, multi_insert_delimiter, 
    search_control_type, search_mult_select, use_data_dict, datatype, default_value, required, input_size, input_maxlength, brief_heading, 
    alt_mask_field, mask_table_name, mask_field_name, id_field_name, no_cache, radio_checkbox_cols, field_group, element_attrs, help_summary) 
VALUES (
    'SAMPLE', 'SAMPLE_NAME', 20, 'Name', 'Y', 'Y', 'Y', 'TEXT', NULL, 
    'MATCH TEXT', NULL, 'Y', NULL, NULL, NULL, NULL, NULL, 'Name', 
    NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL); 

INSERT INTO ui_table_column (
    table_name, field_name, appear_order, heading, searchable, updatable, insertable, input_control_type, multi_insert_delimiter, 
    search_control_type, search_mult_select, use_data_dict, datatype, default_value, required, input_size, input_maxlength, brief_heading, 
    alt_mask_field, mask_table_name, mask_field_name, id_field_name, no_cache, radio_checkbox_cols, field_group, element_attrs, help_summary) 
VALUES (
    'HOLDER', 'SAMPLE_ID', 30, 'sample', 'Y', 'Y', 'Y', 'SELECT', NULL, 
    'SELECT', 4, 'Y', NULL, NULL, NULL, NULL, NULL, 'Sample', 
    NULL, 'sample', 'NAME', 'SAMPLE_ID', 'Y', NULL, NULL, NULL, NULL);

當我刷新我的應用頁面（包括剛剛刷新broswer並調用apachectl）沒有變化 - 也就是說，我仍然可以在Holder頁面中看到Sample ID作爲一個字段。

有沒有人有這個成功或可以告訴我我做錯了什麼？

編輯：從我的沉默，我作爲指示，這個特定的框架還沒有看到廣泛使用。我想稍微打開我的問題，然後問問你有什麼解決方案？我實際上正在試驗Catalyst::Plugin::AutoCRUD。

來源

2012-05-18 learner

學習者在回答完其他框架之後回答，但爲了將來的參考，這些字段必須採用大寫字母。

對於上面的示例，第一個和第三個插入語句將具有：（alt_mask_field，mask_table_name，mask_field_name，id_field_name）=（NULL，'SAMPLE'，'NAME'，'SAMPLE_ID'）。

來源

2012-05-23 22:38:03

感謝評論 - 我離開它希望你建議。我已經接受你的答案。 – learner

我在我的編輯中使用模塊結束。我明天將這個標記爲關閉。

來源

2012-05-20 14:09:27 learner

Perl MySQL Cruddy！幫助

回答

相關問題